home *** CD-ROM | disk | FTP | other *** search
- 10 printchr$(14):poke 53280,11:poke 53281,11:poke 646,15
- 20 print"[147]":a$="[212]he [204][207][193][196][197][210]-[205][193][203][197][210][155] program is":gosub270
- 30 a$=" machine code for use as specified in ":gosub270
- 40 a$="the current issue of ":gosub270:a$="[195][207][205][208][213][212][197]'s [199]azette[155].":gosub270
- 50 a$=" [208]lease refer to that article for ":gosub270
- 80 a$=" instructions. ":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
-