home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 December
/
1993-12.d64
/
chain.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
590b
|
23 lines
5 rem copyright 1993 - compute publications intl ltd - all rights reserved
10 b=b+1
20 ifb=1thenfort=0to7:poke32768+t,0
30 ifb=1thenload"chain.chars",8,1
40 ifb=2thenload"chain.ml",8,1
50 poke53281,0:poke53280,15:print"[144][147]";
60 poke52,128:poke56,128:clr
70 poke56576,(peek(56576) and 252) or 1
80 poke53272,32
90 poke648,136
100 poke56334,peek(56334) and 254
110 poke1,peek(1) and 251
120 fort=8to512:poke32768+t,peek(53248+t):nextt
130 poke1,peek(1) or 4
140 poke56334,peek(56334) or 1
150 poke53270,peek(53270)or 16
160 print"[147]loading [159]chain reaction"
170 a$=chr$(34):print"[144]new"
180 a$=chr$(34):print"load";a$;"chain.bas";a$;",8"
190 print"run[145][145][145][145][145][145][145]";:poke198,0
200 fort=631to633:poket,13:nextt
210 poke198,3