Home » Personal collection » Commodore disks » disk41a_autostereo.d64 » autostereo.97
autostereo.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: | autostereo.97 |
Read OK: | ✔ |
File size: | 0AFF 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 FORI=0TO21:POKE828+I,8+I:NEXT: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 GENERATOR B � BY D. FORD 1996 H : dZ DV��(186):� DV�8 � DV�8 r_ � 4095,DV �d � 53280,2:�53281,2 �n �"�� AUTOSTEREMGRAM GENERATOR"