home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 April
/
1987-04.d64
/
time.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
389b
|
14 lines
10 fori=679to733:reada:x=x+a:pokei,a:next
20 ifx<>7836thenprint"data statement error.":stop
30 data 120,169,180,141,20,3,169,2,141,21
40 data 3,88,96,198,162,165,162,201,255,208
50 data 28,198,161,165,161,201,255,208,20,198
60 data 160,165,160,201,255,208,12,169,79,133
70 data 160,169,25,133,161,169,255,133,162,32
80 data 188,246,76,52,234
90 print"[147]"
100 sys 679
110 ti$="000100"
120 print"";ti$
130 if ti$<>"000000" then 120