{0}ŢList 5
0ŢA~Z
0ŢÍ
0ŢÎ
ViewWindow 1,127,0,63,1,0
AxesOff
GridOff
LabelOff
Green F-Line 18,10,100,10
F-Line 100,10,100,28
F-Line 100,28,18,28
Green F-Line 18,28,18,10
PlotOn 20,12
PlotOn 98,12
PlotOn 20,26
PlotOn 98,26
F-Line 53,9,53,6
F-Line 53,6,66,6
F-Line 66,6,66,9
F-Line 53,29,53,38
F-Line 66,38,66,29
F-Line 1,38,127,38
Orange F-Line 1,39,127,39
Orange F-Line 1,40,127,40
Text 14,25,"SUPER MARIO LAND"
Green Text 21,42,"CFX™9850G"
Orange Text 50,25,"BY: B.RASMUS ANTHIN"Ý
3ŢL
Lbl A
Isz Î
Î=1ăProg "MLEV1"
Î=2ăProg "MLEV2"
Î=3ăProg "MLEV3"
0ŢB
1‰LŢO
Lbl 0
L<Oă500ŢT
L<OăF™1ŢH
LŢO
0ŢD
™1ŢQ
™1ŢK
For 1‰BŢA To 21‰B
Isz D
List 6[A]=1ăDŢK
List 6[A]=2ăDŢK
Next
Cls
If Îâ1 And Îŕ3
Then Orange F-Line 91,41,53,5
Orange F-Line 53,5,8,51
Orange F-Line 80,51,103,30
Orange F-Line 103,30,125,51
IfEnd
If Îâ4 And Îŕ6
Then Orange Circle 20,15,10
Orange PlotOn 16,2
Orange PlotOn 17,1
Orange PlotOn 18,1
Orange PlotOn 19,2
Orange PlotOn 21,2
Orange PlotOn 22,1
Orange PlotOn 23,1
Orange PlotOn 24,2
Orange PlotOn 18,10
Orange PlotOn 17,10
Orange PlotOn 16,11
Orange PlotOn 16,12
Orange PlotOn 16,13
Orange PlotOn 16,14
Orange PlotOn 17,15
Orange PlotOn 18,15
Orange PlotOn 19,15
Orange PlotOn 20,14
Orange PlotOn 20,13
Orange PlotOn 21,15
Orange PlotOn 22,15
Orange PlotOn 23,15
Orange PlotOn 24,14
Orange PlotOn 24,13
Orange PlotOn 24,12
Orange PlotOn 24,11
Orange PlotOn 23,10
Orange PlotOn 22,10
Orange PlotOn 18,13
Orange PlotOn 22,13
Orange PlotOn 15,17
Orange PlotOn 14,18
Orange PlotOn 14,19
Orange PlotOn 15,20
Orange PlotOn 16,21
Orange PlotOn 17,21
Orange PlotOn 18,22
Orange PlotOn 19,22
Orange PlotOn 20,22
Orange PlotOn 21,22
Orange PlotOn 22,22
Orange PlotOn 23,22
Orange PlotOn 24,21
Orange PlotOn 25,20
Orange PlotOn 25,19
Orange PlotOn 29,6
Orange PlotOn 30,5
Orange PlotOn 31,4
Orange PlotOn 32,15
Orange PlotOn 33,15
Orange PlotOn 34,15
Orange PlotOn 29,24
Orange PlotOn 30,25
Orange PlotOn 31,26
Orange PlotOn 20,27
Orange PlotOn 20,28
Orange PlotOn 20,29
Orange PlotOn 11,24
Orange PlotOn 10,25
Orange PlotOn 9,26
Orange PlotOn 8,15
Orange PlotOn 7,15
Orange PlotOn 6,15
IfEnd
0ŢD
For B‰1ŢA To B‰21
Isz D
List 1[A]â1ăText 50,6D™5,"[]"
List 1[A]â2ăText 44,6D™5,"[]"
List 1[A]â3ăText 38,6D™5,"[]"
List 1[A]â4ăText 32,6D™5,"[]"
Next
0ŢD
For B‰1ŢA To B‰21
Isz D
If List 3[A]=1
Then Green Text 44™6List 1[A],6D™4,"¤"
Text 44™6List 1[A],6D™4,"¤"
IfEnd
If List 2[A]=1
Then Green Text 47™6List 1[A],6D™4,"I"
Green Text 51™6List 1[A],6D™4,"I"
Green PlotOn 6D™3,46™6List 1[A]
Green PlotOn 6D™2,45™6List 1[A]
Green PlotOn 6D™4,45™6List 1[A]
Green PlotOn 6D™5,46™6List 1[A]
Green PlotOn 6D™1,46™6List 1[A]
Green PlotOn 6D,47™6List 1[A]
Green PlotOn 6D™6,47™6List 1[A]
PlotOff 6D™4,51™6List 1[A]
PlotOff 6D™2,51™6List 1[A]
IfEnd
If List 2[A]=2
Then Orange Text 50™6List 1[A],6D™4," "
Text 50™6List 1[A],6D™4,"U"
F-Line 6D™5,50™6List 1[A],6D,50™6List 1[A]
PlotOn 6D™5,51™6List 1[A]
PlotOn 6D,51™6List 1[A]
IfEnd
If List 2[A]=3
Then Green Text 50™6List 1[A],6D™6,"]"
Green Text 50™6List 1[A],6D™4,"="
IfEnd
Next
N=0ă0ŢE
N=0ă™List 1[E‰B‰1]‰1ŢF
N=0ăFŢH
Text 57,2,"LIVES:"
Text 57,28,L
Text 57,41,"POINTS:"
Text 57,72,P
Text 1,100,"M:"
Text 1,112,M
Text 57,108,"L:"
Text 57,118,Î
KŢQ
0ŢR
0ŢD
™1ŢW
For 1‰BŢA To 21‰B
Isz D
List 3[A]=2ăDŢW
Next
While 1
If Getkey=31
Then For 1ŢA To 200
Next
Do
Text 20,45,"PAUSED"
Text 20,45,"PAUSED"
Text 20,45,"      "
Text 20,45,"      "
LpWhile Getkeyá31
IfEnd
M=100ăIsz L
M=100ăText 1,112,"0  "
M=100ăText 57,28,L
M=100ă0ŢM
T=99ăText 1,1,"   "
T=9ăText 1,1,"  "
Text 1,1,T
BŢC
EŢG
0ŢN
T™1ŢT
If F=H
Then If List 1[E‰B‰1]ŕ™F
Then If Not (List 1[E‰B‰1]=™F™1 And List 3[E‰B‰1]=1)
Then If Not (List 1[E‰B‰1]=™F And List 2[E‰B‰1]=2)
Then Text 44‰6F,2‰6E," "
Isz F
IfEnd
IfEnd
IfEnd
IfEnd
If List 3[E‰B‰1]=1 Or List 3[E‰B‰1]=3
Then If List 1[E‰B‰1]=™F‰1
Then If Getkey=78
Then Text 44‰6F,2‰6E," "
Text 41‰6F,2‰6E,"Î"
List 4[E‰B‰1]á0ăList 3[E‰B‰1]=1ăText 38™6List 1[E‰B‰1],2‰6E,"¤"
If List 3[E‰B‰1]=3
Then 0ŢList 3[E‰B‰1]
Text 15,45,"1 UP"
Text 15,45,"1 UP"
Text 15,45,"1 UP"
Text 15,45,"    "
Isz L
Text 57,28,L
200‰PŢP
Text 57,72,P
IfEnd
Text 41‰6F,2‰6E," "
Text 44‰6F,2‰6E,"Î"
Text 38™6List 1[E‰B‰1],2‰6E," "
If List 4[E‰B‰1]á0
Then List 4[E‰B‰1]™1ŢList 4[E‰B‰1]
10‰PŢP
Text 57,72,P
Isz M
Text 1,112,M
IfEnd
IfEnd
IfEnd
IfEnd
F<HăText 44‰6H,2‰6E," "
Text 44‰6F,2‰6E,"Î"
Getkey=27ăList 1[E‰B‰2]á™F‰2ăNot (List 1[E‰B‰2]=™F‰1 And List 2[E‰B‰2]=2)ăNot (List 1[E‰B‰2]=™F And List 3[E‰B‰2]=1)ăIsz E
E>0ăGetkey=38ăList 1[E‰B]á™F‰2ăNot (List 1[E‰B]=™F‰1 And List 2[E‰B]=2)ăNot (List 1[E‰B]=™F And List 3[E‰B]=1)ăDsz E
E<0ă0ŢE
FŢH
If List 2[E‰B‰1]á2
Then ™F™List 1[E‰B‰1]=1ă1ŢU
™F™List 1[E‰B‰1]=™1ă0ŢU
IfEnd
If List 2[E‰B‰1]=2
Then ™F™List 1[E‰B‰1]=2ă1ŢU
™F™List 1[E‰B‰1]=0ă0ŢU
IfEnd
If List 3[E‰B‰1]=1
Then ™F™List 1[E‰B‰1]=3ă1ŢU
™F™List 1[E‰B‰1]=1ă0ŢU
IfEnd
List 1[E‰B‰1]=0ă1ŢU
Getkey=78ăU=0ăNot (List 1[E‰B‰1]=™F‰1 And List 3[E‰B‰1]=1)ăDsz F
If Eâ21
Then B‰21ŢB
0ŢE
Goto 0
IfEnd
EáGăText 44‰6F,2‰6G," "
EáGăList 1[E‰B‰1]=™F‰1ăText 44‰6F,2‰6E,"Î"
If Getkey=37
Then If List 2[E‰B‰1]=2
Then If List 4[E‰B‰1]=1
Then 0ŢList 4[E‰B‰1]
0ŢN
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}ŢList 5
Cls
Text 57,2,"LIVES:"
Text 57,28,L
Text 57,41,"POINTS:"
Text 57,72,P
Text 1,100,"M:"
Text 1,112,M
Text 57,108,"L:"
Text 57,118,Î
EŢI
FŢJ
Goto 3
IfEnd
IfEnd
IfEnd
If E‰1=Q
Then If List 1[E‰B‰1]=™F
Then 0ŢList 6[K‰B]
100‰PŢP
Text 57,72,P
™1ŢQ
™1ŢK
IfEnd
IfEnd
0ŢList 5[1]
E‰1=QăList 1[E‰B‰1]™1=™Fă1ŢList 5[1]
If K>0
Then If List 6[K‰B]=1 Or List 6[K‰B]=2
Then QŢS
Isz R
R=1ăIsz Q
R=2ăDsz Q
R=3ăDsz Q
R=4ăIsz Q
R=4ă0ŢR
Text 50™6List 1[S‰B],™4‰6S," "
List 6[K‰B]=1ăText 50™6List 1[Q‰B],™4‰6Q,"."
List 6[K‰B]=2ăText 50™6List 1[Q‰B],™4‰6Q,","
IfEnd
IfEnd
E‰1=QăList 1[E‰B‰1]™1=™Fă1ŢList 5[1]
If F=1 Or T=0 Or (List 3[E‰B‰1]=2 And (Vâ1 And V<3) And List 1[E‰B‰1]=™F) Or List 5[1]
Then L™1ŢL
If L=0
Then Orange Text 10,40,"            "
Orange Text 15,40,"            "
Text 15,40," GAME OVER! "
Orange Text 20,40,"            "
Text 44‰6F,2‰6E," "
Text 57,28,L
Stop
IfEnd
Goto 0
IfEnd
If List 2[E‰B‰1]=3
Then Orange Text 10,30,"             "
Orange Text 15,30,"             "
Îá3ăText 15,30," LEVEL CLEAR "
Î=3ăText 15,25," CONGRATULATIONS! "
Orange Text 20,30,"             "
While T>0
1‰PŢP
Dsz T
T=99ăText 1,1,"   "
T=9ăText 1,1,"  "
Text 1,1,T
Text 57,72,P
WhileEnd
For 1ŢA To 500
Next
Îá3ăGoto A
Î=3ăGoto 4
IfEnd
BáCăGoto 0
If W>0 And List 3[E‰B‰1]á2
Then Isz V
V=6ă0ŢV
If V=1
Then Orange Text 43™6List 1[W‰B],™4‰6W," "
Text 44™6List 1[W‰B],™4‰6W,"Y"
PlotOn ™3‰6W,49™6List 1[W‰B]
IfEnd
V=3ăText 44™6List 1[W‰B],™5‰6W," "
IfEnd
WhileEnd
Lbl 3
If Getkey=31
Then For 1ŢA To 200
Next
Do
Text 20,45,"PAUSED"
Text 20,45,"PAUSED"
Text 20,45,"      "
Text 20,45,"      "
LpWhile Getkeyá31
IfEnd
Dsz T
T=99ăText 1,1,"   "
T=9ăText 1,1,"  "
Text 1,1,T
M=100ăIsz L
M=100ăText 1,112,"0  "
M=100ăText 57,28,L
M=100ă0ŢM
Isz N
N=1ă™5ŢF
N=1ă™5ŢU
N=1ă2ŢE
EŢG
If N=1
Then For 3ŢA To 18
Text 46,6A‰2,"¤"
Next
For 1ŢA To 21
Text 50,6A™5,"[]"
Text 8,6A™5,"[]"
Next
Green Text 8,7,"[]"
Green Text 8,19,"[]"
For 2ŢA To 8
Text 6A™4,1,"[]"
Text 6A™4,121,"[]"
Next
Text 8,13," "
Text 8,14," "
Green Text 44,115,"]"
Green Text 44,117,"="
IfEnd
Getkey=27ăIsz E
Getkey=38ăE>1ăDsz E
Text 44‰6F,2‰6E,"Î"
Getkey=78ăFá™2ăDsz F
F=UăFá0ăIsz F
FáUăText 44‰6U,2‰6E," "
EáGăText 44‰6F,2‰6G," "
F=0ăText 38,2‰6E," "
FŢU
If E>2 And E<19
Then If List 5[E™2]=1 And F=0
Then 10‰PŢP
Isz M
0ŢList 5[E™2]
Text 57,72,P
Text 1,112,M
IfEnd
IfEnd
If E=19
Then IŢE
JŢF
Goto 0
IfEnd
If T=0
Then L™1ŢL
If L=0
Then Text 25,40," GAME OVER"
Text 57,28,L
IfEnd
0ŢE~H
Lá0ăGoto 0
L=0=> Stop
IfEnd
Goto 3
Lbl 4
Cls
Text 15,15,"TOTAL SCORE="
Text 22,30,PÝ
Lbl 2
Cls
F-Line 51,40,66,40
F-Line 66,40,68,38
F-Line 68,37,64,33
F-Line 64,33,60,33
F-Line 60,33,58,35
F-Line 58,35,55,35
F-Line 55,35,52,32
F-Line 52,32,50,32
F-Line 50,32,50,39
F-Line 49,38,49,37
F-Line 55,38,60,38
Green F-Line 59,36,66,36
Green F-Line 62,35,62,34
PlotOn 64,35
Orange Text 1,95,"(C) ™97"
0ŢA~E
127ŢC
Do
Isz A
A=3ăIsz B
A=1ăOrange Text 35,44,"™"
A=2ăOrange Text 35,44,"="
A=3ăOrange Text 35,44,"ą"
A=3ă0ŢA
Isz D
C=127ăIsz E
D=1ăText 14,50,"              "
E=1ăText 14,50,"IDEAS"
E=2ăText 14,50,"PROGRAMMING"
E=3ăText 14,50,"GRAPHIC DESIGN"
C™2ŢC
Text 24,C,"B. RASMUS ANTHIN. "
C=21ă0ŢD
C=21ăText 24,1,"                               "
C=21ă127ŢC
LpWhile Eá4
Stop