home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-10_1998_CSW_Side_A.d64 / test3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  425b  |  14 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:gosub1300: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. 1300 gosub1200:fori9=1toho+2:printtab(sp)left$(l$,br+2);:ifi9<ho+2thenprint
  9. 1310 next:return
  10. 59000 i9=0:zl=0:sp=0:br=0:ho=0
  11. 59080 l$="                                       "
  12. 59090 fc=11:fb=15:fr=12:poke53281,fb:poke53280,fr:poke646,fc
  13. 59099 return
  14.