MY PROGRAMS
TetrisTwist
PROGRAM
This is Tetris clone with a twist, since the whole game is now turned by 90 degrees causing shapes to 'fall' from right to left. Of course you still could turn your organizer to get the original Tetris...:-)
Email me at dutchrai@yahoo.com
BIN_PROG_1
PFILE:BE5NEUY5.BAS
=
E
=
E
=
*TETRISTWIST
b*INIT:Y
b *ABOUT:Y
(b
*MENU:Y
2P
cZ
d*ARRAYEXPLANATION
n'
x'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
*VARIABLEEXPLANATION
'
'
'
'
&'
0'
:'
D'
N'
X'
b'
l'
v'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
*'
4'
>'
H'
R'
\'
f'
p'
z'
'
*INIT
P
b*INITVAR:Y
b*INITLOGO:Y
b
*INITSHAPES:Y
Ke
L *INITVAR
V 0TS$(6)*70
`*TS$(3)="Initializing TetrisTwist"+(153)
jTN=3:bR*LOCCENTER:Y
tN0LG(99,1),TW$(5),AW$(11,3),AT$(11,1)*30,AR(11),RX(11),RY(11),FS(6),HF$(10,5)
~;0MT(11,23),MH(11),SX(6,3),SY(6,3),OX(3),OY(3),NX(3),NY(3)
WI=0R5
]TW$(I)
[
^"7EFF8181E7E7E7E7"
^"E7E7FFBDBDA5A5A5"
^"A581C3FFE7E7E7E7"
^"E7E7E7E7FFC181BF"
^"83C1FD8183FF8181"
^"E7E7E7E7E7E7FF7E"
WI=0R11
WJ=0R3
]AW$(I,J)
[
]AT$(I,0),AT$(I,1)
[
b^C0BF9F5F4F2F1F07,030301010101030F,03FDF9FAF2F4F8E0,C0C080808080C0F0,"1ST PLACE","placing first"
(c^001F1F0F0F070703,0303010101010307,00F8F8F0F0E0E0C0,C0C080808080C0E0,"2ND PLACE","placing second"
2b^0000000F07070303,0301010101010107,000000F0E0E0C0C0,C0808080808080E0,"3RD PLACE","placing third"
WI=0R5
Hh(218,2+I*8):3TW$(I)
Rh(13,2+I*8):3TW$(I)
\[
fNi(216,7)-(216,45):i(227,7)-(227,45):i(214,11)-(214,41):i(229,11)-(229,41)
pDi(11,7)-(11,45):i(22,7)-(22,45):i(9,11)-(9,41):i(24,11)-(24,41)
zbU*PAUSE:Y
e
*MENU
P
TS$(0)="Play Game"
TS$(1)="Setup"
TS$(2)="Hall of Fame"
TS$(3)="Rewards"
TS$(4)="Instructions"
TS$(5)="About"
TS$(6)="Quit"
WI=0R6
TN=I:bR*LOCCENTER:Y
&[
0b2*MENUHIGHLIGHT:Y
: *MENUINPUT
D K$=(1)
N^V(K$=(5)K$=(7))MC<6Tb2*MENUHIGHLIGHT:MC=MC+1:b2*MENUHIGHLIGHT:+*MENUINPUT
X^V(K$=(4)K$=(6))MC>0Tb2*MENUHIGHLIGHT:MC=MC-1:b2*MENUHIGHLIGHT:+*MENUINPUT
b+VK$=(27)K$="Q"(K$=(10)MC=6)Te
l)VK$=(10)Tb*MENUSELECT:+
*MENU
v+VK$="P"TMC=0:b*MENUSELECT:+
*MENU
+VK$="S"TMC=1:b*MENUSELECT:+
*MENU
+VK$="H"TMC=2:b*MENUSELECT:+
*MENU
+VK$="R"TMC=3:b*MENUSELECT:+
*MENU
+VK$="I"TMC=4:b*MENUSELECT:+
*MENU
+VK$="A"TMC=5:b*MENUSELECT:+
*MENU
+*MENUINPUT
*MENUHIGHLIGHT
)i(119-40,1+MC*10)-(119+40,9+MC*10),X,BF
)i(119-41,2+MC*10)-(119-41,8+MC*10),X,BF
)i(119+41,2+MC*10)-(119+41,8+MC*10),X,BF
Ge
H *MENUSELECT
RVMC=0Tb5*MAIN:Y
\VMC=1Tb*SETUP:Y
f VMC=2Tb'*HALLOFFAME:Y
pVMC=3Tb!*REWARDS:Y
z#VMC=4TMI=1:b$*INSTRUCTIONS:Y
VMC=5Tb *ABOUT:Y
e
*SETUP
P
bT*SETUPFILEINPUT:Y
TS$(0)="Level 1 speed"
TS$(1)="Level 2 speed"
TS$(2)="Level 3 speed"
TS$(3)="Level 4 speed"
TS$(4)="Level 5 speed"
TS$(5)="Show next shape"
#TS$(6)="Columns for level advance"
WI=0R6
TN=I:bR*LOCCENTERLEFT:Y
SP=I:b,*SETUPUPDATE:Y
"[
,i(119,1)-(119,69)
6 SP=0:b*SETUPHIGHLIGHT:Y
@ *SETUPINPUT
J K$=(1)
TUVK$=(5)SP<6Tb*SETUPHIGHLIGHT:SP=SP+1:b*SETUPHIGHLIGHT:+*SETUPINPUT
^UVK$=(4)SP>0Tb*SETUPHIGHLIGHT:SP=SP-1:b*SETUPHIGHLIGHT:+*SETUPINPUT
h"VK$=(27)K$=(9)K$="Q"Te
rbVK$=(14)SP<5FS(SP)<9Tb,*SETUPUPDATE:FS(SP)=FS(SP)+1:b,*SETUPUPDATE:+*SETUPINPUT
|bVK$=(15)SP<5FS(SP)>0Tb,*SETUPUPDATE:FS(SP)=FS(SP)-1:b,*SETUPUPDATE:+*SETUPINPUT
OVK$=(14)K$=(15)SP=5TFS(5)=1-FS(5):b,*SETUPUPDATE:+*SETUPINPUT
NVK$=(14)SP=6FS(6)<50TFS(6)=FS(6)+5:b,*SETUPUPDATE:+*SETUPINPUT
NVK$=(15)SP=6FS(6)>10TFS(6)=FS(6)-5:b,*SETUPUPDATE:+*SETUPINPUT
&VK$=(10)TbU!*SETUPFILEOUTPUT:e
+*SETUPINPUT
*SETUPHIGHLIGHT
!i(0,1+SP*10)-(117,9+SP*10),X,BF
/e
0
*SETUPUPDATE
:zVSP<5Ti(124,2+SP*10)-(233,8+SP*10),S,B:i(125,3+SP*10)-(232,7+SP*10),R,BF:i(124,3+SP*10)-(124+FS(SP)*12,7+SP*10),S,BF
D"VSP=5FS(5)=0TQ124,5:`"NO "
N!VSP=5FS(5)=1TQ124,5:`"YES"
X VSP=6TQ124,6:`(FS(6))
e
*HALLOFFAME
P
HC=0
U+*HALLOFFAMEERR
!"E:TTHOF"Was#1
*HALLOFFAME1
WI=0R5
a#1,HF$(HC,I)
[
#HC=HC+1:V(1)=0Tv*HALLOFFAME1
"#1
*HALLOFFAMEERR
U+0
bVHC=0TTS$(3)="No entries yet in the Hall of Fame":TN=3:bR*LOCCENTER:bU*PAUSE:e:vHC=HC-1
HL=0:HP=0
*HALLOFFAME2
(Q2,0:`"Rank"
2Q27,0:`"Name"
<Q122,0:`"Score"
FQ162,0:`"Columns"
PQ202,0:`"Level"
Z0i(0,10)-(238,10),21845:i(0,60)-(238,60),21845
d
*HALLOFFAME3
n}i(0,11)-(238,59),R,BF:i(25,10)-(25,59),21845:i(120,10)-(120,59),21845:i(160,10)-(160,59),21845:i(200,10)-(200,59),21845
xHM=HL+4:VHM>HCTHM=HC
A=1
WI=HLRHM
Q7,A:`/"###";I+1
Q27,A:`HF$(I,0)
#Q122,A:`/"#######";(HF$(I,1))
#Q162,A:`/"#######";(HF$(I,2))
#Q202,A:`/"#######";(HF$(I,3))
A=A+1
[
-i(0,11+(HP-HL)*10)-(238,19+(HP-HL)*10),X,BF
*HALLOFFAMEINPUT
HD=0
K$=(1)
$VK$=(4)THD=-1:+ *HALLOFFAME4
#VK$=(5)THD=1:+ *HALLOFFAME4
$VK$=(6)THD=-5:+ *HALLOFFAME4
"#VK$=(7)THD=5:+ *HALLOFFAME4
,9VK$=(10)Tb *HALLOFFAMEDETAIL:P:+j*HALLOFFAME2
6"VK$=(27)K$=(9)K$="Q"Te
@+*HALLOFFAMEINPUT
J
*HALLOFFAME4
T
A=HP:B=HL
^ HP=HP+HD
h
VHP<0THP=0
rVHP>HCTHP=HC
|VHPHMTHL=HL+HD
VHL<0THL=0
VHL+4>HCTHL=HC-4:VHL<0THL=0
VB<>HLT*HALLOFFAME3vi(0,11+(A-B)*10)-(238,19+(A-B)*10),X,BF:i(0,11+(HP-HL)*10)-(238,19+(HP-HL)*10),X,BF:+*HALLOFFAMEINPUT
e
*HALLOFFAMEDETAIL
P
TS$(0)="On "+(HF$(HP,4),2)+"/"+(HF$(HP,4),5,2)+"/"+(HF$(HP,4),4)+", "+HF$(HP,0)+" scored "+HF$(HP,1)+" points,":TN=0:bR*LOCCENTER:Y
cTS$(1)="completed "+HF$(HP,2)+" columns, and reached level "+HF$(HP,3)+".":TN=1:bR*LOCCENTER:Y
WTS$(2)="Currently "+HF$(HP,0)+" has rank number "+(HP+1)+".":TN=2:bR*LOCCENTER:Y
A=0
WI=0R11
&/AR(I)=((HF$(HP,5),I+1,1)):VAR(I)=1TA=A+1
0[
:VHP=0TAR(0)=1:A=A+1
DVHP=1TAR(1)=1:A=A+1NVHP=2TAR(2)=1:A=A+1
XVA=0TbU*PAUSE:e
beVA=1TTS$(3)=HF$(HP,0)+" has received this award:":vTS$(3)=HF$(HP,0)+" has received these awards:"
lTN=3:bR*LOCCENTER:Y
v
A=A-1:B=0
WI=0R11
VAR(I)=1Th(111-A*12+B*24,50):3AW$(I,0):h(111-A*12+B*24,58):3AW$(I,1):h(119-A*12+B*24,50):3AW$(I,2):h(119-A*12+B*24,58):3AW$(I,3):B=B+1
[
bU*PAUSE:Y
e
p *REWARDS
zP
WI=0R11
RX(I)=9+I*20
RY(I)=60-((180/11)*I)*50
th(RX(I)-8,RY(I)-8):3AW$(I,0):h(RX(I)-8,RY(I)):3AW$(I,1):h(RX(I),RY(I)-8):3AW$(I,2):h(RX(I),RY(I)):3AW$(I,3)
[
5RP=0:b#*REWARDSAWARDBOX:b$
*REWARDSAWARDTEXT:Y
*REWARDSAWARDINPU
K$=(1)
RM=0
-VK$=(27)K$=(9)K$="Q"K$=(10)Te
VK$=(14)TRM=1
VK$=(15)TRM=-1
VRM=0T"*REWARDSAWARDINPU
b#*REWARDSAWARDBOX:Y
RP=RP+RM
VRP<0TRP=11
$VRP>11TRP=0
.0b#*REWARDSAWARDBOX:b$
*REWARDSAWARDTEXT:Y
7+"*REWARDSAWARDINPU
8*REWARDSAWARDBOX
B/i(RX(RP)-9,RY(RP)-9)-(RX(RP)+8,RY(RP)+8),X,BF
e
*REWARDSAWARDTEXT
0i(70,40)-(168,49),R,BF:i(30,60)-(208,69),R,BF
1TS$(4)=AT$(RP,0):TS$(6)="Awarded for "+AT$(RP,1)
TN=4:bR*LOCCENTER:Y
TN=6:bR*LOCCENTER:Y
e
X*INSTRUCTIONS
bP
lTS$(1)="The Game"
vTS$(2)="Shapes"
TS$(3)="Points"
TS$(4)="Keys"
TS$(5)="Back"
WI=1R5
TN=I:bR*LOCCENTER:Y
[
b'*INSTHIGHLIGHT:Y
*INSTINPUT
K$=(1)
^V(K$=(5)K$=(7))MI<5Tb'*INSTHIGHLIGHT:MI=MI+1:b'*INSTHIGHLIGHT:+%}*INSTINPUT
^V(K$=(4)K$=(6))MI>1Tb'*INSTHIGHLIGHT:MI=MI-1:b'*INSTHIGHLIGHT:+%}*INSTINPUT
=VK$=(27)K$=(9)K$="B"K$="Q"(K$=(10)MI=5)Te
1VK$=(10)Tb(T*INSTSELECT:+$*INSTRUCTIONS
3VK$="T"TMI=1:b(T*INSTSELECT:+$*INSTRUCTIONS
3VK$="S"TMI=2:b(T*INSTSELECT:+$*INSTRUCTIONS
3VK$="P"TMI=3:b(T*INSTSELECT:+$*INSTRUCTIONS
3VK$="K"TMI=4:b(T*INSTSELECT:+$*INSTRUCTIONS
+%}*INSTINPUT
*INSTHIGHLIGHT
)i(119-40,1+MI*10)-(119+40,9+MI*10),X,BF
)i(119-41,2+MI*10)-(119-41,8+MI*10),X,BF
)i(119+41,2+MI*10)-(119+41,8+MI*10),X,BF
e
*INSTSELECT
VMI=1Tb(*INSTTHEGAME:e
VMI=2Tb/|*INSTSHAPES:e
VMI=3Tb1*INSTPOINTS:e
VMI=4Tb3*INSTKEYS:e
Ke
L
*INSTTHEGAME
VP
`GTS$(0)="TetrisTwist"+(153)+" is a variation on the popular original"
jJTS$(1)="russian Tetris"+(153)+" game. This version is made to fit your"
tATS$(2)="organizer screen, by playing the game sideways, earning"
~DTS$(3)="itself the name TetrisTwist. It uses a board of 20 (width)"
GTS$(4)="by 8 (height) blocks, in which shapes will 'fall' slowly from"
ITS$(5)="right to left. While they are still falling you will be able to"
0TS$(6)="rotate them and move them up and down."
WI=0R6
Q0,I:`TS$(I)
[
%TS$(6)="1/3":bT1*LOCRIGHTBOTTOM:Y
bU*PAUSE:Y
P
BTS$(0)="The goal of this game is to complete columns with blocks"
@TS$(1)="by making the shapes fit precisely when they fall into"
DTS$(2)="place. When a column is completed, it will be removed from"
BTS$(3)="the board and the blocks to the right of the column will"
ATS$(4)="'fall' left one block, freeing up space for new shapes."
0I=0T3"7F415D5D5D417F":v3"7F41554155417F"
[
[
bU*PAUSE:Y
MI=3
!3e
!4 *INSTPOINTS
!>P
!H@TS$(0)="Points are awarded only for columns removed, using the"
!RTS$(1)="following system:"
!\-TS$(2)="Remove 1 column = 10 points x Level"
!f.TS$(3)="Remove 2 columns = 25 points x Level"
!p.TS$(4)="Remove 3 columns = 75 points x Level"
!z4TS$(5)="Remove 4 columns = 300 points x Level x MT"
!>TS$(6)="MT = Multi Tetris, add 1 for each Tetris in sequence"
! WI=0R1
!Q0,I:`TS$(I)
![
! WI=2R5
!TN=I:bS*LOCLIST:Y
![
!Q10,6:`TS$(6)
!bU*PAUSE:Y
!MI=4
#'e
#(
*INSTKEYS
#2P
#a*MAINDRAWSHAPE:Y
'V*MAIN2
'`WTC=0R(10-FS(LV))*50
'jK$=
'tVK$=""T8K*MAIN3
'~3VK$=(4)K$=(6)TbB*MAINMOVEUP:+8K*MAIN3
'5VK$=(5)K$=(7)TbB*MAINMOVEDOWN:+8K*MAIN3
'4VK$=(14)SC>0TbAO*MAINROTATELEFT:+8K*MAIN3
'5VK$=(15)SC>0TbA*MAINROTATERIGHT:+8K*MAIN3
'!VK$=(13)TTC=9999:+8K*MAIN3
'8VK$=(10)Tb?*MAINDROPSHAPENOW:TC=9998:+8K*MAIN3
'!VK$=(30)TTC=9997:+8K*MAIN3
'&VK$="P"TbM&*MAINPAUSE:+8K*MAIN3
' VK$="S"TTC=9996:+8K*MAIN3
' VK$="Q"TTC=9995:+8K*MAIN3
'*MAIN3
'[
'VTC=9999T5*MAIN1
( (VTC=9998TbL*MAINNEWGAME:+5*MAIN
(
VTC=9997TJ*MAINSAVEGAME
( VTC=9996TK*MAINQUITGAME
( b?>*MAINDROPSHAPE:Y
((VSH=0T+6=*MAIN2
(2bCv*MAINPLACESHAPE:Y
) +5*MAIN1
*
*MAININIT
+P
+ i(0,69)-(238,69)
+i(38,1)-(200,67),S,B
+ U+<*MAININITERR
+*!"E:TTGAME"Was#1
+4:TS$(3)="LOADING SAVED GAME":TN=3:bR*LOCCENTERBORDER:Y
+> WI=2R9
+H a#1,MH(I)
+R
WJ=2R21
+\
a#1,MT(I,J)
+f[
+p[
+za#1,MT,LA,LV,PC,PT,TT
+
WI=0R11
+ a#1,AR(I)
+[
+"#1
+&i(117-A,TN*10)-(122+A,11+TN*10),R,BF
+ WI=2R9
+
WJ=2R21
+4VMT(I,J)=0Th(207-J*8,-13+I*8):3"7F7F7F7F7F7F7F"
+[
+[
+ *MAININIT1
+ U+0
+%
,bT*SETUPFILEINPUT:Y
,i(0,20)-(34,20),21845
,i(0,40)-(34,40),21845
,$Q0,0:`"Score"
,.Q0,1:`/"#######";PT
,8Q0,2:`"Columns"
,BQ0,3:`/"#######";PC
,LQ0,4:`"Level"
,V-Q2,5:`"1 2 3 4 5":bL*MAINUPDATELEVEL:Y
,e
,
*MAININITVAR
, SN=(7)-1
- WI=2R9
-
MH(I)=22
-
WJ=2R21
-
MT(I,J)=1
-([
-2[
-< MT=0:LA=0:LV=0:PC=0:PT=0:TT=0
-F
WI=0R11
-PAR(I)=0
-Z[
-e
.|
*MAININITERR
.b<*MAININITVAR:Y
.:*MAININIT1
.*MAINCHOOSESHAPE
.SC=SN:SN=(7)-1
.i(202,1)-(238,67),R,BF
. WI=0R3
/?VFS(5)=1Th(230-SY(SN,I)*8,27+SX(SN,I)*8):3"7F41414141417F"
/"OX(I)=5+SX(SC,I):OY(I)=2+SY(SC,I)
/ NX(I)=OX(I):NY(I)=OY(I)
/&[
/0PX=OX(0):PY=OY(0)
/Ce
/D
*MAINHITTEST
/NSH=0
/X WI=0R3
/b VMT(NX(I),NY(I))=0TSH=1:I=3
/l[
/v VSH=0Te
/ WI=0R3
/NX(I)=OX(I):NY(I)=OY(I)
/[
/e
/*MAINDRAWSHAPE
/ WI=0R3
//h(207-OY(I)*8,-13+OX(I)*8):3"00000000000000"
/OX(I)=NX(I):OY(I)=NY(I)
/[
/ WI=0R3
/Qh(207-OY(I)*8,-13+OX(I)*8):VI>0SC=0T3"7F415D5D5D417F":v3"7F41554155417F"
/[
0 e
0 *MAINDROPSHAPE
0 WI=0R3
0 NY(I)=NY(I)+1
0*[
04b=*MAINHITTEST:Y
0>'VSH=0TPY=PY+1:b>a*MAINDRAWSHAPE:Y
0oe
0p*MAINDROPSHAPENOW
0z WI=0R30/h(207-OY(I)*8,-13+OX(I)*8):3"55005500550055"
0[
0*MAINDROPSHAPEMOR
0 WI=0R3
0NY(I)=NY(I)+1
0[
0SH=0
0 WI=0R3
0 VMT(NX(I),NY(I))=0TSH=1:I=3
0[
0 VSH=0T+@8*MAINDROPSHAPEMOR
0 WI=0R3
0/h(207-OY(I)*8,-13+OX(I)*8):3"00000000000000"
1OX(I)=NX(I):OY(I)=NY(I)-1
1[
1bCv*MAINPLACESHAPE:Y
17e
18*MAINROTATELEFT
1B WI=0R3
1L MX=NX(I)
1VNX(I)=PX+PY-NY(I)
1`NY(I)=PY-PX+MX
1j[
1tb=*MAINHITTEST:Y
1~ VSH=0Tb>a*MAINDRAWSHAPE:Y
1e
1*MAINROTATERIGHT
1 WI=0R3
1 MX=NX(I)
1NX(I)=PX-PY+NY(I)
1NY(I)=PY+PX-MX
1[
1b=*MAINHITTEST:Y
1 VSH=0Tb>a*MAINDRAWSHAPE:Y
1e
2 *MAINMOVEUP
2
WI=0R3
2NX(I)=NX(I)-1
2 [
2(b=*MAINHITTEST:Y
22'VSH=0TPX=PX-1:b>a*MAINDRAWSHAPE:Y
2ce
2d*MAINMOVEDOWN
2n WI=0R3
2xNX(I)=NX(I)+1
2[
2b=*MAINHITTEST:Y
2'VSH=0TPX=PX+1:b>a*MAINDRAWSHAPE:Y
2e
2*MAINPLACESHAPE
2 PH=23:PL=0
2 WI=0R3
2MT(OX(I),OY(I))=0
2VOY(I)>PLTPL=OY(I)
2VOY(I)=FS(6)TLA=LA-FS(6):VLV<4TbL*MAINUPDATELEVEL:LV=LV+1:bL*MAINUPDATELEVEL:Y
3i(202,1)-(238,67),R,BF
3AC=0
3DVAR(3)=0PC>=50PC-CC<50TAR(3)=1:AN=3:bH*MAINAWARDDISPLAY:Y
3FVAR(4)=0PC>=100PC-CC<100TAR(4)=1:AN=4:bH*MAINAWARDDISPLAY:Y
3FVAR(5)=0PC>=250PC-CC<250TAR(5)=1:AN=5:bH*MAINAWARDDISPLAY:Y
35VCC=4TT=5TAR(6)=1:AN=6:bH*MAINAWARDDISPLAY:Y
36VCC=4TT=10TAR(7)=1:AN=7:bH*MAINAWARDDISPLAY:Y
36VCC=4TT=25TAR(8)=1:AN=8:bH*MAINAWARDDISPLAY:Y
4/VMT>1TAR(9)=1:AN=9:bH*MAINAWARDDISPLAY:Y
4@VAR(10)=0PT>=50000TAR(10)=1:AN=10:bH*MAINAWARDDISPLAY:Y
4 ;VAR(11)=0LV=4TAR(11)=1:AN=11:bH*MAINAWARDDISPLAY:Y
4& VAC=0Te
407TS$(4)=(AC):VAC=1TTS$(5)="Award":vTS$(5)="Awards"
4:BTMT(2+J,K)=B:i(208-K*8,3+J*8)-(214-K*8,9+J*8),X,BF
4[
4MH(2+J)=MH(2+J)+1
5[
5 e
FP*MAINSAVEGAME
FZK$=
Fd3TS$(3)="SAVING GAME":TN=3:bR*LOCCENTERBORDER:Y
Fn!"E:TTGAME"Wqs#1
Fx WI=2R9
F `#1,MH(I)
F
WJ=2R21
F
`#1,MT(I,J)
F[
F[
F`#1,MT,LA,LV,PC,PT,TT
F
WI=0R11
F `#1,AR(I)
F[
F"#1
Ge
G*MAINQUITGAME
G"K$=
G,*30
G64TS$(3)="QUITING GAME":TN=3:bR*LOCCENTERBORDER:Y
G@*0
G{e
G|
*MAINNEWGAME
GK$=
G*30
G9TS$(3)="STARTING NEW GAME":TN=3:bR*LOCCENTERBORDER:Y
G*0
GbL*MAINKILLGAME:Y
Ge
G*MAINKILLGAME
GU+L*MAINKILLGAMEERR
G
<"E:TTGAME"
G*MAINKILLGAMEERR
H U+0
HCe
HD*MAINUPDATELEVEL
HN i(1+LV*7,51)-(6+LV*7,67),X,BF
He
H *MAINPAUSE
H-TS$(5)="PAUSE":Q220-(TS$(5))/2,5:`TS$(5)
HbU*PAUSE:Y
Hi(201,50)-(238,59),R,BF
H4TS$(5)="GO!":Q220-(TS$(5))/2,5:*10:`TS$(5):*0
Hi(201,50)-(238,59),R,BF
I e
J8*MAINGAMEOVER
JB1TS$(3)="GAME OVER":TN=3:bR*LOCCENTERBORDER:Y
JLbL*MAINKILLGAME:Y
JVbU*PAUSE:Y
J`P
Jj HC=0:HP=-1
JtU+O*MAINGAMEOVERERR
J~!"E:TTHOF"Was#1
J*MAINGAMEOVER1
J WI=0R5
Ja#1,HF$(HC,I)
J[
J"VPT>=(HF$(HC,1))HP=-1THP=HC
J%HC=HC+1:V(1)=0TN*MAINGAMEOVER1
J"#1
J3VHC=10HP=-1TRW*MAINGAMEOVER2:vVHP=-1THP=HC
JWI=HCRHP+1S-1
J WJ=0R5
JHF$(I,J)=HF$(I-1,J)
J[
K [
K
*MAINGAMEOVERERR
K U+0
K VHP=-1THP=0
K(VHP<=2TTS$(2)="Congratulations!":TN=2:bR*LOCCENTER:h(111,3):3AW$(HP,0):h(111,11):3AW$(HP,1):h(119,3):3AW$(HP,2):h(119,11):3AW$(HP,3)
K2RTS$(3)="You rank number "+(HP+1)+" in the Hall of Fame":TN=3:bR*LOCCENTER:Y
KWK$=
SH
WK$=(1)
Se
u1Z