home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 May / 1985-05.d64 / qs (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  803b  |  26 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),s%(20)
  8. 8 fort=1tos:l%(t)=rnd(0)*s:x=l%(t):y=t:gosub2:next:ti$="000000":s%(1)=1:s%(2)=s:p=2
  9. 9 l=s%(p):p=p-1:f=s%(p):p=p-1:i=f
  10. 10 j=l
  11. 11 d=l%((f+l)/2)
  12. 12 ifl%(i)<dtheni=i+1:goto12
  13. 13 ifl%(j)>dthenj=j-1:goto13
  14. 14 ifi<=jthengosub24:t=l%(i):l%(i)=l%(j):l%(j)=t:i=i+1:j=j-1
  15. 15 ifi<=jthen12
  16. 16 iff<jthenp=p+1:s%(p)=f:p=p+1:s%(p)=j
  17. 17 f=i
  18. 18 iff<lthen10
  19. 19 ifp<>0then9
  20. 20 t$=ti$:poke198,0
  21. 21 geta$:ifa$=""then21
  22. 22 print"[147]":pokev+5,240:pokev,5:pokev+1,25:pokev+2,150:pokev+3,46
  23. 23 prints"items sorted in":printmid$(t$,3,2)":"right$(t$,2)".":end
  24. 24 y=i:x=l%(i):gosub3:y=j:x=l%(j):gosub3
  25. 25 y=i:x=l%(j):gosub2:y=j:x=l%(i):gosub2:return
  26.