----Rebel Assault---- By: Marcus LundstrŚm What: You as the X-wing must blast the TIE-figter before he blasts you. Size: 847 bytes I made this program on my 7700GB calc but it probably will work on other. ------------------------------------------------------------------------- Command translation: -> Single arrow (located on the keyboard) => Double arrow (press: [shift] [prgm] [f1] [f1]) _ Display, -Disp- (press: [shift] [prgm] [f5]) ------------------------------------------------------------------------- `REBEL ASSAULT` Fix 0 "A LONG TIME AGO" "IN A GALAXY FAR" "FAR AWAY..."_ " " " " " " " " " " " " " " " STAR WARS" " " " REBEL ASSAULT" " "_ 3->J 0->V 1->W 3->Z Lbl 8 " " "PREPEAR FOR" "WAVE:":W_ 0->I Lbl 0 0->A Range 1,127,0,1,62,1 Lbl 2 A+1->A //(This part draws the stars) A=15=>Goto 1 127Ran#->B 63Ran#->C Plot B,C Plot B,C:Line Goto 2 Lbl 1 63Ran#->D D+9->E D+1->M D+2->N D+3->O D+4->P D+5->Q D+6->R D+7->S D+8->U Plot 4,D //(This part draws the TIE-fighter) Plot 4,E:Line Plot 10,D Plot 10,E:Line Plot 4,0 Plot 10,0:Line Plot 4,R Plot 10,R:Line 63Ran#->H Plot 127,H //(This part draws the X-wing) Plot 107,H-2 Line Plot 109,H-2 Plot 127,H-4 Line Plot 117,H+4 Plot 127,H-8 Line Plot 117,H-8 Plot 127,H+4 Line_ "SHOOT AT" "Plot 1-63"?->K Plot 117,H+4 Plot 1,K:Line_ K=D=>Goto 3 K=E=>Goto 3 K=M=>Goto 3 K=N=>Goto 3 K=O=>Goto 3 K=P=>Goto 3 K=Q=>Goto 3 K=R=>Goto 3 K=S=>Goto 3 K=T=>Goto 3 K=U=>Goto 3 Goto 4 Lbl 3 I+3->I "BLAM->->->HIT!"_ I=3=>Goto 5 V+100->V Goto 0 Lbl 5 " KABOOM":" " " -YOU GOT HIM-"_ " " " -WAVE COMPLETE-"_ W+1->W Goto 8 Lbl 4 "LOOK OUT!" "HE SHOOTS BACK"_ Lbl 6 63Ran#->Y D+4->Q Plot Q,6 Plot Y,127:Line_ H-1->M H-2->N H-3->O H-4->P Y=H=>Goto 7 Y=M=>Goto 7 Y=N=>Goto 7 Y=O=>Goto 7 Y=P=>Goto 7 Goto 0 Lbl 7 Z-1->Z "HE BLAST YA!"_ "LIVES:":Z_ "SCORE:":V_ Z=0=>"-GAME OVER-"_ Goto 0 ------------------------------------------------------------------------- (c) Copyright 1997 Marcus LundstrŚm