Home » Personal collection » Commodore disks » disk41a_autostereo.d64 » autobasic.97

autobasic.97

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Commodore disks » disk41a_autostereo.d64
Filename: autobasic.97
Read OK: ✔
File size: 0766 bytes
Load address: 0801
Exec address: 0000
File contents
    10 REM     AUTOSTEREOGRAM GENERATOR
    20 REM         BY D. FORD 1996
    30 :
    90 DV=PEEK(186):IF DV<8 THEN DV=8
    95 POKE 4095,DV
   100 POKE 53280,2:POKE53281,2
   110 PRINT"<yellow><clr>        AUTOSTEREMGRAM GENERATOR<cursor down>"
   120 PRINT"      WRITTEN BY DOMINIC FORD 1996<cursor down><cursor down><cursor down>"
   122 IF TM=0 THEN 130
   124 PRINT"CALCULATE ANOTHER AUTOSTEREOGRAM? (Y/N)<cursor down>"
   125 GET K$:IF K$="N" THEN 40000
   126 IF K$="Y" THEN 130
   128 GOTO 125
   130 INPUT"SOURCE IMAGE FILENAME";S$
   140 IF LEN(S$)>15 OR LEN(S$)=0 THEN PRINT"<cursor down>BAD FILENAME<cursor down>":GOTO 130
   150 GOSUB 2000
   160 SA=0:PRINT"<cursor down>SAVE AUTOSTEREOGRAM (Y/N)?"
   170 GET K$:IF K$<>"Y" AND K$<>"N" THEN 170
   180 IF K$="Y" THEN SA=1:GOSUB 1000
   190 POKE 53001,0
   200 PRINT"<cursor down>IS SOURCE IMAGE (H)I-RES OR (L)O-RES?"
   210 GET K$:IF K$<>"H" AND K$<>"L" THEN 210
   220 IF K$="L" THEN POKE 53001,1
   230 PRINT"<cursor down><cursor down>COLOUR HEIGHTS (0=LOWEST, 15=HIGHEST)  "
   233 IF PEEK(53001)=0 THEN PRINT"RECOMMENDED VALUE: 5<cursor down>"
   236 IF PEEK(53001)=1 THEN PRINT"RECOMMENDED VALUES: 2,4,6<cursor down>"
   240 FORX=1TOPEEK(53001)*2+1:GOSUB3000:NEXT
   242 PRINT"<cursor down>AFTER AUTOSTEREOGRAM HAS FINISHED BEING"
   244 PRINT"CALCULATED, PRESS SPACE TO QUIT.<cursor down>":PRINT"PRESS SPACE TO START."
   246 GET K$:IF K$<>" " THEN 246
   250 SYS 4099
   260 IF SA=1 THEN SYS 4102
   270 GET K$:IF K$<>" " THEN 270
   280 POKE53265,27:POKE53272,21
   290 TM=1:GOTO 100
  1000 INPUT"AUTOSTEREOGRAM FILENAME";S$
  1010 IF LEN(S$)>15 OR LEN(S$)=0 THEN PRINT"<cursor down>BAD FILENAME<cursor down>":GOTO 1000
  1020 POKE 6152,LEN(S$)
  1030 FOR X=1 TO LEN(S$):POKEX+6159,ASC(MID$(S$,X,1)):NEXT
  1040 RETURN
  2000 PRINT"<cursor down>INSERT CORRECT DISC  <SPACE>"
  2010 GET K$:IF K$<>" " THEN 2010
  2020 PRINT"<cursor down><cursor down>PLEASE WAIT. . ."
  2030 POKE 49152,LEN(S$)
  2040 FOR X=1 TO LEN(S$):POKEX+49159,ASC(MID$(S$,X,1)):NEXT
  2050 SYS 4096
  2060 RETURN
  3000 PRINT"COLOUR ";X;:INPUT A
  3010 IF A<0 OR A>15 THEN PRINT" ILLEGAL HEIGHT ":GOTO 3000
  3020 POKE 4105+X,45-A:RETURN
 40000 POKEV+21,0:SYS51459:PRINT"<clr>":POKE788,49
 40010 IFDV<8ORDV>29ORDV=8THEN40030
 40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
 40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
 40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
 40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
 40060 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END
 40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23
 40080 PRINT"<clr><cursor down><cursor down><cursor down>P🭽2048,0:P🭽44,8:P🭽43,1:P🭽56,160:P🭽55,0:CLR:L🭽"Q$A$Q$","I
 40090 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END


$
�     AUTOSTEREOGRAM GENERATORB�         BY D. FORD 1996H:dZDV��(186):� DV�8 � DV�8r_� 4095,DV�d� 53280,2:�53281,2�n�"��        AUTOSTEREMGRAM GENERATOR"�x�"      WRITTEN BY DOMINIC FORD 1996"�z� TM�0 � 130"	|�"CALCULATE ANOTHER AUTOSTEREOGRAM? (Y/N)"<	}� K$:� K$�"N" � 40000O	~� K$�"Y" � 130Y	�� 125y	��"SOURCE IMAGE FILENAME";S$�	�� �(S$)�15 � �(S$)�0 � �"BAD FILENAME":� 130�	�� 2000�	�SA�0:�"SAVE AUTOSTEREOGRAM (Y/N)?"
�� K$:� K$��"Y" � K$��"N" � 170
�� K$�"Y" � SA�1:� 1000+
�� 53001,0Y
��"IS SOURCE IMAGE (H)I-RES OR (L)O-RES?"|
�� K$:� K$��"H" � K$��"L" � 210�
�� K$�"L" � � 53001,1�
��"COLOUR HEIGHTS (0=LOWEST, 15=HIGHEST)  "�
�� �(53001)�0 � �"RECOMMENDED VALUE: 5"#�� �(53001)�1 � �"RECOMMENDED VALUES: 2,4,6"A��X�1��(53001)�2�1:�3000:�q��"AFTER AUTOSTEREOGRAM HAS FINISHED BEING"���"CALCULATED, PRESS SPACE TO QUIT.":�"PRESS SPACE TO START."��� K$:� K$��" " � 246��� 4099�� SA�1 � � 4102� K$:� K$��" " � 270�53265,27:�53272,21+"TM�1:� 100M��"AUTOSTEREOGRAM FILENAME";S$��� �(S$)�15 � �(S$)�0 � �"BAD FILENAME":� 1000��� 6152,�(S$)�� X�1 � �(S$):�X�6159,�(�(S$,X,1)):������"INSERT CORRECT DISC  <SPACE>"
�� K$:� K$��" " � 2010
��"PLEASE WAIT. . .",
�� 49152,�(S$)V
�� X�1 � �(S$):�X�49159,�(�(S$,X,1)):�a
� 4096g
�}
��"COLOUR ";X;:� A�
�� A�0 � A�15 � �" ILLEGAL HEIGHT ":� 3000�
�� 4105�X,45�A:��
@��V�21,0:�51459:�"�":�788,49�
J��DV�8�DV�29�DV�8�40030(T�A��(828):B��(828�DV�8):�828,B:�828�DV�8,A\^�A$�"HELLO CONNECT":�J�8�29:I��(828�J�8):�I�14��wh��2:�2,I,2:�2:�ST�40060�r��15:�15,I,15,"R0:"�A$�"="�A$:�15,ER:�15:�ER�63�40070�|��:�"�":�53272,23:�186,8:����Q$��(34):�646,�(53281):�"�":�53272,23;���"�P�2048,0:P�44,8:P�43,1:P�56,160:P�55,0:CLR:L�"Q$A$Q$","Ie���"RUN:":�631,13:�632,13:�198,2:�
$HJ@.     autostereogram generator@bHT@.         by d. ford 1996@hH.@:@DHz@dv..(186):. dv.8 . dv.8@RH.@. 4095,dv@.HD@. 53280,2:.53281,2@.HN@."..        autosteremgram generatorQ"@.HX@."      written by dominic ford 1996QQQ"@.HZ@. tm.0 . 130@"I.@."calculate another autostereogram? (y/n)Q"@<I.@. k$:. k$."n" . 40000@oI.@. k$."y" . 130@yI.@. 125@YI.@."source image filename";s$@.I.@. .(s$).15 . .(s$).0 . ."Qbad filenameQ":. 130@.I.@. 2000@.I.@sa.0:."Qsave autostereogram (y/n)?"@BJ.@. k$:. k$.."y" . k$.."n" . 170@]J.@. k$."y" . sa.1:. 1000@+J.@. 53001,0@yJ.@."Qis source image (h)i-res or (l)o-res?"@.J.@. k$:. k$.."h" . k$.."l" . 210@.J.@. k$."l" . . 53001,1@.J.@."QQcolour heights (0=lowest, 15=highest)  "@.J.@. .(53001).0 . ."recommended value: 5Q"@#K.@. .(53001).1 . ."recommended values: 2,4,6Q"@aK.@.x.1..(53001).2.1:.3000:.@QK.@."Qafter autostereogram has finished being"@.K.@."calculated, press space to quit.Q":."press space to start."@.K.@. k$:. k$.." " . 246@.K.@. 4099@.KDA. sa.1 . . 4102@DLNA. k$:. k$.." " . 270@£LXA.53265,27:.53272,21@+L"Atm.1:. 100@mL.C."autostereogram filename";s$@.L.C. .(s$).15 . .(s$).0 . ."Qbad filenameQ":. 1000@.L.C. 6152,.(s$)@.LFD. x.1 . .(s$):.x.6159,.(.(s$,x,1)):.@.LPD.@.L.G."Qinsert correct disc  <space>"@@M.G. k$:. k$.." " . 2010@ZM.G."QQplease wait. . ."@,M.G. 49152,.(s$)@vM.G. x.1 . .(s$):.x.49159,.(.(s$,x,1)):.@AMBH. 4096@GMLH.@.M.K."colour ";x;:. a@.M.K. a.0 . a.15 . ." illegal height ":. 3000@.M.K. 4105.x,45.a:.@.M@..v.21,0:.51459:.".":.788,49@.Mj..dv.8.dv.29.dv.8.40030@(Nt.a..(828):b..(828.dv.8):.828,b:.828.dv.8,a@£N..a$."hello connect":.j.8.29:i..(828.j.8):.i.14..@WNH..2:.2,i,2:.2:.st.40060@.NR..15:.15,i,15,"r0:".a$."=".a$:.15,er:.15:.er.63.40070@.N...:.".":.53272,23:.186,8:.@.N..q$..(34):.646,.(53281):.".":.53272,23@;O...".QQQp.2048,0:p.44,8:p.43,1:p.56,160:p.55,0:clr:l."q$a$q$","i@EO..."QQQQrun:S":.631,13:.632,13:.198,2:.@@@
00000000  24 08 0a 00 8f 20 20 20  20 20 41 55 54 4f 53 54  |$....     AUTOST|
00000010  45 52 45 4f 47 52 41 4d  20 47 45 4e 45 52 41 54  |EREOGRAM GENERAT|
00000020  4f 52 00 42 08 14 00 8f  20 20 20 20 20 20 20 20  |OR.B....        |
00000030  20 42 59 20 44 2e 20 46  4f 52 44 20 31 39 39 36  | BY D. FORD 1996|
00000040  00 48 08 1e 00 3a 00 64  08 5a 00 44 56 b2 c2 28  |.H...:.d.Z.DV..(|
00000050  31 38 36 29 3a 8b 20 44  56 b3 38 20 a7 20 44 56  |186):. DV.8 . DV|
00000060  b2 38 00 72 08 5f 00 97  20 34 30 39 35 2c 44 56  |.8.r._.. 4095,DV|
00000070  00 89 08 64 00 97 20 35  33 32 38 30 2c 32 3a 97  |...d.. 53280,2:.|
00000080  35 33 32 38 31 2c 32 00  b4 08 6e 00 99 22 9e 93  |53281,2...n.."..|
00000090  20 20 20 20 20 20 20 20  41 55 54 4f 53 54 45 52  |        AUTOSTER|
000000a0  45 4d 47 52 41 4d 20 47  45 4e 45 52 41 54 4f 52  |EMGRAM GENERATOR|
000000b0  11 22 00 e1 08 78 00 99  22 20 20 20 20 20 20 57  |."...x.."      W|
000000c0  52 49 54 54 45 4e 20 42  59 20 44 4f 4d 49 4e 49  |RITTEN BY DOMINI|
000000d0  43 20 46 4f 52 44 20 31  39 39 36 11 11 11 22 00  |C FORD 1996...".|
000000e0  f2 08 7a 00 8b 20 54 4d  b2 30 20 a7 20 31 33 30  |..z.. TM.0 . 130|
000000f0  00 22 09 7c 00 99 22 43  41 4c 43 55 4c 41 54 45  |.".|.."CALCULATE|
00000100  20 41 4e 4f 54 48 45 52  20 41 55 54 4f 53 54 45  | ANOTHER AUTOSTE|
00000110  52 45 4f 47 52 41 4d 3f  20 28 59 2f 4e 29 11 22  |REOGRAM? (Y/N)."|
00000120  00 3c 09 7d 00 a1 20 4b  24 3a 8b 20 4b 24 b2 22  |.<.}.. K$:. K$."|
00000130  4e 22 20 a7 20 34 30 30  30 30 00 4f 09 7e 00 8b  |N" . 40000.O.~..|
00000140  20 4b 24 b2 22 59 22 20  a7 20 31 33 30 00 59 09  | K$."Y" . 130.Y.|
00000150  80 00 89 20 31 32 35 00  79 09 82 00 85 22 53 4f  |... 125.y...."SO|
00000160  55 52 43 45 20 49 4d 41  47 45 20 46 49 4c 45 4e  |URCE IMAGE FILEN|
00000170  41 4d 45 22 3b 53 24 00  ac 09 8c 00 8b 20 c3 28  |AME";S$...... .(|
00000180  53 24 29 b1 31 35 20 b0  20 c3 28 53 24 29 b2 30  |S$).15 . .(S$).0|
00000190  20 a7 20 99 22 11 42 41  44 20 46 49 4c 45 4e 41  | . .".BAD FILENA|
000001a0  4d 45 11 22 3a 89 20 31  33 30 00 b7 09 96 00 8d  |ME.":. 130......|
000001b0  20 32 30 30 30 00 df 09  a0 00 53 41 b2 30 3a 99  | 2000.....SA.0:.|
000001c0  22 11 53 41 56 45 20 41  55 54 4f 53 54 45 52 45  |".SAVE AUTOSTERE|
000001d0  4f 47 52 41 4d 20 28 59  2f 4e 29 3f 22 00 02 0a  |OGRAM (Y/N)?"...|
000001e0  aa 00 a1 20 4b 24 3a 8b  20 4b 24 b3 b1 22 59 22  |... K$:. K$.."Y"|
000001f0  20 af 20 4b 24 b3 b1 22  4e 22 20 a7 20 31 37 30  | . K$.."N" . 170|
00000200  00 1d 0a b4 00 8b 20 4b  24 b2 22 59 22 20 a7 20  |...... K$."Y" . |
00000210  53 41 b2 31 3a 8d 20 31  30 30 30 00 2b 0a be 00  |SA.1:. 1000.+...|
00000220  97 20 35 33 30 30 31 2c  30 00 59 0a c8 00 99 22  |. 53001,0.Y...."|
00000230  11 49 53 20 53 4f 55 52  43 45 20 49 4d 41 47 45  |.IS SOURCE IMAGE|
00000240  20 28 48 29 49 2d 52 45  53 20 4f 52 20 28 4c 29  | (H)I-RES OR (L)|
00000250  4f 2d 52 45 53 3f 22 00  7c 0a d2 00 a1 20 4b 24  |O-RES?".|.... K$|
00000260  3a 8b 20 4b 24 b3 b1 22  48 22 20 af 20 4b 24 b3  |:. K$.."H" . K$.|
00000270  b1 22 4c 22 20 a7 20 32  31 30 00 95 0a dc 00 8b  |."L" . 210......|
00000280  20 4b 24 b2 22 4c 22 20  a7 20 97 20 35 33 30 30  | K$."L" . . 5300|
00000290  31 2c 31 00 c6 0a e6 00  99 22 11 11 43 4f 4c 4f  |1,1......"..COLO|
000002a0  55 52 20 48 45 49 47 48  54 53 20 28 30 3d 4c 4f  |UR HEIGHTS (0=LO|
000002b0  57 45 53 54 2c 20 31 35  3d 48 49 47 48 45 53 54  |WEST, 15=HIGHEST|
000002c0  29 20 20 22 00 f2 0a e9  00 8b 20 c2 28 35 33 30  |)  "...... .(530|
000002d0  30 31 29 b2 30 20 a7 20  99 22 52 45 43 4f 4d 4d  |01).0 . ."RECOMM|
000002e0  45 4e 44 45 44 20 56 41  4c 55 45 3a 20 35 11 22  |ENDED VALUE: 5."|
000002f0  00 23 0b ec 00 8b 20 c2  28 35 33 30 30 31 29 b2  |.#.... .(53001).|
00000300  31 20 a7 20 99 22 52 45  43 4f 4d 4d 45 4e 44 45  |1 . ."RECOMMENDE|
00000310  44 20 56 41 4c 55 45 53  3a 20 32 2c 34 2c 36 11  |D VALUES: 2,4,6.|
00000320  22 00 41 0b f0 00 81 58  b2 31 a4 c2 28 35 33 30  |".A....X.1..(530|
00000330  30 31 29 ac 32 aa 31 3a  8d 33 30 30 30 3a 82 00  |01).2.1:.3000:..|
00000340  71 0b f2 00 99 22 11 41  46 54 45 52 20 41 55 54  |q....".AFTER AUT|
00000350  4f 53 54 45 52 45 4f 47  52 41 4d 20 48 41 53 20  |OSTEREOGRAM HAS |
00000360  46 49 4e 49 53 48 45 44  20 42 45 49 4e 47 22 00  |FINISHED BEING".|
00000370  b3 0b f4 00 99 22 43 41  4c 43 55 4c 41 54 45 44  |....."CALCULATED|
00000380  2c 20 50 52 45 53 53 20  53 50 41 43 45 20 54 4f  |, PRESS SPACE TO|
00000390  20 51 55 49 54 2e 11 22  3a 99 22 50 52 45 53 53  | QUIT..":."PRESS|
000003a0  20 53 50 41 43 45 20 54  4f 20 53 54 41 52 54 2e  | SPACE TO START.|
000003b0  22 00 cc 0b f6 00 a1 20  4b 24 3a 8b 20 4b 24 b3  |"...... K$:. K$.|
000003c0  b1 22 20 22 20 a7 20 32  34 36 00 d7 0b fa 00 9e  |." " . 246......|
000003d0  20 34 30 39 39 00 eb 0b  04 01 8b 20 53 41 b2 31  | 4099...... SA.1|
000003e0  20 a7 20 9e 20 34 31 30  32 00 04 0c 0e 01 a1 20  | . . 4102...... |
000003f0  4b 24 3a 8b 20 4b 24 b3  b1 22 20 22 20 a7 20 32  |K$:. K$.." " . 2|
00000400  37 30 00 1c 0c 18 01 97  35 33 32 36 35 2c 32 37  |70......53265,27|
00000410  3a 97 35 33 32 37 32 2c  32 31 00 2b 0c 22 01 54  |:.53272,21.+.".T|
00000420  4d b2 31 3a 89 20 31 30  30 00 4d 0c e8 03 85 22  |M.1:. 100.M...."|
00000430  41 55 54 4f 53 54 45 52  45 4f 47 52 41 4d 20 46  |AUTOSTEREOGRAM F|
00000440  49 4c 45 4e 41 4d 45 22  3b 53 24 00 81 0c f2 03  |ILENAME";S$.....|
00000450  8b 20 c3 28 53 24 29 b1  31 35 20 b0 20 c3 28 53  |. .(S$).15 . .(S|
00000460  24 29 b2 30 20 a7 20 99  22 11 42 41 44 20 46 49  |$).0 . .".BAD FI|
00000470  4c 45 4e 41 4d 45 11 22  3a 89 20 31 30 30 30 00  |LENAME.":. 1000.|
00000480  92 0c fc 03 97 20 36 31  35 32 2c c3 28 53 24 29  |..... 6152,.(S$)|
00000490  00 bb 0c 06 04 81 20 58  b2 31 20 a4 20 c3 28 53  |...... X.1 . .(S|
000004a0  24 29 3a 97 58 aa 36 31  35 39 2c c6 28 ca 28 53  |$):.X.6159,.(.(S|
000004b0  24 2c 58 2c 31 29 29 3a  82 00 c1 0c 10 04 8e 00  |$,X,1)):........|
000004c0  e6 0c d0 07 99 22 11 49  4e 53 45 52 54 20 43 4f  |.....".INSERT CO|
000004d0  52 52 45 43 54 20 44 49  53 43 20 20 3c 53 50 41  |RRECT DISC  <SPA|
000004e0  43 45 3e 22 00 00 0d da  07 a1 20 4b 24 3a 8b 20  |CE>"...... K$:. |
000004f0  4b 24 b3 b1 22 20 22 20  a7 20 32 30 31 30 00 1a  |K$.." " . 2010..|
00000500  0d e4 07 99 22 11 11 50  4c 45 41 53 45 20 57 41  |...."..PLEASE WA|
00000510  49 54 2e 20 2e 20 2e 22  00 2c 0d ee 07 97 20 34  |IT. . .".,.... 4|
00000520  39 31 35 32 2c c3 28 53  24 29 00 56 0d f8 07 81  |9152,.(S$).V....|
00000530  20 58 b2 31 20 a4 20 c3  28 53 24 29 3a 97 58 aa  | X.1 . .(S$):.X.|
00000540  34 39 31 35 39 2c c6 28  ca 28 53 24 2c 58 2c 31  |49159,.(.(S$,X,1|
00000550  29 29 3a 82 00 61 0d 02  08 9e 20 34 30 39 36 00  |)):..a.... 4096.|
00000560  67 0d 0c 08 8e 00 7d 0d  b8 0b 99 22 43 4f 4c 4f  |g.....}...."COLO|
00000570  55 52 20 22 3b 58 3b 3a  85 20 41 00 ab 0d c2 0b  |UR ";X;:. A.....|
00000580  8b 20 41 b3 30 20 b0 20  41 b1 31 35 20 a7 20 99  |. A.0 . A.15 . .|
00000590  22 20 49 4c 4c 45 47 41  4c 20 48 45 49 47 48 54  |" ILLEGAL HEIGHT|
000005a0  20 22 3a 89 20 33 30 30  30 00 bf 0d cc 0b 97 20  | ":. 3000...... |
000005b0  34 31 30 35 aa 58 2c 34  35 ab 41 3a 8e 00 df 0d  |4105.X,45.A:....|
000005c0  40 9c 97 56 aa 32 31 2c  30 3a 9e 35 31 34 35 39  |@..V.21,0:.51459|
000005d0  3a 99 22 93 22 3a 97 37  38 38 2c 34 39 00 fa 0d  |:.".":.788,49...|
000005e0  4a 9c 8b 44 56 b3 38 b0  44 56 b1 32 39 b0 44 56  |J..DV.8.DV.29.DV|
000005f0  b2 38 a7 34 30 30 33 30  00 28 0e 54 9c 41 b2 c2  |.8.40030.(.T.A..|
00000600  28 38 32 38 29 3a 42 b2  c2 28 38 32 38 aa 44 56  |(828):B..(828.DV|
00000610  ab 38 29 3a 97 38 32 38  2c 42 3a 97 38 32 38 aa  |.8):.828,B:.828.|
00000620  44 56 ab 38 2c 41 00 5c  0e 5e 9c 41 24 b2 22 48  |DV.8,A.\.^.A$."H|
00000630  45 4c 4c 4f 20 43 4f 4e  4e 45 43 54 22 3a 81 4a  |ELLO CONNECT":.J|
00000640  b2 38 a4 32 39 3a 49 b2  c2 28 38 32 38 aa 4a ab  |.8.29:I..(828.J.|
00000650  38 29 3a 8b 49 b2 31 34  a7 82 00 77 0e 68 9c a0  |8):.I.14...w.h..|
00000660  32 3a 9f 32 2c 49 2c 32  3a a0 32 3a 8b 53 54 a7  |2:.2,I,2:.2:.ST.|
00000670  34 30 30 36 30 00 b0 0e  72 9c a0 31 35 3a 9f 31  |40060...r..15:.1|
00000680  35 2c 49 2c 31 35 2c 22  52 30 3a 22 aa 41 24 aa  |5,I,15,"R0:".A$.|
00000690  22 3d 22 aa 41 24 3a 84  31 35 2c 45 52 3a a0 31  |"=".A$:.15,ER:.1|
000006a0  35 3a 8b 45 52 b2 36 33  a7 34 30 30 37 30 00 ce  |5:.ER.63.40070..|
000006b0  0e 7c 9c 82 3a 99 22 93  22 3a 97 35 33 32 37 32  |.|..:.".":.53272|
000006c0  2c 32 33 3a 97 31 38 36  2c 38 3a 80 00 f8 0e 86  |,23:.186,8:.....|
000006d0  9c 51 24 b2 c7 28 33 34  29 3a 97 36 34 36 2c c2  |.Q$..(34):.646,.|
000006e0  28 35 33 32 38 31 29 3a  99 22 93 22 3a 97 35 33  |(53281):.".":.53|
000006f0  32 37 32 2c 32 33 00 3b  0f 90 9c 99 22 93 11 11  |272,23.;...."...|
00000700  11 50 cf 32 30 34 38 2c  30 3a 50 cf 34 34 2c 38  |.P.2048,0:P.44,8|
00000710  3a 50 cf 34 33 2c 31 3a  50 cf 35 36 2c 31 36 30  |:P.43,1:P.56,160|
00000720  3a 50 cf 35 35 2c 30 3a  43 4c 52 3a 4c cf 22 51  |:P.55,0:CLR:L."Q|
00000730  24 41 24 51 24 22 2c 22  49 00 65 0f 9a 9c 99 22  |$A$Q$","I.e...."|
00000740  11 11 11 11 52 55 4e 3a  13 22 3a 97 36 33 31 2c  |....RUN:.":.631,|
00000750  31 33 3a 97 36 33 32 2c  31 33 3a 97 31 39 38 2c  |13:.632,13:.198,|
00000760  32 3a 80 00 00 00                                 |2:....|
00000766

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .