%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1548 File Name:INDY1000 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl H \r=1\=>\GotoC 0\->A~Z 1\->N \ClrText " " " " " " " " " " " " " " \Locate 7,6,"\{i}\Cnt\RdY \Rc\Ra\r" \Locate 11,7,"G" \For 1\->I \To 5 \Locate I,7," \Cor\Ra\Rc\{i}\Cnt" \Locate 18-I,7,"1000 " \Next \For 1\->I \To 3 \For 1\->O \To 30 \Next " " \Next \Locate 7,5,"Ver. 1.4" \For 1\->I \To 100 \Next \ClrText \Locate 6,4,"-----------" \For 1\->I \To 50 \Next \Locate 4,4,"An Production" \For 1\->I \To 4 \Locate 7,I,"A" \Locate 8,8-I,"T" I\<>1\=>\Locate 7,I-1," " I\<>1\=>\Locate 8,9-I," " \Next " " " " " " " " " " " " " " \For 4\->I \To 11 \Locate I,4," " \Locate 23-I,4," " \Next \For 1\->A \To 5 \For 21\->I \To 1 \Step -4 A=1\=>\Locate I,7," \For new games \and " A=2\=>\Locate I,7," updates visit " A=3\=>\Locate I,7," the AT Casio page " A=4\=>\Locate I,7,"HTTP\slash\slashwww.uib.no\slash " A=5\=>\Locate I,7," people\slashoodrt\slashcasio\slash " \Next \For 1\->X \To 30 \Next " " A=5\=>\Orange " " \Next \For 1\->X \To 300 \Next \Locate 6,7,"[Press EXE]" \Do \LpWhile \Getkey\<>31 \Lbl C \If \r=1 \Then 0\->\r \ClrText \Locate 8,4,"LOADING" \For 1\->I \To 400 \Next \IfEnd \ClrText " " " " " " " " " " " " " " \Int 18\Ran#+1\->O 1\->B O+1\->A O\->U~X \For 4\->I \To 7 \Locate O,I,"# #" \Next \Locate 8,1,"LEVEL" \Locate 14,1,N \Locate A,4,"\Deg>" \For 1\->I \To 300 \Next \Locate O,3," GO" \While 1 M+1\->M M=50+50N\=>\GotoG A\->B " " \Getkey\->K K=73\=>A-1\->A K=53\=>A+1\->A \If K=64 \Then \Do \LpWhile \Getkey\<>31 \IfEnd \Locate A,4,"\Deg>" \Locate B,3," " V\->U W\->V X\->W 3\Ran#\->Z Z<1\=>X-1\->X Z>2\=>X+1\->X X=0\=>2\->X X=19\=>17\->X \Locate X,7,"# #" A\<=U\ Or A\>=U+3\=>\GotoE \WhileEnd \Lbl E \For 1\->I \To 200 \Next \ClrText \Locate 7,2,"GAME OVER" M*10+S\->S \Locate 5,4,"SC\orE :" \Locate 13,4,S \Locate 3,7,"[EXE] TO RESTART" \Lbl R \Getkey=31\=>\GotoH \GotoR \Lbl G \For 7\->I \To 1 \Step -1 \For 1\->K \To 50 \Next \Locate 1,I,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)" \Next \For 1\->K \To 100 \Next \ClrText \Locate 8,2,"LEVEL" \Locate 14,2,N N+1\->N \Locate 7,3,"COMPLETED" \Locate 6,5,"SC\orE" M*10+S\->S \Locate 13,5,S \For 1\->I \To 400 \Next \For 1\->K \To 5 \For 1\->I \To 64 \Next 50+50N+S\->S \Locate 13,5,S \Next 0\->M \Locate 7,7,"1ST PLACE" \For 1\->I \To 400 \Next \ClrText \Locate 2,3,"[EXP] = SAVE'N EXIT" \Locate 2,5,"[EXE] = NEXT LEVEL" \Lbl \r \Getkey=31\=>\GotoC \Getkey=51\=>\GotoD \Goto\r \Lbl D 1\->\r \ClrText \Locate 8,4,"SAVING" \For 1\->I \To 400 \Next \ClrText \Locate 8,4,"DONE..." \Stop %End