home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1991 May
/
1991-05.d64
/
ppage2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
542b
|
15 lines
10 printchr$(14):poke 53280,11:poke 53281,11:poke 646,15
20 print"[147]":a$="[212]he second [208][210][207][199][210][193][205][205][197][210]'[211] [208][193][199][197]":gosub270
30 a$="program cannot be run until the first":gosub270
40 a$="has been run. [211]ee the corresponding":gosub270
50 a$="issue of [195][207][205][208][213][212][197]'s [199]azette[155].":gosub270
200 ford=1to40:print"[155][164]";:next
210 print" [208]ress any key to reload the menu [146]"
220 getdh$:ifdh$=""then220
225 poke53280,0:poke53281,0:print"[147]":print" [204]oading [199][207][211]"
230 print"[144]load";chr$(34);"gos.menu";chr$(34);",8"
240 print"run"
250 poke198,4:poke631,19:poke632,13:poke633,13
260 end
270 for x=1 to 20-len(a$)/2:printchr$(32);:next:printa$:return