home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #3 / Commodore_Disk_User_Vol.1_3_1988_-.d64 / hypertunnel (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.2 KB  |  64 lines
  1. 10 poke53280,0:poke53281,0
  2. 70 qq=32:qr=qq
  3. 75 gosub4000
  4. 80 q0=q2
  5. 90 z=1
  6. 95 qz=32+q4:qy=32+q2
  7. 96 qa=q4+q2
  8. 97 as=1
  9. 98 deffnr(x)=int(peek(56324)*x/256)
  10. 100 print"[147]             please wait..."
  11. 101 fori=0to999:poke55296+i,(iand7)+5:next
  12. 110 ss=1024
  13. 120 s=ss+499
  14. 130 ww=4
  15. 140 gosub4000
  16. 150 forcc=1to30
  17. 160 z=z+1:ifz>12thenz=2
  18. 170 i=z:gosub3000:gosub1000
  19. 180 i=z-4:ifi<2theni=i+11
  20. 190 gosub3000:gosub2000
  21. 310 nextcc
  22. 350 gosub5000
  23. 400 forcc=1to36
  24. 410 z=z+1:ifz>12thenz=2
  25. 420 i=z:gosub3000:gosub1000
  26. 430 i=z-ww:ifi<2theni=i+11
  27. 440 gosub3000:gosub2500
  28. 450 nextcc
  29. 453 qq=qz-qq:qr=qy-qr
  30. 454 as=(as+1)and1:ifasand1thenq0=qa-q0:gosub6000
  31. 456 ww=ww+1:ifww>8thenww=2
  32. 470 goto140
  33. 999 end
  34. 1000 pokea1,q1
  35. 1010 forj=a1+1toa2-1:pokej,q2:next
  36. 1020 pokea2,q3
  37. 1030 forj=a2+40toa4-40step40:pokej,q6:next
  38. 1040 pokea4,q9
  39. 1050 forj=a4-1toa3+1step-1:pokej,q8:next
  40. 1060 pokea3,q7
  41. 1070 forj=a3-40toa1+40step-40:pokej,q4:next
  42. 1080 return
  43. 2000 forj=a1toa2:pokej,qq:next
  44. 2030 forj=a2toa4step40:pokej,qr:next
  45. 2050 forj=a4toa3step-1:pokej,qq:next
  46. 2070 forj=a3toa1step-40:pokej,qr:next
  47. 2080 return
  48. 2500 forj=a1+1toa2-1:pokej,qq:next
  49. 2530 forj=a2+40toa4-40step40:pokej,qr:next
  50. 2550 forj=a4-1toa3+1step-1:pokej,qq:next
  51. 2570 forj=a3-40toa1+40step-40:pokej,qr:next
  52. 2580 return
  53. 3000 a1=s-i*41:a2=s-i*39
  54. 3010 a3=s+i*39:a4=s+i*41
  55. 3020 return
  56. 4000 q1=85:q2=67:q3=73:q4=93:q6=93
  57. 4010 q7=74:q8=67:q9=75
  58. 4020 return
  59. 5000 q1=77:q9=77:q3=78:q7=78
  60. 5010 return
  61. 6000 fori=6to0step-1:forj=ss+itoss+i+960step40:pokej,q0:next
  62. 6010 forj=ss+38-itoss+998-istep40:pokej,q0:next:next
  63. 6020 return
  64.