home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.A.po
/
FEATURES:BEAGLE
/
BIG.U.SHK
/
BIG.U
/
CAT.DATER.bas
< prev
next >
Wrap
BASIC Source File
|
2000-01-01
|
357b
|
4 lines
5 PRINT : PRINT "THE CURRENT DATE WILL NOW BE SHOWN": PRINT "WHENEVER YOU CATALOG A DISK.": PRINT
10 AD = 843: REM JUST BELOW CAT.STEPPER AND ABOVE CAT.FIXER
20 HI% = AD/256:LO% = AD -HI% *256: POKE 45149,LO%: POKE 45150,HI%: FOR I = 0 TO 18: READ X: POKE AD +I,X: NEXT
100 DATA 162,4,189,143,191,15 7,88,2,202,208,247,160,36,32,112,165,76,157,159