home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 November
/
1993-11.d64
/
rock.note
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
645b
|
19 lines
10 print"[147]":poke53280,6:poke53281,6
50 a$="[196]ue to the size of this program,":gosub500
60 a$="and limitations to available space":gosub500
70 a$="on the [199]azette [196]isk, you'll need to":gosub500
80 a$="load the programs:":gosub500:print
90 a$="[211][213][208][210][207][195][203][198][193][204][204](1 & 2).[211][196][193]":gosub500:print
100 a$="and replace the [199]azette [196]isk with":gosub500
110 a$="a blank one. [215]hen the program is":gosub500
120 a$="run, it will place the required":gosub500
130 a$="software on the blank disk - which":gosub500
140 a$="may then be used to run the program.":gosub500
150 print:a$="[212]he [211][213][208][210][207][195][203][198][193][204][204].[211][196][193] pair are":gosub500
160 a$="self-dissolving archives.":gosub500
200 end
500 y= (40-len(a$))/2
510 for x=1 to y:printchr$(32);:next
520 printa$
530 return