Home » Personal collection » Commodore disks » disk41a_autostereo.d64 » basic3

basic3

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: basic3
Read OK: ✔
File size: 0414 bytes
Load address: 0801
Exec address: 0000
File contents
    10 REM"<del><del><del><del><del><del><del>        AUTOSTEREOGRAM GENERATOR
    20 REM"<del><del><del><del><del><del><del>            BY D. FORD 1995
    30 REM"<del><del><del><del><del><del><del>
    40 REM"<del><del><del><del><del><del><del>
   100 POKE 53280,2:POKE53281,2
   110 PRINT"<yellow><clr>        AUTOSTEREOGRAM GENERATOR<cursor down>"
   120 PRINT"      WRITTEN BY DOMINIC FORD 1995<cursor down><cursor down><cursor down>"
   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<cursor down>"
   240 FORX=1TOPEEK(53001)*2+1:GOSUB3000:NEXT
   250 SYS 4099
   260 IF SA=1 THEN SYS 4102
   270 GOTO 270
  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"<cursor down>ILLEGAL HEIGHT<cursor down>":GOTO 3000
  3020 POKE 4105+X,45-A:RETURN


/
�"        AUTOSTEREOGRAM GENERATORX�"            BY D. FORD 1995f�"t(�"�d� 53280,2:�53281,2�n�"��        AUTOSTEREOGRAM GENERATOR"�x�"      WRITTEN BY DOMINIC FORD 1995"	��"SOURCE IMAGE FILENAME";S$6	�� �(S$)�15 � �(S$)�0 � �"BAD FILENAME":� 130A	�� 2000i	�SA�0:�"SAVE AUTOSTEREOGRAM (Y/N)?"�	�� K$:� K$��"Y" � K$��"N" � 170�	�� K$�"Y" � SA�1:� 1000�	�� 53001,0�	��"IS SOURCE IMAGE (H)I-RES OR (L)O-RES?"
�� K$:� K$��"H" � K$��"L" � 210
�� K$�"L" � � 53001,18
��"COLOUR HEIGHTS"V
��X�1��(53001)�2�1:�3000:�a
�� 4099u
� SA�1 � � 4102
� 270�
��"AUTOSTEREOGRAM FILENAME";S$�
�� �(S$)�15 � �(S$)�0 � �"BAD FILENAME":� 1000�
�� 6152,�(S$)� X�1 � �(S$):�X�6159,�(�(S$,X,1)):��:��"INSERT CORRECT DISC  <SPACE>"T�� K$:� K$��" " � 2010n��"PLEASE WAIT. . ."��� 49152,�(S$)��� X�1 � �(S$):�X�49159,�(�(S$,X,1)):��� 4096�����"COLOUR ";X;:� A��� A�0 � A�15 � �"ILLEGAL HEIGHT":� 3000�� 4105�X,45�A:�
/HJ@."TTTTTTT        autostereogram generator@xHT@."TTTTTTT            by d. ford 1995@FH.@."TTTTTTT@TH(@."TTTTTTT@.HD@. 53280,2:.53281,2@.HN@."..        autostereogram generatorQ"@.HX@."      written by dominic ford 1995QQQ"@CI.@."source image filename";s$@6I.@. .(s$).15 . .(s$).0 . ."Qbad filenameQ":. 130@aI.@. 2000@II.@sa.0:."Qsave autostereogram (y/n)?"@.I.@. k$:. k$.."y" . k$.."n" . 170@.I.@. k$."y" . sa.1:. 1000@.I.@. 53001,0@.I.@."Qis source image (h)i-res or (l)o-res?"@FJ.@. k$:. k$.."h" . k$.."l" . 210@.J.@. k$."l" . . 53001,1@8J.@."QQcolour heightsQ"@vJ.@.x.1..(53001).2.1:.3000:.@AJ.@. 4099@UJDA. sa.1 . . 4102@.JNA. 270@.J.C."autostereogram filename";s$@.J.C. .(s$).15 . .(s$).0 . ."Qbad filenameQ":. 1000@.J.C. 6152,.(s$)@OKFD. x.1 . .(s$):.x.6159,.(.(s$,x,1)):.@UKPD.@:K.G."Qinsert correct disc  <space>"@tK.G. k$:. k$.." " . 2010@NK.G."QQplease wait. . ."@.K.G. 49152,.(s$)@.K.G. x.1 . .(s$):.x.49159,.(.(s$,x,1)):.@.KBH. 4096@.KLH.@.K.K."colour ";x;:. a@.K.K. a.0 . a.15 . ."Qillegal heightQ":. 3000@SL.K. 4105.x,45.a:.@@@
00000000  2f 08 0a 00 8f 22 14 14  14 14 14 14 14 20 20 20  |/....".......   |
00000010  20 20 20 20 20 41 55 54  4f 53 54 45 52 45 4f 47  |     AUTOSTEREOG|
00000020  52 41 4d 20 47 45 4e 45  52 41 54 4f 52 00 58 08  |RAM GENERATOR.X.|
00000030  14 00 8f 22 14 14 14 14  14 14 14 20 20 20 20 20  |...".......     |
00000040  20 20 20 20 20 20 20 42  59 20 44 2e 20 46 4f 52  |       BY D. FOR|
00000050  44 20 31 39 39 35 00 66  08 1e 00 8f 22 14 14 14  |D 1995.f...."...|
00000060  14 14 14 14 00 74 08 28  00 8f 22 14 14 14 14 14  |.....t.(..".....|
00000070  14 14 00 8b 08 64 00 97  20 35 33 32 38 30 2c 32  |.....d.. 53280,2|
00000080  3a 97 35 33 32 38 31 2c  32 00 b6 08 6e 00 99 22  |:.53281,2...n.."|
00000090  9e 93 20 20 20 20 20 20  20 20 41 55 54 4f 53 54  |..        AUTOST|
000000a0  45 52 45 4f 47 52 41 4d  20 47 45 4e 45 52 41 54  |EREOGRAM GENERAT|
000000b0  4f 52 11 22 00 e3 08 78  00 99 22 20 20 20 20 20  |OR."...x.."     |
000000c0  20 57 52 49 54 54 45 4e  20 42 59 20 44 4f 4d 49  | WRITTEN BY DOMI|
000000d0  4e 49 43 20 46 4f 52 44  20 31 39 39 35 11 11 11  |NIC FORD 1995...|
000000e0  22 00 03 09 82 00 85 22  53 4f 55 52 43 45 20 49  |"......"SOURCE I|
000000f0  4d 41 47 45 20 46 49 4c  45 4e 41 4d 45 22 3b 53  |MAGE FILENAME";S|
00000100  24 00 36 09 8c 00 8b 20  c3 28 53 24 29 b1 31 35  |$.6.... .(S$).15|
00000110  20 b0 20 c3 28 53 24 29  b2 30 20 a7 20 99 22 11  | . .(S$).0 . .".|
00000120  42 41 44 20 46 49 4c 45  4e 41 4d 45 11 22 3a 89  |BAD FILENAME.":.|
00000130  20 31 33 30 00 41 09 96  00 8d 20 32 30 30 30 00  | 130.A.... 2000.|
00000140  69 09 a0 00 53 41 b2 30  3a 99 22 11 53 41 56 45  |i...SA.0:.".SAVE|
00000150  20 41 55 54 4f 53 54 45  52 45 4f 47 52 41 4d 20  | AUTOSTEREOGRAM |
00000160  28 59 2f 4e 29 3f 22 00  8c 09 aa 00 a1 20 4b 24  |(Y/N)?"...... K$|
00000170  3a 8b 20 4b 24 b3 b1 22  59 22 20 af 20 4b 24 b3  |:. K$.."Y" . K$.|
00000180  b1 22 4e 22 20 a7 20 31  37 30 00 a7 09 b4 00 8b  |."N" . 170......|
00000190  20 4b 24 b2 22 59 22 20  a7 20 53 41 b2 31 3a 8d  | K$."Y" . SA.1:.|
000001a0  20 31 30 30 30 00 b5 09  be 00 97 20 35 33 30 30  | 1000...... 5300|
000001b0  31 2c 30 00 e3 09 c8 00  99 22 11 49 53 20 53 4f  |1,0......".IS SO|
000001c0  55 52 43 45 20 49 4d 41  47 45 20 28 48 29 49 2d  |URCE IMAGE (H)I-|
000001d0  52 45 53 20 4f 52 20 28  4c 29 4f 2d 52 45 53 3f  |RES OR (L)O-RES?|
000001e0  22 00 06 0a d2 00 a1 20  4b 24 3a 8b 20 4b 24 b3  |"...... K$:. K$.|
000001f0  b1 22 48 22 20 af 20 4b  24 b3 b1 22 4c 22 20 a7  |."H" . K$.."L" .|
00000200  20 32 31 30 00 1f 0a dc  00 8b 20 4b 24 b2 22 4c  | 210...... K$."L|
00000210  22 20 a7 20 97 20 35 33  30 30 31 2c 31 00 38 0a  |" . . 53001,1.8.|
00000220  e6 00 99 22 11 11 43 4f  4c 4f 55 52 20 48 45 49  |..."..COLOUR HEI|
00000230  47 48 54 53 11 22 00 56  0a f0 00 81 58 b2 31 a4  |GHTS.".V....X.1.|
00000240  c2 28 35 33 30 30 31 29  ac 32 aa 31 3a 8d 33 30  |.(53001).2.1:.30|
00000250  30 30 3a 82 00 61 0a fa  00 9e 20 34 30 39 39 00  |00:..a.... 4099.|
00000260  75 0a 04 01 8b 20 53 41  b2 31 20 a7 20 9e 20 34  |u.... SA.1 . . 4|
00000270  31 30 32 00 7f 0a 0e 01  89 20 32 37 30 00 a1 0a  |102...... 270...|
00000280  e8 03 85 22 41 55 54 4f  53 54 45 52 45 4f 47 52  |..."AUTOSTEREOGR|
00000290  41 4d 20 46 49 4c 45 4e  41 4d 45 22 3b 53 24 00  |AM FILENAME";S$.|
000002a0  d5 0a f2 03 8b 20 c3 28  53 24 29 b1 31 35 20 b0  |..... .(S$).15 .|
000002b0  20 c3 28 53 24 29 b2 30  20 a7 20 99 22 11 42 41  | .(S$).0 . .".BA|
000002c0  44 20 46 49 4c 45 4e 41  4d 45 11 22 3a 89 20 31  |D FILENAME.":. 1|
000002d0  30 30 30 00 e6 0a fc 03  97 20 36 31 35 32 2c c3  |000...... 6152,.|
000002e0  28 53 24 29 00 0f 0b 06  04 81 20 58 b2 31 20 a4  |(S$)...... X.1 .|
000002f0  20 c3 28 53 24 29 3a 97  58 aa 36 31 35 39 2c c6  | .(S$):.X.6159,.|
00000300  28 ca 28 53 24 2c 58 2c  31 29 29 3a 82 00 15 0b  |(.(S$,X,1)):....|
00000310  10 04 8e 00 3a 0b d0 07  99 22 11 49 4e 53 45 52  |....:....".INSER|
00000320  54 20 43 4f 52 52 45 43  54 20 44 49 53 43 20 20  |T CORRECT DISC  |
00000330  3c 53 50 41 43 45 3e 22  00 54 0b da 07 a1 20 4b  |<SPACE>".T.... K|
00000340  24 3a 8b 20 4b 24 b3 b1  22 20 22 20 a7 20 32 30  |$:. K$.." " . 20|
00000350  31 30 00 6e 0b e4 07 99  22 11 11 50 4c 45 41 53  |10.n...."..PLEAS|
00000360  45 20 57 41 49 54 2e 20  2e 20 2e 22 00 80 0b ee  |E WAIT. . ."....|
00000370  07 97 20 34 39 31 35 32  2c c3 28 53 24 29 00 aa  |.. 49152,.(S$)..|
00000380  0b f8 07 81 20 58 b2 31  20 a4 20 c3 28 53 24 29  |.... X.1 . .(S$)|
00000390  3a 97 58 aa 34 39 31 35  39 2c c6 28 ca 28 53 24  |:.X.49159,.(.(S$|
000003a0  2c 58 2c 31 29 29 3a 82  00 b5 0b 02 08 9e 20 34  |,X,1)):....... 4|
000003b0  30 39 36 00 bb 0b 0c 08  8e 00 d1 0b b8 0b 99 22  |096............"|
000003c0  43 4f 4c 4f 55 52 20 22  3b 58 3b 3a 85 20 41 00  |COLOUR ";X;:. A.|
000003d0  ff 0b c2 0b 8b 20 41 b3  30 20 b0 20 41 b1 31 35  |..... A.0 . A.15|
000003e0  20 a7 20 99 22 11 49 4c  4c 45 47 41 4c 20 48 45  | . .".ILLEGAL HE|
000003f0  49 47 48 54 11 22 3a 89  20 33 30 30 30 00 13 0c  |IGHT.":. 3000...|
00000400  cc 0b 97 20 34 31 30 35  aa 58 2c 34 35 ab 41 3a  |... 4105.X,45.A:|
00000410  8e 00 00 00                                       |....|
00000414

© Dominic Ford 2021–2024.

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