Home » Personal collection » Commodore disks » disk40a_autostereo.d64 » autostereo
autostereo
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 » disk40a_autostereo.d64 |
| Filename: | autostereo |
| Read OK: | ✔ |
| File size: | 11FF bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
40 DV=PEEK(186):IF DV<8 THEN DV=8
50 SYS3840:FORI=0TO21:POKE828+I,8+I:NEXT:POKE788,49
60 SYS3840:FORI=0TO21:POKE828+I,8+I:NEXT:POKE788,49
70 IFDV<8ORDV>29ORDV=8THEN90
80 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
90 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
100 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN120
110 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN130
120 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END
130 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23
140 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
150 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END
( DV��(186):� DV�8 � DV�8 D2 �3840:�I�0�21:�828�I,8�I:�:�788,49 k<