home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1992 October
/
1992-10.d64
/
sup.loader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
407b
|
15 lines
0 clr
10 poke53280,6:poke53281,6:print"[147]"
20 a$="[212]his utility program can potentially":gosub1000
30 a$="[198][207][210][205][193][212] a disk.":gosub1000
40 a$="[197]nter a [209] to quit,":gosub1000
50 a$="any other key to continue.":gosub1000
60 get a$:if a$="" then 60
65 if a$="q" or a$="[209]" then goto 500
70 load"sup",8
500 print"[147]"
510 a$="[210]eloading [199]azette [207]perating [211]ystem":gosub1000
520 load"gos.menu",8
1000 for x=1 to (20-len(a$)/2):printchr$(32);:next
1010 printa$:return