home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.A.po
/
FEATURES:BEAGLE
/
SHAPE.MECH1.SHK
/
SHAPE.MECHANIC
/
FP.bas
< prev
next >
Wrap
BASIC Source File
|
2000-01-01
|
416b
|
9 lines
10 CALL 48888: REM RELEASE BUFFERS
20 PRINT CHR$(21): REM TURN OFF 80 COLUMNS
30 PRINT CHR$(4)"IN#0": PRINT CHR$(4)"PR#0": REM RESET I/O
40 POKE 48647,158: POKE 48648,190: REM RESET EXTRNCMD
50 POKE 1014,3: POKE 1015,190: REM RESET AMPERSAND
60 POKE 103,1: POKE 104,8: POKE 2048,0: REM RESET PROGSTART
70 FOR I = 48985 TO 49002: POKE I,0: NEXT : REM FIX BIT MAP
80 POKE 49003,63: REM FIX BIT MAP
90 NEW