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

basic2

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: basic2
Read OK: ✔
File size: 03C9 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,0:POKE53281,0
   110 PRINT"<clr><white>        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=1TO3: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 49280,LEN(S$)
  1030 FOR X=1 TO LEN(S$):POKEX+49288,ASC(MID$(S$,X,1)):NEXT
  1040 RETURN
  2000 PRINT"<cursor down><cursor down>PLEASE WAIT. . ."
  2010 POKE 49152,LEN(S$)
  2020 FOR X=1 TO LEN(S$):POKEX+49159,ASC(MID$(S$,X,1)):NEXT
  2030 SYS 4096
  2040 RETURN
  3000 PRINT"COLOUR ";X:INPUT A
  3010 IF A<0 OR A>15 THEN PRINT"<cursor down>ILLEAGAL HEIGHT<cursor down>":GOTO 3000
  3020 POKE 4105+X,A:RETURN


/
�"        AUTOSTEREOGRAM GENERATORX�"            BY D. FORD 1995f�"t(�"�d� 53280,0:�53281,0�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"K
��X�1�3:�3000:�V
�� 4099j
� SA�1 � � 4102t
� 270�
��"AUTOSTEREOGRAM FILENAME";S$�
�� �(S$)�15 � �(S$)�0 � �"BAD FILENAME":� 1000�
�� 49280,�(S$)� X�1 � �(S$):�X�49288,�(�(S$,X,1)):��&��"PLEASE WAIT. . ."8�� 49152,�(S$)b�� X�1 � �(S$):�X�49159,�(�(S$,X,1)):�m�� 4096s�����"COLOUR ";X:� A��� A�0 � A�15 � �"ILLEAGAL HEIGHT":� 3000��� 4105�X,A:�
/HJ@."TTTTTTT        autostereogram generator@xHT@."TTTTTTT            by d. ford 1995@FH.@."TTTTTTT@TH(@."TTTTTTT@.HD@. 53280,0:.53281,0@.HN@.".E        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"@kJ.@.x.1.3:.3000:.@vJ.@. 4099@JJDA. sa.1 . . 4102@TJNA. 270@.J.C."autostereogram filename";s$@.J.C. .(s$).15 . .(s$).0 . ."Qbad filenameQ":. 1000@.J.C. 49280,.(s$)@FKFD. x.1 . .(s$):.x.49288,.(.(s$,x,1)):.@LKPD.@&K.G."QQplease wait. . ."@8K.G. 49152,.(s$)@BK.G. x.1 . .(s$):.x.49159,.(.(s$,x,1)):.@MK.G. 4096@SK.G.@.K.K."colour ";x:. a@.K.K. a.0 . a.15 . ."Qilleagal heightQ":. 3000@.K.K. 4105.x,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 30  |.....d.. 53280,0|
00000080  3a 97 35 33 32 38 31 2c  30 00 b6 08 6e 00 99 22  |:.53281,0...n.."|
00000090  93 05 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 4b  0a f0 00 81 58 b2 31 a4  |GHTS.".K....X.1.|
00000240  33 3a 8d 33 30 30 30 3a  82 00 56 0a fa 00 9e 20  |3:.3000:..V.... |
00000250  34 30 39 39 00 6a 0a 04  01 8b 20 53 41 b2 31 20  |4099.j.... SA.1 |
00000260  a7 20 9e 20 34 31 30 32  00 74 0a 0e 01 89 20 32  |. . 4102.t.... 2|
00000270  37 30 00 96 0a e8 03 85  22 41 55 54 4f 53 54 45  |70......"AUTOSTE|
00000280  52 45 4f 47 52 41 4d 20  46 49 4c 45 4e 41 4d 45  |REOGRAM FILENAME|
00000290  22 3b 53 24 00 ca 0a f2  03 8b 20 c3 28 53 24 29  |";S$...... .(S$)|
000002a0  b1 31 35 20 b0 20 c3 28  53 24 29 b2 30 20 a7 20  |.15 . .(S$).0 . |
000002b0  99 22 11 42 41 44 20 46  49 4c 45 4e 41 4d 45 11  |.".BAD FILENAME.|
000002c0  22 3a 89 20 31 30 30 30  00 dc 0a fc 03 97 20 34  |":. 1000...... 4|
000002d0  39 32 38 30 2c c3 28 53  24 29 00 06 0b 06 04 81  |9280,.(S$)......|
000002e0  20 58 b2 31 20 a4 20 c3  28 53 24 29 3a 97 58 aa  | X.1 . .(S$):.X.|
000002f0  34 39 32 38 38 2c c6 28  ca 28 53 24 2c 58 2c 31  |49288,.(.(S$,X,1|
00000300  29 29 3a 82 00 0c 0b 10  04 8e 00 26 0b d0 07 99  |)):........&....|
00000310  22 11 11 50 4c 45 41 53  45 20 57 41 49 54 2e 20  |"..PLEASE WAIT. |
00000320  2e 20 2e 22 00 38 0b da  07 97 20 34 39 31 35 32  |. .".8.... 49152|
00000330  2c c3 28 53 24 29 00 62  0b e4 07 81 20 58 b2 31  |,.(S$).b.... X.1|
00000340  20 a4 20 c3 28 53 24 29  3a 97 58 aa 34 39 31 35  | . .(S$):.X.4915|
00000350  39 2c c6 28 ca 28 53 24  2c 58 2c 31 29 29 3a 82  |9,.(.(S$,X,1)):.|
00000360  00 6d 0b ee 07 9e 20 34  30 39 36 00 73 0b f8 07  |.m.... 4096.s...|
00000370  8e 00 88 0b b8 0b 99 22  43 4f 4c 4f 55 52 20 22  |......."COLOUR "|
00000380  3b 58 3a 85 20 41 00 b7  0b c2 0b 8b 20 41 b3 30  |;X:. A...... A.0|
00000390  20 b0 20 41 b1 31 35 20  a7 20 99 22 11 49 4c 4c  | . A.15 . .".ILL|
000003a0  45 41 47 41 4c 20 48 45  49 47 48 54 11 22 3a 89  |EAGAL HEIGHT.":.|
000003b0  20 33 30 30 30 00 c8 0b  cc 0b 97 20 34 31 30 35  | 3000...... 4105|
000003c0  aa 58 2c 41 3a 8e 00 00  00                       |.X,A:....|
000003c9

© Dominic Ford 2021–2024.

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