home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-11_1999_CSW_Side_A.d64 / hover (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  392b  |  10 lines
  1. 10 c$="[199][207]64! - [196]as [205]agazin fuer [195]64-[198]reunde":gosub1000
  2. 20 print"[154]"
  3. 999 end
  4. 1000 m=((40-len(c$))/2):f=53281:d=53280:v=56576:s=53272:r=648:w=53266
  5. 1001 b$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][129]  [150]  [158]     [158]  [150]  [129]  [144] "
  6. 1002 a$="[129]  [150]  [158]     [158]  [150]  [129]  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][144] ":pokef,0:poked,0:print"[147]"
  7. 1003 poker,160:print"[147][144]"spc(m)c$:pokes,134:pokev,149:poker,4:print"";
  8. 1005 forh=1to10:fort=1to50:waitw,128:printa$;:next:fort=1to50:waitw,128:printb$;
  9. 1006 next:next:pokes,21:pokev,151:return
  10.