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