3","YELLOW"3"PL#4","PURPLE","PL#5","GREEN","PL#6"441,2,3,4,5,6,7,8,9,15,13,4,14,6,7,8,9,10,11,12,13,4,14,6,7,8,9~432,32,32,49,49,32,32,50,49,32,32,51,49,32,32,52,49,32,32,53,49,32,32454,49,32,32,55,49,32,32,56,49,32,3 1MSG$" ********** YOU WON! **********"1 30: 26)2V,14:V1,6:"* * * * * * "Y2I13:7);" * * * * *  "27);"* * * * * * ":I2I13:7);" 2,57,49,32,32,32,32532,32,49,52,32,32,50,52,32,32,51,52,32,32,52,52,32,32,53,52,32,328554,52,32,32,55,52,32,32,56,52,32,32,57,52,32,32,32"R3 30: 26:j3 ** DATA STARTS **3"WHITE","PL#1","RED","PL#2","BLUE","PL#  "27);" ":I3MSG$" YOU ARE A TRUE CHAMPION!!": 34:B3MSG$"  YOU HUMANS ARE SO EASY TO BEAT! "R3 30: 26:j3 ** DATA STARTS **3"WHITE","PL#1","RED","PL#2","BLUE","PL# 246:P(1,PT)0 290$>MSG$"  ALL TROOPS ON STATION! ": 26: 30V@MSG$"DO YOU WANT TO ATTACK? [Y/N]": 30: 34jBP(2,PT)1 510~DK$:K$"" 324FK$"N" 450H"ATTACK WHAT SECTOR";DS$J(DS$)2 30: 320L((DS$ AFAT BFBT1 BFBT1 498'AFAT1 AFAT1 496(AT2(AT2) 494/(BFBT BFBT1 498I(BFBT BFBT1 498(MSG$"  SECTORS DO NOT CONNECT ": 26: 450(MSG$"": 30: 34:"HOW MANY";TM%(TM%SE(AF,BF,0) K$"N":31);"N": 22: 456%K$:K$"" 454 &K$"N" 30: 506!&"MOVE FROM";MF$5&(MF$)2 450_&((MF$,1))49 ((MF$,1))57 450&((MF$,1))49 ((MF$,1))52 450&AF((MF$,1)):BF((MF$,1))&SE(AF,BF,PT)1 4 RA%1:RA%9RA%1)RB14:SE(RA%,RB,PT)1RB:RA: 514!* ADRA%:BDRB:DSAD10BD:DS$(DS)0* BD1 530g*AAAD:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 562v*BD4 532*AAAD:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 562*AD1 5 24,0: 26: 30#S16:SE(A,B,S)0:S:SE(A,B,PT)1&$X19:Y14:SE(X,Y,PT)1TTTT1=$Y:X:TT36TT0b$AS%SE(AA,BA,0)1OA%AS%: 442$MSG$"": 34:"YOU MUST MOVE IN";AS%;"ARMIES MINIMUM"$P(2,PT)1 584$"HOW MANY";OA$: SE(AA,BA,0)2 562+$RB:RA: 514+&BD1 560+(AD1 5583,*AAAD1:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 562B,,AD9 560{,.AAAD1:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 562,0RB:RA: 514,2SE(AA,BA,0)SE(AD,BD,0)2RB:RA: :A1D1ALAL1:DLDL1!SE(AD,BD,0)DL1 400"SE(AA,BA,0)AL2 402'"AT: 402W"AS%SE(AA,BA,0)ALAS%SE(AA,BA,0)(AL1)"AAA:BBA: 30: 38:SE(A,B,0)SE(A,B,0)AL: 246"AAD:BBD:SE(A,B,0)SE(A,B,0)DL:TPPT"S16:SE(A,B 1 -";SE(AA,BA,0)1;-B"]?";AS%: 22: 390.DSE(AA,BA,0)SE(AD,BD,0)2 570.F 320+.HOA%((0)SE(AA,BA,0))=.JOA%AS% 584].L"HOW MANY?";OA%: 22: 442|.N *** COMPUTER STATION ***.P"WHAT SECTOR #?";.RRA(9(0))1:RB(4(0) G$"  NOT ENOUGH ARMIES FOR THIS ATTACK " l 26: 30: 320< nAAAD BABD1 AAAD BABD1 382Z pAAAD1 AAAD1 378q rAD2(AD2) 376 tBABD BABD1 382 v 378 xBABD BABD1 382 zMSG$"  SECTORS DO 1 638/hAD2(AD2) 626/jBD4 6360lAAAD1:BABD1:SE(AA,BA,PT)1 638'0nAAAD1:SE(AA,BA,PT)1 63810p 594@0rBD1 636O0tAD1 634x0vAAAD1:BABD1:SE(AA,BA,PT)1 6380xAD9 6360zAAAD1:BABD1:SE(AA,BA,PT)1 6 ,1))49 ((DS$,1))57 30: 320'N((DS$,1))49 ((DS$,1))52 30: 320IPAD((DS$,1)):BD((DS$,1))bRSE(AD,BD,PT)0 344TMSG$"  THAT'S ONE OF YOUR SECTORS! "V 26: 30: 320X"FROM";AS$Z(AS$)2 30: 320 1 498)SE(AF,BF,0)SE(AF,BF,0)TM%:SE(AT,BT,0)SE(AT,BT,0)TM%$)AAF:BBF: 246:AAT:BBT: 246<)PTPT1:PTNPPT1F) 274h) ** COMPUTER MAIN ROUTINE **)Z%((0)100)1:Z%90 516) 22: 450)RA%(9(0))1)RA19:RA% 74&MSG$"  THAT'S NOT ONE OF YOUR SECTORS! "' 26: 450'"MOVE TO";MT$,'(MT$)2 450V'((MT$,1))49 ((MT$,1))57 450'((MT$,1))49 ((MT$,1))52 450'AT((MT$,1)):BT((MT$,1))'SE(AT,BT,PT)1 470' 38*AAAD1:BABD:SE(AA,BA,PT)1 SE(AA,BA,0)2 562+AD9 5409+AAAD1:BABD:SE(AA,BA,PT)1 SE(AA,BA,0)2 562Q+AD2(AD2) 550`+BD4 560+ AAAD1:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 562+"AAAD1:SE(AA,BA,PT)1 C1(OA$):C$(OA$,C,1)$(C$)49(C$)57 432 %C:OA%(OA$)2%OA%AS% OA%SE(AA,BA,0)1 432r%SE(A,B,0)OA%: 246:AAA:BBA:SE(A,B,0)SE(A,B,0)OA%: 246%TT36 650% 320%MSG$" MOVE TROOPS? [Y/N]": 30: 34%P(2,PT)1  514,4"ATTACK WHAT SECTOR?";,6ASAA10BA:AS$(AS)-8DS$: 22:"FROM?";AS$: 222-:AS%((0)(SE(AA,BA,0)1))1L-<SE(AA,BA,0)11 390->SE(AA,BA,0)1SE(AD,BD,0)AS%(SE(AD,BD,0)1.5) 570-@MSG$"": 30: 34:"ATTACKING STRENGTH [ ,S)1PTS: 246"S:PTTP:SE(A,B,0)1 422#SE(AA,BA,0)2W24,0: 320Q#MSG$" SAME ATTACK AGAIN? [Y/N]":W24,0: 30: 34e#P(2,PT)1 580y#K$:K$"" 416#K$"Y" 30: 382# 320#MSG$"  SECTOR CONQUERED ":W )1.TSE(RA,RB,PT)1 594.VADRA:BDRB.XBD1 606/ZAAAD:BABD1:SE(AA,BA,PT)1 638#/\BD4 608J/^AAAD:BABD1:SE(AA,BA,PT)1 638Y/`AD1 614/bAAAD1:BABD:SE(AA,BA,PT)1 638/dAD9 616/fAAAD1:BABD:SE(AA,BA,PT)  NOT CONNECT " | 26: 30: 320!~SE(AA,BA,0)11AS%1: 388R!MSG$"": 30: 34:"ATTACKING STRENGTH [1 -";SE(AA,BA,0)1;n!"]";:AS%:AS%1 382!AS%SE(AA,BA,0)1 382!AL0:DL0:AT1AS%:A1(6(0))1:D1(6(0))1!ALAL1 380| 5940~AAA:BBA:ZAA10BA0RI$(Z):RI$: 221" ":"HOW MANY?";=1ST%((0)P(1,PT))1:ST%10 648n1ST%P(1,PT)5ST%(P(1,PT)5):ST%1ST%11ST%: 22: 3101 ** GAME OVER **1P(2,PT)1 670 \((AS$,1))49 ((AS$,1))57 30: 3200^((AS$,1))49 ((AS$,1))52 30: 320R`AA((AS$,1)):BA((AS$,1))kbSE(AA,BA,PT)1 360dMSG$"  THAT'S NOT ONE OF YOUR SECTORS! "f 26: 30: 320hSE(AA,BA,0)1 366jMS ,B,0)0SE(A,B,PT)1:SE(A,B,0)1:P(1,PT)P(1,PT)1: 172LMSG$"  ALREADY PICKED "` 26: 30: 154 246:TRTR1:PTPT1:PTNPTPT1TR0 154MSG$"  ALL SECTORS OCCUPIED ": 26: 30 MSG$"  NOW YOuP S1$:S1$""280e "":I110:: "" ONE MOMENT PLEASE" ,"INSUR1",8:"LIFE INSU1",8RCE: BAILARD,c'* BIEHL & KAISER INC., SANx'* MATEO, CALIF.'* PROGRAM BY GLENN LUMPKINS'* WRITTEN APRIL, 1984 V3'*** Σ "11)" ͤ ͤ ͤ ͤ ͤ":IZ5)" "6)"ͤ ͤ ͤ ͤ"MSG$"  NOW WE CHOOSE SECTORS ": 26: 30R1(9(0))1:R24:R3(9(0))1:R41 * ATER...."CHANGING LIFE-&* INSURANCE NEEDS REQUIRE'* PERIODIC LOOK AT YOUR FAMILY'SC'* COVERAGE"....SOURCE: BAILARD,c'* BIEHL & KAISER INC., SANx'* MATEO, CALIF.'* PROGRAM BY GLENN LUMPKINS'* WRITTEN APRIL, 1984 V3'***AYER #";NP;"NAME? COMPUTER";NP/tPN$(0,NP)"COMPUTER"(NP)mv" ";PN$(0,NP);",YOUR COLOR IS ";PN$(1,NP);".":P(2,NP)1{x 22: 22zAR32((NP3)5):PT(NP(0))1|I16:P(1,I)AR:I~ ** DRAW SCREEN **"":I040:S:SMI,S128TO FIGURE IN THE POTENTIAL EARNINGS FROM INVESTING";I%P" THE INSURANCE PROCEEDS. 1. A CONSERVATIVE PORTFOLIO SUCH AS BANK";%Z"ACCOUNTS AND BONDS (2% REAL GROWTH AFTERINFLATION AND TAXES) OR";%d" 2. A MORE AGGRESSIVE INVESTMENT SUCH AS STOPI$(PC):PI$: 22: 222 ** UPDATE SECTORS **1TA2:I1A:TATA4:IK"":A2(A2) 262fB 254, 256, 258, 260TA);"";PN$(2,PT): 272TA);"";PN$(2,PT): 272TA);"";PN$(2,PT): 272TA);" KEY TO CONTINUE>""K$:K$""5116"""#" THE TOTAL";V# " INSURANCE NEEDED IS FOUND BY ADDING THE IMMEDIATE AND LONG--";#"TERM EXPENSES AND SUBSTRACTING THE VALUE OF INVESTMENT ASSETS";#" ON HAND."::" TO ESTIMATE SOCI49 ((FO$,1))57 30: 2103((FO$,1))49 ((FO$,1))52 30: 210SA((FO$,1)):B((FO$,1))SE(A,B,PT)1SE(A,B,0)SE(A,B,0)1:P(1,PT)P(1,PT)1: 228MSG$"  NOT YOUR SECTOR! " 26: 30: 210 246:PTPTROUTINE **(AM0:EA%0:EA0:X19:Y14:SE(X,Y,PT)1AMAM.75:EAEA2@Y:EA8EA%EA%EAWEA0:X:AM0 286oPTPT1:PTNPPT1y 274AM3AM3 P(1,PT)(AM):AB(0).5:P(1,PT)(P(1,PT)(ABP(1,PT)))EA%"MSG$"": 34U MUST REINFORCE ": 26: 30: 208( ** COMP. TERR. PICK **:"ENTER #?";IPT2 196aSE(R3,R4,0)0 194R4R41:R44R41:R3R31R39R31 186AR3:BR4:ZR310R4: 206SE(R1,R2,0)0 204R2R21:R21R2 3080MSG$"  NOT YOUR SECTOR! "2 26: 30: 290I4" ":"HOW MANY";ST%6ST%P(1,PT)SE(A,B,0)SE(A,B,0)ST%:P(1,PT)P(1,PT)ST%: 3168MSG$"  YOU DON'T HAVE THAT MANY! ": 26: 30: 290<* PICKING SECTORS ** MSG$" PICK A SECTOR.": 344P(2,PT)1 180`"ENTER #";:PI$:(PI$)2 30: 154((PI$,1))49 ((PI$,1))57 30: 154((PI$,1))49 ((PI$,1))52 30: 154A((PI$,1)):B((PI$,1))"SE(A**************************** THE TOTAL"; " INSURANCE NEEDED IS FOUND BY ADDING THE IMMEDIATE AND LONG-"; "TERM EXPENSES AND SUBSTRACTING THE VALUE OF INVESTMENT ASSETS"; " ON HAND."; ::" ":CMI,7:II7975940:SMI,160:CMI,7;SMI1,160:CMI1,7:IdI761799:S:SMI,S128:CMI,7:II14:1)" Σ Σ Σ Σ Σ"1)" ͤ ͤ ͤ ͤ "1)" Σ Σ ΣCKS AND REAL ESTATE";&n" THAT MIGHT YIELD 4% REAL GROWTH."0&x:" "D&K$:K$""5250O&"":t&*******************************&* BASED ON AN ARTICLE IN 'WALL&* STREET JOURNAL' BY KAREN&* SL ";PN$(2,PT): 272B 264, 266, 268, 2701TA);"";PN$(2,PT): 272U TA);"";PN$(2,PT): 272} TA);"";PN$(2,PT): 272TA);"";PN$(2,PT)TA);" ":TA);SE(A,B,0): 30: ** MAIN AL SECURITY BENEFITS";&$("YOU SHOULD USE $5,000 IF YOU HAVE TWO OR MORE MINOR CHILDREN.";f$2" USE $4,000 FOR ONE CHILD AND $3,000 FOR NO CHILDREN.":$<" A WORK SHEET PROVIDES A CHOICE OF TWO INVESTMENT RATE FACTORS";$F" YOU CAN USE 1:PTNPTPT1P(1,PT)0 210BMSG$"  PREPARE FOR BATTLE!! ": 26: 30: 274c ** COMPUTER REINFORCING **x"REINFORCE #?";RA(9(0))1:RB(4(0))1PCRB4:SE(RA,PC,PT)1PC: 238ARA:BPC:PCRA10PC :"YOU HAVE";P(1,PT);"ARMIES TO STATION"$P(2,PT)1 590E&"WHAT SECTOR #";RI$:(RI$)2 30: 290u(((RI$,1))49 ((RI$,1))57 30: 290*((RI$,1))49 ((RI$,1))52 30: 290,A((RI$,1)):B((RI$,1)).SE(A,B,PT)14:R1R11R11R19 196!AR1:BR2:ZR110R2>PI$(Z):PI$: 22: 166_ ** INITIAL REINFORCEING **MSG$"": 34:"YOU HAVE";P(1,PT);"ARMIES LEFT"P(2,PT)1 234"REINFORCE #";FO$:(FO$)2 30: 210((FO$,1)) 6"==>$";AL:"==>$";CCh@"==>$";PN:"==>$";MCJNMALCCPNMC:"":X1:20T:3);DR$:3);DW$^3);" EMERGENCY FUND ":3)DW$h3);DV$::" + "":3);DR$:3);DW$93);" NON-MORTGAGE DEBTS "O3);DW$:3);DV$Y::DR$"î":DV$"ý"3);DR$;:23);DR$3);" AUTO LOAN ";:23);"CREDIT-CARDS "3);DV$;:23);DV$: S " 2);" R T R T S "5 1);" E L S E S E "y*" B I E S E R ":" M T V N V G "4" U N N O N G ":" N U I C I A ">" 35 23 ":""Kk"FIND YEARS"yl"PICK FROM"m"A OR B"p"==>";FIzTLLEELAISS:"":I19:::3);DR$:3);DW$B3);" NO OF YEARS UNTIL SPOUSE IS 90 "{3);" INVESTMENT RATE FACTOR ":3);DW$3);DV$::12);"==>";:YR""10);" INVESTMENT RATE FACTOR "9);"Σ++++++++++++++++++":"+ 1. FUNERAL/ESTATE TAXES/ETC. ";GE?"+ 2. SETTLE NON-MORTGAGE DEBTS ";NMi"+ 3. EMERGENCY FUND ";MP"+ 4. COLLEGE FUND ";T1"+ 5. EXPECTED LIVING EXPENSES""+ A. AVG. ANNUAL LYEARS TO ATTEND "'0"";NCQ:"";TY}DT1(CNC)TY:"":::3);DR$:3);DW$N3);" EXPECTED ANNUAL LIVING EXPENSES ":3);DW$X3);DV$:::3);DR$:3);DW$b3)"P. ";TL$"+ 6. TOTAL MONETARY NEEDS ";TN2."+ 7. TOTAL INVESTMENT ASSETS ";IA?3LNTNIAi8"+ 8. LIFE INSURANCE NEEDS ";LNB"+++++++++++++++++++++++++++++++++++++++"L:" PRESS ANY KEY TO CONTINUE"VKE$:KE++++++++",3);"+ THIS ASSUMES 9,000/YEAR PRIVATE +":3);"+";m" 4,900/YEAR STATE-PUBLIC COLLEGE +":3);"+ ROOM - ";"BOARD - TUITION +":" +++++++++++++++++++++++++++++++++++":3);RR$:3);"+++++1. PRIVATE UNIV";"RE NO LONGER BASED ON A MULTIPLE OF YOUR";$";EL"==>$";AI:"==>$";SS $""1110`"":35* "":" IS YOUR LIFE INSURANCE SUFFICIENT-- OR IS IT MORE";A " THAN YOU NEED?" :" THE BEST WAY TO TELL IS TO CALCULATE WHAT YOUR FAMILY"; " WOULD REQUIRE IF YOU DIED TODAY.": " INSURANCE NEEDS A"ERSITY++++++":3);"+++++2. PUBLIC UNIVERSITY++++++"\3);"+++++3. PLEASE SELECT ONE++++++":3);RV$:oC$:C$""500C$"1"C$"2"500C$"1"C9600C$"2"C49003)" NO OF CHILDREN TO ATTEND "&3);" TOTAL  VARIOUS QUESTIONS, TO";0"" IDENTIFY SUMS TO BE PAID OR SAVED, THEN CALCULATE THE FAMILIES";z"" POTENTIAL INCOME AND LIVING EXPENSES. THIS AMOUNT IS REDUCED";"" BY INVESTING THE LIFE INSURANCE PROCEEDS.":"" $";MP"==>$";IA:"":3);DR$:3);DW$3);" COLLEGE FUND ":3);DW$3);DV$::3);"+++++++++++++++++++++++++++ ( *** PRINTER FORMAT PGR ***O *** EPSON CARD/?+G FORMAT ***v *** WRITTEN BY JOHN LAWS *** *** SEPT 16, 1984 *** ******************************** ""7)"PRINTER FORMAT PROGRAM" " 9)"1 553282,16:53283,15:53284,2:53265,(53265)64X53281,7:53280,7:(149):""I18:::" î""  ""  LIFE INSURANCE NEEDS " " yGE": N(\4,(27);(78);(N);"SKIP-OVER PERFORATION SETcf4,"WITH"N"LINES AT BOTTOM OF PAGE BEING LEFT BLANK":9);"1 NUMBER OF LINES"9);"2 BY INCH LENGTH"K$:K$""730K(K$):K1 K2 730 K2 800"'LABCDEFGHIJKLMNOPQRSTUVWXYZ;<=> ` !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_6    7`LL     `ABCDEFGHIJKLMNOPQRSTUVWXYZ"LEFT MARGIN IS";N:54,(27);(56);"IGNORE PAPER-END SIGNAL":g"DO YOU WISH TO SET THE FORM LENGTH BY"9);"1 NUMBER OF LINES"9);"2 BY INCH LENGTH"K$:K$""730K(K$):K1 K2 730 K2 800"DISPLAY BUFFER CONTINUE SKIP  ` !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_6    7`LL     `ABCDEFGHIJKLMNOPQRSTUVWXYZK$""503 K(K$):K 1 K 4 5038  K 590,580,570,510A 503n "WHAT VALUE DO YOU WANT TO GIVE N";N}  N0 510 4,(27);(65);(N);N;"/72 IN. LINE":4,"SPACING SET"  :4,(27)(50);"1/6 IN. (12/72) LINE":4,"SPACING SLТݠ /L  / L  /7`L  Lɉ `LɊ lLɋ   yLɌL LH h L `6 7`UNCTION (Y/N)" K$:K$""1506 K$"Y" K$"N"150E K$"Y"10K m 4,(27);(77);"ELITE MODE": 4,(27);(20);"CONDENSED MODE":: CARD+G CHANGES TO 15 ,4,(27);(52);"ITALICS MODE": ^4,(27);(69);"EMPHASIZED MODE": î"7 DV$"ý"f DW$" "x X1X.:340 RR$"î" !RV$"ý" "RW$"  ELITE PRINT"+ 9)"2 CONDENSED PRINT"H (9)"3 ITALICS PRINT"h 29)"4 EMPHASIZED PRINT" <9)"5 ENLARGED PRINT" F9)"6 DOUBLE STRIKE PRINT" P9)"7 SET LINE SPACING" Z9)"8 SET LEFT MARGIN" d9)"9 IGNORE "R " ý":: 5);"DO YOU WANT AN INTRODUCTION " S$:S$""8 S$"N"S$"Y"7 "":53281,7:53280,7:(149):S$"Y"5000 DR$" +2. $20,000 TO $200,000+++++"& _3);RW$W d3);"+++++3. $200,000 TO OVER +++++"d i3);RW$ n3);"+++++4. END PROGRAM +++++" s3);RW$ x3);"+++++ PLEASE SELECT ONE +++++" }3);RW$ "   " 3);RV$0 S$:S$""140g S(S$):S1S4"PLEASE ENTER A NUMBER 1-4":140 S4"":I112:::8);"PLEASURE TO SERVE YOU" S4I12000::"": S1GE2200 S2GE5000 S3GE10000 "9);:"HOW MANY LINES PER PAGE";NN4,(27);(67);(N);"FORM LENGTH IS"N"LINES PER PAGE":y ""9);:"HOW MANY INCHES PER PAGE";N*4,(27);(67);(0);(N);"FORM LENGTH IS"N"INCHES PER PAGE"4R"HOW MANY LINES TO SKIP ON BOTTOM OF PAϐ!L1L1xX` !"#$%&'()*+,-./0123456789:;<=>?@[\]^_ ABCDEFGHIJKLMNOPQRSTUVWXYZ;<=> 40)  ئ̑L  L@ ET":5D4,(27);(48);"1/8 IN. (9/72) LINE":4,"SPACING SET":kN4,(27);(49);"7/72 IN. LINE":4,"SPACING SET":X"WHAT COLUMN DO YOU WANT LEFT MARGIN":15);: N]4:4:4,4,4: TRANSPARENT MODE ON STAR IS 4,4,6b4,(27);(108);(N); SET START OF SELECTED TEXT SET END OF SELECTED TEXT BACKUP DISPLAY SELECTED TEXT 4,(27);(87);(1);"ENLARGED MODE":I 4,(27);(71);"DOUBLE STRIKE MODE": ""9)"YOUR CHOICES ARE: ":9)"1 7/72 IN SPACING" 9)"2 1/8 IN SPACING (9/72)":9)"3 1/6 IN SPACING (12/72)" 9)"4 N/72 IN SPACING" K$: " #3);DR$:3)DW$F ("  GROSS ESTATE ESTIMATES "[ 23);DW$:3)DV$l A::3);RR$ F3);"NET WORTH PLUS INSURANCE PROCEEDS" K3);RW$ P3);"+++++1. $0 TO $20,000 +++++" U3);RW$ Z3);"++++ PAPER END"( i9)"10 SET FORM LENGTH"R k9)"11 SET SKIP-OVER PERFORATION"z n10);:"YOUR CHOICE";K$:K$""110 xK(K$):K 1 K 11 110 4,4,0: K 200,250,300,350,400,450,500,600,650,700,850 4:4:"CHANGE ANOTHER F 9V53280:W54272:SM1024:CM55296:V,11:V1,0:""g"";9);"***** FUTUREWAR! *****"13);"BY B.W.BEHLING"11);"(C) COPYRIGHT 1984" 12: 22: 56 ** VARIABLES **PN$(2,6),P(2,6),SE(9,4,6),D%(12):TR36,  " 45,0:46,19:56,21:52,21:^S54272:S5,12:S6,0:S24,15:S1,25:S,177:808,239h6390x(2,2,3,(6)2251,(6154):252,(6155)d54276,0:"":" MAIN MENU"::n"1 TERMINAL":x"2 SEARCH TEXT": "3 SA SAVE MENU"::K "1 SAVE SELECTED TEXT"::"2 SAVE ALL TEXT":j "3 ABORT THIS FUNCTION":} "KEY DIGIT": AA$:AA$"1"AA$"3"430 AA$"3" 590:1,A,1,F$ (6240(AA$"1"))(5824(AA$"2")) 1: "":: "A8:F$"@0:"F$: TA$"T"594" VN X""::" PRINTER MENU":: b"1 PRINT ALL TEXT"::"2 PRINT SELECTED TEXT": g"3 ABORT THIS FUNCTION"::"KEY DIGIT": lA$:A$"1"A$"3"620 v"OK":4,4:(A$)650,660,690 A:A$:A$"0"A$"3"730!A$"0"780NA$"1"6150,0:"BUFFER ON":A12000:|A$"2"6150,1:"BUFFER OFF":A12000: 251,1:252,26:6152,1:6153,26:6154,1:6155,26"BUFFER RESET":A12000:: "":"DISPLAY BUFFE ";PN$(0,I);",YOUR COLOR IS ";PN$(1,I);".":I5 VNP 90, 104? X 112d Z" PLAYER # 2 NAME? COMPUTER 2" \PN$(0,2)"COMPUTER 2":P(2,2)1 ^" ";PN$(0,2);",YOUR COLOR IS ";PN$(1,2);".":I3 `" PLAYER # 3 NAME? COMPUTER 3"bPN$(0,3)"COM54273,I2 0J15:::W1,10:W8,1:W5,112:W6,252I 2W4,129:W11,129Y 4I1200:Ir 6W4,128:W11,128: 8" NUMBER OF PLAYERS";:NP :NP7 62 <" SORRY, NO MORE THAN SIX CAN PLAY!": 22: 56 >NP1 56 @NP3NP5 6AAz YI16:CL$:PN$(1,I)CL$:CL$:PN$(2,I)CL$:I` I19:A%(I)::I29:B%(I)::I09:C%(I):f }  ** DELAY LOOP ** DL02000:DL:  ** PRINT MESSAGE ** "";MSG$: 22:  ** ERASE MESSAGE ** ER182VE": "4 LOAD":. "5 SAVE TO PRINTER":@ "6 BUFFER":Q "KEY DIGIT"l A$:A$"0"A$"6"170 (A$)300,800,400,500,600,700 100 ,"":53272,23:6528 6"":53272,21:"HAVE YOU LOGGED OFF?" @A13000:: ""::"" LOAD MENU"::C "1 LOAD"::"2 ABORT THIS FUNCTION":V "KEY DIGIT":h A$:A$"2"y A$"1"530 &590:1,A,0,F$ 06151,A:6291:1: NF$"":"FILENAME";F$ OF$"":590 P:"TAPE OR DISK?" RA$:A1:A$"D6656(251)(252)256:680@ A(6152)(6153)256(6154)(6155)256Y 4,((A)127);::4b 4: ""::" BUFFER MENU":: "0 RESET BUFFER"::"1 BUFFER ON"::"2 BUFFER OFF" :"3 ABORT THIS FUNCTION"::"KEY DIGIT"R":*53774PUTER 3":P(2,3)17d" ";PN$(0,3);",YOUR COLOR IS ";PN$(1,3);"."FfNP3: 120kh" PLAYER # 3 NAME? COMPUTER 3"jPN$(0,3)"COMPUTER 3":P(2,3)1l" ";PN$(0,3);",YOUR COLOR IS ";PN$(1,3);"."nNP3: 120pCP1 120rNPNP1:" PL AAA;8" B" CAN I PLAY WITH YOU";:CP$: 700 DCP0: 74L F(CP$,1)"N"CP0: 74U HCP1a JI1NP L" PLAYER #";I;:"NAME";PN$(0,I) N(PN$(0,I))11 84 P" THAT NAME IS TOO LARGE!" R" NO MORE THAN 10 LETTERS PLEASE.": 76$ T"6ŠԄƭL<) L  /  /   /Ћ)  L KƠ / ũƅ<  ) 42023:ER,32:ER:' " ** PLAYER INFO **[ $"";PN$(0,PT);",";MSG$:r & ** BOMB SOUND ** (I022:WI,0:I:W24,10:W5,80:W12,160 *W6,255:W13,252:W4,17:W4,16 ,I2552001:54273,I:I .I255751:A_ FEBRUARY852AFUTUREWAR!.TELELINK 64LINK OV'LAY64 CHECKSUMVIC CHECKSUM MENU C-64FONTASIA INS. AGENT"MENU VICVIC ERASER SPRITE CNTRLRSPRITE LOADER SPRITE M/SSPRITE SAMPLE FLANKSPEED MENU-VIC  4,42 4," "[ 4," " 4," " 4," ^C Ϸ START "4," BUFFER SELECTED "4," ON TEXT  ," "G 4," ^Q BACKUP "p 4," BUFFER " 4," RESET SKIP " 4," " 4," " 4," ^S " (4 "G 4," ^Q BACKUP "p 4," BUFFER " 4," RESET SKIP " 4," " 4," " 4," ^S  ( X 49152 49488 : Y: X,Y::\ 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177 251, 208, 3, 76, 138, 192, 230, 251, 208, 2 230, 252, 76, 43, 192, 76, 73, 78, 69, 32!  35, 321, 208, 237, 165, 253, 41, 240, 74, 74T  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, 63, 208, 2, 230, 64, 230  251, 208, 2, 230, 252, 76, 11, 192, 169, 153  160, 192,255, 32, 186, 255, 169, 0, 133G  63, 133, 64, 133, 2, 32, 189, 255, 32, 192z  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1, 208, 249  96, 32, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4, 252, 96, 170, 177, 251, 201, 34, 208, 6, 165, 2, 73_ 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169 13, 76, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4, % X 828 1023 : Y: X,Y::W 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230 251, 208, 2, 230, 252, 169, 244, 160, 3, 32  30, 203, 16 253, 177, 251, 208, 226, 165, 253, 41R # 240, 74, 74, 74, 74, 24, 105, 65, 32, 210 $ 255, 165, 253, 41, 15, 24, 105, 65, 32, 210 % 255, 169, 13, 32, 210, 255, 173, 141, 2, 41 & 1, 208, 249, 230, 63, 208, 2, 230, 64, 230 ' 251, 208, 2, d"": 53280,6: 53281,1\n 3)"        "x 3)"        ̯" 3)"         " " "( 4," "Q 4," "z 4," ^P END " 4," BUFFER " 4," OFF CONTINUE " 4," " 4 SLOW "= 4," SCROLL "f 4," EXIT ̤ EXIT " 4," " 4," TELELINK 64 " !4," " "4,"  "' L$""= AA1:BB1: PR$_ (L$,B6)10)"";A;"- "PR$o B7 175y 150 A14 :A0 (L$,22)" DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNATIONAL INC"" , 0, 169, 35, 160, 192, 32, 30, 171T  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 230, 254, 32, 37, 193  234, 165, 253, 160, 0, 76, 13, 193, 133, 253"  177, 25 32, 30, 171, 166, 63, 165, 64, 76K  231, 192, 96, 76, 73, 78, 69, 83, 58, 32|  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83, 240, 6, 201  80, 208, 245, 230, 254, 32, 210, 255, 169, 4  166, 254, 160, 76, 195, 255, 147, 83, 67<  82, 69, 69, 78, 32, 79, 82, 32, 80, 82h  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138  113, 251, 69, 254, 170, 138, 76, 88, 192, 0  0, 0, 0, 230, 251, 208, 2, 230,  (L$,20)9)"RETURN OR CHOOSE NO.";: AN$:AN(AN$):B0M AN$"" 100j : CH1 AN: PR$: CHt "" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2:  64 CHECKSUM,VIC CHECKSUM,FU0, 0, 177, 251, 170, 230, 251, 208S  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32 228, 3, 234, 165, 253, 160, 0, 170, 177, 251 ! 201, 32, 240, 6, 138, 113, 251, 69, 254, 170" " 138, 133, 230, 252, 76, 74, 3, 169, 236H ( 160, 3, 32, 30, 203, 166, 63, 165, 64, 32| ) 205, 221, 169, 13, 32, 210, 255, 96, 230, 251 * 208, 2, 230, 252, 96, 0, 76, 73, 78, 69 + 83, 58, 32, 0, 76, 73, 78, 69, 32, 35 , 32, 0, 0, 0, 0, 08, 133,  DL$(150):II1:210[ BY JOHN STILWELL 5/31/83 REVISION 2 ON 1/8/84 *************:DL$(150):"* ERASER IS SCANNING ******* THE DISC ******":II0(1,8,0,"$0"2#1,A$,B$<#1,A$,B$F#1,A$,B$PC0Z A$""C(A$)d $" ":KDL$(II)G$A$F$:D$""JII0705:DL$(0)F$:"DISK IS:"DL$(0)ZIIII1:60 ROLLO DEX **********************I1"""PUSH S TO SCRATCH F1-UP, F7-DOWN, L-LOADV-VERIFY,";:K0" R-RENAME,W-WHY, F-FOR ":JA$:A$""270&A$"S"3506A$"A"940Q"A$""I1II1:220o,A$""III1II1:220~6A$"L"30;A$"W"490@A$"V"400CA$"P"720EA$"R"420GA$"F"550J270T SCRATCH *******^"20! RENAME *****************************4DL$(I)""270QF$(DL$(I),(DL$(I))6)"*** RENAME ***":NN$"":"WHAT'S THE NEW NAME":NN$"":NN$""21515,8,15:15,"R0:"NN$"="F$:15DL$(I)(DL$(I),6)NN$:215 TUREWAR!,TELELINK 64,LINK OV'LAY[  FONTASIA,INS. AGENT,VIC ERASER,SPRITE CNTRLR,SPRITE LOADER  SPRITE M/S,SPRITE SAMPLE,FLANKSPEED,END (L$,22)" DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNATIONAL INC"" 36879,I:J,I.:"ARE YOU SURE YOU WANT TO DO THIS?":198,0ADA$:A$""580RNA$"Y"215X"WHAT IS THE DISK'S NEW NAME":N$:N$""215bA$(((.)26)65)lB$(((.)26)65)v15:15,8,15,"N0:"N$","A$B$:15:"ERASER",8::215II1220!"PUSH ANY KEY TO PAUSE"M4,4:4," "(14)DL$(0)(15)[I1II1nA$:A$""780"DO YOU WANT TO ABORT?" A$:A$""777 A$"Y"III1:790 "PUSH ANY KEY TO PAUSE" 4,=-=-=-=-=-=-=-=-=-=-=-=;= MULTI-COLOR SPRITE =X= MAKER/SAVER =u=-=-=-=-=-=-=-=-=-=-=-="WHAT IS THE FILENAME FOR THIS SPRITE";FL$ "STORE IN WHICH MEMORY BLOCK (192..199)";BKMEM64BK  8,8,8,"@0:"FL$", B$""CC(B$)2561nD$D$""((C),2)""Kx#1,B$:ST01:210_ B$(34)120#1,B$: B$(34)D$D$B$:140#1,B$:B$(32)150C$""C$C$B$:#1,B$:B$""170III:DL$(II)D$:705A$"":K16(G$):A$AMAT DISKP-PRINTOUT, A-AUTORUN"T"THERE ARE "II1"ENTRIES "" ":K0" ";:250">";DL$(IK):KK1KIII1KII12266 230 (IK)(I12)J(IK)(I12):" SCRATCH IT? "&_A$:A$""3517`A$"Y"220JaDL$(I)""220Sc705qr15,8,15:15,"S0:"F$:15|IIII1:DL$(II1)"":JIII:DL$(J)DL$(J1):J:220 VERIFY ********" VERIFING THE DISC ":15,8,15,"V":15:2 WHAT THE DISK ERROR IS@15,8,15:15,A$,B$,C$,D$:"WHAT IS WRONG":15TA$:B$:C$:D$k"PUSH ANY KEY"~A$:A$""520215 NEW THE DISK&"FORMAT THE DISK":"THIS WILL ERASE THE ENTIRE DISK"0I2431:J150:S,W"> >>>FOR TAPE--REPLACE LINE 25 WITH THIS: OPEN 8,1,1,FL$O  ROW0 20X ( A$q 2 BYTE0 2 : TTL0 < PAIR3 0 1 FQ$(A$,44BYTEPAIR,1) PQ0 Z Q$"*" Q2 : 120 d Q$"1" Q1 : 120 n Q$"2" Q3 xTTL10 LOAD ROUTINE/F$DL$(I):K19:(F$,K,1)""JK:K9RK:G$(F$,J):F$(F$,(F$)J){(F$,1,1)" "F$(F$,(F$)1):715 PRINTOUT ROUTINE ***************"ARE YOU SURE? "A$:A$""740A$"Y"" "DL$(I):4  210*I1II1:F$DL$(I):705NA$"":J16(G$):A$A$" ":JgDL$(I)G$A$F$:I: LOAD & RUN THE PROGRAMF$(DL$(I),(DL$(I))6):F$"LOAD";(34);F$;(34);",8""RUN""RUN": =-=-=-=-=-=-=-=-=-=-=7= SPRITE LOADER =R=-=-=-=-=-=-=-=-=-=-=t "LOAD WHICH SPRITE FILE";FL$"WHICH MEMORY BLOCK (192..199)";BKMEM64BK( 8,8,8,"0:"FL$",S,R"->> FOR TAPE, REPLACE.>> LINE 40 WITH THIS:  ,!-..ADD THESE LINES TO=... 'SPRITE CONTROLLER'C/\1=-=-=-=-=-=-=-=-=-=u2= SPRITE SAMPLER =3=-=-=-=-=-=-=-=-=-=7=<= USE SPRITE LOADERA=OR SPRITE MAKER/SAVERF= TO PUT SPRITE DATAP= INTO MEMORY FIRST 1800:=CLR COLLISION1 2100:=SET PRIORITYI 900 :=TURN IT ONR SNd 192,0,50,50x 193,1,100,100  194,2,200,200=<= USE SPRITE LOADERA=OR SPRITE MAKER/SAVERF= TO PUT SPRITE DATAP= INTO MEMORY FIRST =-=-=-=-=-=-=-=-=-=-=-=;= SPRITE CONTROLLER =X=-=-=-=-=-=-=-=-=-=-=-=^} SPRITE DATA MUST ALREADY BE IN MEMORY.  SB(N)(MM) 2N RB(N)(MM) (2552N) GB(N)((PM 2N)0) (VV53248 : -=-=-=-=-=-=-=-=-=# XMMVV16 : X0XXE b XX256 MM,RB(SN): 630b lX0XX256 : MM,SB(SN)s v VVSN2,X0y  =-=-=-=-=-=-=-=-=-=-=-= = SET Y COORDINATE = = INPUT: SN,YY = =-=-=-=-=-=-=-=-=-=-=-=  VVSN-=-=-=-=-=-=-= MMVV21$  MM,SB(SN)* G =-=-=-=-=-=-=-=-=-=-=-=d = TURN SPRITE OFF = = INPUT: SN = =-=-=-=-=-=-=-=-=-=-=-= MMVV21  MM,RB(SN)  G=-=-=-=-=-=-=-=-=-=-=-= H= X EXPANSION ON TTL(4PAIR)Q PAIR! TTL,, 8,TTLF MEM,TTL : MEMMEM1Q BYTEW a ROWi 8o  .=BKGD / *=SPRITE COLOR  1=MC#1 / 2=MC#2 ............ ............ ............ ............ ........*.. ............ ............8,TTLF MEM,TTL : MEMMEM1Q BYTEW a ROWi 8o  .=BKGD / *=SPRITE COLOR  1=MC#1 / 2=MC#2 ............ ............ ............ ............ ........*"RUN"I631636:I,13::198,6:EY TO PAUSE"M4,4:4," "(14)DL$(0)(15)[I1II1nA$:A$""780"DO YOU WANT TO ABORT?" A$:A$""777 A$"Y"III1:790 "PUSH ANY KEY TO PAUSE" 4,53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ (i/>> OPEN 8,1,0,FL$# 2 N1 63. <8,TTL9 F TTL,S P MEM,TTL : MEMMEM1[ Z Nc d 8G REPELLENT20 BUG REPELLENT SHIPSHAPE OVERLAFONTASIA INSURANCE AGENT" U! Z=SET MULTI-COLOR COLORS:8 dC115:C214: 1700G n SN0 2Y x BK,CC,XX,YYn 500 :=SET PTR 800 :=SET COLOR 600 :=SET X COORD 700 :=SET Y COORD 1100:=EXPAND X 1300:=EXPAND Y 1500:=MULTI-COLOR=-=-=-=-=-== Y EXPANSION ON =5=-=-=-=-=-=-=-=-=-=-=PMMVV23 : MM,SB(SN)Vqs=-=-=-=-=-=-=-=-=-=-=t= Y EXPANSION OFF =u= INPUT: SN =v=-=-=-=-=-=-=-=-=-=-=xMMVV23 : MM,RB(SN)=-=-=-=-=VIC ADDRESS , =-=-=-=-=-=-=-=-=-=-=-=I = SET SPRITE POINTER =f = INPUT: SN,BK = =-=-=-=-=-=-=-=-=-=-=-=  2040SN,BK  S=-=-=-=-=-=-=-=-=-=-=-= T= SET X COORDINATE = U= INPUT: SN,XX = V=-=-=21,YY # =-=-=-=-=-=-=-=-=-=-=-=@ = SET COLOR =] = INPUT: SN,CC =z =-=-=-=-=-=-=-=-=-=-=-=  VV39SN,CC * =-=-=-=-=-=-=-=-=-=-=-= = TURN SPRITE ON = = INPUT: SN = =-=-=-=-= = I= INPUT: SN =6 J=-=-=-=-=-=-=-=-=-=-=-=Q LMMVV29 : MM,SB(SN)W Vr =-=-=-=-=-=-=-=-=-=-= = X EXPANSION OFF = = INPUT: SN = =-=-=-=-=-=-=-=-=-=-= MMVV29 : MM,RB(SN)  =-=-=-=-=-.... ............" ............4 ............F ............X ............j ............| ............ ............ ............ ............ ............ ............ ............ ..........54272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,T(2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADA 1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":11008 "@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:3070 -=-=-=-=-=-== MULTI-COLOR MODE =4= INPUT: SN =O=-=-=-=-=-=-=-=-=-=-=jMMVV28 : MM,SB(SN)p;=-=-=-=-=-=-=-=-=-=-=<= HI-RES MODE === INPUT: SN =>=-=-=-=-=-=-=-=-=-=-=@MMVV28 : MM, =  OUTPUT: PM=0 IF NONE =+-=-=-=-=-=-=-=-=-=-=-=-=;PM(VV30)AY CA CB SFLG1_&}f-=-=-=-=-=-=-=-=-=-=-=-=g ANY SPR/BKGD COLLISION=h INPUT: NONE =i OUTPUT: PM=0 IF NONE =j-=-=-=-=-=-=-=-INPUT: SN =1-=-=-=-=-=-=-=-=-=-=-=-=94MMVV27 : MM,RB(SN)?>]-=-=-=-=-=-=-=-=-=-=-=-={ SPR-A//SPR-B COLLIDE? = INPUT: SA,SB = OUTPUT:SFLG=0 IF NOT =-=-=-=-=-=-=-=-=-=-=-=-=PM(VV30) :  CA BFLG1 =-=-=-=-=-=-=-=-=-=-=-=94MMVV27 : MM,RB(SN)?>]-=-=-=-=-=-=-=-=-=-=-=-={ SPR-A//SPR-B COLLIDE? = INPUT: SA,SB = OUTPUT:SFLG=0 IF NOT =-=-=-=-=-=-=-=-=-=-=-=-=PM(VV30) : 81200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN Sd"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B3)0)"";A;"- "PR$ B7 175 150 A14 :A0 (L$,17)" DISKS REPRODUCED WITH" (L$,18)"1EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134)(20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY"::::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$ A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:TRB(SN)J-=-=-=-=-=-=-=-=-=-=-=-=9 DEFINE MC COLORS 1&2 =W INPUT: C1,C2 =u-=-=-=-=-=-=-=-=-=-=-=-= VV37,C1: VV38,C2-=-=-=-=-=-=-=-=-=-=-=-= ANY SPR/SPR COLLISION = INPUT: NONE =-=-=-=-=lPM(VV31) v)-=-=-=-=-=-=-=-=-=-=-=-=G SPR PRIORITY < BKGD =e INPUT: SN =-=-=-=-=-=-=-=-=-=-=-=-=MMVV27 : MM,SB(SN).-=-=-=-=-=-=-=-=-=-=-=-=/ SPR PRIORITY > BKGD =0 SFLG0 CAGB(SA) : CBGB(SB)" CA CB SFLG1(F-=-=-=-=-=-=-=-=-=-=-=-=d SPR-N//BKGD COLLIDE? = INPUT: SN = OUTPUT:BFLG=0 IF NOT =-=-=-=-=-=-=-=-=-=-=-=-=PM(VV31) CAGB(SN) : BFLG0 "RUN":""3  631,13: 632,13: 198,2:u  64 CHECKSUM,VIC CHECKSUM,FUTUREWAR!,TELELINK 64,LINK OV'LAY  FONTASIA,INS. AGENT,VIC ERASER,SPRITE CNTRLR,SPRITE LOADER  SPRITE M/S,SPRITE SAMPLE,FLANKSPEED,ENDTH" (L$,18)"CAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T MSD SUPER DRIVES"; (L$,22)1)"(C)DOUBLE L SOFTWARE"\ (L$,20)3)"YOUR CHOICE";p AN$:AN(AN$) AN$"" B0: 100 AN$"1" AN$"14" 240 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8"  4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 "