home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
grp
/
lcdsav.200
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
28 lines
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