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 >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
64 lines
10 poke53280,0:poke53281,0
70 qq=32:qr=qq
75 gosub4000
80 q0=q2
90 z=1
95 qz=32+q4:qy=32+q2
96 qa=q4+q2
97 as=1
98 deffnr(x)=int(peek(56324)*x/256)
100 print"[147] please wait..."
101 fori=0to999:poke55296+i,(iand7)+5:next
110 ss=1024
120 s=ss+499
130 ww=4
140 gosub4000
150 forcc=1to30
160 z=z+1:ifz>12thenz=2
170 i=z:gosub3000:gosub1000
180 i=z-4:ifi<2theni=i+11
190 gosub3000:gosub2000
310 nextcc
350 gosub5000
400 forcc=1to36
410 z=z+1:ifz>12thenz=2
420 i=z:gosub3000:gosub1000
430 i=z-ww:ifi<2theni=i+11
440 gosub3000:gosub2500
450 nextcc
453 qq=qz-qq:qr=qy-qr
454 as=(as+1)and1:ifasand1thenq0=qa-q0:gosub6000
456 ww=ww+1:ifww>8thenww=2
470 goto140
999 end
1000 pokea1,q1
1010 forj=a1+1toa2-1:pokej,q2:next
1020 pokea2,q3
1030 forj=a2+40toa4-40step40:pokej,q6:next
1040 pokea4,q9
1050 forj=a4-1toa3+1step-1:pokej,q8:next
1060 pokea3,q7
1070 forj=a3-40toa1+40step-40:pokej,q4:next
1080 return
2000 forj=a1toa2:pokej,qq:next
2030 forj=a2toa4step40:pokej,qr:next
2050 forj=a4toa3step-1:pokej,qq:next
2070 forj=a3toa1step-40:pokej,qr:next
2080 return
2500 forj=a1+1toa2-1:pokej,qq:next
2530 forj=a2+40toa4-40step40:pokej,qr:next
2550 forj=a4-1toa3+1step-1:pokej,qq:next
2570 forj=a3-40toa1+40step-40:pokej,qr:next
2580 return
3000 a1=s-i*41:a2=s-i*39
3010 a3=s+i*39:a4=s+i*41
3020 return
4000 q1=85:q2=67:q3=73:q4=93:q6=93
4010 q7=74:q8=67:q9=75
4020 return
5000 q1=77:q9=77:q3=78:q7=78
5010 return
6000 fori=6to0step-1:forj=ss+itoss+i+960step40:pokej,q0:next
6010 forj=ss+38-itoss+998-istep40:pokej,q0:next:next
6020 return