%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:7459 File Name:CALGAMES Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 1 0\->A~Z \CoordOff \AxesOff \ViewWindow 1,127,0,1,63,0 \Cls \Orange \Text 1,28,"CALIFORNIA GAMES" \Green \F-Line 28,56,93,56 \Text 15,1,"1:FOOT BAG" \Text 21,1,"2:SURFING" \Text 27,1,"3:SKATING" \Text 33,1,"4:BMX" \Text 39,1,"5:FLYING DISK" \Text 45,1,"6:ABOUT" \Text 51,1,"7:HIGHSCORE" \Text 57,1,"8:QUIT" \PlotOn 1,29 \Lbl 0 \Getkey=72\=>\GotoF \Getkey=62\=>\GotoS \Getkey=52\=>\GotoK \Getkey=73\=>\GotoB \Getkey=63\=>\GotoD \Getkey=53\=>\GotoA \If \Getkey=64 \Then \Cls \Stop \IfEnd \If \Getkey=74 \Then \Cls \Green \Text 1,40,"HIGHSCORE" \Orange \F-Line 40,56,75,56 \Text 20,1,"FOOT BAG:" \Orange \Text 20,40,\Mat S[1,1] \Text 26,1,"SURFING:" \Orange \Text 26,36,\Mat S[2,1] \Text 32,1,"SKATING:" \Orange \Text 32,36,\Mat S[3,1] \Text 38,1,"BMX:" \Orange \Text 38,20,\Mat S[4,1] \Text 44,1,"FLYING DISK:" \Orange \Text 44,52,\Mat S[5,1] \PlotOn 1,1 \Do:\LpWhile \Getkey\<>31 \Goto1 \IfEnd \Goto0 \Lbl F 57\->A~C 63\->B 100\->T 39\->D -6\->G 4\->H 1\->E \Do \Cls \Text 1,1,T \Text C,D,"." \If E=1 \Then \Text A,B+4,")" \Text A,B-4,"(" \Text A-12,B,"8" \PlotOn 1,1 \IfEnd \If E=2 \Then \Text A-6,B+8,"-" \Text A,B-4,"(" \Text A-12,B,"8" \PlotOn 1,1 \IfEnd \If E=3 \Then \Text A-6,B-8,"-" \Text A,B+4,")" \Text A-12,B,"8" \PlotOn 1,1 \IfEnd \Dsz T \Getkey=27\=>B+4\->B \Getkey=38\=>B-4\->B A=51\=>57\->A 1\->E \Getkey=28\=>A-6\->A \Getkey=78\=>3\->E \Getkey=68\=>2\->E C+G\->C D+H\->D C<15\=>6\->G D<5\=>4\->H D>126\=>-4\->H \If C=33\ And A=51\ And B=D \Then P+20\->P -6\->G \IfEnd C=57\=>-6\->G \If C=A-12\ And D=B-8\ And E=3 \Then -6\->G P+15\->P \IfEnd \If C=A-12\ And D=B+8\ And E=2 \Then -6\->G P+15\->P \IfEnd \LpWhile T\<>0 \Cls \Text 1,20,"TIME OUT!" \Text 20,1,P \Text 20,14,"POINT(S)" \Text 35,1,"HIGHSCORE:" \Mat S[1,1]P\->\Mat S[1,1] \Text 35,43,\Mat S[1,1] \PlotOn 1,1 \Do:\LpWhile \Getkey\<>31 \Goto1 \Lbl S \Cls \Green \F-Line 1,30,117,30 \Text 1,1,"SURFING" \Orange \F-Line 1,56,30,56 \For 1\->A \To 30 30-A\->B \F-Line 1,B,A,A \Next \Orange \Circle 115,55,8 \For 35\->A \To 110 \Step 15 \F-Line A,7,A,23 \F-Line A+1,24,A+3,26 \F-Line A+1,6,A+3,4 \Next \F-Line 113,26,117,30 \For 15\->Z \To 7 \Step -1 \F-Line 110,Z,127,Z \Next \For 6\->Z \To 2 \Step -1 117-Z\->Y \F-Line Y,Z,127,Z \Next \Horizontal 1 1\->E 100\->T 39\->A~B \Do \If E=1 \Then \Do \Dsz T T<0\=>5\->E A>27\=>0\->D \Text A,B," " \Text A,B+4," " A+D\->A \Text A,B,"~" \Text A,B+4,"~" \Getkey=27\=>4\->E \Getkey=38\=>2\->E D\<>6\=>A\<=27\=>-6\->D A\<=3\=>6\->D D=6\=>A>27\=>5\->E A=27\=>1\->F A>60\=>5\->E \LpWhile E=1 \IfEnd A\<=27\=>\Isz H \Text A,B+4," " \If E=2 \Then \Do D\<>6\=>-6\->D A\<=9\=>6\->D \Text A,B," " A>7\=>\Text A-6,B+4," " A+D\->A \Text A,B,"~" \Text A-6,B+4,"~" \If \Getkey=38 \Then 3\->E -6\->C \IfEnd \Getkey=27\=>1\->E D=6\=>A>27\=>5\->E A=27\=>2\->F \LpWhile E=2 \IfEnd A\>=7\=>\Text A-6,B+4," " A\<=27\=>\Isz H \If E=3 \Then \Do \Text A,B," " A\>=7\=>\Text A-6,B," " A+C\->A A>7\=>\Text A-6,B,"~" \Text A,B,"~" \Getkey=27\=>-6=C\=>2\->E \Getkey=38\=>6=C\=>4\->E \If A=27\ And C=6 \Then \If F=3 \Then P+10H\->P 0\->H \IfEnd F\<>3\=>5\->E \IfEnd A\>=57\=>5\->E A\<=9\=>6\->C A=27\=>3\->F \LpWhile E=3 \IfEnd A\>=7\=>\Text A-6,B," " A\<=27\=>\Isz H \If E=4 \Then \Do \Text A,B," " \Text A+6,B+4," " A+6\->A \Text A,B,"~" \Text A+6,B+4,"~" \If \Getkey=27 \Then 3\->E 6\->C \IfEnd A\>=57\=>5\->E \If A=27 \Then \If F=2 \Then 10H+P\->P 0\->H \IfEnd F\<>2\=>5\->E \IfEnd \Getkey=38\=>1\->E \LpWhile E=4 \IfEnd A\<=57\=>\Text A+6,B+4," " \LpWhile E\<>5 \Cls T>0\=>\Text 1,25,"GAME OVER" T\<=0\=>\Text 1,25,"TIME OUT" \Text 25,1,P \Text 25,20,"POINT(S)" \Mat S[2,1]P\->\Mat S[2,1] \Text 45,1,"HIGHSCORE:" \Text 45,42,\Mat S[2,1] \PlotOn 1,1 \Do:\LpWhile \Getkey\<>31 \Goto1 \Lbl K -10\->P \Do \Cls 0\->H 35\->A -5\->F 1\->B \Orange \Text 1,45,"SKATING" \Green \Horizontal 45 \Green \Horizontal 15 \Do \Int 5\Ran#+1\->E \If E\<>N \Then F+18\->F E\->N \If E=1 \Then \Green \F-Line F,15,F,25 \Green \F-Line F,35,F,45 \IfEnd \If E=2 \Then \Green \F-Line F,25,F,35 \IfEnd \If E=3 \Then 45\->J \For -6\->I \To 6 \Orange \F-Line F-I,45,F-I,(\Int J) I<0\=>J-3.6\->J I>0\=>J+3.6\->J \Next \IfEnd \If E=4 \Then 15\->J \For -6\->I \To 6 \Orange \F-Line F-I,15,F-I,(\Int J) I<0\=>J+3.6\->J I>0\=>J-3.6\->J \Next \IfEnd \If E=5 \Then \Green \F-Line F,15,F,25 \IfEnd \IfEnd \LpWhile F<115 \Do \Text A,B," " \Text A-6,B," " \Getkey=28\=>A-10\->A \Getkey=37\=>A+10\->A B+6\->B \Text A,B,"^" \Text A-6,B,"\theta" B=115\=>3\->H \PxlTest A-2,B \Ans\=>2\->H A<25\ Or A>45\=>2\->H \LpWhile H=0 10+P\->P \LpWhile H=3 \Cls \Text 1,35,"GAME OVER" \Text 25,1,P \Text 25,15,"POINT(S)" \Mat S[3,1]P\->\Mat S[3,1] \Text 45,1,"HIGHSCORE:" \Text 45,43,\Mat S[3,1] \PlotOn 1,1 \Do:\LpWhile \Getkey\<>31 \Goto1 \Lbl B 0\->E~F 1\->M 4\->N 1\->O 55\->C 1\->D \Cls \Text 1,95,"BMX" \F-Line 95,56,107,56 \Text 1,1,P (1+(\Int 5\Ran#))*12\->A \Orange \Horizontal 1 \For 1\->B \To 21 \Step 20 \Orange \F-Line 1,21,13,21 \Orange \F-Line (13+A),21,127,21 \Orange \F-Line 13,B,(13+A/2),(B+(A/6*4)) \Orange \F-Line (13+A/2),(B+(A/6*4)),(13+A),B \Next \Orange \F-Line (13+A),1,(13+A),21 \Orange \F-Line 13,1,13,21 \Orange \F-Line (13+A/2),(1+(A/6*4),(13+A/2),(21+(A/6*4) A/12+2\->B B\<=5\=>\Dsz B \For 13+A\->Z \To 127 \Step 12 (\Int 5\Ran#)*4+1\->W (\Int 2\Ran#+1)*4\->V W=17\=>4\->V \Green \F-Line Z,W,Z,W+V \Next \Do \Do \Do D=13\=>2\->E D\>=121\=>\GotoB \If D>A+13 \Then \PxlTest C+2,D \Ans\=>\Goto4 \IfEnd \Text C,D,"0" \Text C,D+4,"\theta" C\->U D\->V \If \Getkey=28 \Then C-4\->C \Isz O \IfEnd \If \Getkey=37 \Then C+4\->C \Dsz O \IfEnd D+4\->D \If E=2 \Then \Isz F \Isz M \Isz N C-6\->C \Isz O \IfEnd \If F=B\ Or E=3 \Then \Dsz F 3\->E 1\->G \Dsz M \Dsz N C+6\->C \Dsz O F=0\=>0\->E \IfEnd \Text U,V," " \Text U,V+4," " F=0\=>0\->E \Getkey=78\=>E\<>3\=>5\->E \Getkey=78\=>E=3\=>6\->E O>N\ Or O5\->E \LpWhile E<4 \If E=6 \Then \Text C,D," " \Text C,D+4," " G=0\=>5\->E D+4\->D \Do \Getkey\->T \If T=28 \Then \Dsz F F\<=0\=>\Goto4 D+4\->D \Dsz M \Dsz N \Dsz O C+6\->C \Text C,D,"0" \Text C-4,D+4,"\theta" \Text C,D," " \Text C-4,D+4," " P+5\->P \Text 1,1,P \IfEnd \If T=0 \Then \If F\<=0 \Then 0\->E \Goto7 \IfEnd \Dsz F D+4\->D C+6\->C \Text C,D,"0" \Text C,D+4,"\theta" C\->U D\->V \Dsz M \Dsz N \Dsz O \Text U,V," " \Text U,V+4," " \IfEnd \If T=37 \Then \Dsz F F\<=0\=>\Goto4 \Text C,D,"0" C\->U D\->V \Dsz O \Dsz M \Dsz N D+4\->D C+6\->C \Text C,D,"\theta" \Text C,D+4,"0" \Text U,V," " C\->U D\->V \Dsz F F\<=0\=>\Goto4 \Dsz M \Dsz N \Dsz O D+4\->D C+6\->C \Text C,D,"0" \Text U,V," " \Text U,V+4," " C\->U D\->V \Dsz M C+6\->C D+4\->D \Dsz N \Dsz O \Dsz F F\<=0\=>\Goto4 \Text U,V," " P+40\->P \Text 1,1,P \IfEnd \If T=38 \Then \Dsz F F\<=0\=>\Goto4 \Text C,D,"0" \Text C-4,D+4,"\theta" C\->U D\->V C+6\->C D+4\->D \Dsz M \Dsz N \Dsz O \Dsz F F\<=0\=>\Goto4 \Text C,D,"0" \Text C+4,D,"\theta" \Text U,V," " \Text U-4,V+4," " C\->U D\->V \Dsz M \Dsz N \Dsz O C+6\->C D+4\->D \Dsz F F\<=0\=>\Goto4 \Text C,D,"\theta" \Text C+4,D,"0" \Text U,V," " \Text U+4,V," " C\->U D\->V C+6\->C D+4\->D \Dsz M \Dsz N \Dsz O \Dsz F F\<=0\=>\Goto4 \Text C,D,"\theta" \Text C+4,D,"0" \Text U,V," " \Text U+4,V," " C\->U D\->V 6+C\->C D+4\->D P+200\->P \Text 1,1,P \Text U,V," " \Text U+4,V," " \IfEnd \If T=27 \Then \Dsz F F\<=0\=>\Goto4 \Text C,D,"0" \Text C-4,D+4,"\theta" C\->U D\->V \Dsz M \Dsz N \Dsz O C+6\->C D+4\->D \Dsz F F\<=0\=>\Goto4 \Text C,D,"0" \Text C-4,D,"\theta" \Text U,V," " \Text U-4,V+4," " C\->U D\->V \Dsz M \Dsz N \Dsz O C+6\->C D+4\->D \Dsz F F\<=0\=>\Goto4 \Text C,D,"\theta" \Text C,D+4,"0" \Text U,V," " \Text U-4,V," " C\->U D\->V \Dsz M \Dsz N \Dsz O C+6\->C D+4\->D \Dsz F F\<=0\=>\Goto4 \Text C,D,"0" \Text C+4,D-4,"\theta" \Text U,V," " \Text U,V+4," " C\->U D\->V \Dsz M \Dsz N \Dsz O C+6\->C D+4\->D \Dsz F F\<=0\=>\Goto4 \Text C,D,"0" \Text C-4,D,"\theta" \Text U,V," " \Text U+4,V-4," " C\->U D\->V \Dsz M \Dsz N \Dsz O C+6\->C D+4\->D \Text U,V," " \Text U-4,V," " P+400\->P \Text 1,1,P \IfEnd \Lbl 7 \LpWhile E=6 \IfEnd \LpWhile E\<>5 \Lbl 4 \Cls \Green \Text 1,50,"GAME OVER" \For 56\->A \To 57 \Orange \F-Line 50,A,86,A \Next \Text 25,1,P \Text 25,24,"POINTS" \Mat S[4,1]P\->\Mat S[4,1] \Text 45,1,"HIGHSCORE:" \Text 45,43,\Mat S[4,1] \PlotOn 1,1 \Do:\LpWhile \Getkey\<>31 \Goto1 \Lbl D \Cls \For 117\->A \To 127 \Orange \F-Line A,54,127,44 \Next \Green \F-Line 25,22,45,45 \Green \F-Line 45,45,80,22 \Green \F-Line 63,35,85,55 \Green \F-Line 85,55,115,22 \Green \Horizontal 55 \For 20\->A \To 22 \Green \Horizontal A \Next \For 5\->A \To 7 \Step 2 \F-Line 10,A,15,A \Green \F-Line 15,A,25,A \Orange \F-Line 25,A,30,A \Green \F-Line 31,A,41,A \F-Line 41,A,60,A \Green \F-Line 60,A,70,A \Orange \F-Line 70,A,76,A \Green \F-Line 76,A,86,A \F-Line 86,A,95,A \Next \Text 51,18,"SPEED" \Text 51,63,"ANGLE" 95\->A \Do \PlotOn A,6 \Dsz A \LpWhile \Getkey\<>27 A\->B \Do \Orange \PlotOn B,6 \Isz B \LpWhile \Getkey\<>38 \Abs (28-A)\->A \Abs (74-B)\->B 50-10A\->C 62-B\->D 95\->U 58\->E 30\->T 1\->F \Text 38,5,"~" \Text 38,15,"~" \Text 38,5," " \Text 34,25,"~" \Text 38,15," " \Text 34,35,"~" \Text 34,25," " \Text 34,45,"~" \Text 34,35," " \Text 30,55,"~" \Text 34,45," " \Do E\->M U\->V \Getkey=27\=>\Isz U \Getkey=38\=>\Dsz U \PlotOn U,58 \PlotOff V,58 T\->S F\->N \If \Int 4\Ran#=0 \Then \Text S,55," " \Isz E T\->S T-4\->T \Text T,55,"~" \IfEnd \Isz F \PlotOn F,E \PlotOff N,M \LpWhile E\<=D F+C\->C 105\->J U\->V E\->M \Do \If \Abs (F-U)\<=5 \Then J\->K F>U\=>55-(F-U)*10\->J F\<=U\=>(U-F)*10+55\->J \Text 38,J,"X" \Text 38,K," " \IfEnd U\->V F\->N \Getkey=27\=>\Isz U \Getkey=38\=>\Dsz U \PlotOn U,58 \PlotOff V,58 \Isz F \PlotOn F,E \PlotOff N,M \LpWhile F\<=C 105\->J T\->S \Text 38,J," " \Do U\->V \Getkey=27\=>\Isz U \Getkey=38\=>\Dsz U \PlotOn U,58 \PlotOff V,58 E\->M F\->N \If \Int 4\Ran#=0 \Then \Dsz E T\->S \Text S,55," " T+4\->T \Text T,55,"~" \IfEnd \If \Abs (F-U)\<=5 \Then J\->K F>U\=>55-(F-U)*10\->J F\<=U\=>(U-F)*10+55\->J \Text 38,J,"X" \Text 38,K," " \IfEnd \Isz F \PlotOn F,E \PlotOff N,M \LpWhile E\<>56 T=38\=>J=55\=>100\->P P+5F-10A-10B\->P \Text 46,100,"P:" \Text 46,110,P \Mat S[5,1]P\->\Mat S[5,1] \Text 56,100,"H:" \Text 56,110,\Mat S[5,1] \PlotOn 1,1 \Do:\LpWhile \Getkey\<>31 \Goto1 \Lbl A \Cls \Green \Text 5,25,"CALIFORNIA" \PlotOn 20,50 \F-Line 19,51,17,51 \F-Line 16,50,16,45 \F-Line 17,44,20,44 \F-Line 20,44,20,47 \F-Line 20,47,18,47 \F-Line 30,50,30,44 \F-Line 31,51,33,51 \F-Line 34,50,34,44 \F-Line 30,48,34,48 \F-Line 44,51,44,44 \PlotOn 45,50 \PlotOn 47,50 \F-Line 46,49,46,48 \F-Line 48,51,48,44 \F-Line 58,51,58,44 \F-Line 58,44,62,44 \F-Line 58,48,61,48 \F-Line 58,51,62,51 \F-Line 72,50,72,49 \F-Line 73,51,75,51 \F-Line 73,48,75,48 \F-Line 76,47,76,45 \F-Line 75,44,73,44 \PlotOn 72,45 \PlotOn 76,50 \Orange \F-Line 14,60,78,60 \Orange \F-Line 14,42,78,42 \Orange \F-Line 14,60,14,42 \Orange \F-Line 78,60,78,42 \Orange \F-Line 15,61,16,62 \Orange \F-Line 79,61,80,62 \Orange \F-Line 79,43,80,44 \Orange \F-Line 16,62,80,62 \Orange \F-Line 80,62,80,44 \Text 25,10,"BY LHOMME AURELIEN" \Text 35,35,"E-MAIL:" \Orange \F-Line 35,23,60,23 \Text 45,5,"REAU01\thetaINFONIE.FR" \PlotOn 110,63 \F-Line 109,62,108,61 \F-Line 111,62,112,61 \F-Line 112,60,117,34 \F-Line 108,61,103,34 \F-Line 103,34,103,24 \F-Line 117,34,117,24 \F-Line 117,24,113,5 \F-Line 103,24,107,5 \F-Line 113,5,107,5 \F-Line 105,25,105,28 \F-Line 106,25,106,29 \F-Line 107,30,109,30 \F-Line 110,31,113,31 \PlotOn 107,29 \F-Line 107,25,115,25 \PlotOn 107,26 \F-Line 110,27,114,27 \PlotOn 112,29 \F-Line 111,28,113,28 \Orange \F-Line 109,46,109,44 \Orange \F-Line 111,46,111,44 \Orange \F-Line 108,47,107,47 \Orange \F-Line 112,47,113,47 \Orange \F-Line 113,47,113,43 \Orange \F-Line 107,47,107,43 \Orange \F-Line 107,43,108,34 \Orange \F-Line 113,43,112,34 \Green \F-Line 110,55,110,50 \Green \Text 40,109,"~" \Orange \Text 44,109,"~" \Text 48,109,"~" \For 80\->A \To 95 \Step 5 \PlotOn A,1 \PlotOn A-1,2 \PlotOn A+1,2 \PlotOn A,3 \Next \F-Line 78,4,97,4 \For 5\->A \To 8 \F-Line 77,A,97,A \Next \F-Line 78,9,97,9 \PlotOn 88,10 \For 89\->A \To 97 \F-Line A,8,A,18 \Next \Do:\LpWhile \Getkey\<>31 \Goto1 %End %Header Record Format:VAL Communication SW:0 Data Type:MT Rows:5 Columns:1 Variable Name:Mat S Group Name: Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 Value : 2 1 0 Value : 3 1 0 Value : 4 1 0 Value : 5 1 0 %End