_________________________________________________________________________ Title: Missile Command Version: v1.0 Author: Peter Pizzo (Hadokenco@AOL.com) Size: Model: 9850+ Description: The classic Atari game for Casio Here is the atari game which started it all! Missiles fall down toward your cities, you move your crosshair to be directly under the bottom of the missile and press EXE to detonate the crosshair. As waves complete the speed gets faster! The game works great and is in my opinion the best game so far. The pause feature works great, games speed is good and is just a fun game. I have incorporated Derek Cross' Highscore into this game so now you can have a scoring table. ---BASIC MOVES--- *Arrows= move *EXE= detonates crosshair, unpauses *the number 5 key= pauses _______________________________________________________________________ Program : ClrText 0->S:4->K:0->U:1->H:0->P 1->Q:0->F:0->E:1->D:10->A 4->B Locate 4,3,"MISSILE COMMAND" Locate 7,6,"PRESS [EXE]" Orange " DIFFICULTY" //5 spaces "EASY[6-5-4-3-2-1]HARD" ?->V V>6=>6->V V<1=>1->V Lbl 8 ClrText Locate 1,7," ^ ^ ^ ^" //2 spcs-1st, then 4 spcs after Lbl 0 While 1 K=0=>Goto 3 E=1=>P+1->P E=1=>0->E D=1=>Int 18Ran#+2->G 0->D Locate G,1,"*" F=/=1=>F+1->F F=V=>H+1->H F=V=>0->F H=7=>Goto 1 Locate G,H,"*" Locate A,B,"+" If Getkey=27 And A<21 Then Locate A,B," " A+1->A IfEnd If Getkey=38 And A>1 Then Locate A,B," " A-1->A IfEnd If Getkey=37 And B<6 Then Locate A,B," " B+1->B IfEnd If Getkey=27 And B>1 Then Locate A,B," " B-1->B IfEnd If Getkey=31 Then 1 For 1->Z To 5 Locate A,B,"-" Locate A,B,"X" Next A=G=>B-1=H=>S+1->S A=G=>B-1=H=>1->E A=G=>B-1=H=>1->D A=G=>B-1=H=>ClrText A=G=>B-1=H=>U+1->U A=G=>B-1=H=>1->H U=10=>Goto 4 K>4=Locate 3,7,"^" K>3=Locate 8,7,"^" K>2=Locate 13,7,"^" K>1=Locate 18,7,"^" IfEnd Then 1->Z While Getkey=/=31 Locate 8,1,"PAUSED" WhileEnd Locate 8,1," " IfEnd WhileEnd Lbl 1 For 1->Z To 5 Locate G-1,7,"xxx" Locate G-1,7,"+++" Locate G-1,7," " Next Locate 1,1,"YOUR HIT" For 1->Y To 50 Next K-1->K 1->D 1->H ClrText K>4=Locate 3,7,"^" K>3=Locate 8,7,"^" K>2=Locate 13,7,"^" K>1=Locate 18,7,"^" Goto 0 Lbl 3 (130xS)->S For 1->Y To 15 Locate 7,4,"YOU LOSE" Locate 7,4,"YOU LOSE" Locate 7,4,"--- ----" Next Locate 7,4," " //8 spcs Locate 1,3,"YOUR SCORE=" Locate 13,3,S Dim List 1->W Locate 1,5,"HIGHSCORE=" S->List 1[(Dim List 1)-1] SortA(List 1) Dim List 1->S Locate 12,5,"List 1[W] Locate 1,1," "_ If S>List 1[W] Then For 1->Y To 50 Locate 6,7," " //13 spcs Locate 6,7,"NEW HIGHSCORE" IfEnd Stop Lbl 4 ClrText Locate 3,2," WAVE COMPLETE" Locate 8,2,Q Locate 6,4,"CITIES=" Locate 13,4,K Locate 1,7," "_ 4->K V>0=>V-1->V Q+1->Q 0->U Goto 8 _________________________________________________________________________