home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 May / 1985-05.d64 / bs (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  624b  |  17 lines
  1. 1 v=36864:m=4096:h=248:w=7680:r=38400:goto4
  2. 2 z=(yandh)*15+y+(xandh)+m:pokez,peek(z)ort%(xand7):return
  3. 3 z=(yandh)*15+y+(xandh)+m:pokez,peek(z)andnott%(xand7):return
  4. 4 fori=0to7:t%(7-i)=2^i:next:pokev+1,37:pokev+3,32
  5. 5 fori=mto6143:pokei,0:next:pokev+5,252:pokev,11:pokev+2,144
  6. 6 pokev+15,27:fori=0to255:pokew+i,i:poker+i,6:next
  7. 7 s=75:diml%(s)
  8. 8 fort=1tos:l%(t)=rnd(0)*s:x=l%(t):y=t:gosub2:next:ti$="000000"
  9. 9 fori=s-1to1step-1:fort=1toi
  10. 10 ifl%(t)>l%(t+1)thengosub15:te=l%(t):l%(t)=l%(t+1):l%(t+1)=te
  11. 11 next:next:t$=ti$:poke198,0
  12. 12 geta$:ifa$=""then12
  13. 13 print"[147]":pokev+5,240:pokev,5:pokev+1,25:pokev+2,150:pokev+3,46
  14. 14 prints"items sorted in":printmid$(t$,3,2)":"right$(t$,2)".":end
  15. 15 y=t:x=l%(t):gosub3:y=t+1:x=l%(t+1):gosub3
  16. 16 y=t:x=l%(t+1):gosub2:y=t+1:x=l%(t):gosub2:return
  17.