home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_11_(11-1984).d64 / kaliedo (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  782b  |  43 lines
  1. 100 REM:KALIEDO
  2. 110 REM:COPYRIGHT 1983
  3. 120 R=RND(-TI):PRINT CHR$(147)
  4. 130 A=19:B=12:S=1024:D=-1:C=55296
  5. 135 M=63:POKE53280,1:POKE53281,0
  6. 140 DIMR(6)
  7. 150 FORJ=0TO6
  8. 160 T=65
  9. 165 IFRND(1)>.5THENT=T+128
  10. 170 R(J)=INT(M*RND(1))+T:NEXT
  11. 180 D=1:K=1:L=12:IFD<0THENK=12:L=1
  12. 200 FORJ=KTOLSTEPD
  13. 210 X=A+J:Y=B:GOSUB900
  14. 220 X=A-J:GOSUB900
  15. 230 X=A:Y=B+J:GOSUB900
  16. 240 Y=B-J:GOSUB900
  17. 250 X=A+J:Y=B+J:GOSUB900
  18. 260 X=A-J:Y=B-J:GOSUB900
  19. 270 Y=B+J:GOSUB900
  20. 280 X=A+J:Y=B-J:GOSUB900
  21. 790 NEXT
  22. 795 FORJ=1TO2000:NEXTJ
  23. 800 GOTO150
  24. 900 C1=INT(RND(1)*14)+1
  25. 905 POKEC+40*Y+X,C1
  26. 910 POKES+40*Y+X,R(0)
  27. 915 IFJ=1THEN RETURN
  28. 920 W=INT(J*.5):T=J-W-1
  29. 930 FORN=1TOW
  30. 940 IFX=ATHENY2=Y:X2=X+N:GOSUB2000
  31. 945 IFX=ATHENX2=X-N:GOSUB2000:NEXT:RETURN
  32. 950 IFY=BTHENX2=X:Y2=Y+N:GOSUB2000
  33. 955 IFY=BTHENY2=Y-N:GOSUB2000:NEXT:RETURN
  34. 970 Y2=Y:IFX<ATHENX2=X+N:GOSUB2000:GOTO990
  35. 980 X2=X-N:GOSUB2000
  36. 990 X2=X:IFY<BTHENY2=Y+N:GOSUB2000:GOTO1010
  37. 1000 Y2=Y-N:GOSUB2000
  38. 1010 NEXT
  39. 1020 RETURN
  40. 2000 POKES+40*Y2+X2,R(N)
  41. 2005 POKEC+40*Y2+X2,C1
  42. 2010 RETURN
  43.