home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 April
/
1993-04.d64
/
unformat
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-09-20
|
476b
|
17 lines
50 poke53280,6:poke53281,6:print"[147]"
100 data 162,0,189,63,32,240,249,232,41,63
110 data 141,1,33,142,0,33,32,228,255,174,0,33,168
120 data 240,244,201,65,144,26,201,91,176,22
130 data 24,109 :rem 56,237
140 data 1,33,201,91,144,2,233,26,201,65,176,2,105,26
150 data 32,210,255,76,2,32,32,210,255,201,13,208,207,96
160 data 67,79,77,80,85,84,69,0
170 rem encryption key spells 'compute'
200 for j=8192 to 8262
210 read x:t=t+x
220 poke j,x
230 next j
240 if t<>7730 then stop :rem 7890
300 print "enter line of text:"
310 sys 8192