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