%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2752 File Name:Gran T 2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl \r \Rad \Norm \ViewWindow 1,127,0,1,63,0,1,127,5 \ClrText \Locate 7,3,"G R A N" \Locate 7,5,"TURISMO" \Locate 10,7,"2"\Disp\Lbl 0 0\->Z \Prog "GT2-RACE" \ClrText \Locate 4,1,"GRAN TURISMO II" \Locate 6,2,"Select mode" 1\->A \Locate 9,3,"Joueur" \Locate 20,3,"->" \Do \If A<4 \Then \Locate 7,3,A \Else \Locate 7,3,"Reset MAT" \Locate 20,3," " \IfEnd \If A=1 \Then \Locate 1,3," " \Locate 15,3," " \IfEnd \If A=2 \Then \Locate 1,3,"<-" \Locate 15,3,"s" \IfEnd \If A=3 \Then \Locate 8,3," Joueurs" \Locate 20,3,"->" \IfEnd \Do \Getkey \LpWhile \Ans\<>31\ And (\Ans\<>27\ Or A=4)\ And (\Ans\<>38\ Or A=1) \Ans=27\=>\Isz A \Ans=38\=>\Dsz A \LpWhile \Ans\<>31 \If A=4 \Then \Seq(0,X,1,C,1)\->\List 1 \Trn \List->Mat(1,1,1,1,1)\->\Mat T {0}\->\List 1 \Goto0 \IfEnd \Seq(0,X,1,A,1)\->\List 1 \Trn \List->Mat(1,1,1,1,1,1,1,1)\->\Mat A {0}\->\List 1 \Locate 13,2,"Race" \Locate 7,3," " 1\->B 1\->Z 7\->X 3\->Y \Locate 2,5,"Rec\ord:" \Do \Locate 7,3," " \Prog "GT2-RACE" \If B=1 \Then \Locate 1,3," " \Else \Locate 1,3,"<-" \IfEnd \If B=C \Then \Locate 20,3," " \Else \Locate 20,3,"->" \IfEnd \Mat->ListT,B)\->\List 1 \Fix 2 \Locate 13,5," " \Locate 9,5,\Sum \List 1 \Do \Getkey \LpWhile \Ans\<>31\ And (\Ans\<>38\ Or B=1)\ And (\Ans\<>27\ Or B=C) \Ans=38\=>\Dsz B \Ans=27\=>\Isz B \LpWhile \Ans\<>31 \Norm \Locate 2,2,"Select car,joueur" 1\->D 0\->Z \Prog "GT2-CAR" \Locate 2,4,"Adherence:" \Locate 2,5," Vitesse: " \Locate 3,6,"Braquage:" 7\->X 3\->Y \For 1\->E \To A \Norm \Locate 20,2,E \Fix 2 \Do \Locate 7,3," " 1\->Z \Prog "GT2-CAR" 2\->Z \Prog "GT2-CAR" \Locate 16,4," " \Locate 12,4,30/(JK \Locate 16,5," " \Locate 12,5,K \Locate 16,6," " \Locate 12,6,250L/K \If D=1 \Then \Locate 1,3," " \Else \Locate 1,3,"<-" \IfEnd \If D=C \Then \Locate 20,3," " \Else \Locate 20,3,"->" \IfEnd \Do \Getkey \LpWhile \Ans\<>31\ And (\Ans\<>38\ Or D=1)\ And (\Ans\<>27\ Or D=C) \Ans=38\=>\Dsz D \Ans=27\=>\Isz D \LpWhile \Ans\<>31 D\->\Mat A[6,E] \Next 1\->C \Lbl 1 \Norm \For 1\->E \To A 1\->\Mat A[8,E] \Int \Mat A[6,E]\->\Mat A[6,E] 0\->\Mat A[7,E] \Next 0\->G~H \For C\->C \To 5 \For 1\->E \To A \Mat A[6,E]\->D \Frac D\=>\Goto2 \ClrText \Locate 6,2,"Joueur" \Locate 14,2,E \Locate 7,3,"Etape" \Locate 15,3,C \Locate 7,4,"Load..." 2\->Z \Prog "GT2-CAR" K/2\->K \Prog "GT2-RACE" \Cls \Mat A[7,E]\->F V\->W \Mat A[8,E]\->S 0\->R \Locate 7,4," " \Text 1,1,S \Graph (X,Y)=(T,\Y 1) \Graph (X,Y)=(T,\Y 1-I) 1\->T \Do \Getkey \If R\<>1\ And (\Ans=74\ Or \Ans=64\ Or \Ans=54)\ And S\<>3 \Then \Isz S 1\->R \IfEnd \If R\<>\(-)1\ And (\Ans=72\ Or \Ans=62\ Or \Ans=52)\ And S\<>1 \Then \Dsz S \(-)1\->R \IfEnd \Not \Ans\=>0\->R (\Ans=74\ Or \Ans=73\ Or \Ans=72)\=>W+L\->W (\Ans=54\ Or \Ans=53\ Or \Ans=52)\=>W-L\->W \If \Frac (\Ans/2) \Then 0\->R \Else \Text 1,1,S \IfEnd \Isz F \Y 1 U>\Ans\ Or \Ans-I>U\=>\Break \Orange \F-Line T,U,T+M\cos W,U+M\sin W T+SK\cos V\->T U+SK\sin V\->U W+J(V-W\->V \LpWhile T<127 \If T<127 \Then \Mat A[6,E]+.1\->\Mat A[6,E] \Isz G \Else F+(127-T)/K\->F F-\Mat A[7,E]\->\Mat A[C,E] F\->\Mat A[7,E] \IfEnd S\->\Mat A[8,E] \Lbl 2 \Next G=A\=>\Goto3 1\->Z 9\->X 2\->Y \ClrText \Prog "GT2-RACE" \Locate 1,3,"ETAPE ," \Locate 7,3,C \If A=1 \Then 9\->X 3\->Y \Prog "GT2-CAR" \Locate 3,4,"Temps:" \Fix 2 \Locate 9,4,\Mat A[7,1] \Locate 17,4,\Mat A[C,1] \Locate 16,4,"(" 5\->X \Else 3\->X \For 1\->E \To A \Isz X \Locate 1,X,"Joueur :" \Norm \Locate 7,X,E \Fix 2 \Locate 9,X,\Mat A[7,E] \If \Frac \Mat A[6,E] \Then \Locate 15,X,"ELIMINE" \Else \Locate 17,X,\Mat A[C,E] \Locate 16,X,"(" \IfEnd \Next \Isz X \IfEnd H+\Mat T[C,B]\->H \Locate 2,X,"Rec\ord:" \Locate 9,X,H \Locate 17,X,\Mat T[C,B] \If A=1 \Then \Locate 4,6,"DIFF:" \Locate 9,6,F-H \Locate 16,6,"(" \Locate 17,6,\Mat A[C,1]-\Mat T[C,B] \IfEnd \Norm \Locate 16,X,"("\Disp\Lbl 3 G=A\=>\Break \Next \If Z=1 \Then \If A=1 \Then \For 4\->X \To 6 \Locate 15,X," " \Next \Locate 1,2,"Circuit" \If FX \To 5 \Mat A[X,1]\->\Mat T[X,B] \Next \Locate 5,7,"W\orld rec\ord" \IfEnd \Locate 1,3,"TERMINE"\Disp\Else \ClrText 2\->X 0\->V~W \For 1\->E \To A \Isz X \Locate 1,X,"Joueur :" \Locate 7,X,E \Mat A[7,E] \Fix 2 \Locate 9,X,\Ans \Frac \Mat A[6,E]\=>\Locate 14,X,"ELIMINE" \Norm \Ans>V\ And \Not \Frac \Mat A[6,E]\=>E\->W \Next \Locate 1,6,"Le joueur a gagne" \Locate 11,6,W\Disp\IfEnd \Else \ClrText \Locate 8,4,"CRASH !"\Disp\IfEnd \Lbl 4 \ClrText \Locate 4,1,"GRAN TURISMO II" \Locate 4,4,"[F1] Recommencer" \Locate 4,5,"[F6] Nouv. partie" \Locate 4,6,"[EXIT] Quitter" \Do \Getkey \LpWhile \Ans\<>79\ And \Ans\<>29\ And \Ans\<>47 \Ans=29\=>\Goto0 \If \Ans=47 \Then \Norm \Prog "FIN" \Goto\r \IfEnd \Goto1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:241 File Name:GT2™CAR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record Z=0\=>4\->C \If Z=1 \Then D=1\=>\Locate X,Y,"Viper GTS" D=2\=>\Locate X,Y,"Honda NSX" D=3\=>\Locate X,Y,"206 WRC" D=4\=>\Locate X,Y,"Mazda DEMIO" \IfEnd \If Z=2 \Then \If D=1 \Then .8\->J 10\->K \Pi/20\->L \IfEnd \If D=2 \Then .7\->J 7\->K \Pi/16\->L \IfEnd K\->M \If D=3 \Then .6\->J 9\->K \Pi/11\->L 6\->M \IfEnd \If D=4 \Then .5\->J 6\->K \Pi/12\->L 5\->M \IfEnd \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1751 File Name:GT2™RACE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record Z=0\=>6\->C \If Z=1 \Then B=1\=>\Locate X,Y,"Monza" B=2\=>\Locate X,Y,"Paul-ricard" B=3\=>\Locate X,Y,"Monte-Carlo" B=4\=>\Locate X,Y,"Chamonix" B=5\=>\Locate X,Y,"Est\oril" B=6\=>\Locate X,Y,"Sao Paulo" \IfEnd \If Z=2 \Then \If B=3 \Then 15\->I \If C=1 \Then "15+T\x^2/336"\->\Y 1 5\->U 0\->V \IfEnd \If C=2 \Then "1.5T+13.5-T\x^2/83.6"\->\Y 1 13\->U \Pi/4\->V \IfEnd \If C=3 \Then "42+21\sin (\Pi/2+T/40)"\->\Y 1 53\->U 0\->V \IfEnd \If C=4 \Then "\(-)2.5\EE\(-)4T^3+.048T\x^2-2.41T+65.4"\->\Y 1 53\->U \(-)\Pi/3\->V \IfEnd \If C=5 \Then "38+10\cos (T/13)"\->\Y 1 39\->U 0\->V \IfEnd \IfEnd \If B=1 \Then 20\->I 0\->V 45\->U \If C=1 \Then "41"\->\Y 1 30\->U \IfEnd \If C=2 \Then "15+4.2\sqrtT"\->\Y 1 5\->U \Pi/4\->V \IfEnd \If C=3 \Then "42+21\sin (\Pi/2+T/40)"\->\Y 1 \IfEnd \If C=4 \Then "63-T\x^2/400"\->\Y 1 \IfEnd \If C=5 \Then "\(-)5.7\EE\(-)3T\x^2+T+14"\->\Y 1 \Pi/4\->V 5\->U \IfEnd \IfEnd \If B=4 \Then \If C=2 \Then 20\->I "1.5T+13.5-T\x^2/82.7"\->\Y 1 13\->U \Pi/4\->V \IfEnd \If C=1 \Then 25\->I \sqrtJ\->J "T\x^2/125-1.3T+71.2"\->\Y 1 50\->U \(-)\Pi/4\->V \IfEnd \If C=3 \Then "6.6\EE\(-)5T^3-7.6\EE\(-)3T\x^2+.2T+24.6"\->\Y 1 10\->U 0\->V \IfEnd \If C=4 \Then 25\->I "\(-)2.5\EE\(-)4T^3+.048T\x^2-2.41T+65.4"\->\Y 1 40\->U \(-)\Pi/6\->V \IfEnd \If C=5 \Then "42+21\sin (T/20)"\->\Y 1 35\->U 0\->V \IfEnd \IfEnd \If B=2 \Then 20\->I \If C=1 \Then "T\x^2/125-1.3T+75"\->\Y 1 55\->U \(-)\Pi/4\->V \IfEnd \If C=2 \Then 15\->I "15+2^(T/23)"\->\Y 1 7\->U 0\->V \IfEnd \If C=3 \Then "38+10\cos (T/13)"\->\Y 1 30\->U 0\->V \IfEnd \If C=4 \Then "21.3-T\x^2/95.2+1.3T"\->\Y 1 10\->U \Pi/4\->V \IfEnd \If C=5 \Then "1.3\EE\(-)4T^3-2.7\EE\(-)2T\x^2+1.7T+18.4"\->\Y 1 10\->U \Pi/4\->V \IfEnd \IfEnd \If B=5 \Then \If C=1 \Then "63"\->\Y 1 62\->I 60\->U \(-)\Pi/2\->V \IfEnd \If C=2 \Then "5.0069\EE\(-)6T^4-1.561\EE\(-)3T^3+0.14735238T\x^2-3.95434889T+40"\->\Y 1 35\->I 5\->U 0\->V \IfEnd \If C=3 \Then "\(-)3.526\EE\(-)6T^4+1.0994\EE\(-)3T^3-0.1100079T\x^2+3.81634T+11"\->\Y 1 21\->I 7\->U \Pi/3\->V \IfEnd \If C=4 \Then "1.5151\EE\(-)6T^4-6.312\EE\(-)4T^3+0.07426748T\x^2-2.7330058T+76"\->\Y 1 20\->I 55\->U \(-)\Pi/6\->V \IfEnd \If C=5 \Then "0.0001(T-55)^3+41"\->\Y 1 7\->U 5\Pi/16\->V \IfEnd \IfEnd \If B=6 \Then \If C=1 \Then "2.0396\EE\(-)5T^3-0.0109003T\x^2+1.4934761T+8"\->\Y 1 15\->I 1\->U \Pi/4\->V \IfEnd \If C=2 \Then "1.637529138\EE\(-)04T^3-0.0174493007T\x^2-0.4261237929T+65"\->\Y 1 20\->I \IfEnd \If C=3 \Then "2.2\EE\(-)5T^3-7.1\EE\(-)3T\x^2+T+20"\->\Y 1 20\->I U-42\->U \IfEnd \If C=4 \Then "\EE\(-)4T^3-0.01T\x^2-0.28T+70"\->\Y 1 20\->I \IfEnd \If C=5 \Then "\(-)0.0106T\x^2+0.75T+55"\->\Y 1 20\->I U-10\->U \IfEnd \IfEnd \IfEnd %End