home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 May / 1985-05.d64 / ss (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  655b  |  18 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:s=50
  7. 7 diml%(s):fort=1tos:l%(t)=rnd(0)*s:x=l%(t):y=t:gosub2:next:ti$="000000":g=int(s/2)
  8. 8 n=0:fori=1tos-g
  9. 9 ifl%(i)>l%(i+g)thengosub16:t=l%(i):l%(i)=l%(i+g):l%(i+g)=t:n=1
  10. 10 next:ifn=1then8
  11. 11 g=int(g/2):ifg>=1then8
  12. 12 t$=ti$:poke198,0
  13. 13 geta$:ifa$=""then13
  14. 14 print"[147]":pokev+5,240:pokev,5:pokev+1,25:pokev+2,150:pokev+3,46
  15. 15 prints"items sorted in":printmid$(t$,3,2)":"right$(t$,2)".":end
  16. 16 y=i:x=l%(i):gosub3:y=i+g:x=l%(i+g):gosub3
  17. 17 y=i:x=l%(i+g):gosub2:y=i+g:x=l%(i):gosub2:return
  18.