home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D3.D64 / hypertunnel (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  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.