C64S tape image fileMASTERING YOUR VIC20 VIC PLAYER /Q SONG EDITOR MASTER n#WORD DETECTIVE 6"+ANSWER MACHINE kW.BREAKUP 7VIC CLOCK APC-DEMO1 ]CPC-DEMO2 # EPC-MULTI-DEMO YBLPC-HALF-DEMO OBAR SORT ![PHONE BOOK cMICRO CALC  36879,27:12000'9500:100009A$:A$""30Q(V(A$):V1V630z2V1000,2000,3000,4000,5000,6000:20V0:F011000: PRINT KEYBOARDD0A$:DD1:A$""1030F110509700:CR,0F0:A$" "8000:1010#$A$""A$""CR,0:W%(V1)0:0.TP(A$)d8TP133TP137R136TP:CRRRG:9500:F1:1020~BNXTP42:NX50 NX3LNPNP%(NX):CR,A%(NP)VVV1:VLW%(V)0:`1020"PLAYING":B$:V1W%(V)0"NO SONG IN MEMORY":900092009800&CR,0:VV1:VL8A$:A$""M 9200:X02030W9000v 9100:1,1,1,B$:1,B$,CR$; 1,W%(V);CR$; W%(V)01:"SAVED":9000 VV1:30109100:1,1,0,B$:1,B$:B$1,W%(V)W%(V)0 1:"LOADED":9000VV1:4010$"TEMPO=";SD"NEW TEMPO=";:S:S15010JUp"":e@9500:9200yJ"CHOICES:"T"CONTINUE"^"REPLAY"h"BACK UP 1 NOTE"r:"WHICH?"|A$:A$""8060A$"C" VV1:9200:9500A$"R"2000:8010 A$"B"8060.V18060DVV1:9200:9800T9500:8060e(#I1700::#"WHAT IS THE NAME":"OF THE SONG"#V1:B$:#XW%(V)#R(X10000):CRRGR$Y(XR10000)$NP(Y100)$D(YNP100)"$NA%(NP):%I02:RGI,0::*%D99D99H%W%(V)(R10000NP100D)N%nH&CR,A%(NP):I1(SD)8::'"":V0'"VIC PLAYER"$'"1 PLAY SONG":"2 REPLAY SONG".'"3 SAVE SONG":"4 LOAD SONG"8'"5 CHANGE TEMPO ";S;""B'"6 QUIT"*L'"CHOOSE?":B*"PLAY WHEN READY"+"SPACE BAR TO PAUSE":"CRSR TO END SONG":"A, F, OR K = REST" +"";+"        "; +"2346790+";(*+"ݭݭݭ";^4+"FGABCDEFGAB";~>+"QWERTYUIOP@";H+"";R+"        ";\+" SDGHJL:";f+" ݭݭݭ";Op+" CDEFGABCDE";oz+" ZXCVBNM,./";+" ";+.S50:L260:W%(L),A%(38),NP%(50):CR$(13).RG36874:I02:RGI,0:.36878,15. /I038:A%(I):#/I050:NP%(I):5/R1:CRRGR:Z2135,143,147,151,159,163,167,1752179,183,187,191,195,199,201,2032207,209,212,215,217,219,221,2232225,227,228,229,231,232,233,2352236,237,238,239,240,241,0 636,34,12,38,14,16,32,38,18,20.622,38,25,27,38,30,15,38,38,38R614,16,35,38,7,4,3,21,38,6,8,29v610,38,13,11,9,31,33,17,23,1,24628,5,19,2,26,0,38,37  12000(d"SONG EDITOR"Fn"1 EDIT":"2 PLAY"Vx"3 SAVE"s"4 LOAD": "5 QUIT""CHOOSE?":B01540(A$)1000,2000,4000,5000,6000:100"CURRENT SONG: ";B$V0" # N O L # N O L"$VV1:JJ1:V$(V):(V$)3V$" "V$<(V$)3V$(V$,3)o$9200:X0"END":"":1140.D$(D):D10D$" "D$8V$;" "N$;O$;D$BJ151040LJ15"";V"";`J301040j t"NEXT,PREVIOUS OR #"&~A$"":A$:TPV:V(A$)4V01430X"CHNGE,DELET OR INSRT?"o1540:A$"C"1200y14609200"LENGTH NOTE OCT REGTR"W%(V)01270D$(D):D10D$" "D$D$" "N$" "O$" "RA$"":"NEW LENGTH: ";A$:A$""1410.(A$)99 A$"99"CA$"/"D(A$)j A$"":"NEW NOTE: ";A$:A$""1360A$"/"N$A$:(N$)1N$N$" "(A$"":"NEW OCTAVE: ";A$:A$""1360-(A$)3 A$"3"2A$"/"O$A$ <A$"":"NEW REGISTER: ";A$:A$""1360#A(A$)2 A$"2"8FA$"/"R(A$)^PNP1:I012:N$N$(I)NPI:I12dZdNP1"NOT FOUND":1200iNP12NP38nNPNP(O$)12:W%(V)(R10000NP100D)xVV1:1200VTPJV0V0J0:"":1030A$"P"VTP(J30):14159A$"N""":J0:VTP:1030CJ0:TA$"D"1510tI1L:W%(I)0A$(I):IL:I(A$)V1W%(I1)W%(I):1270W%(V)W%(V1):VV1W%(V)0JV:14101510A$:A$""1540"PLAYING ";B$:V1;W%(V)0"NO SONG IN MEMORY":7000:E9200\CR,N:I1SD8:sCR,0:VV1:VLA$:A$"" 9200:X02030"WHAT IS THE":"NAME OF THE SONG ":B$V1:W%(V)0"NO SONG TO SAVE":7000:1,1,1,B$:1,B$;CR$;$1,W%(V);CR$;EW%(V)01:"SAVED":7000:UVV1:4030r"WHAT IS THE NAME":V1"OF THE SONG": B$1,1,0,B$:1,B$:"FOUND ";B$1,W%(V)W%(V)0VV1:50301:p"":XI1700::#XW%(V)/#R(X10000):Y(XR10000):NP(Y100)I$D(YNP100):CRRGRn$NA%(NP):NP38NP12:O0: 9250$O(NP12):NPNPO12"$N$N$(NP):O$((O),1),$.S50:L260:W%(L),A%(38),N$(12):CR$(13).RG36874:I02:RGI,0: .36878,15:36879,30".I012:N$(I):7/I038:A%(I):I/R1:CRRGR:u2C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,[]2135,143,147,151,159,163,1672175,179,183,187,191,195,1992201,203,207,209,212,215,2172219,221,223,225,227,228,2292231,232,233,235,236,237,238-3239,240,241,0: 8000:7500: SET UP CONSTANTS, SELECT # OF PLAYERSld7000:5000: SELECT GAME LEVEL, WAIT FOR KEYnNP1000,4000: RANDOM OR PLAYER-INPUT PATTERNxGN12000:150: HEADER, ENTER GUESS2020: ENTER GUESS (NO HEADER)T$"?"9000:100PM0:OM0? 3000: PROCESS GUESS, RETURN PM,OMUPMNN6000:100h12)" "PM;OMzGNGN1: 140 GENERATE RANDOM NUMBERS I1 NNRN((1)N1) RP 1090RQ0: I1 1090 J1 I1 $ RNR(J) RQ1: JI1. J%8 RQ 10201BR(I)RN9L I?VR PRINT HEADERs"SELECT LETTER ON OFF" PROCESS GUESS I1 NNFD$;CF,0:CF3,0  T$:T$""2060CF,1 T$"_"CR$" ":INN::2030*T$"?"INN::2140D4T(T$)64: T1 TN BK$;: 2040Q>OB$(T);]HGU(I)TeR Ik\} CLEAR FLAGS I1 NN PF(I)0: PG(I)0 I CHECK FOR POSITION MATCHES I1 NN R(I)GU(I) PF(I)1: PG(I)1: PMPM1 I. CHECK FOR OTHER MATCHES= I1 NNM PG(I)3570\ J1 NNl PF(J)3560 R(I)GU(J) OMOM1: PF(J)1: PG(I)1: JNN J I  INPUT PATTERN"ONE PLAYER ENTERS"" PATTERN""WHILE OTHER PLAYER"!" LOOKS AWAY"8"ENTER PATTERN:"DI1NNNFD$;XCF,0lT$:T$""4090vCF,1T$"_"BK$:INN::4060T(T$)64:T1TN4080"OB$(T);,R(I)T6@CN$T$: T$""5010p CONGRATULATIONS$zGN1MS1:6070=GNG(1)MS2:6070VGNG(2)MS3:6070oGNG(3)MS4:6070GNG(4)MS5:6070MS6"";I10I"";""MS$(MS)"YOU TOOK ";I"";((GN),2);" TRIES!"J1200:JI#CN$5T$:T$""?$6080E.fX PROCESS INITIAL CONDITIONS{b"SELECT GAME:"l"1 EASY"v"2 MID""3 HARD"T$:T$""7060T(T$):T1T37060T7100,7200,7300/N4:RP0:G(1)3:G(2)5:G(3)7:G(4)10:G(5)15B"EASY GAME:"L7400`"ONLY ONCE"f N4:RP1:G(1)4:G(2)6:G(3)8:G(4)12:G(5)18*"MID GAME:"47400>"MORE THAN ONCE"HN6:RP1:G(1)5:G(2)7:G(3)10:G(4)15:G(5)20"HARD GAME:"%7400>"MORE THAN ONCE"Dq"";:I1N:OB$(I)" ";::" ALLOWED""EACH MAY BE USED""_ TO CLEAR GUESS""? TO GIVE UP"L"1 OR 2 PLAYERS?" V5010:T$"1"T$"2"7510`NP(T$):3@ SET-UP OF CONSTANTScJOB$(1)"A": OB$(2)"B": OB$(3)"C"TOB$(4)"D": OB$(5)"E": OB$(6)"F"^CN$"ANY KEY WHEN READY"hNN4:FD$" >":BK$"":CR$(13):CF204:I(TI)>|MS$(1)"A PSYCHIC!":MS$(2)"EXCELLENT!":MS$(3)"VERY GOOD!"zMS$(4)"GOOD":MS$(5)"FAIR":MS$(6)"TRY,TRY,TRY AGAIN!"(# PRINT PATTERN ON GIVE-UP2#CR$"GIVE UP? PATTERN IS:"<#I1NN:" >"OB$(R(I))"";:F#5000: WORD DETECTIVE+ 9000 : INIT?d MAIN PROGRAM]nR((1)5)1: RX 110xx Z$ : (Z$)0 120 Z$ "THE RULE IS" 3000:XR: 110 Z$ "THE RULES ARE" 4000 PROCESS NORMAL WORDJ0:D0:V0:C0F$ (Z$,1)L$ (Z$,1)%L (Z$): (L) 1 J1L L 1 290\ K 1 L (Z$,K,1) (Z$,K1,1) D 1" K 1 L,V$ (Z$,K,1)6 V$"A" V$"E" V$"I" 340@ V$"O" V$"U" V$"Y" 340JC C1: 350TV V1^- SELECT TESTV R 1100,1200,1300,1400,1500: 120gL J0 2000rV 2100 L5 2100 2000 CV 2000 2100x F$L$ 2100 2000 D1 2100 2000 CHANGE WORD COLOR% "";" ";"";: GREEN FOR HATE2 Z$;""8\4 "";" ";"";: RED FOR LOVEg> 2010z THE RULE IS "RULE #";R:: 3100 : "PRESS RETURN" " TO CONTINUE: "; Z$: "I HATE WORDS WITH ": Y$(R1):#& "I LOVE WORDS WITH ": X$(R1);00 "": 6: K THE RULES AREn "WORD DETECTIVE RULES:": R 1 5: "RULE #";R 3110 110(# INITIALIZATION2# X$(4),Y$(4)<#F# I 0 4P# X$(I),Y$(I): Z# "WORD DETECTIVE": ""1d# "IF I LIKE A WORD"Mn# " I MAKE IT RED":fx# "IF I HATE A WORD"# " I MAKE IT GREEN":# "FIGURE OUT MY RULE"# " BY TRYING DIFFERENT"# " WORDS.":# "WHEN YOU HAVE FIGURED" # " IT OUT, OR YOU GIVE"!# " UP, TYPE:"";# " THE RULE IS"Z# " TO DISPLAY THE RULE."z#: "TO DISPLAY ALL OF THE"# " RULES, TYPE:"# " THE RULES ARE"#R (TI)$' "ODD NO. OF LETTERS","EVEN NO. OF LETTERS""' "5 LETTERS OR FEWER","6 LETTERS OR MORE"U$' "VOWELS => CONSONANTS","VOWELS < CONSONANTS".' "FIRST LETTER < LAST","FIRST LETTER => LAST"8' "DOUBLE LETTERS","NO DOUBLE LETTERS" THE ANSWER MACHINE9 "THE ANSWER MACHINE":X "I KNOW EVERYTHING !":  "YOU ASK QUESTIONS": " ABOUT ANYTHING,"( " AND I WILL ANSWER": " WITH A YES, NO, OR"2 " MAYBE.":< "TO EXIT, TYPE A": " SINGLE ?":dS$ "": T 0: : "?";2n A$: A$ "" 110mx A$;: T T (A$): S$ S$ A$ : A$ "?" 110 S$ "?"  ""T T (T10)101 T 200,210,220,200,210,220,200,320,200,210: 100 "YES": "NO": R ((0)10)1< R 300,310,320,330,340,350,360,370,380,390M, "MAYBE": b6 "SOMETIMES": v@ "POSSIBLY": J "ARE YOU KIDDING?": T "PERHAPS": ^ "NOT LIKELY!": h "INDUBITABLY!": r "OF COURSE": | "I CAN'T TELL YOU THAT": 4 "PLEASE RE-PHRASE THE QUESTION": E X0:YX:X1X:Y1X:S0X:S1X:S2X:S3X:DYX:DXX:36879,30:4000rS1S022A:S2S022(A1):S3S022(A2)S1,B:S2,B:S3,BTS((36872)17)2TSA2TSA2BSP:1000ATS:2150Q0(((PA)4)0):Q1(((PA)8)0)Q00S3:2130+ Q10S3:21301B A$:A$""W*S0:A$""S1g4A$""S1x>A$""S3HA$""S3RBSP:1000\AASfA2A2pA17A17zBD:1000 OK1 PDL2000,2040,2080 X1X:Y1Y YYDY:Y19Y19# Y2Y2@ Y2Y19DYDY:V3,230V XXDX:X19X19j S0X122Y1,SP X15(S0X22Y)102V1,255:Q5:5000 S0X22Y,BL X1X193150& X19DXDX:V3,230:31500 X1(YAYA1DY0)(YA2YA3DY0)FLAG1?: FLAG1FLAG0:DXDX:V3,220:5000:3150fD BALLBALL1:OK0:S0X122Y1,SP:xN V1,0:V3,0:V136874:V336876:CS36879:PA37137:37139,0S04((36866)128)64((36869)112)6000A2:BD:1000BALL3:Q1X16182:Y219,S0X22Y,102::;BNUS4090MSCRE1:5000ePDL4100,4100,4130BUT(((PA)(PDL16))0)BUT141004140"A$:A$" "4130,X2:Y((1)14)2:DX1:DY163000@OK4150JV3,0TPDL4190,4190,4220,^BUT(((PA)(PDL16))0)=hBUT14190Gr4230]|A$:A$" "4220oS0X22Y,SPBALLSCRESCRE1:5000:4140"";:CS,27:"GAME OVER!"YOU SCORED"SCRE"""POINTS!"PREVIOUS HIGH WAS"HI"","PRESS SPACE TO CONT.":SCREHIHISCRE@A$:A$""4300J6090T4030SCRESCREQ:V$"BALL="BALL" SCORE="SCRE;BNUSSCRE170SCRESCRE50:BALLBALL1:BNUS1:V1,0:4050Q5DXDX:5080YADY0DY2DY:5080YA1DY0DY2DY:5080'DYDY2;DY0DY1DY1QDY0DY1DY1[Q1:np36878,15:""z"VIC BREAKUP""KEYBOARD, PADDLE":"JOYSTICK OR QUIT?"A$:A$""6030A$"P"PDL1:6090 A$"J"PDL2:6090(A$"K"6200:PDL3:6090;A$"Q""":E6030OCS,8pV$""D245:SP32:BL81""" "I118:20);"":" "%8:" CURSOR TO MOVE PADDLE":" SPACE BAR TO START"OB:" -> FOR DOWN"::" ^ FOR UP"cLA$:A$""6220iV  8000T$"T":5500%"":dI14:T(I)1:dn""21)(TI$,5,1)""(TI$,1)rxI411T((TI$,I,1))T$:T$""3000:I1::100I4060,4000TT(I)200PO$(I);1500T(I)T""AP$(PM1)AF1000.AL$(AF1);:AF(TA$,4)7110I CHECK ALARMf(TI$,4)(TA$,4)2000l~ PRINT DIGITH$(S%(T,0))BK$V$(S%(T,1))UP$V$(S%(T,2))BK$H$(S%(T,3))BK$V$(S%(T,4));UP$V$(S%(T,5))BK$H$(S%(T,6)) ALARMSC,40V3,240"J1500:,V3,08SC,216> P MODE SELECTg T$"A"AF(AF):| "SELECT MODE:" " SET ALARM" " SET TIME" " RETURN" 7500 T$CR$"": T$"A"5000:"": T$"T"5500:"": 3060& PM CORRECTION7TM$(TI$,2)ETM(TM$)bTM12TM$((TM12),2){TM0TM$"12":4060(TM$)1TM$"0"TM$T((TM$,I,1))PMTM12 SET ALARMAF1:SC,40TM$TA$:6000TA$TM$SC,216| SET TIME(SC,72ITF1:TM$TI$:6000:TF5540UTI$TM$aSC,216g|p ALARM/TIME SETz" "SA$((T$"T")1):MF1:RP,128T(1)((TM$,2)):T(2)((TM$,3,2))T(1)0TH12:6060T(1)12THT(1)12:6060THT(1)(PM0:T(1)11PM1MTM$(ZR$,3((TH)))((TH),2)zTM$TM$(ZR$,3((T(2))))((T(2)),2)7000""AP$(PM1)MS$HM$(MF1)87500BT$" "MF(MF):6100LT$"+"T(MF2)T(MF2)1:TF0:6300VT$"-"T(MF2)T(MF2)1:TF0:6300*`T$CR$65004j6200HT(1)23T(1)0\T(1)0T(1)23xT(2)T(2)60(T(2)60)6030dTM$(ZR$,3((T(1))))((T(1)),2)nTM$TM$(ZR$,3((T(2))))((T(2)),2)"00"xRP,0X STATIC TIME DISPLAYbI145lPO$(I);:T((TM$,I,1)):1500;vAULT$:T$""7500[Vw@ PRIMITIVE DEFINITIONSJZR$"000000"TV$(0)"   ":V$(1)"   "^H$(0)" ":H$(1)"  "hBK$"":UP$""rPO$(1)"":PO$(2)""-|PO$(3)""OPO$(4)""MS$"":HM$(0)"HOURS/MINUTES":HM$(1)"HOURS/MINUTES"AP$(0)"PM":AP$(1)"AM"AL$(0)"SET:":AL$(1)""SC36879:V336876:RP650:CR$(13)<SA$(0)"SET TIME":SA$(1)"SET ALARM"RSC,216:36878,15m4!"SETTING UP DIGITS"z9!S%(9,6)>!I09H!XR!J06\!2JXS%(I,J)1:8560f!S%(I,J)0p!J!I!(#119,36,93,109,46,107,123,37,127,111 52,28:56,28::I(TI)=36879,27:CH7168:CG32768ZI0511:CHI,(CGI):u(36869,(36869)240152A$"@@@@@@":DN$"":CR$(13)<DL$" "F1000P""A$;:V200:8000Z 500(dDL$CR$""(DN$,(1)221)(1)15)A$;:J15SnCH2,36:CH3,255:CH7,36:V50:8000xCH2,189:CH3,126:CH7,66:V50:80001002000I07:X:CHI,X:T$:T$""2000@K1V::(#24,60,165,126,60,24,36,66 36879,27#52,28:56,28:6CL$""?(""I28000_<36867,(36867)1zF36869,(36869)24015d"@";nI120:"A"(CL$,(I7)1,1)"@";x7000::"A":100XJ1100::@I031:X:7168I,X::6(#24,60,60,24,126,189,189,189,189,189,24,36,36,36,36,102[2#0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0- "":52,28:56,28::VC36864:VC15,27USM4((VC2)128)64((VC5)112)CM378884((VC2)128):CG32768:CH7168:BL$" "(VC5,(VC5)240152C5:M1:7000:6000<8000:"":5000FA3:2000:B4:1500:S1:1000P110 d3000n4000x100/ SCREEN COLORQVC15,((VC15)15)(16S):d BORDER COLORVC15,((VC15)248)B: AUXILLIARY COLORVC14,((VC14)15)(16A): CHARACTER COLOR I816:J414:CMI22J,C8::: T$:T$""3000 T$"B"31000 T$"S"3200A T$"A"3300R T$"C"3400c T$"M"3500m 3000 B(B1)7:1500:3600 S(S1)15:1000:3600 A(A1)15:2000:3600H C(C1)7:2500:3600 MM:7000:3600 CP$"":S0CP$""5""CP$"BORDER="B;BL$12)"CHAR="C;BL$^""CP$"SCREEN="S;BL$12)"AUX="A;BL$d SET UP DISPLAY PATTERNI36:J1221:SMI22J,35:CMI22J,C8::I816:LI224:RL10:SML,34:SMR,34:CML,C8:CMR,C8=I19:A1,A2,C1:SMA1,C1:SMA2,C1:CMA1,C8:CMA2,C8E:[p CHARACTER SETzzI0511:CHI,(CGI)::X SET MULTICOLOR MODE FOR MOST OF SCREENbI66505:CMI,(C7)(M8)::@ READ IN CUSTOM CHARACTERSJI01381:X:CH832I,X::%(#0,0,0,0,0,0,0,0B2#85,85,85,85,85,85,85,85g<#170,170,170,170,170,170,170,170F#255,255,255,255,255,255,255,255P#79,67,64,80,148,164,165,169Z#234,250,254,255,63,63,0,64d#149,165,169,170,250,255,252,48n#170,234,250,254,254,63,15,35x#64,64,148,148,148,166,234,255R#2,2,2,42,42,170,191,255u#0,128,160,168,170,170,170,170#240,0,1,5,85,85,149,165#63,15,67,80,84,85,85,85#182,228,36,185,229,37,188,230,38#248,250,39,361,251,40,252,254,41!#314,272,42,317,273,43,320,274,44$ "":52,24:56,24::36879,27NSM4((36866)128)64((36869)112)lCM378884((36866)128)(MX2221:MY8231:CG32768:CH614424000:5000<36869,(36869)24014Z""dX043nY(X44)2MYx1000 T$:T$""900& PLOT ROUTINE1YMYYISP(Y8)22(X2)\XX(SPSM)64kXX0XX0(X1)12000,3000$XC64XLXR.SPCM,0:SPSM,XC8 X IS EVENXRXX(XX9)9XL9(7(Y7))9 X IS ODD XL(XX9)9 XR8(Y7)# 9 COPY CHARACTERSVI0511:CHI,(CGI):\u FILL AREA WITH 0'SBA6656:I08811:BAI,0: POKE IN RIGHT HALF-LINESI08J18BA872I7J,15J,I  POKE IN LEFT HALF-LINESI18J086ADBA72I8IJ8HAD,(AD)240QJ,IW  36879,30:12000'"":ALL8(CD$,A1);W(B$,B%(A))(C$,21B%(A))A$(CO):5000:CO$A$:A$(SW):5000:SW$A$"CMP"CO$" SWP"SW$"";:2000:X$"X"X$"":2030A$:A$" "2030WW1QT::A$:A$""2030A$"X" X$"X"*A$"F"QT1=A$"S"QT200C U CO(I)03030| ""(CD$,2I4):""; A$(CO(I)):5000:A$" ";:A$(SW(I)):5000:A$""; : I15:CO(I)0::(A$)3A$(A$,3)(A$)3A$" "A$ 2pA(RS):I1LL:B%(I)(1)211::XXJ1LL:F0:L1(LL1)J:COCO1zbAL1:"";:1000:"";:1000lB%(L)B%(L1)7060:AL:1000:AL1:1000vLF0JLLJ:AL:"";:1000TB%(L):B%(L)B%(L1):B%(L1)T)SWSW1:AL1:"";:1000:"";:F1:=@I2LL:TB%(I)QJAI:"";:1000TJI111:AJ:COCO1:"";:1000:"";:1000^TB%(J)8060hAJ1:SWSW1:"";:1000:"";rB%(J1)B%(J):AJ1:1000:J|B%(J1)T:AJ1:1000:I: (#I0LL1"2#M1:AM:"";:10000<#J2LLIkF#AJ:COCO1:"";:1000:"";:1000:B%(J)B%(M)9050P#AM:SWSW1:"";:1000:AJ:"";:1000:"";:MJZ#J:ILL19070d#TB%(M):B%(M)B%(LLI):B%(LLI)Tn#AM:"";:1000:ALLI:"";:1000%x#A(LL1)I:ALL1"";:10008#I:A1:1000:V'I15:SPSP%(I):JSPLLr'TB%(J):AJ:"";:1000$'KJSP1SP:K010040.'AK:COCO1:"";:1000:"";:10008'TB%(K)10080B'B%(KSP)B%(K)L'AKSP:"";:1000 V'AK:"";:1000:K#`'B%(KSP)T:SWSW1:j'AKSP:"";:1000Ft'J:I:h*B%(LL1)32767:P1:QQLL:TP0y+PQQ11190 +KQQ1:VB%(P):IP:JK:AP:"";:1000+JJ1:B%(J)V11050 +AJ:COCO1:"";:1000:"";:1000:11030*+II1:ILL11070+4+AI:COCO1:"";:1000:"";:1000?>+B%(I)V11090JH+11050ZR+JI11130\+AI:SWSW1:"";:1000:AJ:"";:1000:"";f+TB%(I):B%(I)B%(J):B%(J)Tp+AI:1000:AJ:1000:11030z+B%(P)B%(J):B%(J)V:SWSW1+AP:1000:AJ:"";:1000:"";:1000)+JPQQJ11170R+S%(TP1)P:S%(TP2)J1:PJ1:11180v+S%(TP1)J1:S%(TP2)QQ:QQJ1+TPTP2:11010+TP011210+QQS%(TP):PS%(TP1):TPTP2:11010+.B%(21),SP%(5),CO(5),SW(5):LS20.SP%(1)10:SP%(2)6:SP%(3)4:SP%(4)2:SP%(5)1Y.B%(21)30:Q$(1)"BUBBLE":Q$(2)"INSERT":Q$(3)"SELECT".Q$(4)"SHELL":Q$(5)"QUICK":RSTI/B$""/CD$""/C$" "&/"":LL20#0/"VIC BAR SORTER":"WHICH SORT? CMP SWP"F:/I15:""I""Q$(I);:3000:XD/" 6 QUIT"xN/"CHOOSE":CO0:SW0:2030X/Q(A$):Q1Q612070b/"":Q6l/"WHICH?":"RANDOM BAR LENGTHS"v/"KEEP SAME LENGTHS":"CHOOSE":2030)/A$"R"RSTI:6000:4000:12190J/A$"K"B%(1)06000:12190U/12140}/""Q$(Q)"";:I1LL:AI:1000:/""CD$" COMPARE TEMP SWAP";/Q7000,8000,9000,10000,11000/""CD$" PRESS ANY KEY "; /2030:CO(Q)CO:SW(Q)SW:12050SIZE21:36879,30:20001A$:A$""10007F36869,242]N$(SIZE),P$(SIZE){B$" "P$(0)"OT SED""""Š " ""1. REATE NEW FILE "2. DD,HNG,EL NAMES0*"3. OAD EXISTING FILEK4"4. AVE FILE TO TAPE^>"5. ORT FILElH"6. XITR"OUR CHOICE?"\1000:A0:AA0f(A$)3000,4000,5000,6000,7000,8000:2040 "AME OF FILE? "ETURN IS DEFAULT F$:(F$)0F$"TELEPHONEFILE"# I1C "NTER AST AME(PACE)";] "IRST NAME t "AND HONE UMBER "000-000-0000 "ŠWHEN THROUGH": "AME";N$(I):N$(I)""N$(I)"DONE"N$(I)"ONE"II1:N$(0)(I): "HONE ";P$(I)& ISIZE2#0 II1:30900"":J0@JJ1:"";]N$(J);(B$,20(N$(J)))l9);P$(J):"ÒORĒTO CONTINUE1000(A$)04100A$"D"A$""KJI:N$(K)N$(K1):P$(K)P$(K1)::II1A$"C"A$"""EW NAME";N$:(N$)0N$(J)N$TA$"C"A$"""EW PHONE ";P$:(P$)0P$(J)P$bJI4010}"DD MORE NAMES?/1000:A$"Y"A$""II1:3090""HAT IS THE NAME"OF THE EXISTING FILE?"FOR DEFAULTF$:(F$)0F$"TELEPHONEFILE"-1,1,0,F$E1,N$(0):I(N$(0))R1,P$(0)]J1Ij1,N$(J)w1,P$(J):1:p"AVING FILEz 1,1,2,F$J0I1,N$(J)1,P$(J):1:XN$(1)"""O ILE TO ORT":1000:1b"ISUAL /?":1000:A$"Y"A1bl"ΒAMES OR ВHONE#S?":1000:A$"P"AA1uv7160:A1000N$(I1)""P$(I1)":::-:::-::::"K1I:L1I(AA0)(N$(L)N$(L1))7130 (AA1)(P$(L)P$(L1))7130A7160:1000$:H"RESS ANY KEY TO CONT.":1000NzTEMP$N$(L):N$(L)N$(L1):N$(L1)TEMP$TEMP$P$(L):P$(L)P$(L1):P$(L1)TEMP$""J1I JL"";AA0N$(J) AA1P$(J)*"";4 >@36869,240:"": "":36879,8:8000`CR$(13):DL$(20):RB$" ":BL$" ":DI$"ڒ"xNL10:S$(NL),S(NL)(LL1:8490:110dLL1:8500nS$S$(LL):(S$,1)"?"""BL$CR$"";sS$DI$;x2000T$"@"RB$:S$(LL)S$:3000:7000:"";:LL1:110#T$""100:T$CR$T$""210JT$""270ZT$DL$240T$"_"S$(LL)S$:5000:LL1:110S$S$T$(S$)19120S$(LL)S$LLLL1:LLNL1LL1:RB$"";:110RB$CR$CR$;:110S$""120 RB$""DI$;%S$(S$,(S$)1):120hS$(LL)S$:LLLL1:LL0LLNL:RB$"";:110RB$CR$"";:1104500T$"@"T$CR$T$""T$""T$"_"T$DL$T$""T$","T$";"2070T$";"T$"["2070 T$"'"T$","2070T$"^"2070$ 20002T$DI$;:b 9000:JJ1NL:(S$(JJ),1)"?"6500:3030x (S$(JJ))33030 A$S$(JJ):4000 :II1(A$):XX((A$,II,1)):511II,XX:511II,0:828:T$:T$""4500 "LOAD OR SAVE"4500+T$"L"SA0:5050BT$"S"SA1:5050L5010^"NAME";NA$~1,1,SA,NA$:SA5090:508051101:8000:8510:A$"":II1NL:S$S$(II):S$""S$""A$A$S$CR$::1,A$:II1NL:1,A$:A$""A$""S$(II)A$::EdBB((S$(JJ),1))64:BB13BBBB13:6530nBB6560,6570,6580,6590,6600,6610,6620,6630,6640,6650,6660,6670,6680x6540BB6690,6700,6710,6720,6730,6740,6750,6760,6770,6780,6790,6800,6810S(JJ)XXXXA: XXB:XXC: XXD:+XXE:6XXF:AXXG:LXXH:WXXI:bXXJ:mXXK:xXXL:XXM:"XXN:,XXO:6XXP:@XXQ:JXXR:TXXS:^XXT:hXXU:rXXV:|XXW:XXX:XXY:XXZ:8X"";:II1NL:S$S$(II):SSS(II)obX$"":(S$,1)"?"X$(SS)""(BL$,16((SS)))lCR$S$X$::@:II042:AA:828II,AA::*!II1NL:S$(II):S(II)0::85104!II1NL:S$(II)"":S(II)0:>!"";:II1NL:S$S$(II).H!""S$""(BL$,20(S$))::"";:f(#A0:BA:CA:DA:EA:FA:GA:HA:IA:JA:KA:LA:MA2#NA:OA:PA:QA:RA:SA:TA:UA:VA:WA:XA:YA:ZA:d&165,122,141,112,3,165,123,141,113,3,169,0,133,122,169,2,133,123,32,1218x&197,169,0,133,122,169,2,133,123,32,165,201,173,112,3,133,122,173,113,3H&133,123,96z&A=8000,M=48,I=11.9,I=I/1200,D=(1-(1+I)^-M)/I&P=A/D,P=INT(P*100+.5)/100,P?,,