Home » Personal collection » Commodore disks » disk50a2_progs1.d64 » autostereogram
autostereogram
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 » disk50a2_progs1.d64 |
Filename: | autostereogram |
Read OK: | ✔ |
File size: | 0AC6 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=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><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,45-A:RETURN
/ �" AUTOSTEREOGRAM GENERATOR X �" BY D. FORD 1995 f �" t( �" �d � 53280,0:�53281,0 �n �"� AUTOSTEREOGRAM GENERATOR"