%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:789
File Name:~~MENU~~
Group Name:
Password:RMVRRV
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl L
\AxesOn
\ViewWindow \(-)6.3,6.3,1,\(-)3.1,3.1,1:\Deg
\For 1\->P \To 15
\Mat Z[1,P]\->F
F\<=0\=>\GotoS
\Next 
\ClrText
\Do
\Locate 2,2,"MarkroSoft Software"
\Locate 2,3,"        By"
\Locate 4,5,"MarkJVernon"
\Locate 4,6,"    @Hotmail.com"
\LpWhile \Getkey\<>31
\Lbl X
\ClrText
\Locate 1,1,"==== Mark's Menu ===="
\Locate 2,3,"Pong       Pontoon"
\Locate 2,4,"Pi\ReChart   M\ortal-K"
\Locate 2,5,"Eater      \Dot-Maze"
\Locate 2,6,"SimonSay   <Exit>"
1\->A
3\->B
\Lbl A
\If \Getkey=37
\Then \Locate A,B," "
\Locate A+9,B," "
B+1\->B
\IfEnd
\If \Getkey=28
\Then \Locate A,B," "
\Locate A+9,B," "
B-1\->B
\IfEnd
\If \Getkey=38
\Then \Locate A,B," "
\Locate A+9,B," "
A-11\->A
\IfEnd
\If \Getkey=27
\Then \Locate A,B," "
\Locate A+9,B," "
A+11\->A
\IfEnd
A>12\=>12\->A
A<1\=>1\->A
B>6\=>6\->B
B<3\=>3\->B
\Locate A,B,"["
\Locate A+9,B,"]"
\Getkey=31\=>\GotoY
\GotoA
\Lbl Y
1.365\->Z
\ClrText
A\->\r
B\->\theta
\If \r=1
\Then \theta=3\=>\Prog "PONG"
\theta=4\=>\Prog "PIECHART"
\theta=5\=>\Prog "EATER"
\theta=6\=>\Prog "SIMONSAY"
\IfEnd
\If \r=12
\Then \theta=3\=>\Prog "PONTOON"
\theta=5\=>\Prog "DOT-MAZE"
\theta=4\=>\Prog "MORTAL-K"
\theta=6\=>\Prog \Stop
\IfEnd
\GotoX
\Lbl S
\ClrText
\Locate 3,4,"FIXING DATA FILES"
\For 1\->A \To 15
\Mat Z[1,A]\<=0\=>1\->\Mat Z[1,A]
\Next 
\GotoL
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:68
File Name:PRGLINES
Group Name:
Password:RMVRRV
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,2,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
\Locate 1,6,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:68
File Name:PRGLINE2
Group Name:
Password:RMVRRV
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,2,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
\Locate 1,7,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:78
File Name:QUITBACK
Group Name:
Password:RMVRRV
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOn
\ViewWindow \(-)6.3,6.3,1,\(-)3.1,3.1,1:\Deg
0\->Z
\Cls
\ClrText
\Locate 6,3,"QUIT\(-)AC\slashON"
\Locate 7,5,"MENU\(-)EXE"
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:887
File Name:DOT-MAZE
Group Name:
Password:MRMVMR
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->Z
\ClrText
\Locate 2,3,"###################"
\Locate 2,4,"# THE DOT MAZE BY #"
\Locate 2,5,"#   MARK VERNON   #"
\Locate 2,6,"###################"\Disp\ClrText
\ViewWindow 1,100,1,1,100,1
\AxesOff
\Cls
\Text 1,3,"DOT MAZE CONTROLS: ARROW KEYS
\Text 7,3,"MOVE FROM + THROUGH =
\Text 13,3,"LONGER TIME \-> HIGHER SCORE"
\Text 55,40,"PLEASE WAIT"
\Horizontal 20
\Horizontal 70
\For 5\->A \To 100
\Green \PxlOn \Int (\Ran#*30)+20,A
A=50\=>\Text 55,40,"AVOID DOTS! "
\Next 
\For 4\->A \To 80 \Step 10
\F-Line A,20,A,70
A\<>4\=>\Text \Int (\Ran#*20)+25,\Int (1.25A)," "
A=4\=>\Text \Int (\Ran#*20)+25,\Int (1.25A-1),"="
\Next 
40\->A
110\->B
\(-)1\->C
0\->D
1\->Z
0\->S
0\->T
\Text 40,109,"+"
S=0\=>5\->T
\While Z=1
\Do
A+C\->A
B+D\->B
B>125\=>0\->Z
B<3\=>2\->Z
\PxlTest A,B
\Ans=1\=>0\->Z
\Orange \PxlOn A,B
\Getkey\->G
Z\<>1\=>1\->G
\Isz S
\LpWhile O=G
\If G=28
\Then 0\->D:-1\->C
\IfEnd
\If G=37
\Then 0\->D
1\->C
\IfEnd
\If G=38
\Then 0\->C
\(-)1\->D
\IfEnd
\If G=27
\Then 0\->C
1\->D
\IfEnd
\WhileEnd
\If 2=Z
\Then \Text 55,20,"GOAL 200 EXTRA POINTS"\DispS+200\->S
\IfEnd
Z=0\=>\Text 55,20," YOU CRASHED, PRESS EXE"\Disp\Cls
\Prog "PRGLINE2"
\Locate 5,4,"SCORE:"
\Locate 12,4,S
\If S>(1.843/\Mat Z[1,7])
\Then 1.843/S\->\Mat Z[1,7]
1.843/S\->\Mat Z[1,4]
\IfEnd
\Locate 5,5,"HI-SC:"
\Locate 12,5,1.843/\Mat Z[1,7]\Disp\Prog "QUITBACK"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:814
File Name:EATER
Group Name:
Password:VRMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->Z
\ClrText
\Locate 2,3,"###################"
\Locate 2,4,"#  EATER BY MARK  #"
\Locate 2,5,"#     VERNON      #"
\Locate 2,6,"###################"\Disp\ClrText
\Locate 3,2,"CONTROLS: 2,4,6,8"
\Locate 4,4,"YOU ARE TIMED!"
\Locate 2,6,"HINT: GO OFF SIDES"
\Locate 8,7,"EAT ALL THE \theta"\Disp\ClrText
4\->A
2\->B
15\->C
6\->D
250\->T
\Prog "NEWEGGY"
0\->S
\While T>0
T-1\->T
\Getkey=62\=>B+1\->B
\Getkey=64\=>B-1\->B
\Getkey=73\=>A-1\->A
\Getkey=53\=>A+1\->A
C>A\ And C\<>1\=>C-1\->C
C<A\ And C\<>21\=>C+1\->C
D>B\ And D\<>1\=>D-1\->D
D<B\ And D\<>7\=>D+1\->D
A>21\=>1\->A
A<1\=>21\->A
B>7\=>1\->B
B<1\=>7\->B
A=E\ And B=F\=>\Prog "NEWEGGY"
\Prog "EATRPUT"
A=C\ And B=D\=>\GotoB
S+1\->S
\WhileEnd
\Prog "PRGLINES"
\Locate 6,4,"TIME'S UP!"\Disp\GotoT
\Lbl B
\Prog "PRGLINES"
\Locate 2,4,"YOU'VE BEEN EATEN!"\Disp\Locate 1,4,"YOU HAD     SECS LEFT"
\Locate 9,4,\Int (T/2)\Disp\Lbl T
\Prog "PRGLINE2"
\Locate 4,4,"SCORE:"
\Locate 4,5,"HI\(-)SC:"
\Locate 11,4,S
\Mat Z[1,10]\->Q
S>(1.843/Q)\=>(1.843/S)\->\Mat Z[1,10]
S>(1.843/Q)\=>(1.843/S)\->\Mat Z[1,1]
\Locate 11,5,(1.843/\Mat Z[1,10])\Disp\Mat Z[1,8]/\Mat Z[1,10]\->\Mat Z[1,5]
\Mat Z[1,10]/\Mat Z[1,3]\->\Mat Z[1,6]
\ClrText
\Prog "QUITBACK"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:63
File Name:NEWEGGY
Group Name:
Password:VRMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
S+100\->S
\Int (\Ran#*21)+1\->E
\Int (\Ran#*7)+1\->F
E=A\ And F=B\=>\GotoA
E=C\ And F=D\=>\GotoA
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:38
File Name:EATRPUT
Group Name:
Password:VRMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate A,B,"O"
\Locate C,D,"\aster"
\Locate E,F,"\theta"
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1708
File Name:MORTAL-K
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->Z
6\->J
\ClrText
\Locate 1,4,"---------------------"
\Locate 3,1,"O"
\Locate 2,2,"-I-+"
\Locate 2,3,"I I"
\For 1\->A \To 7
\Locate 5,2,"+"
\Locate 5,2,"*"
\Getkey=31\=>\GotoT
\Locate 5,2," "
\Next 
\Locate 2,2," "
\Locate 4,2,"="
\Locate 5,2," "
\For 1\->A \To 12
\Locate J-1,2," "
\Locate J,2,"*"
\Locate J,2,"+"
\Getkey=31\=>\GotoT
J=11\=>\Locate 10,2,"M"
J=12\=>\Locate 11,2,"O"
J=13\=>\Locate 12,2,"R"
J=14\=>\Locate 13,2,"T"
J=15\=>\Locate 14,2,"A"
J=16\=>\Locate 15,2,"L"
J+1\->J
\Next 
\Locate 17,2," "
\Locate 18,5,"O"
\Locate 16,6,"*-I-"
\Locate 17,7,"I I"
15\->J
\For 1\->A \To 7
\Locate 16,6,"+"
\Locate 16,6,"*"
\Getkey=31\=>\GotoT
\Locate 16,6," "
\Next 
\Locate 19,6," "
\Locate 17,6,"="
\Locate 16,6," "
\For 1\->A \To 12
\Locate J+1,6," "
\Locate J,6,"*"
\Locate J,6,"+"
\Getkey=31\=>\GotoT
J=12\=>\Locate 13,6,"T"
J=11\=>\Locate 12,6,"A"
J=10\=>\Locate 11,6,"B"
J=9\=>\Locate 10,6,"M"
J=8\=>\Locate 9,6,"O"
J=7\=>\Locate 8,6,"K"
J=4\=>\Locate 4,6," "
J-1\->J
\Next 
\For 1\->A \To 10
\Locate 8,1," "
\Locate 8,1," "
\Next 
\Lbl T
\ClrText
"ENTER CHOICE:"
"1) START DIFF 1"
"2) START DIFF 2"
"3) START DIFF 3"
"4) SET CONTROLS"?\->D
\If D=69\ Or D=96
\Then \ClrText
\Locate 2,1,"\aster\aster\aster\aster\aster\aster\aster K.O \aster\aster\aster\aster\aster\aster\aster"
\Locate 1,7,"---------------------"
D=96\=>\Prog "WINNER1"
D=69\=>\Prog "WINNER2"
\IfEnd
\Int D\->D
D=4\=>\GotoP
D>3\=>3\->D
D<1\=>1\->D
4-D\->D
\ClrText
1\->Z
2\->B
20\->C
5\->M
16\->P
4\->N
15\->Q
1.569/\Mat Z[1,11]\->K
1.569/\Mat Z[1,12]\->L
1.569/\Mat Z[1,13]\->G
1.569/\Mat Z[1,16]\->\theta
\Locate 2,1,"\aster\aster\aster\aster\aster\aster\aster K.O \aster\aster\aster\aster\aster\aster\aster"
\Locate 1,7,"---------------------"
\Prog "PUTPLRS"
\For 1\->A \To 6
\Locate 9,3,"READY!"
\Locate 9,3,"READY!"
\Locate 9,3,"      "
\Next 
\For 1\->A \To 6
\Locate 9,3,"FIGHT!"
\Next 
\Locate 9,3,"      "
\While Z=1
\Prog "PUTPLRS"
P-4>M\ And (\Int (\Ran#*4)+1)>D\=>\Prog "COMPLFT"
P-4\<=M\ And (\Int (\Ran#*4)+1)>D\=>\Prog "COMPHIT"
(\Int (\Ran#*3)+1)>2\ And P<18\=>\Prog "COMPRHT"
\Getkey=K\=>\Prog "MOVELFT"
\Getkey=L\=>\Prog "MOVERHT"
\Getkey=G\=>\Prog "UPPACUT"
\WhileEnd
\Lbl P
\ClrText
0\->G
\Locate 8,4,"RIGHT?"
\While G=0
\Getkey\->G
\WhileEnd
1.569/G\->\Mat Z[1,12]
\For 1\->A \To 25
\Next 
\Locate 8,4," LEF"
0\->G
\While G=0
\Getkey\->G
\WhileEnd
1.569/G\->\Mat Z[1,11]
\For 1\->A \To 25
\Next 
\Locate 8,4,"PUNCH?"
0\->G
\While G=0
\Getkey\->G
\WhileEnd
1.569/G\->\Mat Z[1,13]
\For 1\->A \To 25
\Next 
\Locate 8,4,"BLOCK?"
0\->G
\While G=0
\Getkey\->G
\WhileEnd
1.569/G\->\Mat Z[1,16]
\For 1\->A \To 25
\Next 
\Locate 5,4,"FATALITY1?"
0\->G
\While G=0
\Getkey\->G
\WhileEnd
1.569/G\->\Mat Z[1,14]
\For 1\->A \To 25
\Next 
\Locate 13,4,"2"
0\->G
\While G=0
\Getkey\->G
\WhileEnd
1.569/G\->\Mat Z[1,15]
\GotoT
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:83
File Name:PUTPLRS
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
P-1\->Q
\Locate M,4,"O"
\Locate N,5,"-I-+"
\Locate N,6,"I I"
\Locate P,4,"O"
\Locate Q-1,5,"+-I-"
\Locate Q,6,"I I"
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:71
File Name:MOVERHT
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
M<19\=>M+1\->M
N<18\=>N+1\->N
\Locate N-1,4,"   "
\Locate N-1,5,"    "
\Locate N-1,6,"    "
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:74
File Name:MOVELFT
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Locate N,4,"  "
\Locate N,5,"     "
\Locate N,6,"     "
N\<>2\=>N-1\->N
M\<>3\=>M-1\->M
O\<>5\=>O-1\->O
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:385
File Name:UPPACUT
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->\r
\Locate N+3,5,"  "
\For 1\->A \To 2
\Locate M,4,"O \Deg>"
\Locate N,5,"-I\slash"
\Locate N,6,"-^I"
\Next 
\Locate N,6,"    "
\Locate M,4,"   "
\Locate N,5,"    "
\Locate P,4,"O"
\Locate Q-1,5,"+-I-"
\Locate Q,6,"I I"
\For 1\->A \To 2
\Locate M,3,"O \Deg>"
\Locate N,4,"-I\slash"
\Locate N,5,"~^I"
\Next 
\Int (\Ran#*4)+1\->E
\If E>D\ And E>2\ And P\<=M+4
\Then \Locate Q-1,5," =I "
\Locate Q,6,"\slash I"
1\->\r
\For 1\->A \To 3
\Locate 9,2,"BLOCK!"
\Locate 9,2,"BLOCK!"
\Locate 9,2,"      "
\Next 
\IfEnd
\Locate M,3,"   "
\Locate N,4," O "
\Locate N,5,"-I-"
\Locate N,6,"I I "
\r=1\=>\GotoQ
\Prog "CHKHIT1"
\Lbl Q
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:88
File Name:COMPRHT
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
P=19\=>P+1\->P
Q=17\=>17\->Q
\Locate Q,4,"   "
\Locate Q-1,5,"    "
\Locate Q,6,"    "
P<20\=>P+1\->P
Q<18\=>Q+1\->Q
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:265
File Name:COMPLFT
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
Q-M>5\ And \Int (\Ran#*6>D)\=>\GotoF
\Lbl E
P=3\=>P+1\->P
Q=4\=>4\->Q
\Locate Q,4,"  "
\Locate Q-1,5,"     "
\Locate Q,6,"     "
Q\<>2\=>Q-1\->Q
P\<>3\=>P-1\->P
\Return
\Lbl F
\For 1\->X \To 6
\Locate Q-1,5,"*"
\Locate Q-1,5,"+"
\Next 
\Locate Q-2,5,"* =I "
\Locate Q-2,5,"+ =I "
\For Q-3\->A \To M+1 \Step \(-)1
\Locate A,5,"* "
\Locate A,5,"+ "
\Next 
\Locate M+1,5,"-"
\Locate B,1," "
B+1\->B
B\>=9\=>\Prog "WINNER2"
\GotoE
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:393
File Name:COMPHIT
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->\r
\Locate Q,4,"   "
\Locate Q-1,5,"   "
\Locate Q,6,"    "
\Locate P,3,"O"
\Locate Q,4,"-I-"
\Locate Q,5,"-^-,"
\Locate Q,5,"-^-,"
\Locate Q,5,"    "
\Locate Q-1,5,",-^-"
\Locate Q-1,5,",-^-"
\Locate Q-1,5,"    "
\Locate Q,5,"    "
\If \Getkey=\theta
\Then \Locate M,4,"O"
\Locate Q,5,"~^-"
\Locate N,5," I=\aster"
\Locate N,6,"I I"
1\->\r
\For 1\->A \To 3
\Locate 9,2,"BLOCK!"
\Locate 9,2,"BLOCK!"
\Locate 9,2,"      "
\Next 
\IfEnd
\Locate N,5,"-I- "
\Locate P,3,"   "
\Locate Q,4," O "
\Locate Q,5,"-I-"
\Locate Q,6,"I I"
\r=1\=>\GotoB
\Prog "CHKHIT2"
\Lbl B
\Locate M,4,"O  "
\Locate N,5,"-I-"
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:49
File Name:CHKHIT1
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
M+4<P\=>\GotoZ
\Locate C,1," "
C-1\->C
C\<=13\=>\Prog "WINNER1"
\Lbl Z
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:48
File Name:CHKHIT2
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
P-4>M\=>\GotoZ
\Locate B,1," "
B+1\->B
B\>=9\=>\Prog "WINNER2"
\Lbl Z
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:626
File Name:WINNER1
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "ENDSETP"
\For 1\->A \To 25
\Locate 7,5,"*"
\Locate 7,5,"+"
\Getkey=1.569/\Mat Z[1,14]\=>\GotoA
\Getkey=1.569/\Mat Z[1,15]\=>\GotoC
\Next 
\GotoB
\Lbl A
\Locate 7,5,"+"
\For 1\->A \To 7
\Locate 4,4,"O "
\Next 
\Locate 4,4," O~"
\For 6\->A \To 15
\Locate A,4," ~"
\Locate A,4," ~"
\Next 
\Locate 16,4,"{"
\Locate 15,4,"    "
\Locate 14,5,"     "
\Locate 15,6,",--==\theta"
\Lbl D
\For 1\->A \To 15
\Locate 8,3,"FATALITY!"
\Locate 8,3,"FATALITY!"
\Locate 8,3,"         "
\Next 
\GotoB
\Lbl C
\For 6\->X \To 15
\Locate X,4,"-"
\Next 
\Locate 16,4,"{"
\Locate 15,4,"{O\aster"
\For 14\->X \To 5 \Step \(-)1
\Locate X,4,"{O "
\Next 
\Locate 4,4," O "
\Locate 4,5," I=}}"
\For 7\->X \To 15
\Locate X,5," }}"
\Locate X,5," }}"
\Next 
\Locate 16,5,"\aster"
\Locate 18,5,"\aster"
\Locate 17,4,"\aster"
\Locate 18,6,"\aster"
\Locate 17,5,"\aster"
\Locate 16,6,"\aster"
\Locate 16,5," "
\Locate 18,5," "
\Locate 17,4," "
\Locate 18,6," "
\Locate 17,5," "
\Locate 16,6," "
\GotoD
\Lbl B
\Prog "PRGLINES"
\Locate 7,4,"YOU WIN!"\Disp\Prog "QUITBACK"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:777
File Name:WINNER2
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "ENDSETP"
\For 1\->A \To 25
\Locate 15,5,"*"
\Locate 15,5,"+"
(\Int (\Ran#*10))=6\=>\GotoA
(\Int (\Ran#*10))=5\=>\GotoC
\Next 
\GotoB
\Lbl A
\Locate 15,5," =I "
\For 14\->A \To 5 \Step \(-)1
\Locate A,5,"* "
\Locate A,5,"+"
\Next 
\Locate 4,4,"  "
\Locate 4,5," ,  "
\Locate 4,6,".., "
\For 1\->A \To 5
\Locate 5,5,"."
\Locate 4,6,",.,"
\Locate 7,3,"         "
\Locate 7,3,"FATALITY!"
\Locate 5,5,","
\Locate 4,6,".,."
\Locate 7,3,"         "
\Locate 7,3,"FATALITY!"
\Next 
\GotoB
\Lbl C
\For 1\->X \To 2
\Locate 17,4,"\aster"
\Locate 15,5," \aster\aster\aster"
\Locate 16,6,"\aster \aster"
\Locate 17,4,"O"
\Locate 16,5,"-I-"
\Locate 16,6,"I I"
\Next 
\Locate 17,4," "
\Locate 16,5,"   "
\Locate 16,6,"   "
\Locate 10,4,"O"
\Locate 9,5,"-I-"
\Locate 9,6,"I I"
\For 1\->Z \To 25
\Next 
\Locate 11,5," "
\For 9\->X \To 5 \Step \(-)1
\Locate X,5,"="
\Next 
\Locate 5,5,"I\theta"
\Locate 5,5,"I\theta"
\Locate 6,5,"-\theta"
\Locate 6,5,"-\theta"
\Locate 7,5," \theta"
\Locate 7,5," \theta"
\Locate 5,4," "
\Locate 5,4," "
\Locate 4,5," O  "
\Locate 4,5," O  "
\Locate 8,5,"\theta"
\Locate 4,6,"-X- "
\Locate 4,6,"-X- "
\For 1\->Z \To 9
\Locate 7,3,"FATALITY!"
\Locate 8,6,"'"
\Locate 7,3,"         "
\Locate 8,6,"."
\Next 
\Lbl B
\Prog "PRGLINES"
\Locate 7,4,"YOU LOSE!"\Disp\Prog "QUITBACK"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:95
File Name:ENDSETP
Group Name:
Password:VMRMVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Locate 1,4,"    O           O    "
\Locate 1,5,"   -I-+       +-I-   "
\Locate 1,6,"   I I         I I   "
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1093
File Name:PIECHART
Group Name:
Password:RMRVRM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->Z
\ClrText
\Locate 2,3,"###################"
\Locate 2,4,"# PIE CHARTER BY  #"
\Locate 2,5,"#   MARK VERNON   #"
\Locate 2,6,"###################"\Disp\Lbl Z
0\->A
0\->B
0\->C
0\->D
0\->E
0\->F
\ClrText
"HOW MANY SLICES"
"(1 \To 6)"?\->S
\Int S\->S
S<1\ Or S>6\=>\GotoZ
\ClrText
"ENTER A"?\->A
S=1\=>\GotoY
"ENTER B"?\->B
S=2\=>\GotoY
"ENTER C"?\->C
S=3\=>\GotoY
"ENTER D"?\->D
S=4\=>\GotoY
"ENTER E"?\->E
S=5\=>\GotoY
"ENTER F"?\->F
\Lbl Y
\ClrText
\ViewWindow 0,4,4,0,2,2:\Deg
\AxesOff
\Cls
\Text 25,84,"PLEASE"
\Text 33,84," WAIT"
\Graph Y<(\sqrt(1-(X-1)\x^2)+1)
\Graph Y>(-\sqrt(1-(X-1)\x^2)+1)
A+B+C+D+E+F\->Z
\Plot 1,1
\Plot 1,2
\Line
A\->P
\Prog "PIEDRAW"
P+B\->P
\Prog "PIEDRAW"
P+C\->P
\Prog "PIEDRAW"
P+D\->P
\Prog "PIEDRAW"
P+E\->P
\Prog "PIEDRAW"
P+F\->P
\Prog "PIEDRAW"
\Text 25,84,"      "
\Text 33,84,"      "
Z/100\->Z
\Text 1,77,"VALUE"
\Text 1,104,"PCENT"
\Text 11,76,A
\Text 19,76,B
\Text 27,76,C
\Text 35,76,D
\Text 43,76,E
\Text 51,76,F
\For 11\->L \To 51 \Step 8
\Text L,100," "
\Next 
\Text 11,104,A/Z
\Text 19,104,B/Z
\Text 27,104,C/Z
\Text 35,104,D/Z
\Text 43,104,E/Z
\Text 51,104,F/Z
\Text 11,68,"a"
\Text 19,68,"b"
\Text 27,68,"c"
\Text 35,68,"d"
\Text 43,68,"e"
\Text 51,68,"f"
\Plot 2.1,1.77
\Plot 4,1.77
\Line
\Plot 3.18,2
\Plot 3.18,0.2
\Line
\Plot 2.3,2
\Plot 2.3,0.2
\Line
\While \Getkey\<>31
\WhileEnd
\Cls
\ClrText
"PLEASE SELECT"
"1) RE\(-)START"
"2) END"
"3) COPY TO LIST(1+2)"
"ENTER CHOICE"?\->U
U=1\=>\GotoZ
U=3\=>\GotoL
\ClrText
\GotoK
\Lbl L
{A,B,C,D,E,F}\->\List 1
{A/Z,B/Z,C/Z,D/Z,E/Z,F/Z}\->\List 2
"DONE"
\Lbl K
\Prog "QUITBACK"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:45
File Name:PIEDRAW
Group Name:
Password:RMRVRM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
P/Z*360\->Q
\sin Q\->I
\cos Q\->J
\Plot 1,1
\Plot (1+I),(1+J)
\Line
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:871
File Name:PONG
Group Name:
Password:VRRVMR
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->Z
0\->P
0\->Q
\ClrText
\Locate 2,3,"###################"
\Locate 2,4,"#  PONG BY MARK   #"
\Locate 2,5,"#     VERNON      #"
\Locate 2,6,"###################"\Disp\ClrText
\Locate 7,3,"CONTROLS:"
\Locate 8,5,"4,1,/,-"\Disp\ClrText
0\->C
0\->D
4\->A
4\->B
\Lbl Z
\If \Int (\Ran#*2)=0
\Then \Int (\Ran#*5)+2\->Y
4\->X
\GotoA
\IfEnd
\Int (\Ran#*5)+2\->Y
18\->X
\GotoD
\Lbl A
Y-1\->Y
X+2\->X
\Prog "GETMOVE"
\Prog "PONGPUT"
\If X=20\ And Y=1
\Then Y=B\=>\GotoC
Y\<>B\=>\Goto0
\IfEnd
Y=1\=>\GotoB
\If X=20\ And Y=B
\Then \GotoD
\IfEnd
X=20\ And Y\<>B\=>\Goto0
\GotoA
\Lbl B
Y+1\->Y
X+2\->X
\Prog "GETMOVE"
\Prog "PONGPUT"
\If X=20\ And Y=7
\Then Y=B\=>\GotoD
Y\<>B\=>\Goto0
\IfEnd
Y=7\=>\GotoA
\If X=20\ And Y=B
\Then \GotoC
\IfEnd
X=20\ And Y\<>B\=>\Goto0
\GotoB
\Lbl C
Y+1\->Y
X-2\->X
\Prog "GETMOVE"
\Prog "PONGPUT"
\If X=2\ And Y=7
\Then Y=A\=>\GotoA
Y\<>A\=>\Goto0
\IfEnd
Y=7\=>\GotoD
\If X=2\ And Y=A
\Then \GotoB
\IfEnd
X=2\ And Y\<>A\=>\Goto1
\GotoC
\Lbl D
Y-1\->Y
X-2\->X
\Prog "GETMOVE"
\Prog "PONGPUT"
\If X=2\ And Y=1
\Then Y=A\=>\GotoB
Y\<>B\=>\Goto1
\IfEnd
Y=1\=>\GotoC
\If X=2\ And Y=A
\Then \GotoA
\IfEnd
X=2\ And Y\<>A\=>\Goto1
\GotoD
\Lbl 0
\ClrText
"LEFT WON"\DispP+1\->P
\Goto9
\Lbl 1
\ClrText
"RIGHT WON"\DispQ+1\->Q
\Goto9
\Lbl P
\Prog "PRGLINES"
\Locate 4,4,"WINNER: LEFT"
\Stop
\Lbl Q
\Prog "PRGLINES"
\Locate 4,4,"WINNER: RIGHT"
\Stop
\Lbl 9
\Prog "PRGLINES"
\Locate 6,4,P
\Locate 16,4,Q
\Locate 11,4,":"\DispP\>=9\=>\GotoP
Q\>=9\=>\GotoQ
\GotoZ
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:85
File Name:GETMOVE
Group Name:
Password:VRRVMR
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Getkey=73\=>A-1\->A
\Getkey=72\=>A+1\->A
\Getkey=32\=>B+1\->B
\Getkey=33\=>B-1\->B
A>7\=>7\->A
B>7\=>7\->B
A<1\=>1\->A
B<1\=>1\->B
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:39
File Name:PONGPUT
Group Name:
Password:VRRVMR
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate X,Y,"\Deg>"
\Locate 1,A,"]"
\Locate 21,B,"["
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1487
File Name:PONTOON
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->Z
\ClrText
\Locate 2,3,"###################"
\Locate 2,4,"# PONTOON BY MARK #"
\Locate 2,5,"#     VERNON      #"
\Locate 2,6,"###################"\Disp\ClrText
2000\->Z
\Lbl A
0\->M
0\->N
0\->O
0\->P
0\->Q
0\->X
\Prog "PRGLINE2"
\Locate 5,4,"CASH:"
\Locate 12,4,Z
\Locate 5,5,"HI\(-)SC:"
\If Z\>=1.843/\Mat Z[1,8]
\Then 1.843/Z\->\Mat Z[1,8]
1.843/Z\->\Mat Z[1,3]
\IfEnd
\Mat Z[1,8]/\Mat Z[1,10]\->\Mat Z[1,5]
\Mat Z[1,10]/\Mat Z[1,3]\->\Mat Z[1,6]
\Locate 12,5,1.843/\Mat Z[1,8]\Disp\ClrText
\Prog "NEWCARD"
S\->A
T\->G
G\->M
G>10\=>10\->M
\If G=1
\Then \Prog "PONTACE"
L\->M
\IfEnd
1\->U
\Prog "CARDTOP"
\For 1\->L \To 400
\Next 
\Prog "PONTBET"
\Prog "NEWCARD"
S\->B
T\->H
H\->N
H>10\=>10\->N
\If H=1
\Then \Prog "PONTACE"
L\->N
\IfEnd
2\->U
\Prog "CARDTOP"
\For 1\->L \To 500
\Next 
\Prog "PONTOTL"
F>21\=>\GotoB
F=14\=>\Prog "BURNCRD"
L=1\=>\GotoA
\Prog "DO-NEXT"
L=2\=>\GotoC
L=3\=>\Prog "PONTBET"
\Prog "NEWCARD"
S\->C
T\->I
I\->O
I>10\=>10\->O
\If I=1
\Then \Prog "PONTACE"
L\->O
\IfEnd
3\->U
\Prog "CARDTOP"
\For 1\->L \To 550
\Next 
\Prog "PONTOTL"
F>21\=>\GotoB
\Prog "DO-NEXT"
L=2\=>\GotoC
L=3\=>\Prog "PONTBET"
\Prog "NEWCARD"
S\->D
T\->J
J\->P
J>10\=>10\->P
\If J=1
\Then \Prog "PONTACE"
L\->P
\IfEnd
4\->U
\Prog "CARDTOP"
\For 1\->L \To 800
\Next 
\Prog "PONTOTL"
F>21\=>\GotoB
\Prog "DO-NEXT"
L=2\=>\GotoC
L=3\=>\Prog "PONTBET"
\Prog "NEWCARD"
S\->E
T\->K
K\->Q
K>10\=>10\->Q
\If K=1
\Then \Prog "PONTACE"
L\->Q
\IfEnd
5\->U
\Prog "CARDTOP"
\For 1\->L \To 850
\Next 
\Prog "PONTOTL"
F>21\=>\GotoB
\Prog "PRGLINES"
\Locate 3,4,"FIVE CARD TRICK!"\Disp\GotoD
\Lbl B
\Prog "PRGLINES"
\Locate 4,4,"BUST! YOU LOSE!"\DispZ-X\->Z
Z\<=0\=>\GotoE
\GotoA
\Lbl C
\Prog "PRGLINES"
\Locate 4,4,"BANKER'S HAND"
0\->V
\Lbl F
\Int (\Ran#*13)+1\->W
W>11\=>10\->W
V+W\->V
V>21\=>\GotoG
V>F\=>\GotoH
V>17\=>\GotoH
\GotoF
\Lbl G
\Locate 10,4," WENT BUST!"\Disp\GotoD
\Lbl H
\ClrText
" "
\Locate 1,1,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>RESULT\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
\Locate 3,3,"YOUR TOTAL:"
\Locate 15,3,F
\Locate 3,5,"BANK TOTAL:"
\Locate 15,5,V
V\>=F\=>\Locate 7,7,"YOU LOSE!"\DispF>V\=>\Locate 7,7,"YOU WIN!"\DispF>V\=>\GotoD
Z-X\->Z
Z\<=0\=>\GotoE
\GotoA
\Lbl E
\Prog "PRGLINES"
\Locate 6,4,"GAME OVER!"\Disp\ClrText
\GotoK
\Lbl D
Z+X\->Z
\Prog "PRGLINES"
\Locate 2,4,"WELL DONE! YOU WON!"\Disp\GotoA
\Lbl K
\Prog "QUITBACK"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:28
File Name:NEWCARD
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Int (\Ran#*13)+1\->T
\Int (\Ran#*4)+1\->S
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:118
File Name:PONTACE
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
" "
\Locate 1,1,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>ACE\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
"YOU'VE BEEN DELT AN"
"ACE:"
"1) LOW"
"2) HIGH"
"CHOICE"?\->L
\Int (L)\->L
L\<>1\=>11\->L
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:176
File Name:LISTCRD
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Locate 9,Y,"OF"
\Locate 6,Y,T
T=13\=>\Locate 4,Y,"KING"
T=12\=>\Locate 3,Y,"QUEEN"
T=11\=>\Locate 4,Y,"JACK"
T=1\=>\Locate 5,Y,"ACE"
S=1\=>\Locate 12,Y,"CLUBS"
S=2\=>\Locate 12,Y,"DIAMONDS"
S=3\=>\Locate 12,Y,"HEARTS"
S=4\=>\Locate 12,Y,"SPADES"
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:184
File Name:CARDTOP
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,1,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>CARDS\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
3\->Y
A\->S
G\->T
\Prog "LISTCRD"
U=1\=>\GotoZ
4\->Y
B\->S
H\->T
\Prog "LISTCRD"
U=2\=>\GotoZ
5\->Y
C\->S
I\->T
\Prog "LISTCRD"
U=3\=>\GotoZ
6\->Y
D\->S
J\->T
\Prog "LISTCRD"
U=4\=>\GotoZ
7\->Y
E\->S
K\->T
\Prog "LISTCRD"
\Lbl Z
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:235
File Name:PONTBET
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
X\>=Z\=>\GotoC
\ClrText
" "
\Locate 1,1,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>BET\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
"TOTAL CASH:"
Z\Disp"CURRENT BET:"
X\Disp"RAISE BET"?\->Y
\Int Y\->Y
Z\>=100\ And (Y+X)<\Int (Z*0.01)\=>\GotoB
Y<1\=>\GotoA
X+Y>Z\=>\GotoA
X+Y\->X
\GotoC
\Lbl B
\ClrText
\Locate 5,2,"MINIMUM BET:"
\Locate 2,6,"(1 PERCENT OF CASH)"
\Locate 10,4,\Int (Z*0.01)\Disp\GotoA
\Lbl C
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:53
File Name:PONTOTL
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
M+N+O+P+Q\->F
\Prog "PRGLINES"
\Locate 6,4,"TOTAL:"
\Locate 13,4,F\Disp\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:109
File Name:DO-NEXT
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
" "
\Locate 1,1,"\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>TWIST\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>\Deg>"
"ENTER CHOICE:"
"1) TWIST"
"2) STICK"
"3) BUY (RAISE BET)"?\->L
\Int L\->L
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:105
File Name:BURNCRD
Group Name:
Password:VMMRVM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
" "
\Locate 1,1,"\Deg>\Deg>\Deg>\Deg>\Deg>BURN CARDS?\Deg>\Deg>\Deg>\Deg>\Deg>"
"TOTAL=14, BURN CARDS"
"1) YES"
"2) NO"
"ENTER CHOICE"?\->L
\Int L\->L
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:467
File Name:SIMONSAY
Group Name:
Password:VMRMVR
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->Z
\ClrText
\Locate 2,3,"###################"
\Locate 2,4,"# SIMONSAYS BY M  #"
\Locate 2,5,"#     VERNON      #"
\Locate 2,6,"###################"\Disp\ClrText
0\->N
0\->S
\Lbl A
N+1\->N
\Prog "PRGLINES"
\Locate 2,4,"REMEMBER:"
\Int (\Ran#*(10^N))\->Q
\Locate 12,4,Q
\For 1\->X \To 750
\Next 
\ClrText
"ENTER NUMBER"?\->G
G=Q\=>\GotoB
\Prog "PRGLINES"
\Locate 6,4,"GAME OVER!"\Disp\GotoK
\Lbl B
\Prog "PRGLINE2"
1+S\->S
\Locate 5,4,"SCORE:"
\Locate 12,4,S
\If S>1.843/\Mat Z[1,9]
\Then 1.843/S\->\Mat Z[1,9]
1.843/S\->\Mat Z[1,2]
\IfEnd
\Locate 5,5,"HI\(-)SC:"
\Locate 12,5,1.843/\Mat Z[1,9]\DispS>9\=>\GotoR
\GotoA
\Lbl R
\Prog "PRGLINES"
\Locate 8,4,"YOU WIN!"\Disp\Lbl K
\Prog "QUITBACK"
%End
%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:1
Columns:16
Variable Name:Mat Z
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 9.96216216216216\EE-4
Value : 1 2 2.30375\EE-1
Value : 1 3 1.58333333333333\EE-5
Value : 1 4 1.78758486905916\EE-3
Value : 1 5 1.58934707903779\EE-2
Value : 1 6 6.2918918918919\EE+1
Value : 1 7 1.78758486905916\EE-3
Value : 1 8 1.58333333333333\EE-5
Value : 1 9 2.30375\EE-1
Value : 1 10 9.96216216216216\EE-4
Value : 1 11 4.12894736842105\EE-2
Value : 1 12 5.81111111111111\EE-2
Value : 1 13 2.12027027027027\EE-2
Value : 1 14 2.17916666666666\EE-2
Value : 1 15 2.20985915492957\EE-2
Value : 1 16 2.14931506849315\EE-2
%End