10 REM LCDSAV.200 15 REM By James Yi 73327,1653 17 REM Copyright Aug. 8, 1988 20 REM This is a BASIC loader that creates LCDSAV.CO 25 REM Loads and saves screen image. 30 REM Runs in altLCD buffer. 40 REM LOADM and CALL 63580,MODE,VARPTR(F$) 50 REM MODE=0 for Load, 1 for Save. 55 REM F$ is the file name with either .CO or .DO extension. 60 REM Read help file, LCDSAV.DOC 80 READS:IFS>MAXRAMTHENCLEAR256ELSECLEAR256,S 90 GOSUB1000:RESTORE:READS,E,F$:PRINT"Loading "F$:FORA=STOE:READB:POKEA,B:NEXT:SAVEMF$,S,E,S:PRINT"Done!":N=255:GOSUB1000 95 LIST0-69 100 DATA 63580,63900,lcdsav.co,50,156,249,126,35,235,237,95,205,202,90,58,77,247,254,79,194,6,9,33,0,0,205,179,142,205,98,44 110 DATA 205,204,43,194,213,248,58,156,249,183,202,14,95,58,76,247,254,68,202,173,248,33,172,223,34,251,244,33,0,15,68,77,34 120 DATA 253,244,33,0,0,34,255,244,205,201,248,205,102,48,205,166,43,195,213,248,1,40,20,197,205,201,248,205,133,45,193,205 130 DATA 168,130,229,54,63,35,11,120,177,194,188,248,209,195,213,248,42,105,246,9,56,0,21,223,216,195,61,76,33,0,20,34,154 140 DATA 249,235,58,76,247,254,67,58,156,249,202,44,249,183,62,12,194,255,248,211,255,126,35,214,63,218,239,248,211,254,27 150 DATA 122,179,194,239,248,201,60,211,255,219,254,229,229,205,104,130,193,8,1,40,20,8,225,194,6,9,14,128,219,254,230,63,198 160 DATA 63,119,35,13,194,21,249,54,13,35,54,10,35,5,194,19,249,201,183,62,12,194,97,249,211,255,1,6,0,9,14,6,5,242,66,249 170 DATA 86,35,6,7,122,15,87,123,31,95,13,194,58,249,15,15,230,63,211,254,229,42,154,249,43,34,154,249,124,181,225,194,56,249 180 DATA 201,205,161,65,35,35,229,33,0,15,8,225,194,6,9,60,211,255,219,254,6,8,13,242,139,249,229,42,154,249,124,181,43,34 190 DATA 154,249,225,200,219,254,87,14,5,122,15,87,123,31,95,5,194,118,249,119,35,195,116,249,0,0,0 1000 REM +++++Sound routine+++++ 1010 RESTORE1050:FORA=63574TO63613:READB:POKEA,B:NEXT:CALL63574,N:RETURN 1050 DATA 50,90,248,30,0,243,31,218,103,248,83,205,114,248,195,96,248,58,90,248,147,87,205,114,248,195,103,248,205,201,143,21,194 1060 DATA 117,248,29,192,209,251,201