_______________________________________________________________________ Title: Detour.1 Version: 1.0 Author: Jerod Fritz Size: Model: 9850+ Description: Sort of a cool racing game for the 9850 The object of the game is to manuever your car around the obstacles . If you hit an obstacle you car will be blown up.The screen looks somewhat like this: ______________________ | Y -- ^ Y | | Y ^ -- Y | | Y -- ^ Y | | Y T -- Y | | Y -- Y | | Y -- Y | -It has scoring and lives. // Controls 8=Pause (Press 2 to unpause) 4=Move car left 6=Move car right _______________________________________________________________________ Program : ClrText Locate 6,2,"DETOUR .1" Locate 9,4,"BY:" Locate 4,6,"-Jerod Fritz-" Locate 5,7,"(c)1996 V.1"- // _ = Disp 0->M 0->S 0->E Lbl D ClrText " " //One space in beetween quotes. "+-+" "I I" "I I" "I I" "+-+" For 1->K to 70 Next Locate 1,3,"I*I READY" For 1->K Next Locate 1,4,"I*I SET" //two spaces beetween I*I and SET For 1->K to 70 Next Locate 1,5,"I*I GO!" //two spaces beetween I*I and GO! For 1->K to 70 Next 0->W 0->I 0->H 6->C 5->B 5->A 0->N 5->R 10->V 9->K 7->O While 1 Q+1->Q 10+S->S 10+M->M If M=2500 Then 0->M E+1->E Locate 15,4,"+1 MAN" IfEnd I->J H->I U->N X->U (Int 11Ran#)+5->G If G=5 Then 6->G IfEnd G->H Locate G,7,"-" (Int 11Ran#)+5->W If W=5 Then 6->W IfEnd W->X Locate W,7,"-" " " /One space in beetween Quotes Locate 5,7,"Y" Locate 16,7,"Y" Locate 21,1,E If Getkey=73 Then V-1->V IfEnd If Getkey=53 Then V+1->V IfEnd If Getkey=64 Then Locate 8,1,"PAUSED While Getkey =/=31 Locate 8,1, "PAUSED" WhileEnd Locate 8,1," " // 6 spaces in beetween quotes IfEnd Locate K,3,"V" Locate V.4,"Y" V->K If V=5 Or V=16 Or V=J Or V=N Then Goto C IfEnd C->D B->C A->B R->A WhileEnd Lbl C 0->X While X =<2 Locate V-X,4-X,"*" Locate V+X,4+X,"*" Locate V-X,4+X,"*" Locate V+X,4-X,"*" Locate V,4+X,"*" Locate V,4-X,"*" Locate V+X,4,"*" Locate V-X,4,"*" X+1->X WhileEnd 0->X While X =<2 Locate V-X,4-X," " //Only one space in beetween quotes Locate V-X,4+X," " //Only one space in beetween quotes Locate V+X,4-X," " //Only one space in beetween quotes Locate V,4+X," " //Only one space in beetween quotes Locate V,4-X," " //Only one space in beetween quotes Locate V+X,4," " //Only one space in beetween quotes Locate V-X,4," " //Only one space in beetween quotes X+1->X WhileEnd Lbl 0 ClrText " " //Only one space in beetween quotes " " //Only one space in beetween quotes " " //Only one space in beetween quotes Locate 1,1,"SCORE: " //a space after : Locate 7,1,S E-1->E Locate 1,3,"LIVES: " //a space after : Locate 7,3,E For 1->A To 500 Next If E=0 Then Locate 6,7,"GAME OVER" Locate 6,6,"GAME OVER" Locate 6,5,"GAME OVER"_ //disp comand Prog "DETOUR.1" //or whatever you named your program IfEnd Goto D _______________________________________________________________________