8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L9 COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO.Ld ************_n * PEG JUMP *rx ************ BY BOB STOFFERS AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 4.5.1 APPLE II FAMILY APPLESOFT3 'GERMAN2H&TRIVIA'SNAPFIXx * )FORMBUILD !USTARUP R+SEATTLE.HCD \0 1 ,TRIPCOST.HCL" " &VOCAB1c&VOCAB2'GERMAN1 5(QUIZMAKEP3/  (LOANCALC] J8 "&PRODOS- <6! ;,BASIC.SYSTEM(! o'STARTUP )&LINKUP!RON.DISK.4.5# ' #PEG  $BIRD &'SLITHER $ADV1*;;(DIVISION4j (QUIZTAKEE >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R:' PX(33),PY(33),PF(33),AS(62)- H I133:PX(I),PY(I): 120,20,140,20,160,20,120,40,140,40,160,40,80,60,100,60,120,60,140,60,160,60,180,60,200,60,80,80,100,80,120,80,140,80,160,80,180,80,200,80C 80,100,100,100,120,100,140,100,160,10 193,197,63,183,82,73,1,00P ** SHAPE #8 (8)ZZ 41,12,28,247,4,193,12,173,142,10,0pd ** SHAPE #9 (9)n 41,12,36,28,191,14,173,74,0x ** SHAPE #10 (0) 00,41,5,193,36,28,191,54,78,73,00,00 ** SHAPE #11 (PEG)60,54,53,55,53, 45,12,220,45,193,28,63,150,74,73,0,0@ ** SHAPE #4 (4)b  9,36,36,86,31,39,77,146,9,0x ** SHAPE #5 (5) 45,5,193,28,63,36,45,181,82,1,0( ** SHAPE #6 (6)2 41,12,28,247,36,12,109,146,10,0< ** SHAPE #7 (7)F 33,5,193,5,* START OF TABLEl 12,0,32,0,40,0,53,0,65,0,75,0,86,0,96,0,108,0,119,0,129,0,140,0,159,0,161,0,5,0,5,0 ** SHAPE #1 (1) 41,229,36,103,149,138,09,0 ** SHAPE #2 (2) 45,45,193,219,12,5,193,28,191,78,137,10,0 ** SHAPE #3 (3)*Y1015020B$110,Y170,Y:Y50Y110ē70,Y210,YH.T8I133lBXPX(I)8:YPY(I)4{LS1(I10)VS2I10((I10))`S20S210jS1ĔS1X,Y:S2:1150tS2X,Y~I2457624725A:I,A: * ** AUTO SOLVE<I133:PF(I)1::PF(17)0:1020_I133:PF(I)Ĕ11PX(I),PY(I)etAS1612FRAS(AS):TAS(AS1):63033,40::22:PLS$(8):I1500::220:X7021020X,50X,110:X110X170ēX,10X,150H11X1,Y1RX1X28908\IX1X2((X2X1))3cf11I,Y1:PII30:LE6:1450:11I,Y1:lp920zIY1Y2((Y2Y1))311X1,I:PII40:LE6:1450:11X1,I:311PX(T),PY(T)I15:11PX(PN),PY(PN):PII532:LE10:1450::1 830TXFXı5TY40FYFY40TYıRTY40FYXXTX:YYTY20oFY40TYXXTX:YYFY20 I133:XXPX(I)YYPY(I)800 PNI:I11:*PF(PN)ı4PF(PN)0:PF(FR)0:PF(T)1>X1PX(FR):Y1PY(FR):X2PX(T):Y2PY(T)630:4406vTXPX(T):TYPY(T):FXPX(FR):FYPY(FR)FTYFY740aTX40FXFX40TXı~TX40FXXXTX20:YYTYFX40TXXXFX20:YYTYI133:XXPX(I)YYPY(I)700PNI:I11:PF(PN)ıPF(PN)0:PF(FR)0:PF(T)((FR$,Z,1))48((FR$,Z,1))57ī510-GFR(FR$):FR88ī940W&FR99ī220x0"TO ";T$:(T$)2T$""560:Z1(T$):((T$,Z,1))48((T$,Z,1))57ī560DNT(T$):T1FR1T33FR33ī510XPF(FR)0ī510bPF(T)1ī510 lE10:1450:2  ******* MAIN PROGRAM ********b PL0:I133:PF(I)Ĕ11PX(I),PY(I):PLPL1o 33,40:u  21:23:"PEGS LEFT ";PL 23:"PEGS REMOVED ";32PL 1510 33,20 "FROM ";FR$:(FR$)2FR$""510'Z1(FR$):T QUITE AVERAGE YET","GETTING CLOSE TO AVERAGE","JACKPOT!! IF I CAN DO IT SO CAN YOU" j ^33,40: h11::15:": :":15:" PEG JUMP ":15:": :" r |20:13:"PLEASE STAND BY" 1490 1180 1020 PI2302010:L12,3,11,12,10,5,173 "I133:PF(I)1::PF(17)0> ,I08K 6PLS$(I)Q @ J"JACKPOT!! YOU'RE THE GREATEST","SUPER!! BUT LAST PEG NOT IN CENTER","EXPERT!! ALMOST THE JACKPOT","PRO PLAYER STATUS","YOU'RE NO AMATEUR"] T "AVERAGE PLAYER LEVEL","NO0,180,100,200,100,120,120,140,120,160,120,120,140,140,140,160,140X I162:AS(I):  15,17,28,16,21,23,7,21,17,15,24,22,26,24,21,23,8,22,29,17,33,25,22,24,31,33,18,30,4,16,33,25  6,18,24,26,13,11,26,12,18,6,27,13,16,18,3,11,1,3,18,6,13,11,10,79,36,36,36,0*232,0:233,96:1:0:80,255PIB1,LEK771Q771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:PL7ı33,20PL11560EPF(17)Ĺ33,40::23:PLS$(0):1570XPLS$(1):1570n:23:PLS$(PL):"PI200403:LE4:1450::220128ĂTIMETIME1:TIMETM(TIMETM)PLPL1:K279(33PL)(27932):6:K,188279,188:K,189279,189:SOUND,240:PL11100BY155BY175İ870UUM:X((KJ$"K"(KB160KB141))(KJ$"J"(16287)127)):X0730+UULM:BS8:280:SOUND,4AM LOGIC91140:WX46:SPN3:TIMETE:PL33:SCR0:MV0BX53:BY52:BS3:XI0:YI0:SD3:XD53:YD52:K14:FLSH,128::820KB(16384):16368(KB141),0:KJ$"K"(KB211KB196)SS(KB211)(KB196)KB155Ĺ16368,0:K1100000:(16384),90ANK35.6.4:2(K)1553,(K)966::250,63:248,60mX5:K06.3.7:1(K)952,(K)354:b378,86:392,86:353,52l6:K112:X,Y:X246,155K(XY)245,155K::9,2,8,5,7,7,6,8,5,7,5,6,4,7,4,8,3,10,2,12,1,14,0,16 v PROGR:=5:264,130:268,130:266,127:266,124:266,121i&163,132:173,132:165,130:171,1300K0.5.045:1K2272,(K)55120::K3.142.5.045:167((3.14K)22),(K)90120:D1:K3.26.6.4:1(K)1183,(K)794::183K01.57.0575:90K,(K)1514527990K,(K)15145:5:XX1.5708:KXX2XX.06:C(K)20:S(K)17:C200,S30200C,S30:C200,30S200C,30S:7:K128:X(1):Y(1):Z(1):2X35160,Y1420:2Y23185,X1750:2Z30215,Y133449232,0:49237,0:49239,0:480? :6:1:0:232,0:233,96 K168191:0,K279,K::0,1450,168278,168278,145:2:0,188279,188:0,189279,189:0,1450,0278,0278,145 4:K154167:1,K277,K::1:K1531451:1,K279,K: BX0610=18:6:" (1).....EASY"7 20:6:" (2).....HARD"U 22:6:" (3).....HARDER" 14:8)"DIFFICULTY LEVEL ? (1-3)";:26:DL$:DL$:DL(DL$):DL1DL3430 Q5DL:RDL2.5:TE192(DL32):TM6DL:DL2R1.8  SET UP SCREEN! ::BX0Ė13:Q$" BIRD - BRAIN "Q$% ^11707 hDLEVEL0400 r18:5)"(K)EYBOARD OR (J)OYSTICK ? (K/J)";:31:KJ$:KJ$:KJ$"K"KJ$"J"370 |18:4)"DO YOU WANT SOUND EFFECTS ? (Y/N)";:31:S$:S$:SKR,48(S$"Y") 15:958:S$"N"S$"Y"380 (BX279BX0)279(BX0)D DL3ĕ9WX,167:WXWX2280(WX277)h FISHĕSHPXD,YD2:SHPBX,BY2 "SDXD,YD:BSBX,BY:SDBS:XDBX:YDBY: ,FISHĕSHPXD,YD2 6 @ TITLE PAGE J2:40):10:40):K29:K:38:6):: TQ$(34):5:/ :::SOUND768:SKR780:FLSH788:330A SUBROUTINES 9WX,167:WXWX2280(WX277):OXFX:FX(FXSE):FXFX280(FX0)280(FX279) FISH0ĕSHPOX,FY:SHPFX,FY DL1ĕ9WX,167:WXWX2280(WX277)  BXBXXI:BYBYYI:BXBX9 COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO.Nd **************cn * BIRD-BRAIN *xx ************** BY CRAIG BLAZAKIS AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 4.5.1 APPLE II FAMILY APPLESOFT :BS7:280:(S)20SS(S):S((S)3)SS\KJ$"J"X(0)128:X2(X)((X)50):SSXqBY25U2:780BY175(BY172U4BY186)790BX49BX58BY49BY57820 FISH0BY164BY173(BXFX)8FISH1:L.5:M(1)31:SHPFX,FY:SHPXD,YD2"BY155BY175İ870D YIU4:XIS2:260:220:660SDXD,YD:300:SOUND,255:K12:KK14:1:220:KK:4BX,KK2BY:SOUND,129:KK,K S0:U0:1:SPNSPN1:SPN6930*890E4FISHČFLSH,127:300:1140:SCRSCRTIME:TIME128:SO !"#$%&'624577Ĺ24576,0:103,24577(24577256)256:104,(24577256):(4);"RUN SLITHER"[ t ****************** ** SHAPE TABLES ** ****************** I163841638483:V:I,V:* 6,0,14,0,25,0,35,0,46,0,63,0,74,0,45,45,62,63,55,45,49 COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO.Kd ***********]n * SLITHER *ox *********** BY AARON CHEW AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 4.5.1 APPLE II FAMILY APPLESOFTU (103)(104)25,5,060,54,62,60,60,6062,60,62,54,22,9,9,9,13,33,32,37,37,53,37,53,53,54,0,37,36,60,54,62,60,36,39,39,39,63,54,18,18,18,9,9,9,13,33,3237,44,44,44,44,53,6,0,12,33,9,12,33,9,36,9,36,9,12,33,9,12,33,9,9,42,9,17,13,50,30,27,51,27,46,17,13,42,17,13,42,17,0,54,54,37,36,44,54,54,46,3636,44,54,54,46,36,36,53,54,37,36,60,39,63,63,0,44,60,36,55,62,46,54,43,9,5,0,45,32,59,63,23,14,45,0,170,213,170,133,0 62,63,63,60,54,45,45,45,45,45,37,39,59,55,6,0,46,45,45,44,54,63,63,63,63,63,39,37,41,53,6,0,37,36,,230,133,39,162,32,177,38,73,127,145,38,200,208,247,230,39,202,208,242,96`(24576)91250|K11000:X:X2222ĂK2457624779:P:K,P::22229,0,20,0,31,0,56,0,67,0,80,0,96,0,112,0,139,0,168,0,54,46,45,37,63,39,45,37,63,63$~SE3DLRN:SHP6:SHPFX,FY:@ POKE IN DATA & SHAPEST(768)321220r:K11000:X:X1111ĂK768818:P:K,P:1111K32,76,231,134,6,169,0,168,136,208,253,44,48,192,56,229,6,208,244,96,32,76,231,142,39,3,160,0,132,38,165277_VKBY124:4BX1,K5:SDXD,YD:8BX,K:SD8:XDBX:YDK:SOUND,8:220:4BX1,K5:`FLSH,127:SOUND,65:SOUND,65:8BX,YD:FLSH,127:SPNSPN1:SPN6930j890tFX1:FY169:OX1:FISH0:RN((1)2)1:RN1SEDL3RN:SHP5:SHPFX,FY:8:30:HSCR:ESCRDLHSCRSCR0āK18:SOUND,129:SOUND,127:21:4:"DO YOU WANT TO PLAY AGAIN ? (Y/N)";:31:A$:A$$A$"Y"A$"N"1050.:A$"Y"2008B TIME OUTLSOUND,1:SOUND,255:SOUND,1:SOUND,255:300:BX277BX;SCR513:5);"DIFFICULTY LEVEL X";30);DLR14:25:"-------------"{5)"TOTAL SCORE =";30);SCRDL18:5)"HIGH SCORE =":1:40):5:40):23:40):K122:K:39:4)::SCRDLHSCRSCR0HSCRSCRDL:1(BS8):BS(BS9)6:Q2:0,188279,188:0,189279,189:TIME170:PL33:820k END OF GAME & SCOREu:::K24:K:40)::3:11:"<<< GAME RESULTS >>>":9:5)"ACCUMULATED TIME":5)"LEFT ON CLOCK FOR":5)"EACH FISH EATEN =";30):XX61.5:YI.75:XIXX:260:220::S1:U0::740PfBXWX7BXWX35860VpozFISH1FISH0:1140FLSH,128:FLSH,128:XI0:YI0:SD3:XD78:YD86:KK8:SPN5XD92:KK7.63:BS7:KKK3.2:220:BX(K)3385:BY(K)3550:260:SOUND,8UND,129:SOUND,127:PL33:FLSH,127:2:0,189279,189:0,188279,188>BX53:BY52:BS3:XI0:YI0:260:U0:S0:LQ:MR:16368,0H220:KB(16384):(KJ$"J"(16287)127)(KJ$"K"KB160KB141)840RYI4:XI0:BS7:MV0:260:6606\SOUND,2535,62,63,63,0,41,53,53,55,63,60,44,53,6,0 45,45,254,27,46,45,53,63,63,7,0,45,45,54,62,63,36,55,54,0,45,54,62,63,36,55,54,0,45,45,62,63,55,77,49,63,63,7,0,45,45,54,62,36,151,63,36,4,0 232,0:233,64:1:0:3 1330  ***************** " **************** * END OF GAME *@ ***************::16368,0::"YOUR SCORE IS: ";SC::"DO YOU WANT TO PLAY AGAIN";:A$(A$,1)"Y"Ĭ  **************** * INTRODUCTION *( ****************2::T$"S L I T HS TO CONTINUE";:678HRP0:MZMZ1:NLNL500:LILI1:370[ ************n ** CRASH! ** ************I12516298,0:0,I10:1,5:771:16297,0:0,I:1,5:771:T11000::LILI1:LI0127016368,0:370 ARE AWARDED AN EXTRA SLITHER."T8J12:I12:0,120:1,100:771::1,140:771bBJ21120qLT1200:wV`A,B:A01150j0,A:1,B:771:1120t 100,100,112,100,120,100,134,100,149,100,100,90,149,90,0,0 ~:I1103:A:::"PRES25),(Y24):CL(234):CL16ĕ2((X21)5),(Y24):620Z2(X25),(Y24):X2X21:620v ********************* * INTERMISSION TIME * *********************$:!.11:"CONGRATULATIONS!"::"YOU HAVE JUST COMPLETED MAZE ";MZ;".":"YOU(X25),(Y24):Y2Y21:620dX2X21:2(X25),(Y24):CL(234):CL16ĕ2((X21)5),(Y24):6202(X25),(Y24):X2X21:620Y2Y21:2(X25),(Y24):CL(234):CL16ĕ2(X25),((Y21)4):6202(X25),(Y24):Y2Y21:6208X2X21:2(XRP0:500)pMV((1)25)1:MV19302z620N *********************j *CHANGE EGG POSITION* *********************MV((1)4)1MV950,970,990,1010Y2Y21:2(X25),(Y24):CL(234):CL16ĕ2(X25),((Y21)4):6202(X5),(Y4)%CL4CL201200L CL4āI65501:0,I:1,3:771:}*CL4RP1:SCSC20:CC15:22:"SCORE: ";SC4SHDI2>3:SH(X5),(Y4)HC0ĕ1(SN%(L,0)5),(SN%(L,1)4):LL1:L2240L1RC0CC1\SCNL1060 fRP1I:Q(0)"DI700,710,720,730+740:YY1:740IXX1:740XYY1:740bXX1SN%(N,0)X:SN%(N,1)Y:NN1:N2240N1 ********************* *CHECK FOR OBSTACLES* ********************* 1(X5),(Y4):CL(234):1*********************3X * MAIN PROGRAM LOOP *Ob *********************jlKB(16384):16368,0vFIRST1FIRST0:6503:1(X5),(Y4)KB199DIDI1:DI1DI4KB200DIDI1:DI4DI1 22:1:"SCORE: ";SC;10);"LIVES: ";L0:I2629:1(I5),(RO4)::9 ****************P * EGG POSITION *g ****************&X2(((78)(79)256)56):Y2(((78)(79)256)40)02(X25),(Y24):CL(234):2(X25),(Y24):CL16500D3:2(X25),(Y24)N 465),(I4)::RO9:510MZ4Ē7:I1243:1(I5),(124):1(I5),(274)::I1227:1(125),(I4):1(435),(I4)::RO27:510MZ5Ē3:I1540:1(I5),(154):1(I5),(244)::I1524:1(155),(I4):1(405),(I4)::RO15:510550"1(I5),(364)::I336:1(35),(I4):1(525),(I4)::RO3:510 MZ2Ē2:I649:1(I5),(64):1(I5),(334)::I633:1(65),(I4):1(495),(I4)::RO33:510MZ3Ē5:I946:1(I5),(94):1(I5),(304)::I930:1(95),(I4):1(:Y2:N1:L1:C5:DI2:FIRST15 | ***************K  * INIT SCREEN *a  *************** :::9:I039:0,39I: 3086 6:I055:1(I5),0:1(I5),156: I039:10,(I4):1(555),(I4):F MZ1Ē1:I352:1(I5),(34): * SOUND ROUTINE *, , *****************E 6I771789:V:I,V: @ 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96 J ****************** T * INIT VARIABLES * ^ ****************** hMZ1:SC0:LI3:NL500:SN%(2240,1) rX7 E R"M<14:8:"CREATED BY AARON V. CHEW"::9:"PRESS TO PLAY"hF12:14:T$:T1400:P12:14:" "ZKB(16384):KB141Ĺ16368,0:dT1400::1350ARGE,NOT A DIRECT COMMAND  S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 ,./012hijklmnoqrstuvwxyz{|}~ %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"Lr&!Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( +HT COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO. END MAKE "VERBLIST2 [TAKE] MAKE "VERBLIST1 [N] MAKE "NOUN "DOG MAKE "VERBLIST [N TAKE] MAKE "VERB "TAKE MAKE "INPUT [TAKE THE DOG] ERBLIST [PR SE [I DON'T KNOW HOW TO] ( WORD "" :VERB "" ) GO "LOOP] IF NOT ( OR EMPTYP :NOUN :NOUN = "THE ) [RUN ( LIST :VERB WORD "" :NOUN ) GO "LOOP] IF MEMBERP :VERB :VERBLIST1 [RUN ( LIST :VERB ) GO "LOOP] [PR SE :VERB [WHAT?] GO "LOOP] END TO COPYRIG)+NPUT] END TO ID.LOC PR [] PR [YOU ARE IN ONE OF MANY LOCATIONS] END TO GETCOMMAND LABEL "LOOP RECYCLE ID.LOC PR [] PR [COMMAND?] PR [] MAKE "INPUT RL PR [] IF EMPTYP :INPUT [PR [EXCUSE ME...DID YOU SAY SOMETHING?] GO "LOOP] PARSER IF NOT MEMBERP :VERB :VTO TAKE :OBJ PR SE [YOU HAVE THE] :OBJ END TO N PR [YOU WENT NORTH] END TO PARSER MAKE "VERB " MAKE "NOUN " MAKE "VERB FIRST :INPUT IF ( COUNT :INPUT ) = 1 [STOP] MAKE "NOUN ITEM 2 :INPUT IF ( AND :NOUN = "THE ( COUNT :INPUT ) > 2 ) [MAKE "NOUN ITEM 3 :I`%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱ ­ԠŠҬî̠ӠĮsL ʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 3)BX(4):IT:BF$;:2ITBX(4)BX(2)1IBX(3):IT:BF$;:`ITBX(3)BX(1)1wBX(2):IT:BF$;:ITBX(1)1BX(3)1BX(2)1:IT:"+";:BX(2)2:IT1:" ";:ITBX(2)1BX(4)1BX(3)1:IT:"+";:BX(3)2:IT1:" ";:11! "1) FLASHCARD DIVISION, 9:15D &"2) LONG DIVISIONN 03020T :z D MISCELLANEOUS MAIN SCREEN SUBS N"========================================";: X"-----------";: b:ITBX(2)BX(4) lBX(1):IT:BF$;:vITBX(1)BX(,168,252,172,1,3,136,208,253,206,0,3,208,237,96,160,169  50,141,30,3,169,5,141,0,3,173,30,3,141,1,3,32,10,3,238,30,3,169,255,205,30,3,208,232,96  MAIN TITLE  1:1:590 600 " DIVISION TUTOR "; 600:590 610 9:IT):@ hRT1: DETERMINES POSITION OF POINTER TO OPERATIONSK rTP(2)V |PX(2)v S1768:S2769:S3770:SD771 I057:X:SDI,X:   "DIVIDE","MULTIPLY","SUBTRACT","BRING DOWN","REMAINDER"9  173,2,3,201,1,208,21,173,48,192,169,4,32  INITIALIZATION? "ESC$(27): ESCAPE CHARACTERe ,BK$(92): BACKSLASH CHARACTER 6BX(4): TITLE BOX COORDINATES @BX(1)8:BX(2)7:BX(3)18:BX(4)35 JBF$(42) TUN$(95): UNDERSCORE CHARACTER ^DV$(5):IT15:DV$(356789:;<=>?@ABCESOFT & PROGRAM MAIN LINEA 280: INITIALIZATIONX 450: MAIN TITLEs 3420: GET CHARACTER IN$"1"İ740:210: FLASHCARD DIVISION IN$"2"İ1260:210: LONG DIVISION IN$ESC$ė:270: END PROGRAM (7);:220 9 COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO.Rd ******************kn * DIVISION TUTOR *x ****************** BY STEVEN LISONBEE AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 4.5.1 APPLE II FAMILY APPL.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp :% FLASHCARD DIVISION2:10:5X"WELCOME TO FLASHCARD DIVISION!"iDX13000: :3:1:"RIGHT: WRONG: SCORE:"3020 RT0:MRK0:WR0*MRK0SC0:8304SC(RT(RTWR)100.5)>3:8:RTH3:22:WRR3:36:SC"% "$\MRK1QfA((1)11)2:B((1)11)2:BAB:CT0tp1070: NEW FLASHCARD PROBLEMzPX((B))((BA))1160: ENTER FLASHCARD ANSWERIN$ESC$ıFA(BA)98014:12:"VERY GOOD WORK!"3510 WN GRAPHICS) DX120:R10:R2100:R345 IT16H( :10:8TP(1)Y2 BD$::2890j< 10:8TP(1){F BD$:2890:P DX10Z JI11DW37d :JI:8TP(1)::BD$:3630:2890n :JI:8TP(1)::BD$:3630:2890x JI:8TP(1):" ": t "/ ";:2450#~ "X ";:2450. "- ";@ PX(2)" = ?";F Y BRING DOWN n RT4:1990:2360 BD$((B),TP(1),1) 2570 PB$PB$BD$:PB(PB$) 7DW3:9TP(1)(PB$) PB$ RT4:1990 PB$(PB)  BRING DO LONGDIV ENTRY 3? RT3:PX(1)PB:PX(2)(PY$):1990:2360Z PBPB(PY$):PB$(PB)p PY$"":CT0:PZPB$ PD10:3070. 8 MOMENTARY PROBLEMB 10:22:" "L RT4RT5ıV 10:23` PX(1)" ";j RT2420,2430,244070:CTCT1CT32120;8:7TP(1)TP(2):(PBA)AX LONGDIV ENTRY 2PX(1)(PBA):PX(2)A:RT2:1990:2360PZ(PBA)A:CT0PD8:3070IN$ESC$ı9DW3:8TP(1)TP(2)((PZ))IT1((PZ)):UN$;::8:IT0((B)):UN$;:!8  LONGDIV ENTRY 1M*PX(1)PB:PX(2)Ab4RT1:1990:2360k>CT0H8:7TP(1)TP(2)R3240:IN$ESC$ı\IN$;fIN$"0"IN$"9"2170p(7);:DI1200::2120z(IN$)(PBA)İ3510:2200 34=======================";:.IT821:IT`4:"! : !";::~IT26:IT:11:" ":1RT:11:"-->": NEW LONGDIV PROBLEMIT821IT:5:" ":10:8((A))A")"B 9IT:1950:$D7:1960:22:1960.N1970LX2:IT15:15:DV$(IT):Vb1990\lv MISCELLANEOUS LONGDIV SCREEN SUBS 1:"****************************************";302010:"! !";:4:"===========( LONG DIVISION BACKGROUND7:1:1920]IT222:IT:1:"*";:40:"*";:k22:1920zIT2212IT:2JI118::"-";::UN$;:38::"-";:39::UN$;:IT1:2&JI119::"-";::UN$;:0: :IT26:EL OF DIFFICULTY:"@9:154J"1) BEGINNING"@T12:15T^"2) ADVANCED"Zhyr CHOOSE DIFFICULTY LEVEL|3420IN$"1"DF1:1710IN$"2"DF2:1710IN$ESC$ı(7);:1660DF1CA8:CB400:DF2CA98:CB98((B))DWDW1:1500,DWDW1:TP(2)1FTP(1)((B))İ2470_TP(1)((B))1390i2700s2920IN$ESC$1320 LONGDIV CHOICE SCREEN3:3""WELCOME TO THE LONG DIVISION TUTOR.",5:36"CHOOSE A LEVP(2)((B))FTP(2)ITBP(PB$((B),TP(1),IT))(A)1380HZndPB$((B),TP(1),TP(2)):PB(PB$)xn2080xIN$ESC$ıIN$"0"TP(1)TP(1)1:TP(2)1:14802220IN$ESC$ı2300IN$ESC$ıTP(1)TP(1)TP(2):TP(1)A))ī1200<(IN$(13))((FA$)((BA)))FA(FA$):M(7);:1200Sh LONG DIVISIONr1540|3020 1650IN$ESC$ı1740(A((1)CA)2:B((1)CB)2:BBA((1)A)2TP(1)1:TP(2)1:DW1:PB$"":2010<ITTL11:10:")"+V10:10:UN$UN$UN$UN$>`11:9:A9Ė8EjATt11:11:BZ~x ENTER FLASHCARD ANSWER9:10:" "9:11PXFA$""3240IN$ESC$ı IN$"0"IN$"9"ĺIN$;:FA$FA$IN$:(FA$)((BRTRT1DI11500:#820/CTCT193470HCT2900TWRWR1p9:10:" "9:11PX:BADI11500:820$. NEW FLASHCARD PROBLEM88:IT17B" ": REMAINDER' RT5:1990:23601 2760B 10TP(1):8N "R "PBT o ARROWS TO REMAINDER DX10:R11:R2200:R35 IT910:DW37:ITTP(1) :">":3630:2890 DW37:ITTP(1) :">":3630:2890:  ITDW3691  11TP(1):IT,  :"^":3630:2890> " 11TP(1):ITU , :"^":3630:2890[ 6 a @ ~ J ADJUSTABLE DELAY LOOP T DI1DX: ^ h MORE LONGDIV? r 13:22:"FOR MORE, PRESS" | 15:25::" " DI11200:! 15:25:((A$)1(A$)2)NR1340, hA$"7"230B rA$"6"ĭTG0340R |A$"6"400s TG0:RG0:WG0:SG0:LV(A$) PB0::13:"** QUIZ-TAKE **":24:6:"PRESS FOR MAIN MENU"; 2:(20((TT$)2)):TT$ VT3:1270:5:1:QH$:11:1:AH$KE **":::"1). WORD CLUES / 2 TRIES"::"2). WORD CLUES / 1 TRY" @:"3). LETTER CLUES / 3 TRIES"::"4). LETTER CLUES / 2 TRIES"::"5). NO CLUES / 1 TRY"::"6). SAME QUIZ"::"7). EXIT" JI15::: T1300:(A$)1(A$)7340 ^IZ"::"4). EXIT":I18:::. TG0270> VT23:1270] 1300:(A$)1(A$)4270| :KB176290,790,910,1380 "VIN0310 ,"YOU NEED TO LOAD A QUIZ";(7):"USE OPTION 2 ON MAIN MENU":T12500::230I 624:32,5:33,35:6:"** QUIZ-TADFGHIJKLMN( 13301 :QZ$(500,2),WC$(5),ER$(15)G I115:ER$(I): 24:13:"** QUIZ-TAKE **":I112:::8:"PRESS ANY KEY TO CONTINUE":1300 :24:6:32,5:33,35:"** QUIZ-TAKE **":::"1). TAKE QUIZ"::"2). LOAD QUIZ" :"3). STUDY QU: COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO. Nd *************bn * QUIZ-TAKE *vx ************* BY WILLIAM K. BALTHROP AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 4.5.P.1  APPLE II FAMILY APPLESOFT SCENDING SOUND*&8R10R2R2R3:36607&BR2R2R3F&LS1,255R2Q&VS2,R2[&`S3,1c&jSDi&t%z 16368,0:IN$((16384))%% 8% ERROR SOUNDB% S3,0J% SDP% e% CORRECT SOUNDy% R14(10(1))% R2200% ZI1R1% R3R2(40(1))% S1,255R3% S2,R3% S3,1%SD%R3R315%%$&. ASCENDING OR DEX13340$ $ :UN$(8);3$ DI1DX:3360B$ CX13340N$ :3260^$ :" "(8);d$ }$ CX0:X(16384)127$* X13380,3390$4 $> 16368,0:IN$((16384))$H CX1$R $\ GET CHARACTER$f X(16384)127%p X13430,3450İ3510:3210##v 3470:CT232105# CTCT1:3080K# PY$(PZ):3220:# PD3DW:TP(1)TP(2)8((PZ)):PY$((PY$)):" "(8)(8)(8)(8)(8)PY$# # GET CHARACTER WITH PROMPT# 16368,0:DX4# :"?"(8);# DI1DX:3360 $ C)TP(2)8((PZ)):" "J" PY$"":PD3DW:TP(1)TP(2)8((PZ))`" 3240:IN$ESC$ıt"& IN$(13)3170"0 (IN$)31ĺIN$;:3140": " ";"D IN$"0"IN$"9"3160"N (7)(8);:3100"X PY$PY$IN$:(PY$)33100"b 3220#l (PY$)PZ:" ":$! 17:28:3240C! IN$(13)IN$ESC$2970b! 13:22:" "! 15:22:" "! ! ESCAPE MESSAGE! 23:10:! "PRESS 'ESC' TO LEAVE"! ! ! LONGDIV NUMBER ENTRY" PD3DW:TP(1 QT1450' PB(NR(1))1:4603 PBPB1B PBNR230V WA0:VT3:1270 I693:I:J140:J:"=";:J,I:I12142:I:J140:J:"=";:J,I 16368,0:7:QZ$(PB,1):LV2510 1220 VT13:HT1:ML40:1020:B$""230(B$,1)" "B$(B$,((B$)1))8AN$B$:QZ$(PB,2)AN$780O(LV1)(WA0)760f&(LV1)(WA1)670}0(LV3)(WA2)640:(LV3)(WA2)670D(LV4)(WA1)640N(LV4)(WA1)670X(LV2)(LV5)670bI1100:BZ(16336):5l15:"D$;"VERIFY ";F$cHD$;"OPEN ";F$vRD$;"READ ";F$\TT$,DT$,CN$,QH$,AH$fNR,QT,LC,TLp8:(1);"READING ";NR;" RECORDS"zZ1NR:QZ$(Z,1),QZ$(Z,2):Z.D$;"CLOSE ";F$:12:B$:(Q$)64(Q$)95ĺ"INVALID FILE NAME";(7):T11000:::790g/F$B$:I2(F$):V$(F$,I,1)4((V$".")(V$"0"V$"9")(V$"A"V$"Z")(V$"a"V$"z"))ĺ(7):"INVALID PRODOS FILENAME":T11000:::7909I'::"INSERT DISK IN D13:1:868:I12:J120:BZ(16336)::T135:T,IKWAWA1:510 I110:(7);::15:1:"*** THAT IS RIGHT ***":T1TL780::1200:RGRG1:TGTG1:430:"LOAD QUIZ": :"ENTER FILE NAME: ":ML15:VT3:HT17:1020:B$""230E*Q$(AN$)(P$)A$P$:B$AN$:6902A$AN$:B$P$ZZ1(B$):(A$,Z,1)(B$,Z,1)710fSPSP1mZSP(A$)610((B$)SP)(B$).7610SGSG1:TGTG1:15:1:"MISSPELLED - RIGHT SPELLING IS":16:P$T1TL780::1200:430:RONG> THE RIGHT ANSWER IS":QZ$(PB,2):T1TL780:Tv1200:WGWG1:TGTG1:430L(QZ$(PB,2)):NL(LLC100):13:2:I1L1:"*";::I140L:" ";:Z1NL:CH(L(1))1:13:(CH):(QZ$(PB,2),CH,1):WAWA1:510!SP0:P$QZ$(PB,2):T  1770X :QZ$(500,2):ER$(15):24:12:"** QUIZ-MAKE **":I112::n I115:ER$(I): 7)"PRESS TO CONTINUE" 1750:KB141230 :32,5:33,35:24:"QUIZ-MAKE"::::"1). EDIT"::"2). LOAD"::"3). SAVE"8 OQRSTUVWXYZ[pRESS ANY KEY TO CONTINUE":1750:VIN1:240<VVIN01550`"PRINT TO:"::"1). SCREEN":"2). DEVICE - PRINTER, ETC.":1750:(A$)1(A$)2ė:1120jA$"2"1290t:TT$:DT$:CN$:QH$:AH$:NR;" RECORDS":QT2ĺ"RANDOM":1160~"SEQUENTIAL"S A KEY":1750:D$(4),D$;"PREFIX,D1"?D$;"OPEN ";F$SD$;"CLOSE ";F$hD$;"DELETE ";F${D$;"OPEN ";F$D$;"WRITE ";F$$TT$:DT$:CN$:QH$:AH$.NR:QT:LC:TL8Z1NR:QZ$(Z,1):QZ$(Z,2):BD$;"CLOSE ";F$,L::"P,1)):A95A64ĺ"INVALID FILE NAME";(7):T11000::980XI2(F$):V$(F$,I,1)((V$".")(V$"0"V$"9")(V$"A"V$"Z")(V$"a"V$"z"))ĺ(7):"INVALID PRODOS FILENAME":T11000:::980I:"INSERT DISK IN DRIVE 1 AND PRES;AH$Y:"THERE ARE ";NR;" RECORDS."::"PRESS ANY KEY TO CONTINUE":1750:VIN1:240iVIN01550:"SAVE DATA":::"ENTER DATE: ";DT$::"YOUR NAME: ";CN$::"ENTER FILE NAME: ";:VT9:HT17:ML15:1560:B$""240<F$B$:A((F$I,1):CK$","870\:880/fF$(F$,I1)BpD$;"READ ";F$[zTT$,DT$,CN$,QH$,AH$lNR,QT,LC,TLI1NR:QZ$(I,1),QZ$(I,2):ID$;"CLOSE ";F$:TT$::"LAST MODIFIED ON ";DT$:"BY ";CN$::"QUESTIONS HEADER: ";QH$:"ANSWER HEADER: "(V$"0"V$"9")(V$"A"V$"Z")(V$"a"V$"z"))ĺ(7):"INVALID PRODOS FILENAME":T11000:::810sCID:"INSERT DISK IN DRIVE 1 AND PRESS A KEY":1750:D$(4)ED$;"PREFIX,D1"HD$;"VERIFY ";F$RD$;"OPEN ";F$:I1(F$):CK$(F$,68:BB$(1)Ģ10:80048 " ":3:370*:"LOAD DATA":::"ENTER FILE NAME: ":ML15:VT3:HT17:1560:B$""2404F$B$:A((F$,1)):A95A64ĺ"INVALID FILE NAME";(7):T11000:::8109I2(F$):V$(F$,I,1)l>((V$".")13:868/VT7:HT1:ML80:1560:B$""700A(B$)32700RQZ$(ZZ,1)B$xVT13:HT1:ML40:1560:B$""730(B$)32730QZ$(ZZ,2)B$:VIN2:7807:868:8:868:13:868ZZ I78:I:1:868::13:868:ZZNR:18:1:8,X),I,(B$))630bI"l770v7:1:QZ$(ZZ,1);:13:1:QZ$(ZZ,2);:3:868:(20("RECORD #"(ZZ))2):"RECORD #";(ZZ)18:6:"C) CHANGE N) NEXT E) EXIT"1750A$"N"760A$"E"780A$"C"650 I78:I:1:868:::1:868::13:868P M$"SEARCH FOR":B$(1)Ģ10:1:VT13:HT1:ML5:550i 4:1:VT7:HT1:ML5 &M$:BB$B$:1560:B$""780 0BB$(1)X2:580 :X1 DZZ1NR NI1(QZ$(ZZ,X))(B$)1:((QZ$(ZZ,X),I))(B$)610XB$(QZ$(ZZ868 5:QH$:11:AH$4 HT1:VT7:ML80:1560C B$""240] B$(1)B$(17)520 QZ$(WR,1)B$:VT13:HT1:ML40:1560 B$(1)B$(17)520 B$""240 QZ$(WR,2)B$:NRWR:WRWR1:VIN2:NR500510 310 3:370 I78:I^WRNR1::15)"EDIT MODE":24:1:"PRESS [RETURN] KEY TO RETURN TO MENU";i h2:(20(TT$)2):TT$ rM$"RECORD #"(WR):(20(M$)2):M$ |V693:V:I140:"=";:I,V I78:I:1:868: V12142:V:I140:"=";:I,V 13:1::"4). PRINT"::"5). CHANGE PARAMETERS"::"6). EXIT"I :I17::S 1750r ((A$)6)((A$)1)0270 ":A(A$):A300,810,950,1110,1330,1480 ,NR500320 6"RECORDS ARE FULL";(7):T11000::240 @VIN0350 J1350 TNR0N <LC;"% LETTER CLUES":TL;" SECONDS DISPLAY TIME":::KPR11190t"PRESS ANY KEY TO CONTINUE":1750:|R1PR1ĺ:"RECORD #";R:I140:"-";::PR1ĺQZ$(R,1)::QZ$(R,2):I140:"=";:RR1:PR11260 R3(R3)12601750:%RNR1200=:(4);"PR#0":PR0k:"PRESS ANY KEY TO CONTINUE":1750:240 :"SLOT NUMBER OF DEVICE: ";:1750:(A$)71290A$::"PRESS A KEY TO START OUTPUT":A(A$):1750(4);"PR#";A(PR1:1140 2VINTM1400N r"YEARS OF LOAN: ";N$:((N$,8))0((N$,8))60(N$)8370f |TR(N$):TR60370 :N(N$):TR$"YEARS":430 "MONTHS OF LOAN: ";N$:((N$,8))0((N$,8))720(N$)8400 TR(N$):TR720400 :N(N$):NN12:TR$"MONTH0:KB1KB22800 "TMKB:::CH310,680,510L , ** PAYMENT AMOUNT ** 6"INTEREST RATE (%) ";I$:((I$,8))0((I$,8))99(I$)8310 @I(I$):I0I99310 J:II100:IN2350 TI$"MONTHLY":PM$I$:360 ^I$"ANNUALLY":PM$(I$,6) h KB4CHKB:250$ KB4950, :| :3:"PAYMENTS ARE MADE:":32,5:33,35:6:"1 - MONTHLY"::"2 - ANNUALLY" 1150:KB1KB2260 INKB:::3:"LENGTH OF LOAN IS EXPRESSED:":32,5:33,35:6:"1 - IN MONTHS"::"2 - IN YEARS" 115\^_`abcdefg11:"* LOAN CALCULATOR *"::T12000: FLG0::3:"DO YOU WISH TO DETERMINE:":32,3:33,37:6:"1). PAYMENT AMOUNT"::"2). NUMBER OF PAYMENTS."::"3). LOAN AMOUNT" :"4). AMORTIZATION SCHEDULE"::"5). EXIT PROGRAM": 1150:KB1KB5210: COPYRIGHT 1984, EMERALD VALLEY PUBLISHING CO. Td *******************nn * LOAN CALCUALTOR *x ******************* BY H.W. BUTTON HOME COMPUTER MAGAZINE VERSION 4.5.1 APPLE II FAMILY APPLESOFT) ::12:VTVT11580GC!SKB(16384):KB127Ĺ16368,0:A$(KB128):]1750uEN(222):EN255ijEN161810LPR16:24:1:(7);"ERROR #";EN;" IN LINE #";((219)256(218));! TDL1300::1:" 1KB12817B$(KB128):1|KB128321580uVT:HT:(KB128);:HTHT1:B$B$(KB128):HT41VTVT1:HT11730GC01580GC1B$"":GCGC1:VT:HT:" ":HTHT1:1720 GCGC1:B$(B$,((B$)1)):VT:HT:" ":HTHT1:HT0HT40::240B$"":CR$(95)*"GC0ML1;,VT:HT:CR$Y6KB(16384):KB1271610c@1590J16368,0:Z(16336):KB1361690TKB141ĖHT:VT:" ":^KB149ĢVT:HT:" ";:B$B$" ":HTHT1:HT41HT1:VTVT1hKB1491730rKB128 WITHOUT SAVING":"IT. DO YOU WISH TO EXIT AND LOSE THOSE CHANGES (Y/N)":1750bA$"Y"1530wA$"N"ė:1490240"BYE BYE, SEE YOU NEXT TIME""YOU NEED TO LOAD OR CREATE A QUIZ FILE BEFORE USING THIS OPTION!";(7):T13500:(B$)8:TT$:CN$:QH$:AH$:QT2ĺ"RANDOM":1440J"SEQUENTIAL"LC;"% LETTER CLUES":TL;" SEC. DISPLAY":::"IS THIS CORRECT (Y/N)":VIN21750:A$"Y"A$"N"1450A$"N"1350VIN21530Q"YOU HAVE CHANGED THE QUIZYPE:"::"1). SEQUENTIAL":"2). RANDOM":1750:(A$)1(A$)2Ģ8:1390xQT(A$):15:1:"LETTER CLUE PERCENTAGE (0-80):":VT15:HT32:ML2:1560:LC(B$):LC80Ģ12:140017:1:"TIME (IN SECONDS) FOR RESPONSE DISPLAY (0-99):":VT18:HT9:1560:TL01550<1350:240QF:ML39:VT1:HT13:1:1:"QUIZ TITLE:":1560:TT$B$PVT3:HT15:3:1:"AUTHOR'S NAME:":1560:CN$B$ZVT5:HT19:5:1:"QUESTIONS HEADER:":1560:QH$B$dVT7:HT16:7:1:"ANSWERS HEADER:":1560:AH$B$In10:"QUIZ TS"M "AMOUNT OF LOAN $";T$:((T$,8))0((T$,8))10000000(T$)8430h T(T$):T1000000430x :IN2470 NN12:II12 A(I((1I)N))(((1I)N)1)T:IN2490 II12 II100:830  ** LOAN AMOUNT **5:"INTEREST RATE (%) ";I$:((I$,8))0((I$,8))100(I$)8510_I(I$)100::I$"ANNUALLY":IN2540|II12:I$"MONTHLY":560"ANNUAL PAYMENT $";A$:((A$,8))0((A$,8))10000(A$)8540&A(A$):5700"MONTHLY PAYMENT $";A$:((A$,8))0((Z(Z100)100)0ĺ".00";:1220C(Z(Z10)10)0ĺ"0";I0j1150:190-t ** READ KEYBOARD **\~KB(16384):KB127Ĺ16368,0:KBKB176:f1150 ** DOLLARS/CENTS **21Z(Z.005)100:Z(Z):Z$;(Z100000000)(Z10000000)(Z1000000)(Z100000)(Z10000)(Z1000)(Z100));Z100;&"BALANCE = ";:Z(100BA.5)100:Z$"$":1190:1150:GBFLG11110PL190}V18:1:"PAYMENT #";N:ILABA:PRBA:BA0`20:"INT=";:Z(100I.5)100:Z$"$":1190:18:"PRIN=";:Z(100PR.5)100:1190:22:1:"BALANCE = ";:Z(100BA.5)100:119"PRESS ANY KEY TO SEE NEXT"3SPNFL1:SPN1@VSTSPj$K(1IN)(V):BA1K(PM(K1)INLO).18:1:"PAYMENT #";V:IBALPA:LBA:PRPAI:20:"INT=";:Z(100I.5)100:Z$"$":1190:18:"PRIN=";:Z(100PR.5)100:Z$"$":11907822:1:0:::"SHOW SCHEDULE FROM"h:14:"PAYMENT #";:ST$:((ST$,8))0((ST$,8))N1(ST$)81010ST(ST$)::16:"TO PAYMENT #";:SP$:(((SP$,8))ST)((SP$,8))N(SP$)81020SP(SP$):K(1IN)((ST1)):L1K(PM(K1)INLO):24:1:00)100:PA(PM100)100:LATTPA(N1):"LOAN AMOUNT ";:ZLO:Z$"$":1190::"NO. OF PMTS ";:ZN:1190::Z$"":"INTEREST RATE ";:Z(IN$):1190:Z$"$"1:8:"MONTHLY PAYMENT = ";:ZPA:1190:::"FINAL PAYMENT = ";:ZLA:119(LO$)8950mLO(LO$)::"NO. OF MONTHLY PAYMENTS? ";:"";N$:((N$,8))0((N$,8))720(N$)8960N(N$)::"INTEREST RATE? (%) ";:"";IN$:((IN$,8))0((IN$,8))100(IN$)8970)IN(IN$)1200:PMLO(IN(1(1IN)(N))):TT(PMN1180=TPAN:ZTP:Z$"$":::"TOTAL COST";:1180:TITPTZTI:Z$"$":::"TOTAL INTEREST";:1180::24:"PRESS ANY KEY TO CONTINUE";:756190 ** AMORT. SCHED. **:2:"LOAN AMOUNT? $";:"";LO$:((LO$,8))0((LO$,8))10000000";I$:T((T100))100?f:"LOAN AMOUNT ";:ZT:Z$"$":1180wpIN2ZA:Z$"$":::"ANNUAL PAYMENT ";:1180:900zZA:Z$"$":::"MONTHLY PAYMENT";:1180::"NO. OF PAYMENTS ";:ZN:Z$" ":1180:TM$"TERM IN "TR$:::TM$;:21:ZTR:Z$" ":1810  TR$"YEARS":TRN:8309*TR$"MONTHS":TRN12S4 ** FINAL REPORT **>:I(I.0005)1000:I(I):II1000:IT$(I):3:"INTEREST RATE: 000000 %":3:24:((IT$))(IT$)IT$IT$"."HI10IT$" "IT$RIT$\5:"COMPOUNDED 0000(T$)8730eT(T$):A.001(IT)ĺ:(7);"PAYMENT CAN'T COVER INTEREST";:Q13000::190:LA(A(TI)):L11I:LL(L):L2(L1):NLLL2:II100:IN2790II12:TM2780TR$"MONTHS":TRN:830 TR$"YEARS":TRN12:830TM1NNUALLY"::"ANNUAL PAYMENT $";A$:((A$,8))0((A$,8))10000(A$)8700`A(A$):730I$"MONTHLY":II12::"MONTHLY PAYMENT $";A$:((A$,8))0((A$,8))10000(A$)8720A(A$)::"AMOUNT OF LOAN $";T$:((T$,8))0((T$,8))1000:TRN:TR$"YEARS":IN2640(vNN12Z:T(A(((1I)N)1))(I((1I)N)):IN2660eII12vII100:830 ** NUMBER OF PAYMENTS **:"INTEREST RATE (%) ";I$:((I$,8))0((I$,8))100(I$)8680I(I$)100:IN1720OI$"A(A$,8))10000(A$)85604:A(A$)::TM2610zD"HOW MANY MONTHS? ";N$:((N$,8))0((N$,8))720(N$)8580NN(N$):TRN:TR$"MONTHS":IN1640XNN12:640b"HOW MANY YEARS? ";N$:((N$,8))0((N$,8))60(N$)8610lN(N$)HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )O 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`ʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0N뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`, O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllhh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBآ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDL{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jz ";:TDL1100:::240 LPR16:24:1:(7);ER$(EN);:TDL1300::1:" ";:TDL1100:::240m! LANGUAGE NOT AVAILABLE,RANGE ERROR,RANGE ERROR,WRITE PROTECTED DISK,END OF DATA ERROR,FILE NOT ON DISK,Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L ؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } `؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzHNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8N) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$%FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحqIL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH ۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`VOLUME MISMATCH,I/O ERROR,DISK IS FULL,FILE IS LOCKED,SYNTAX ERROR,BUFFERS NOT AVAILABLE,FILE TYPE MISMATCH!& PROGRAM IS TOO LARGE,NOT A DIRECT COMMAND ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV @8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LN !"#$Ԡ͠ˠĠԠҠhꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @  K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`Hх 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ؍  í ɇ X :8)8Ȋ))i)iڍ0 L|0 8 p390j⹡0  $  ,ɍXɉ4ɛ:ɕIЪeE0   бE)Ү𝽀/$L/ 8m/蝀ȱ$Li #  n  L  < L &婙  ) 8 $`F2ȱ ʆ2` `  ` K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L ŠϠŠà͠ӠàԠŬ! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  /LX  n# $ B :  eұ)ȱi)0в@8 L| ` νý½  |Ii||̈́ ҡl 4 j `>i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q> A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ(4);"BLOAD LINKUP"1 (4);"BLOAD FORMBUILD"< 20992n D$(4):CR$(13):ES$(27):BP$(7):ER$(21) I221:ER$(I): D$;"PREFIX" PF$ I1(PF$):(PF$,I,1)"0"(PF$,I,1)"9"290 VN$""VN$(PF$,I,1):II1:(PF$,I,1)".d *******************5n * ON DISK STARTUP *Ox *******************c BY ROGER WOOD| CALL SHOOTING STAR 20MEG BBS/PAE PRODOS 206/838-7686 VERSION 4.4.1 APPLE II FAMILY - APPLESOFT HI(116):1210 L5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E(8mȾȾmɾɾʾiʾ` Lpl8l:/[ҝƬƀ#(ZZV4D\-:% >M CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES p` y־ǾҾ,G 8`׾ؾ  p жۥs׾tؾE` y ( о(־Ǿ,G 8`_`W)H־Jjjjh p̭ L;Ǿ ..8 ۭ }ȾȾI>Ie f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)"VN$VN$(PF$,I,1)Y II1:NN$(PF$,I,1):II1:(PF$,I,1)"/"NN$NN$(PF$,I,1)` "I ,:::5:P$"HOME COMPUTER MAGAZINE":1030:1090 67:P$"VOL. "VN$" NO. "NN$::1030 @10:4:"YOUR CHOICE:" JVT12:980= T18:P$"MAKE SELECT:L(218)(219)256:216,0.LCE31120V24:DI13:1:39);:DE1200::1:"THERE IS NO DRIVE ";DR;" IN SLOT 6";BP$;:DE1900::DI:300`E31140j24:DI13:1:39);:DE1200::1:"NO EXTERNAL DRIVE ON THIS APPLE IIC";BP$;:DE1FOUND,PATH NOT FOUND,I/O ERROR,DISK FULL,FILE LOCKED,INVALID OPERATION,NO BUFFERS AVAILABLE,FILE TYPE MISMATCH,PROGRAM TOO LARGE,NOT DIRECT COMMAND,SYNTAX ERROR8 DIRECTORY FULL,FILE NOT OPEN,DUPLICATE FILENAME,FILE BUSY,FILE(S) STILL OPENBE(222)IT TO APPLESOFT BASIC"?14:8::"FORMAT A PRODOS DISK":W20((P$)2):P$:|KB(16384):KB127Ĺ16368,0:1040$SP1523:1:SP:40);:SP:1:24:39);:. RANGE ERROR,NO DEVICE CONNECTED,WRITE PROTECTED,END OF DATA,PATH NOT 7:1030:950C(DP)51P$"DISK DRIVE MALFUNCTION":16:1030q18:P$"PRESS [RETURN] TO CONTINUE":10301040:KB141940300VT14101012:8::"EXIT TO APPLESOFT BASIC"14:8::"FORMAT A PRODOS DISK":12:8::"EX(VO$,I,1)):21505K(DP)0P$"FORMAT COMPLETE":16:1030:950(DP)43P$"DISK WRITE PROTECTED":16:1030:P$"CORRECT AND RETRY":17:1030:950(DP)39P$"EITHER DISK IS UNFORMATTABLE":16:1030:P$"OR THERE IS NO DISK IN DRIVE":1PRESS WHEN READY"3H1040:KB141840KRDSDS0:1060:730g\DEVNUM%96(128(DR2))f16:1:39);:1:P$"FORMATTING"::1030p18:1:39);:1::P$"/"VO$"/":1030zBP22842:DP20992:DP,DEVNUM%:BP,(VO$):I1(VO$):BPI,(TRASH,D";DR1090.D$;"PREFIX,D";DR?D$;"PREFIX"HFD$R 1060x16:1:"DESTROY ";FD$;"? (Y/N)"; 1040:KB217KB249860*KB206KB238DS1:8304800>1060:1:16:"INSERT DISK TO BE FORMATTED IN DRIVE ";DR::"THEN O$)1):600_((V$".")(V$"0"V$"9")(V$"A"V$"Z")(V$"a"V$"z"))ĺBP$;:600}VO$VO$V$:(VO$)1560022:VO$;BP$;V$:V$ES$V$CR$V$(8)ĺBP$;:700V$(8)VO$(VO$,(VO$)1):600V$ES$300 D$;"BLOAD OTHER PUNCTUATION.)";10)GX13:22:VO$;15(VO$)):(VO$)22:V$WbV$ES$300ulV$CR$VO$""ĺBP$;:600vVO$""(((V$"A"V$"Z")(V$"a"V$"z")))ĺBP$:600V$CR$730V$(8)(VO$)1VO$"":600 V$(8)VO$(VO$,(VP$"ENTER NEW VOLUME NAME"::1030::D"(ANY PRODOS VOLUME NAME IS PRECEEDED BY A SLASH AS PROVIDED ABOVE. IT MUST BEGINWITH A LETTER AND MAY BE UP TO 15 CHAR- ACTERS LONG. IT MAY CONTAIN LETTERS, NUMBERS, OR PERIODS--BUT NO SPACES OR "N"ANY ED AS SLOT(6), DRIVE (1)."O24:"--PRESS TO ACCEPT: TO EXIT";XSL6l10:23:"(1)";24:DR$:DR$CR$DR$"1":550DR$ES$300DR$"1"DR$"2"ĺ"1";BP$;:520&DR$:DR(DR$)013:20:"(/ )"(:15:MATTER":5::1030M 6:P$"COPYRIGHT APPLE COMPUTER,INC., 1983-84":1030 8:"--FORMAT--":" THE VOLUME IN SLOT: (6)":15);"DRIVE:" 13:" NEW VOLUME NAME:"(64435)6(64448)0C1:21:"THE APPLE IIC'S INTERNAL DISK DRIVE IS DESIGNAT980:350 rVT12430/ |:HI256:1170C D$;"PREFIX,D1" "TO USE THE PRODOS DISK FORMATTER PLACE":PF$;" IN DRIVE ONE AND "::"RUN STARTUP": D$;"CAT" : VO$"" ::P$"HOME COMPUTER MAGAZINE":3::1030:P$"PRODOS DISK FORION WITH THE ARROW KEYS":1030:P$"THEN PRESS RETURN":1030 Y::P$"CALL SHOOTING STAR":1030:P$"20MEG BBS/PAE PRODOS":1030:P$"206/838-7686":1030: ^KB0:1040:(KB136)(KB138)(KB139)(KB149)(KB141)350 hKB141VT122(VT12):900::DI:300!tE6E7740.~E8830y23:DI13:1:ER$(E);BP$;:DE1100::1:30);:DE1100::DI:300E(222):L(218)(219)256:216,0E6E7E8Ģ12:P$"PLEASE PLACE "PF$" IN DRIVE 1":1030:P$"PRESS [RETURN] TO CONTINUE":10301040:KB1411190(390<E(222):216,0SE12Ĺ116,96:180:12:"YOU NEED TO RE-BOOT TO USE THIS DISK"%Y8` Y Y$LhX DEFAULT.NAME YYZ)ZYYZZ12)ͳZ(8.2) Y Y Y Y Z [YY`[] [:Y Ƚ;Y):Y ,X -X -X -X`HJН݌h Hh݌`8`0($ p,&"!Y֠LsXԮ#Y WLY#Y .Wҥҭ"Y%Y&Y8 Y YHh#Y jV<ԥY/8`#Y jV#Y Vع&Y0 &Y`%Y8`"Y %Y#Y jVWKX :X9Y WWX :X8Yн :X$Y)* 7Y7Y` Y݌HhHh W W W WV Y꩖݌$ Y݌ W W W W W`Hh݌`80^݌Hh X X݌ -X -X -X X X XEEHJНh #Uh` \I꽌ɪVɭսɖ0սɖ!ɖ 꽌ɪ\8`꽌ɪɖ۽*ݽ%ݙEۈзЮ꽌ɪФ`7Y6Y$Y\8Y$Y9Y86Y7I$Yi$Y8Y8Y 8 x :U(`+L!U'L!Ui08` $Y6YJJJJ6Y VN$Y`)p#Y#Y**LSUׅکP$Y #U :XLdUөЭ YiԩѥѮ#Y #U#YLU cXYLUYLU YLU"Y%Y%YLU#Y jV#Y Vѥ#H#YR U4R JYR`R`ȭȩÑȩ'ȩ ' >Z)d `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RLnSOS BOO)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS 0 0 0 0 0 0 0 0 99999.99 17.5513514 16.8396226 21.9285714 0 0 0 0 0 99999.99 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 .0677548506 .0672268908 .0542888166 0 0 0 0 0 .189270558 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6.74 6.74 7.21 0 0 0 0 0 20.69 0 0 0 0TRIPCOST 10 9 60 30 DATE 0 CAR RENTAL 0 GAS COST 0 GALLONS 0 ODOM.START 0 ODOM.STOP 0 MILES 3 6 202 5 MILEAGE 3 7 204 4 COST/MILE 3 3 204 7 BREAKFAST 0 LUNCH 0 DINNER 0 SNACKS 0 ENTERTAINM 0 TIPS 0 HOTEL ROOM 0 AIR FARE 0 TAXI FARE 0 DAILY TOT 21 2 201 3 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0 0 0 0 0 30 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 320.78 166.01 144.46 36.71 0 0 0 0 0 667.96 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 320.78 486.79 631.25 667.96 667.96 667.96 667.96 667.96 667.96 5446.58 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 3.5 3 1 0 0 0 0 0 12.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 76 76 76 0 0 0 0 0 0 228 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 212.48 0 0 0 0 0 0 0 0 212.48 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3.25 4.5 0 0 0 0 0 0 7.75 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 12.3 15.27 8.22 0 0 0 0 0 0 35.79 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 .75 2 3.5 0 0 0 0 0 6.25 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6.5 0 0 0 0 01 10 201 11 201 12 201 13 201 14 201 15 201 16 201 17 201 18 RUN TOTAL 4 19 201 205 20  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 0 0 0 0 nt engagingly provocative pixel screen picture element bug a program malfunction hyperbole extravagant exaggeration sprent sprinkled over yarder a log-pulling machine vapid lacking liveliness gaggle flock of geese on ground parry to ward off an attack maqudata bullish optimistic of boom market overdub to record sound on sound codex a manuscript book build-down keep only new weapons totem emblem or revered symbol gable end wall of a building chutzpah extreme self-confidence frappe a partly frozen drink piquaVOCAB2 12-11-1984 TOM WORD DEFINITION 28 1 10 10 saute' fry in small amount of fat schuss ski downhill at high speed allegro a fast tempo in music gaffer movie lighting technician plumb straight up and down tweek to adjust (electronics) byte eight bits of urtesies; manners amenities characterized by verbal abuse vituperative liberating energy exergonic y sensitive tetchy inappropriately jocular facetious having no petals apetalous to cheat out of what is due bilk funnel-shaped clay smoking pipe chillum extremely cold gelid following in time or order subsequent just and fair; impartial equitable social coition calm; happy; peaceful halcyon fear of foreigners xenophobia a sudden outburst salvo an article of food viand to talk informally; chat confabulate tending to melt or dissolve deliquescent resembling a tree in structure dendriform irritable or peevishlVOCAB1 12-11-1984 TOM DEFINITION WORD 24 1 10 10 harsh or discordant sound cacophony decaying organic matter found on the forest floor duff the space between nerve cells synapse term for a fertilized egg zygote a riddle conundrum act of giving birth partur0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ette small preliminary model perquisite extra reward or gratuity farrier one that shoes horses warp lengthwise strings in loom GERMAN1 12-11-1984 TOM GERMAN WORD ENGLISH WORD 27 1 10 10 der Koffer suitcase gutaussehend good-looking die Reise trip nuelich recently zwischen between augenblichlich immediately die Brieftasche wallet eingebildet egotistical das Fliessband assembly lin with front wheel drive? The Cord Who is the robot in "The Day the Earth Stood Still"? Tobar Who are the people of "The Forbidden Planet"? The Krell What TV show featured Cochise? Broken Arrow Name the first computer to use a mouse and icons. Xerox star WhTRIVIA 12-11-1984 TOM TRIVIA QUESTION TRIVIA ANSWER 35 1 10 10 Who was the fifth Marx Brother? Gummo What's the flip side of the Beatles' single "Rain"? Paperback Writer To what religious sect do we owe the circular saw? Shakers Which was the 1st major carein hohes Tier time is up die Zeit ist um see you later! Aufwiedersehn! ll in the morning am Morgen how are you? wie geht's? good day! guten Tag! we have a lot in common sie steht mir nahe you're welcome bitte sehr show me zeigen sie mir what does that come to? wieviel macht das? that turns me on das begeisert mich a big shot o you have a light? haben sie Feuer? help yourself sich bedienen now and then hin und wieder for example zum Beispiel in that case in diesem Fall take it easy nimm's leicht without a doubt ohne Zweifel be that as it may wie dem auch sei hurry up mach schneGERMAN2 12-11-1984 TOM ENGLISH PHRASE GERMAN PHRASE 26 1 10 10 in the meantime in der Zwischenzeit what's the matter? was ist los? take care! mach's gut! I am sorry es tut mir leid it's now or never entweder jetzt oder nie it works wonders wunder wirken dngezwungen casual die Verwandten relatives zugeben to forgive das Rasiermesser razor schlank slender jawohl indeed verstehen to understand e schlafen to sleep die Innenstadt downtown wiederholen to repeat vergebens in vain die Gemeinschaftschule primary school die Schreibwaren stationery zeigen to show das Verfahren procedure furchtbar horrible wunderlich wonderful die Armbanduhr wristwatch uo shot James A. Garfield? Charles Guiteau How many typographic points to the inch? 72 Which particle has both light and matter properties? nuetrino Which famous cowboy movie star carried a whip? Lash La Rue What is the world's highest-flying jet aircraft? EM 2281 GOSUB 2541 2290 N$ = LEFT$ (NAM$,12) + ".HCL" 2541 PRINT "PLACE YOUR DATA DISK IN DRIVE 1 AND PRESS ." 2542 GOSUB 5260: IF KF = 0 OR A$ < > CHR$ (13) THEN 2542 2543 PRINT CHR$ (4);"PREFIX,D1" 2544 RETURN 2660 N$ = LEFT$ (N$,40: RETURN 1900 IF FN C(C) = LC AND TC = 0 THEN GOSUB 1140: RETURN 1930 CL = LC - 2:C = 2 + (1 - SGN (TC)): GOTO 1960 2175 GOSUB 2541 2180 N$ = LEFT$ (N$,12) + ".HCD" 2181 PRINT CHR$ (4);"VERIFY ";N$ 2182 PRINT " ": PRINT "WORKING . . ." 2250 R170 REM VERSION 4.3.5 360 IF (A$ > = "0" AND A$ < = "9") OR A$ = "." OR A$ = "-" THEN GOSUB 3440: GOTO 270 940 X = J(RW + IT - 1,CL): GOSUB 990: PRINT X$;" "; 1070 X$ = RIGHT$ ((" " + X$),10) 1480 IF FN C(C) = LC AND TC = 0 THEN GOSUB 11Enterprise? dilithium crystals t was Priam's prize for judging a beauty contest? Helen Which early radio show restaged movie hits? Lux Radio Theater What was the dry planet in "The Dispossessed"? Anarres Who was the housekeeper in "My Three Sons"? Bub What substance powers the Starship o more forever"? Chief Joseph What is the name of the spice in "Dune"? melange Who hosted "You Are There" in the 1950's? Walter Cronkite What were Romeo and Juliet's last names? Montegue and Capulet Which President was raised as a Quaker? Richard Nixon Wha"Ozzie and Harriet"? David What is the largest self-supporting concrete roof? The Seattle Kingdome Who was the founder of the Republic of China? Sun Yat-sen Which computer magazine has no outside advertising? Home Computer Magazine Who said "I will fight nI have not yet begun to fight"? John Paul Jones In which film did Chaplin satirize Adolf Hitler? The Great Dictator Who was the "Man of a Thousand Faces"? Lon Chaney Sr. What was the name of the dog in "Topper"? Neil What is the name of Ricky's brother in SR-71 Blackbird Who was Fred Flintstone's best friend? Barney Rubble Where was the first semiconductor produced? Bell Labs Who is the father of the Pascal language? Nicholas Wirth What is Ringo's other name on the Sgt. Pepper album? Billy Shears Who said "12) + ".HCD" 2665 GOSUB 2541 2675 PRINT CHR$ (4);"OPEN ";N$ 2676 PRINT CHR$ (4);"CLOSE ";N$ 2677 PRINT CHR$ (4);"DELETE ";N$ 2750 REM 2780 N$ = LEFT$ (NAM$,12) + ".HCL" 2785 GOSUB 2541 2793 PRINT CHR$ (4);"OPEN ";N$ 2794 PRINT CHR$ (4);"CLOSE ";N$ 2795 PRINT CHR$ (4);"DELETE ";N$ 2800 PRINT CHR$ (4);"OPEN"N$ 2805 PRINT CHR$ (4);"WRITE ";N$ 3440 IF A$ = "-" THEN J( FN R(R), FN C(C)) = - J( FN R(R), FN C(C)): GOSUB 1140:TI$ = "-" + TI$: RETURN 3445 IF CP(1) = 1 THEN CP(1) = 0:CP(2) = T CHR$ (4);"PR# 0": HOME 5320 PRINT CHR$ (4);"PR# 1": RETURN 5530 PRINT CHR$ (4);"PR# 0": HOME : VTAB 10: HTAB 1 < S2 + 4) * PC) + ((PC > = S2 + 4) * (S2 + 4)) 5050 PS$ = PS$ + RIGHT$ ((" " + STR$ (IT)),9): GOTO 5070 5060 PS$ = PS$ + RIGHT$ ((" " + STR$ (IT)),11) 5130 FOR JI = S2 TO ((PC < S2 + 4) * PC) + ((PC > = S2 + 4) * (S2 + 4)) 5210 PRIND TC > 0) THEN LC = TC - 1: GOTO 4665 4640 IF TC = 0 AND LC > B THEN LC = B: GOTO 4665 4665 PRINT "LAST COLUMN IS OUT OF RANGE": PRINT " ": RETURN 4800 PRINT CHR$ (4);"PR# 0" 4990 FOR S1 = 1 TO PC STEP 5:S3 = S3 + 1:S2 = S1 5030 FOR IT = S2 TO ((PC S (J(Z,ZC)) < - 99999.99 THEN J(Z,ZC) = SGN (J(Z,ZC)) * 99999.99 3960 IF TC = 0 THEN 4020 4540 T1 = VAL (TC$): IF (T1 > B OR T1 < 3) THEN PRINT "TOTAL COLUMN OUT OF RANGE": PRINT " ": RETURN 4610 IF L1 > B THEN 4665 4630 IF ((LC = TC OR LC > TC) AN0:CP(3) = 0:TI$ = "" 3890 FOR ZC = 1 + LG TO LC: IF J(U1,ZC - LG) < > 0 AND J(Z,ZC) < > 0 THEN J(Z,ZC) = J(Z,ZC) / J(U1,ZC - LG): GOTO 3900 3895 IF J(Z,ZC) = 0 THEN 3900 3896 J(Z,ZC) = SGN (J(Z,ZC)) * 99999.99 3930 IF ABS (J(Z,ZC)) > 99999.99 OR AB