8-Bit Software Online Conversion

Print/View Magic Eye Screen - Listing

5ONERROR IF ERR=254 GOTO20 ELSE:REPO RT:PRINTERL:END 10*RAMOFF 20REM 3Dprint by L Knight May 1994 30MODE7 40PRINTTAB(14)CHR$141;"MODE4PR" 50PRINTTAB(14)CHR$141;"MODE4PR" 60PRINT''" Prints out a MODE-4 screen dump on an"'" Epson 9-wire dot matrix p rinter"'" or equivalent." 70PRINT''" Make sure printer is switc hed on" 80PRINT''" File to be printed:"' 90PRINTTAB(18)" Drive (0-3)?";:INPUT" "D%:REM REM THIS LINE OUT FOR ADFS (CJR ) 100PRINTTAB(18)" File name?";:INPUT" " file$ 110F$=":"+STR$(D%)+"."+file$:REM REM T HIS LINE OUT FOR ADFS (CJR) 120MODE4 130OSCLI"LOAD"+F$ 140VDU2,1,27,1,65,1,8 150FORY%=252TO0 STEP-4 160VDU1,27,1,76,1,192,1,3 170FORX%=0TO319 180P%=POINT(4*X%,4*Y%+12):Q%=POINT(4*X %,4*Y%+8) 190R%=POINT(4*X%,4*Y%+4):S%=POINT(4*X% ,4*Y%) 200A%=P%*192+Q%*48+R%*12+S%*3 210VDU1,A%,1,A%,1,A% 220NEXT:NEXT 230VDU1,27,1,69:PRINT''file$:VDU3 240MODE7:PRINTTAB(4,10)" Another print out (Y/N)?";:INPUT" "A$ 250IFA$="Y"ORA$="y" GOTO80 260END