home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-10_1998_CSW_Side_A.d64 / test2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  313b  |  11 lines
  1. 10 print"[147]";:gosub59000
  2. 20 br=5:ho=3:fori=1to50:zl=int(rnd(1)*19)+1:sp=int(rnd(1)*32)+1:gosub1100:next
  3. 999 end
  4. 1100 gosub1200:print"[176]";:fori9=1tobr:print"[192]";:next:print"[174]"
  5. 1110 fori9=1toho:printtab(sp)"[221]"spc(br)"[221]":next
  6. 1120 printtab(sp)"[173]";:fori9=1tobr:print"[192]";:next:print"[189]";:return
  7. 1200 poke214,zl:poke211,sp:sys58640:return
  8. 59000 i9=0:zl=0:sp=0:br=0:ho=0
  9. 59090 fc=11:fb=15:fr=12:poke53281,fb:poke53280,fr:poke646,fc
  10. 59099 return
  11.