,d PROG.LIST DROP-OUT: GOTO 940en:V36874:58648:V5,25:650,0:(14);"";:V4,15xS$"":I18:S$S$" ":"NITIALIZING...":R$(13):Z$(8)R$(15):Q$(14) M$(12),M(12),A$(12),W$(7),CM(3),CO$(6),O$(6)A$(0):I112:M$(I),M(I),A$(I):CI17:D$(I)::ML0:DV4:PP66n"RINTER EVICE UMBER":"> ";:350{198,0:A$"":C1(" ",C,1);"";:I140:X$:X$""230:CC1:C2C1200C1:X$(13)280(X$(20))270:X$" "X$"Z"(A$)L200JA$A$X$:X$"A"X$"Z"X$((X$)128)`X$;:AU280:200((A$)0)200:" ";:A$(A$,(A$)1):200" ";:AU0:310"X$(13)," ";:6V2,230:I160::V2,0:@144,0:DV31,DV,15:1JDT" ":"":"RINTER EV.#: ";x^L3:O$"4":490:190:DV(A$):DV0DV255DV4h630rLN0:4,DV,0,(15):|4,O$;R$;:LNLN1:LNPP(LN(LNPP)PP):LNI1LN:410:4:4,R$;:LNLN1:4,O$;Z$;:LL2:!190::NKY1:NY365(K4)(K100)(K400)DhY4(Y4)M2NN1Y100(Y100)Y400(Y400)M2NN1I0M1:NNM(I)::WN(N7)77:W7WW7W2W:198,(O$):I1(O$):630I,((O$,I,1))::C BLACK,JANUARY,31,BROWN,FEBRUARY,28,RED,MARCH,31,ORANGE APRIL,30,YELLOW,MAY,31,GREEN,JUNE,30,BLUE,JULY,31,VIOLET AUGUST,31,GRAY,SEPTEMBER,30,WHITE,OCTOBER,31,GOLD NOVEMBER,30,SILVER,DECEMBER,31,NONE,SUNDAY,MONDAY,TUESDAY# WEDNESDAY,THURSDAY,FRIDAY,SATURDAY_& 32,133,3,240,3,169,1,96,169,15,141,14,144,169,200,1410 12,144,169,25,141,15,144,169,0,162,3,149,183,202,16,251: 120,24,169,1,101,183,133,183,165,184,105,0,133,184,165,185D 105,0,133,185,165,186,105,0,133,186,176,9,32,133,3,240UN 224,169,0,240,2,169,2,88,96,173,31,145,73,255,41,32X 133,187,169,239,141,32,145,173,33,145,73,255,41,129,5,187b 133,187,169,127,141,32,145,173,33,145,73,255,41,128,5,187l 133,187,96 vQ$;"*** ***":" BY RAIG RUCE"R" 25 UNE 1986":" 1.ROGRAM ISTER"" 2.ALENDAR AKER":" 3.EARER":" 4.ABLE AKER"" 5.ESISTOR ECODER":" 6.IGHTY IME":" 7.EACTIOD"" 8.ASE ONVERTER":" 9. ":" .""OUR HOICE: ";HL1:AU1:190:(A$"1"A$"9")A$"Q"290:690sA$"Q"58648:"HAVE A NICE DAY":(A$)720,1020,1340,1610,1710,2080,2300,2560,110320:ST340" ":N0:T0:BK0:370"IDE: ";:O$"1":490:L1:430:A$"Q"10107O$Q$" SIDE: "A$o"APE: ";:L3:430:O$O$" TAPE: "A$:380410:O$(15):380:"ESC: ";:L50:430:L37(A$)2 A$""I1L:A$" "A$::O$A$:380:410:410 FL0:O$"N":490:"UTO-OC (/)? ";:L1:430:A$"Y"FL1K "OTAL UMBER:";N:"OTAL EMORY:"Tr*"";(14):FL"UTO-OC.":8304"OCATION: ";:L3:430:L(A$):L1940>157,255:780,1:183,0:186,1:65493HA$"":I833848:X(I):X127XX127RX32870\A$A$(X)f4p(A$)17A$A$" ":880bzM((831)256(832))((829)256(830))O$(S$,19):FL0O$O$(" "(L),3):920O$O$""O$O$" "A$" ":BKBK(M254.9999)O$O$(" "(M),5)" BYTES.":TTM:NN1:380:800I410:410:A$(S$,15):O$A$(N):N1O$O$" PROGRAM.":960`O$O$" PROGRAMS."380:O$A$(T)" BYTES OF DATA.":380O$A$(BK)" BLOCKS OF DATA.":380O$A$" AVERAGE LENGTH:":N0O$O$" UNDEFINED.":1000 O$O$((TN.5))" BYTES."( 380:410:390:6306 400:630G 320:ST340m " ":370:1100 "! O AGAIN..." L20:430:A$"Q"E1: $E0:I1(A$):(A$,I,1)" ":1040!.M$(A$,I1):Y$(A$,I1):(Y$)2Y$"19"Y$7!8EY(Y$):EM112:(M$,3)(M$(EM),3):1040=!B!L"NTER EGINNING ONTH AND EAR ( TO UIT):":1050:MEM:YEY!VE1010:"NTER NDING ONTH AND EAR:":1050:E1010!`"OW RINTING:":TN0 "jTNTN1:TN". ";((M$(M))128);(M$(M),2);Y;"":MMM(M)]"tMM28Y4(Y4)(Y400(Y400)Y100(Y100))MM29"~O$Q$M$(M)(Y)(15):I142(O$):O$" "O$:"380:I12:410::L9:1200"O$"":I17:O$O$""::420 #O$"":I17:O$O$""::4207#O$"":I17:O$O$" "::420t#1170:O$"":I17:O$O$" "(D$(I),3)" "::420#1180:1170:D1:440#O$"":I17:W1WMMO$O$" ":1240#O$O$""Q$((W)" ",2,2)(15)" "$WW1::420:J18:1190::1180/$WMM1170:1220Y$410:O$(S$,69)"BY 507.":380:LL6u$L2(L2)410:LL3$L198L$ L6410:410:LL6:1290$L2O$"":420,Z$;:LL4:1300$MM1:M12M1:YY1$(12EYEM12YM1130 %2400:630%<320:ST3406%F" ":370_%P"EAR? ";:L5:430:A$""1360q%ZY(A$):1420%dA$((S$,10(M$(A))2)M$(A)S$,25):%nO$(0)" ":I13:ACM(I):1380:O$(0)O$(0)A$: &xI16:O$(I)" "::Z13:MCM(Z):1510:I16(&O$(I)O$(I)CO$(I):I:Z:R&O$(Y)" ":H$"SU MO TU WE TH FR SA"y&O$(S$,38(O$))Q$O$(15):380&I13:CM(I)I::I14:410:&1390:O$O$(0):380:410:T$" "&O$" "H$T$H$T$H$:380:410'I16:O$O$(I):380:'I13:410:B'I13:CM(I)CM(I)3::CM(3)121450P'390:630w'D1:440:I16:CO$(I)""::AM(M)'Y4(Y4)1570'M21570'Y400(Y400)1560'Y100(Y100)1570'AA1("Q16:X17:W1WAX$" ":1590(,X$((W),2)" "K(6CO$(Q)CO$(Q)X$:WW1::CO$(Q)CO$(Q)" ":Q(@b(J320:ST340(T" ":370(^"UBJECT [] []:":L16:430:A$""S$A$(cA$"Q"1010(h"AME:":L31:430:S8((S$)2):A$""N$A$")rO$Q$:S(S)O$" "Q$:S(S)<)|SI1S:O$O$" ":q)O$O$S$:380:O$(15):380:S16((N$)2):O$"")S(S)O$(8)(128)(128)(128)(15))S(S):SI1S:O$O$" "::O$O$N$:380)I13:410::1630*" "<*"NTER THE LETTER OF":"THE  BAND FROM"X*"THE FOLLOWING LIST:"u*".LACK .IOLET"*".ROWN .RAY"*".ED .HITE"*".RANGE .OLD"*".ELLOW .ILVER"*".REEN .ONE" +".LUE":1850#+" AND: ";5+L1:AU1:190S+&A$"A"A$"M"290:1820d+0C(A$)65:s+:1810:C1C+D" BAND FROM":""+N" AND: ";:1820:C2C+X" BAND FROM ":"",b" AND: ";:1820:C3CU,l" BAND FROM ":""v,v" AND: ";:1820:C4C," ESISTOR ECODING: ":" RESISTOR WITH BANDS:",10)A$(C1):10)A$(C2):10)A$(C3):10)A$(C4)-"AS A VALUE AND":"TOLERANCE OF:"3-N((C110C2)10C3):N$(N)K-N1000N1E71980d-NN1000:N$(N)""x-L9:N1E7L5-L)N$;" OHM";:N1"S"-N1-T20:C410T5-C411T10-L)T"PERCENT"."RESS ANY KEY TO CONT.RESS '' TO QUIT. ";).L1:AU1:190A. "";:A$"Q"1710J.630d. " ".*"ATE (--)":"> ";:L18:430.4DA(A$):DA1DA312080.>Z1(A$):(A$,Z,1)"-":2080/HX$(A$,Z1,3):(X$)90(X$)652150'/RI112:(M$(I),3)X$:20806/\MOI:2160T/fMO(X$):MO12MO12080}/pZZ1(A$):(A$,Z,1)"-":2080/zYR((A$,Z1)):(A$)Z2YR100YR0YR1900YR/A$((M$(MO))128)(M$(MO),2)(YR)/"";11(A$)2);A$50" U O U E H R A":D1:YYR:MMO:440:AM(M):CWp0A28Y4(Y4)(Y400(Y400)Y100(Y100))A290DDA:MMO:YYR:440::" ";:I170C1CA" ";:22600CDA""(((C),2)" ",4);:22600(((C),2)" ",3);1CC1::CA2220F1"AY:";N:"GAIN OR ђUIT? ";:L1:AU1:190W1A$"A"2080`16301" ":T0:N0:ML23401 "LEASE WAIT WHILE ":"PULL MYSELF TOGETHER."1 ".90 SECONDS SHOULD DO."2 I828942:A:I,A::ML12$ "";:901:(187)2340_2. 36879,8:"HEN SAY SO, PRESS":"F1, , F7, OR "28 " !!!"2B I1((TI))300200:901:(187)25402L :828:I(780):36876,0:36879,8:I125402V I225503` I(183)256(184)65536(185)16777216(186)43j I(I101)1.023E6T3t "OUR REACTION TIME WAS"3~ (((I1E5.5)100)" MILLISECONDS",21)3 "OR":""I"SECONDS"3 TTI:NN13 N1IBBI4 "N SECONDS,":"VERAGE:";:N0" NDEFINED":2490 4 TN4 "EST :"BY4 "RESS ANY KEY TO TRY AGAIN. TO QUIT.";:180k4 L1:AU1:1904 A$"Q"V5,25:6304 23404 "OO SOON!!!":24604 "OU TOOK TOO LONG (A":"FEW DAYS TOO LONG)!!":2460#5 " ":"ONVERT ROM ASE:":2650Y5 "(=EC =EX =CT":" =IN OR )"5 "> ";:L2:430:A$"D"A$""A10:26405 A$"H"A16:26405( A$"O"A8:264052 A$"B"A2:26405< A(A$):A2A25F A36A366P ":";A:76Z 2570:ZA:"HANGE O ASE:":2570:I((1E12))o6d "ROM BASE";Z;"TO";A:"UMBER IN BASE";(Z);":"6n L((1E38)(Z)):"> ";:430:A$""A$"0"6x T0:"HANGING TO DECIMAL":X$A$6 I1(A$):N((A$,I,1)):N4826607 NN48:N1027207 NN7:N102660,7 NZ2660:7 TTZN:d7 ">";T:"HANGING TO BASE";A:A$""r7 T027807 N((TA(TA))A.5)48:T(TA):N57NN1357 A$(N)A$:27507 A$""A$"0"7 "> ";A$:I((1E12))#8 "ROM ASE";Z:"";X$:"QUALS N ASE";(A);":"_8 A$:"GAIN OR ђUIT? ";:L1:AU1:190:A$"Q"630i8 2560