CC3P 910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN CYCLON FIGHTER @" 2. STUDENT INSTRUCTIONS"3E" 3. TEACHER INSTRUCTIONS"OO" 4. QUIT"~T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300) ** RE-ENABLE STOP KEY AND END **X(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UP0:UG$"TUDENT NST":850 2790  12004UZ1UP%:217:[ ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"/" DOMAIN. F THIS IS NOT THE CASE"L" PLEASE CONTACT:"v" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:@" ROGRAM AME: YCLON FIGHTERb" RITTEN Y : NKNOWN" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217W>X ** PROGRAM MODIFICATION INST **OY"":UT,UL%o]UP0:UG$"ROGRAM OD":850x835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 #" LOAD THE 'CBM 4032' PROGRAM".UU714T  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";: ," -."  N0" l2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **);(UD$,24);"PRESS SPACE BAR OR WAIT":I0K<A$:A$" "II1:I250828o>T1$"":T2$"":T3$"":T4$"":I0x@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844N R ** PAGE DESIGN ROUTINE **TUPUP1BW""(UT$UP$,21);(UP$UG$(UP),18)q\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... " u= ** SET UP VARIABLES **}UX$"H":UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048=(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198aUD$""UP$" "UT$" YCLON ATTLE ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***& KS0 FR$" ":AB$"Y":LF$"G":RT$"H":DN$"B":KS1:UQ%(1000),F ** SET VARIABLES **O900j ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !")UU71/I"":(50003)0962x ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234%(50003)160955T1093,88:1094,228:1097,85:1102,228:965i(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,141H2123,20:2124,3:2126,234:2127,141:2128,21:2129,3fUU48: DISABLE STOP KEYw800: TITLE300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281,6:53280,6!900'3UT,UL%]" Ϡ "L" OUR SPEED DETERMINES DIFFICULTY:"V" 1 = SLOW."`" 2 = MEDIUM."j" 3 = FAST."t" ELECT SPEED NOW: ";~US$"123":UL1:35:Q$UR$  Q$ "4" Q$ "0" 1280G " NLY DIFFICULTY 1 - 3 ALLOWED"M W 1140  850:" IRE BY PRESSING THE ";FR$;" KEY." " IM BY PRESSING THE "LF$""AB$""RT$""DN$" KEYS" " "LF$" MAKES THE TARGET MOVE LEFT."#!" "AB$" MAKES THE TARGET MOVE UP."P!" "RT$" MAKES THE TARGET MOVE RIGHT.}!" "DN$" MAKES THE TARGET MOVE DOWN."!:"DO YOU WANT TO CHANGE THE KEYS ?"! AN$: AN$"Y"AN$"N"1252! AN$"N" ! AN$"Y" 4000: 1200!" W$:W$""1290"Q(Q$)%" +"O"V$"""(H$"""2R$"""<RE$" ""FG$"۝ɝ˝ݝݝݝ#P"":UT,UU%#Z2100"#dTI$"000000",#n"";^#x"";m# W1 22#"";##"";$V((1)18)3:H((1)36)2:VO18:HO33J$(V$,25);"HITS-";HS;" SHOTS-";SHOTS;" REMAINING -";RRHS;""e$(V$,VO);(H$,HO);RE$m$G$$(V$,V);(H$,H);R$$ TI$"000045"2030$ I$:I$"" 1560$D$I$$D$AB$I$RT$I$LF$I$DN$1560$D$FR$D$"F": 1740% 1510%VOV:HOH+% D$AB$ D$"8"@% D$LF$ D$"4"U% D$RT$ D$"6"j% D$DN$ D$"2"%"((D$)2)1580,1590,1600,1610%,VVQ:1620%6HH(Q1):1620%@HH(Q1):1620%JVVQ%TRV((1)3)1%^RH((1)3)1&hVVRV:HHRH&rV3 V3"&|H1H12& V23V23B& H34H34]&Q1TI$"000035"2560x&Q2TI$"000025"2560&Q3TI$"000015"2560&Q3TI$"000030"2560& 1470& FIRE&SHOTSSHOTS1&(V$,21);28);3'"͝͝͝͝͝͝͝͝͝͝ "o'(V$,21);"ΑΑΑΑΑΑΑΑΑ֑ "'(V$,21);28);'" "((V$,21);" "!( (1443) 64 1900:(& (1443) 90 1900S(0 (1523) 90 1900l(: (1482) 90 1900(D (1484) 90 1900(N(V$,25);"HITS-";HS;" SHOTS-";SHOTS;" REMAINING -";RRHS;""(XSHOTS502070(b 1560(l DIRECT HIT6)vHIT$"   "m)CR$"   "y)DH15)(V$,12);(H$,18);HIT$)X1100:)(V$,12);(H$,18);CR$)X1100:))HSHS1)HSRR2420*TMTM(TI$)*TI$"000000":13901*(V$,V);(H$,H);RE$f*(V$,18);"THE ENEMY HAS OVER-POWERED YOU"v*X12000:* 2670*(V$,20);"WEAPONS ENERGY DEPLETED"* X12000:**2670*4"";:2340*>R1$"* * * "+HR2$"* * * * * "O+RR3$"* * * * * * * * "a+\R((1)31)w+fR2310,2320,2330+pX30191+z(V$,13);(H$,X);RR$+MM1:M22230+R1(V$,25)"  3 CYCLON SHIPS APPROCHING"%,R2(V$,25)"  5 CYCLON SHIPS APPROCHING"],R3(V$,25)"  8 CYCLON SHIPS APPROCHING"g,2240,(V$,25)" ";:M0,XX1300:,,(V$,20);(H$,10);"FIGHTER'S IN RANGE",X11000:-8)"SWITCHING TO ATTACK MODE"*-X11500:0-C- RR$R1$:RR3:V- RR$R2$:RR5:i- RR$R3$:RR8:-$ "";-. X122-8 "";-B .L ""-.V 10) "LONG RANGE SCANNER"_.` (V$,13);(H$,16);"ݝݝݝ"e.j .t (V$,22);"ALL CYCLON FIGHTERS DESROYED".~ (V$,25);"HITS-";HS;" SHOTS-";SHOTS;" REMAINING -";RRHS;"". X12000:. "" / "GOOD GOING .............!!!!!!"J/ "YOU DESTROYED ";HS;" CYLON SHIPS"d/ "IN ";TM;" CENTONS"/ "SHOTS FIRED - ";SHOTS/ "PROFICIENCY RATING - ";(HSSHOTS10000)100;"%"/ "DO YOU WISH ANOTHER MISSION? ";:US$"YN":UL1:350 Z$UR$%0 Z$"Y"HS0:TM0:SHOTS0:100030 Z$"N"=0 2520X0 (V$,VO);(H$,HO);RE$0 (V$,20);(H$,4);"YOU HAVE OVERRUN THE ENEMY SHIP"0 5)"THE ENEMY IS BEHIND YOU"0 5)"HIT 'R' TO REVERSE THRUST"0( TTI18002 Z$1< Z$"R""":13901F TIT26501P 2610J1Z "THE ENEMY HAS MADE A HIT ON YOUR SHIP"l1d "FROM BEHIND........!!!!!!"1n "------- YOU HAVE LOST -------1x 1 1 8351 1 1 1 1 1 1 1 300 2 " OU ARE IN COMMAND OF A VIPER"72 " FIGHTERSHIP. OUR LONG RANGE SENSORS"e2 " WILL WARN OF APPROCHING ENEMY CYCLON"2 " FIGHTERS WHEN THE COMPUTER SWITCHES TO"2 " ATTACK MODE, THE AUTO-LOCK CIRCUITRY"2 " WILL KEEP YOU IN RANGE, HOWEVER THE"3" " FINAL AIMING IS UP TO YOU. OURE3, " WEAPONS ENERGY WILL ALLOW 50 SHOTS."U36 835: 8503J " INCE YOU HAVE THE FASTEST SHIP IN"3T " THE GALAXY, BE PREPARED TO REVERSE"3^ " THRUST IN THE EVENT YOU OVERRUN THE" 4h " ENEMY (THE COMPUTER WILL PROMPT YOU)."84r " OWEVER BE CAREFUL-IF THE CYCLON GETS"h4| " BEHIND YOU HIS AUTO-LOCK CIRCUIT WORKS"4 " WELL ALSO, AND THERE WILL NOT BE MUCH"4 " TIME TO ESCAPE HIS LASER BEAM."4 835: 8504 " URING THE BATTLE YOU WILL HAVE ONLY "-5 " 45 CENTONS OF TIME TO TRACK DOWN EACH"]5 " FIGHTER BEFORE THE OTHER SHIPS COME TO"r5 " HIS RESCUE."~5 835:5"HIT THE KEY FOR UP;";5 AN$: AN$"" 40105AB$AN$:AN$5"HIT THE KEY FOR DOWN;";6 AN$: AN$"" 40406DN$AN$:AN$16"HIT THE KEY FOR LEFT;";J6 AN$: AN$"" 4070[6LF$AN$:AN$|6"HIT THE KEY FOR RIGHT;";6 AN$: AN$"" 41006RT$AN$:AN$6"HIT THE KEY TO FIRE;";6" AN$: AN$"" 41306,FR$AN$:AN$66