M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=M-Et#  )l888880M$00, OK,00,00=.$ #     "#" ` #8   '  $       0  ` $ $) @ $ ) P $ ˩"#"   ` $`   b$    L# ". . 8 1hh   'S{?`{/)D7pҔ&5{b L\LTB\I:z茨Iw>9r?cZSϤ}8}? n.?Ho^kQ7P4aiLTDk85ˋF/G0UL:ĭ 3ןD\kTş{@tǼ֢֖I\)TT&OuZ;)&5+O SLjNZ"r/~80.NrZZF-CE/^"*!.'Udn;#ˣ'^rt)Fş|{ZUQ q9~_ӚQ>{G-ä .P RUN-ME-FIRST! (142)Y"PUT ALL FILES ON A FRESHLY FORMATTED DISK, IF YOU HAVEN'T ALREADY,"_ "THEN RUN THE 'BOOT FOR AMORT' FIRST, THIS WILL MAKE THE DISK" "AUTOBOOT WHEN YOU TURN ON YOUR COMPUTER & DISK DRIVE   ". . ( "8` L$` 8` ``   ` `  P $ @ $ ` $  `$) Lw) `LtH        h`hl ywO Ǽ6{@ңf׬Yzl3SEd."NI)La4q9B6;ԬP?%^~N;qӂ[LjVoŗ֬)O <)&ŪhL> '.Gi~t/gK\~wI⛩l*^<&gg{0L\PIF)!j9x/ZFP_-syG&s S AMORT.DOCS!a|=U `O=Xc|6 zUFCrӱt|mlm\yÞ~m"UޮMDDŽ&#m"T=kIsmHYdCGTFxm@=]f1f̨fǰ6nj:yIy#=HOȘmPe ,g3<[έއfRy Q z5^JI׋dRIW2NZm:m]͍Vo <)[;ϒaRnRɁ͚Vjyu=п\%?r=nn}HmO:jAYZ*CELjȳ)>j[' 1Ub[ l?l1 f^D%Hm?srfzgTĤ&룶ut1UBEĭ^kI-/%s7ssJbaޕi"vO ןF-|{Z}O@tǼ$T:ҏ[儽$8Û4?`Lg SLjV(ݟO?ܡܠѴ#Qst;gRB]Eҟ܈YҿeR. YOU WILL BE "D( "ABLE TO READ OR PRINT THE SEQUENTIAL FILE FROM INSIDE AMORT/80 V2."J)2"I HOPE YOU ENJOY USING THIS PROGRAM AS MUCH AS I DO.3<"THANKS FOR DOWNLOADING MY SOFTWARE.JOE KOWALCZYK"DPBOOT FOR AMORT! (142)S" WORKING HARD MAKING BOOT; PLEASE WAIT"iFP$"AMORT/80 V2"uKZ$(0)P15,8,15Z8,8,8,"#"n15,"B-P 8 0"DS08:15:"FILE ERROR:"A$:8,"CBM";Z$;Z$;Z$;Z$;Z$;Z$;x>f)رY? :IL"&5^^ q9T)Sq9~t/틟cys9:Z[".ЭԚ-"ܡuxeb&&5c"*7Dt5ZlGןcys9:yנapgKj&5[SZgSmM|la6gCC128 #14 GT 2A 51 BLOCKS FREE MENU OUTLINE 128 MPG-CALC WEATHER LABEL MAKER.2 KALQULATOR MEMO XMASCARD MAKER 128 CHK/REG 2.6 READ.DOCS ALBUM LISTER V1 LISTMAKER.SDA UNIT CONVERT.128 VIDEO LABELS 128 DBADDNTER...":1135+[1085D,e*****************PRINTING ROUTINE FOR RECTANGLE FRONT LABEL***********t,oAQ$"B"LI(LI8)2: IF BETA MAKE SMALLER,yAQ$"V"LI(LI8)2: IF VHS THEN A LITTLE WIDER,1,(27);"A";(7),N1LI1:1,"*";::1,"*W PRINT WILL BE STORED IN MEMORY...."2E3O ENHANCED 128 INPUT ROUTINEC3YI$"":I2$"":I10:I20:I30:I40U3cCR0I3$""g3mCR1I3$""3wAL$""AL$" ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890+-/'"3 I2$(13)05!(C1$,I2$)I2$(C2$,(C1$,I2$),1) 6+I2I1I1ML,65I20I1$(I$,I2):I1$""r6?I1$I1$I2$(I$,I21,I1):I$I1$:1,IX,IY,I$,0:I1I11:I2I21:6II2I1I1MLI$I$I2$:1,IX,IY,I$,0:I1I11:I2I216S6]:,I3$" """ VICE NUMBER TO CHECK IF IS ONLINE0144,0:65457:SST:65454:SSSTT0S (15)" TURN YOUR PRINTER ON PLEASE...."_0ST00" THANK YOU...PRINTER ONLINE ": 1: "   (7183)L : } IRECTORY FOR THIS ..RCHIVE %= `L $8WX k k8WXȠ kȩ" k "  k    k7 ; J < K  } BYTES > %$> .     O K,? L,: 08`  L@/ 0: " " ,:  "i"!""!! " M , M ȭ  M M  " " " X      "`  ",1,"*";LI);"*" -1,(27);"A";(0)+-1,2)LP$;T$;RP$: FIRST LINEK-1,(27)"A"(7)"*";LI);"*"_-1,"*";LI);"*"u-1,(27);"A";(0)-1,2)LP$;T2$;RP$: SECOND LINE-1,(27)"A"(7)"*";LI);"*"-1,"*";LI)"*"-1,(27)3I2$"": I2$"":I2$3I404CR0:I3$""I3$"":I3$""%4L4CR1:I3$""I3$"":I3$""S445,C1:I419: 19 WAS ORIGINAL 170 FOR COMPILING4I2I11,IXI2,IY,I3$(I$,I21,1)"":1,IXI2,IY,I3$" """"4" ZEELAND, MI 49464"X5"AN UPDATED VERSION IS IN THE WORKS AND THIS SMALL COURTESY WILL HELP TO DEFRAY EXPENSES.}5" THANKS,"5" DAVE"5 5510 "0:$1*******************MAKE INPUT BOX***************************F1"";:X1LT1:"";::""Z1"";LT2);""{1"";:X1LT1:"";::""11" WHICH LINE IS WRONG (1*2*3*4)":15851W$:W$""15251W$"? 8$> > %? ? Wm> > Xm? ? kPN(H 5 +! +! $  ¸ ¸- J eK e8 ¸ ¸> ? LV } IT ANY KEY TO CREATE THE FILES N UNIT 8,0 OR TO ABORT `?SPUR?ERSE?QGRL0@ 8; KH< LH= !  "jjjj. 4) "." .# .$ n$ n# n" . . .! o в `,: 0`L8`  PSU` .     !  ` Ԍ . L|  `STOPACSQUEECRUNCSQUASCRU"A"(0).1,2)LP$;T3$;RP$: THIRD LINE&.1,(27)"A"(7)"*";LI);"*":.1,"*";LI);"*"P.1,(27);"A";(0)k.#1,2)A2$: FORTH LINE.-1,(27)"A"(7)"*";LI)"*".71,"*";LI);"*".AN1LI7:1,"*";::1,DT$;:1,"*".K1.U1)/_4,044I4I41:45I40:I30:5,C2:I2I11,IXI2,IY,""(I$,I21,1):1,IXI2,IY,""" "5I2$(20)I20I$(I$,I21)(I$,I21,I1):I2I21:I1I11:1,IX,IY,I$" ",05I2$""I2I1I2I215 I2$""I20I2I215(AL$,I2$)  !!!+ `, S"* / /    |"z" " * /   / ./ * , , 8Ly" Ͱ   `͌S" LN" @""%  "- - 9"$8% (`"& eWWXWȌ& `L" E$ 1"PR1:"":1952 W$"2"PR1:"":255-2W$"3"PR1:"":315V2W$"4"PR1:"":375`2'152521" IF THE INPUT BOX HAS OLD DATA IN IT YOU WILL":" HAVE TO TYPE OVER THE OLD DATA."2;" ONLY THE YELLO M= h< h; @ hh$0 ?  ? , @ `@B'd xWHh`@ 0  @ `W$X: Ս.)  HL : W$X 5P $0I +!?,' 0 $03L  & "NC } UN- 0 0 H) h }ING...`y!{! !,' 0>(  !Lt!  " " " ! !,' `   ' `   `H) M) m   h`L!`ˍ!!!hhLD!+ ۍ!!!L!!!!!+ ( + (54" THIS IS A PUBLIC DOMAIN PROGRAM RELEASED AS SHAREWARE, IF YOU FIND THIS PROGRAM USEFUL PLEASE SEND A DONATION OF$3.00 TO:"4" DAVID C. GARDNER"4" 3569 146TH AVE:LIFL: 945: CHANGE LENGTH OF BOX BACK TO LONG LABEL FOR SCREEN TO LOOK RIGHTw/i********** IS PRINTER ON/OFF ROUTINE FOR 128 ONLY***********************/s ****** ONE OTHER DEVICE MUST BE ON FOR THIS TO WORK******/}/P4:6,P: P IS THE DE 55:NL,5:1NL11841223:NL,160:2 NL5545655495:NL,6:22NL12241263:NL,160:N2 NL5549655535:NL,4:m2*NL1264174440:NL,160:24NL555365601640:NL,11:2>NL1265174540:NL,160:2HNL555375601740:NL,12:2R 1983:NL,160:0NNL19441983:NL,160:0XNL5621656255:NL,8::0bNL19041943:NL,160:V0lNL5617656215:NL,7:r0vNL18641903:NL,160:0NL5613656175:NL,5:0NL18241863:NL,160:0NL5609656135:NL,6:0NL178418 $U$SP$HP;HP$:400:A$O$88:20B.YH$R$HP$;:HP:WHP.001314:H$R$HP;HP$U$SP$W;W$:400:A$O$89:20X.A$:A$""400:Վz.A$:A(A$):A0A10:410.0,1:4,1::"":%.49,50,56,32,21,14,9,20,32,3,15,14,22,5,18,19,9,15,14,32,49,46,49$ $X$;:SF:SMSF.0929:H$R$SF;S$O$X$U$SP$SM;S$O$M$:400:A$O$82:20u,SH$R$S$0$M$;:SM:SFSM.0929:H$R$SM;S$O$X$U$SP$SF;S$O$X$:400:A$O$83:20,TH$R$S$CE$;:SC:SISC.155:H$R$SC;S$CE$U$SP$SI;S$O$I$:400:A$O$84:20-UH$R$S$O$I$;:SI:SCSI$R$LI;L$"="SP$CI;C$I$:400:A$O$75:20T*LH$R$GL$;:GA:LIGA3.7854:H$R$GA;GL$U$SP$LI;L$:400:A$O$76:20*MH$R$L$;:LI:GALI.26417:H$R$LI;L$U$SP$GA;GL$:400:A$O$77:20*NH$R$P$AV$;:PA:PTPA1.2153:H$R$PA;P$AV$U$SP$PT;P$TR$:400:A$O68:202(EH$R$D$;:D:GD3.6:H$R$D;D$" ="SP$G"GRADS":400:A$O$69:20y(FH$:"GRADS";G:DG3.6:H$R$G"GRADS ="SP$D;D$:400:A$O$70:20(GH$R$LE$"IN "MM$;:MM:IMM25.400058:H$R$LE$"IS"I;I$:400:A$O$71:20)HH$R$P$"/"X$;:FL:KMFL7B$S;B$U$SP$O"OHMS":400:A$O$62:20f&?H$R$W$;:PW:DB((PW.001)(10))10:H$R$PW;W$U$SP$DB" DBM":400:A$O$63:20&@H$:"INPUT DBM";DB:PW.00110(DB10):H$R$DB"DBM ="SP$PW;W$:400:A$O$64:20'AH$R$RF$;:RC:VS(1(RC))(1(RC)):H$O$54:20=$7H$R$Z$;:AT:GAT1.257:H$R$AT;Z$U$SP$G;G$:400:A$O$55:20$8H$G$;:G:ATG1.257:H$R$G;G$" ="SP$AT;Z$:400:A$O$56:20$9H$:"GAUSS";GA:LMGA6.452:H$R$GA"GAUSS ="SP$LM;LN$:400:A$O$57:20%:H$R$LN$;:LM:GALM6.452:R$"5."CI$V$S$" MILS"R$"6. "S$" MILS "Y$CI$R$"7."W$Y$HP$R$"8."HP$Y$W$R$"9. FIRST PAGE"R$IC$:410v""A82,83,84,85,86,87,88,89,20"2H$R$F$"IN"KI$;:F:WLVF:H$R$"THE WAVE "LE$"IS"WL" "M$:400:A$O$50:20#3H$R$"WAVE"LE$"IN "M$;:WL:FVWL:H$R$$:410 A61,62,63,64,65,66,67,68r H$R$"1."D$E$" GRADS"R$"2. GRADS"E$D$R$"3."FA$Y$Q$R$"4."Q$E$FA$R$"5. "I$Y$MM$R$; "6."MM$V$I$R$"7."P$"/"X$Y$K$"/"M$R$"8."K$"/"M$E$P$"/"X$R$N$R$IC$:410 A69,70,52,53,54,71,72,73n!H$R$"1. "C$I$YNL1266174640:NL,160: 3\NL555385601840:NL,15:*3fNL1303178340:NL,160:J3pNL555755605540:NL,11:i3zNL1302178240:NL,160:3NL555745605440:NL,12:3NL1301178140:NL,160:3&3NL555735605340:NL,15:23:NL,160:0NL5605656095:NL,4:1NL10241063:NL,160:61NL5529655335:NL,2:R1NL10641103:NL,160:n1NL5533655375:NL,8:1NL11041143:NL,160:1NL5537655415:NL,7:1NL11441183:NL,160:1NL55416554/4,1,22,9,4,32,3,46,32,7,1,18,4,14,5,18,50,48,32,10,1,14,32,49,57,56,55L/"":NL123:A:Q1430NL:Q,A:NLo/NL116:A:Q1514NL:Q,A:NL/&NL111:A:Q1596NL:Q,A:NL/0NL19842023:NL,160:/:NL5625656295:NL,2:/DNL19446.4516:H$R$SI;S$O$I$U$SP$SC;S$CE$:400:A$O$85:20b-VH$R$CI$;:MC:MSMC.7854:H$R$MC;CI$U$SP$MS;S$" MILS":400:A$O$86:20-WH$R$S$" MILS";:MS:MCMS.7854:H$R$MS;S$" MILS ="SP$MC;CI$:400:A$O$87:20-XH$R$W$;:W:HPW.001314:H$R$W;W$78:20<+OH$R$P$TR$;:PT:PAPT.82286:H$R$PT;P$TR$" = "SP$PA;P$AV$:400:A$O$79:20+PH$R$K$;:KG:PAKG2.2046:H$R$KG;K$U$SP$PA;P$AV$:400:A$O$80:20+QH$R$P$AV$;:PA:KGPA2.2046:H$R$PA;P$AV$" ="SP$KG;K$:400:A$0$81:20$,RH$R$S$O.233:H$R$FL;P$"/"X$U$SP$KM;K$"/"M$:400:A$O$72:20w)IH$R$K$"/"M$;:KM:FLKM7.233:H$R$KM;K$"/"M$U$SP$FL;P$"/"X$:400:A$O$73:20)JH$R$C$I$;:CI:LICI.01639:H$R$CI;C$I$" ="SP$LI;L$:400:A$O$74:20 *KH$R$L$;:LI:CILI61.023:HR$RC;RF$U$SP$VS" VSWR":400:A$O$65:20i'BH$:"VSWR";VS:RC((VS1)(VS1))2:H$R$VS"VSWR ="SP$RC;RF$:400:A$O$66:20'CH$R$D$;:D:RD57.3:H$R$D;D$" ="SP$R;RA$:400:A$O$67:20'DH$R$RA$;:R:DR57.3:H$R$R;RA$" ="SP$D;D$:400:A$0$H$R$LN$" ="SP$GA"GAUSS":400:A$O$58:20Q%;H$R$J$;:J:H$R$J;J$" ="SP$J;WS$:400:A$O$59:20%<H$R$WS$;:J:H$R$J;WS$U$SP$J;J$:400:A$O$60:20%=H$:"INPUT OHMS";O:S1O:H$R$O"OHMS"U$SP$S;B$:400:A$O$61:20&>H$R$B$;:S:O1S:H$"THE"F$"IS"F"KHZ":400:A$O$51:20a#4H$R$D$FA$;:F:C(F32)59:H$R$F;D$FA$U$SP$C;D$Q$:400:A$O$52:20#5H$R$D$Q$;:C:F(C95)32:H$R$C;D$Q$" ="SP$F;D$FA$:400:A$O$53:20#6H$R$LE$"IN "I$;:I:MMI25.400058:H$R$LE$"IS"MM;MM$:400:A$$L$R$"2."L$V$C$I$R$"3."GL$Y$L$R$"4."L$Y$GL$R$"5."P$AV$E$K$R$"6."P$TR$E$P$AV$R$"7."P$AV$E$K$R$"8."K$E$P$AV$R$N$R$IC$:410!A74,75,76,77,78,79,81,80! H$R$"1. "S$O$X$V$S$O$M$R$"2. "S$O$M$V$S$O$X$R$"3. SQ."CE$V$"SQ. "I$R$"4. SQ. "I$E$" SQ."CE$T"! 4NL015:53280,NL:R1200:R:NL:4,1:0,1: 34" THIS IS A PUBLIC DOMAIN PROGRAM RELEASED AS SHAREWARE, IF YOU FIND THIS PROGRAM USEFUL PLEASE SEND A DONATION OF$3.00 TO:"4" DAVID C. GARDNER"4" 3569 146TH AVE JAN 90 BY R.A.H.G THANKS TO DR BANJO FOR ORIG U/L 12-29-89 THANKS TO RATHE FOR THE ENHANCED C-128 INPUT ROUTINE#8,"LIST765-": FOR BETTER EDITING PRINT ROUTINES-(0)5%7" C-128-80 COLUMN VIDEO LABEL PRI I USE ELITE TO GET MORE CHAR PER INCH#RP$(27)(33)(25): ELITE EMPHASIZED DOUBLESTRIKE JUST PLAIN ELITE WORKS FINE BUT NOT AS DARK#6,1 ,72,23,1#""#N1LI1: 475> M1""T$: IF M=1 THEN THE STRING IS PRINTED IN INPUT BOXh MLLT:C19:C28:CH0:IX1:IY6 :1625t T$I$: PR1PR0:465 "ENTER SECOND MOVIE TITLE" 1475 M1""T2$ MLLT:C19:C28:CH0:IX1:IY10 :1625 ' (TO BASIC)"&qQ$:Q$""625;&{Q$"C" "":M1:1515N&Q$"Q" 1035a&Q$"F" 1045r&Q$"L"685{&625&1405: PRINTER CHECK&" ******** PRESS SPACEBAR TO PRINT LONG LABEL ********" '" (1,(27);"A";(7);RP$ (N1LI1:1,"*";::1,"*"4(1,"M";LI);"M"J(%1,(27);"A";(0)i(/1,24((T$)));LP$;T$;RP$(91,56((T2$)));LP$;T2$;RP$(C1,(27)"A"(7)"O";LI);"O"(M1,"V";LI)"I"(W1,(27)"A"(0)(a1,(LT8)(T3$.*"  A ANOTHER LABEL  ***************  Q TO QUIT *****"C*40)"(TO BASIC)V*Q$:Q$""975h*Q$"L" 685*Q$"A" "":T$"":T2$"":T3$"":A2$"":95*Q$"F" 1045*Q$"Q" 1035*975* "":*1405 NTER"HA"ENTER TODAYS DATE (MM-DD-YY) 01-12-90";:DT$K(DT$)8" USE THIS FORMAT ^^-^^-^^": HAS TO BE 8 CHAR TO PRINT RIGHT ON PAPER AND SCREENU(DT$)865I_" DATE "DT$"  "*";::"*"$"M";LI);"M".$"O"(LT2)((T$)1));T$;S$LT((T2$)2));T2$;:LI1)"O"e$ "V";LI);"V"$"I"(LT9)(T3$)2);T3$;$!(LT(A2$)2));A2$;:LI1)"I"$+"E";LI)"E"$5N1LI8:"*";::DT$;:"**"$?M0 %I"GESTIONS FOR UPDATES, OR IF YOU WANT"5P " TO KNOW WHERE TO SEND DONATIONS (HAHA),"eP " OR IF YOU JUST WANT TO TELL ME YOU LIKE"P " THIS PROGRAM, LET ME KNOW!"P " END MAIL ON -LINK TO: OE 10"P " HANK OU.4,4N 4O 4,(17 500 :S$"SQUARE":R$(13)"":H$" 128 UNIT CONVERSION 1.1 ":I$"INCHES ":C$"CUBIC ":F$" FREQUENCY ":FA$" FAHRENHIET ":Y$"TO"@ N$"9. NEXT PAGE":V300000:SP$(13)"":IC$"INPUT CHOICE?":CE$" CENTIMETRE":HP$" HORSEPOWRE ":LN$"LINES PER SQUARE INCH":X$"FEET ":Q$" CELSIUS":E$" TO":B$" SIEMENS (MHOS) ":G$" GILBERTS":J$" JOULES"GL$" GALLONS ":W$" WATTS ":V$"TO ":RA$" RADIANS":O$" ":U$"="QH$R$"1."KI$V$M$R$"2. "M$E$KI$R$"3."Z$Y$G$R$"4T2$I$:!1PR1PR0:4654!;"ENTER THIRD MOVIE TITLE">!E1475Q!OM1""T3$|!YMLLT:C19:C28:CH0:IX1:IY14 :1625!cT3$I$:!mPR1PR0:465!w"STARTING # OF EACH MOVIE"!LT16:1475!M1""A2$"ML14:C19:C C128-80 COLUMN VIDEO LABEL PRINTER":(27)"@": CLEAR SCREEN BELOW CURSOR[i20, 1,60,23{s"BETA OR VHS TAPE? (B/V)"}AQ$:AQ$""125LT22: SET LENGTH OF WORDS IN TITLESAQ$"B" LI62:VC$" BETA ":FLLIAQ$"V"LI64:VC$" ******* IF THIS IS CORRECT *******"s%S" ******* L  FOR LONG LABEL ******  F  FOR FRONT LABEL *******"%]"  C  TO CORRECT MISTAKE *****  Q  TO QUIT" &g" (RE-ENTER DATA IN ONE BOX)  **************  ESC TO ESCAPE ************")'1,4<'K$:K$""725R'K$(27)1:945'K$" "(15) " SENDING DATA TO PRINTER....":775'725'**************PRINT ROUTINE FOR LONG LABEL*******************)2);LP$;T3$;RP$)k1,(LI8)(A2$)2);A2$2)u1,(27)"A"(7)"I";LI)"I"F)1,"E";LI);"E"m)N1LI7:1,"*";::1,DT$;:1,"*"t)1{)1)4: 945)" L LONG LABEL FOR EDGE OF TAPE  F FRONT LABEL FOR TAPE(RECTANGLE)"*+" ******** PRESS SPACEBAR TO PRINT FRONT LABEL ********"m+)" **************  ESC TO ESCAPE ************"v+31,4+=K$:K$""1085+GK$(27)1:945+QK$" " (15)" SENDING DATA TO PRI28:CH0:IX2:IY18 :1625"A2$I$:O"LTLL: CHANGE LENGTH OF INPUT BACK TO ORIGINAL^"PR1PR0"C$"("A2$")":A2$C$: PUT PARENTHIS AROUND 4TH INPUT STATEMENT1#LP$(27)(33)(45): ELITE EXPANDED COMPRESSED EMPHASIZED  VHS ":FLLIBAQ$"V"LT24: LT IS NUMBER OF CHAR'S FOR MOVIE TITLE]AQ$"B"AQ$"V"125LLLT: LL =22 OR 24 SO LT CAN BE CHANGED FOR BOX 4 AND THEN CHANGED BACK"YOU HAVE CHOSEN"VC$"TAPE""ENTER FIRST MOVIE TITLE"1 S ":WS$" WATT SECONDS ":LE$"LENGTH ":L$" LITRES ":AV$"(AVDP.)" RF$" REFLECTION COEFFICIENT ":P$" POUNDS ":K$" KILOGRAMS":MM$" MILLIMETRES ":M$"METRES ":Z$" AMPERE TURNS ":D$" DEGREES":KI$" KILOHERTZ ":TR$"(TROY)" CI$" CIRCULAR MILS  ."G$E$Z$R$"5. GAUSS TO "LN$R$"6. "LN$E$" GAUSS"R$"7."J$Q$WS$R$"8."WS$Y$J$R$N$R$IC$:410pA50,51,55,56,57,58,59,60H$R$"1. OHMS"E$B$R$"2."B$V$"OHMS"R$"3."W$Y$" DBM"R$"4. DBM"E$W$R$"5."RF$V$"VSWR"R$"6. VSWR"E$RF$R$"7."D$E$RA$R$"8."RA$E$D$R$N$R$IC C CHECK EXPRESS DOCUMENTATION READER - MARK DIBIASIO 3/01/87S&::(14) 0,30,22,"RESS ' '",1"  Ӓ "HICH ILE O @6@ " ALBUM LISTER BY JOE BATISTA - JOE B10b@" FOR THE COMMODORE 128@" 40 COLUMN MODE@(" VERSION 1.0@)" 8/20/87@*"2A+ THE FOLLOWING DIM S 17,4,"J"(14)"OE "(142)"B10"FBn1,7,7,"L -> LOAD CURRENT A.L. FILE"oBx1,7,9,"S -> SAVE CURRENT A.L. FILE"B1,7,11,"A -> ADD NEW ENTRIES"B1,7,13,"E -> EDIT AN ENTRY"B1,7,15,"V -> VIEW CURRENT A.L. FILE"C1,7,17,"P -> PRINT CURR "500DA$"S"1000DA$"A"15000DA$"E"2000ADA$"V"2500RDA$"P"3000lDA$"Q""":0:3500DZZ0ZZ1:190D ZZ1ZZ0D190D LOAD CURRENT A.L. FILED0:""D" NTER LBUM IST ILE AME:"E" (EFA0F" NTER LBUM IST ILE AME:"BF" (EFAULT S 'ALFILE1') :";AL$\FAL$""AL$"ALFILE1"hF""AL$F$ #2,""AL$",S",WF.2,PF8I1PFB2,G$(I)FL2,T$(I)FVIF[2F`"":1Fj190F ADD NEW ENTRIESF"":0;G$(P1):"S THIS CORRECT ? (Y/N)":DD$:DD$"N"15308H"PP1:1530NH@QP"":1:190\HEP11999H"":" LEASE AIT - LPHABETIZING NTRIES"H" OING NTO AST ODE"H 4:%HI1PHUS$(I)G$(I)"\"T$(I)HN'T ORGET O AVE EW ILE!"J? 4"J"":1:1906J EDIT AN ENTRY?JQW0KJ"":0nJ" DIT N NTRY"J" NTER NTRY UMBER TO EDIT OR RETURN"JE$"":E0:" TO ABORT :";E$JE$""QW0QP:1600:ՋE$""QW01700:GA$"G"GA$"A"2060$LGA$"G"" ROUP AME ";G$(E)HLGA$"A"" LBUM AME ";T$(E)QLQW1L"";T$(E);" BY ";G$(E):"S THIS CORRECT ? (Y/N)":DD$:DD$"N"2070L " DIT MORE NTRIES? (Y/N)":SS$:SS$"N"1700L*2030L VIWEEVILNIP CO. 53.00 MAINTENANCE 650 504 1241 05/20 VISA 123.45 CREDIT CARD 210 505 1242 05/20 HOWARD MUSIC COMPANY 24.50 BASOON RENTAL 900 506 1244 05/21 NI-GAS ENU"M( AA$:AA$""2600 N2 "":1N< 1901N PRINT CURRENT A.L. FILE=N "":0kN " RESS NY EY O EGIN RINTING"N " URRENT LBUM IST"N " RESS O BORT RINTING"N WR$N 4,4N 4O 4,(17 OU ANT O EAD"G " 1. EAD-E.1ST"} " 2. NSTRUCTIONS"" 3. XIT"" NTER ELECTION UMBER";S S1 S3 TATEMENT CAN BE CHANGED TO ALLOW MORE ALBUMSPA, (CHANGE LINE 2046 ALSO)nA-G$(150),T$(150),US$(150)wA2""A7(14)A<1,1:0,7:4,1:5,1AF1,1AP1,45,15,280,45AU1,42,13,283,47AZ1,7,3,"ALBUM LISTER BY JOE BATISTA"B_1,ENT A.L. FILE"(C1,7,19,"Q -> QUIT PROGRAM"QC1,8,21,"* SELECT ADD NEW ENTRIES *"xC1,9,22,"WHEN STARTING A NEW FILE"C1,10,24,"< PLEASE CHOOSE ONE >"CA$CZZ01,10,24,">":1,30,24,"<"CZZ11,10,24,"<":1,30,24,">"CA$"LULT S 'ALFILE1') :";AL$(EAL$""AL$"ALFILE1"=E& #1,""AL$",S"FE01,PQEDI1P^EN1,G$(I)kEX1,T$(I)rEbIyEg1El"":1Ev190E SAVE CURRENT A.L. FILEE0:""EP0" HERE REN'T NY NTRIES O AVE!!!": 5:112=G" DD EW NTRIES":" NTER LANK NTRY O XIT"EGQPiG" ONTINUE ITH NTRY #";P1G"NTRY #";P1;": ROUP AME";GG$(P1):G$(P1)""1600G" LBUM AME";T$(P1):T$(P1)""1600(H"";T$(P1);" BY "IHN1PIN11PNIA$US$(N1)(IB$US$(N11)8IA$B$1790GIUS$(N1)B$XIUS$(N11)A$`IN1gINrII1PILL(US$(I))IL(US$(I),"\")I!G$(I)(US$(I),L1)I&T$(I)(US$(I),LLL)I0II5& J:"":" OJE(E$)%KE0E150"NCORRECT NTRY UMBER!":2030BKEP"O NTRY!":2030nK" NTRY #";E:"";T$(E);" BY ";G$(E)K"O YOU WISH TO CHANGE THIS NTRY? (Y/N)":WW$:WW$"N"2030L " HANGE ROUP AME OR LBUM AME? (G/A)":GA$ EW CURRENT A.L. FILEM "":02M " SE 'O CROLL' EY O AUSE"_M " RESS O BORT ISTING"hM XX0uM XXPM XXXX1M XX;". ";G$(XX);" * ";T$(XX)M AA$:AA$" "M M " RESS NY EY O ETURN O 11.11 GAS 630 507 1245 05/21 AMOCO OIL COMPANY 45.87 AUTO EXPENSE 710 508 05/21 AMOCO OIL COMPANY 686.00 SOCIAL SECURITY 123.40 AUTO EXPENSE 710 503 1240 05/18 HOMER T. );" LBUM IST"O 4"O I0,O IP6O II1JO AX$:AX$" "O 4,(17);23);I;". ";G$(I);(145);" ";(17);T$(I)O O 4:4:"":1O 190O " F YOU LIKE THIS PROGRAM AND HAVE ANY"P " SUG6  S38 S1F$"READ-ME.1ST": F$"INSTRUCTIONS">S2,8,2,(F$)",S"^(14)o A$ "%" #2,A$:A$;"$2:"RESS NY EY":B$:2"HICH ILE O # 15 HART OF ACCTS CODE 3 HE CHECK PRINTING ROUTINES CONTAINED IN THIS PROGRAM ARE DESIGNED TO PRINT SATISFACTORILY ON MOST 6" PERSONAL CHECKS, USING THE VINYL CHECK CARRIER AVAILABLE FROM OMPANY, ..OX 185, BERLI TS TO PERSONALIZE THE DATA ORIGINALLY CONTAINED IN THE FILE NAMED 'ROUTINE DATA'. ILES MENU CHOICE #6 EXPLAINS ITSELF!! AGE 6 HE PROGRAM IS DESIGNED FOR THE FOLLOWING FIELD LENGTHS:  CONTENTS OF THE "" FILE AND PRINTS THEM OUT IN STANDARD CHECK REGISTER FORMAT, I.E., CHECK NO., DATE, TRANSACTION NO., PAYEE/SOURCE NAME, AMT. OF CHECK, AMT. OF DEPOSIT, AND RUNNING BALANCE ON EACH TRANSACTION. T THE FOOT OF THE REGISTER, OF ACCESS. HEN PROMPTED, ENTER THE FILENAME AND THE RANGE OF RECORD NUMBERS YOU WISH TO EXAMINE. HE RECORDS WILL BE PRINTED TO THE SCREEN, AGAIN WITHOUT DISTURBING CURRENT MEMORY. ILES MENU CHOICE #4 (WRITE CHECK REGISTER) CALLS UP A WARNIN 10 500 --- 05/18 SOCIAL SECURITY --- 686.00 --- DD 501 1238 05/13 NI-GAS 47.56 --- 1 234 56789 0 630 502 1239 05/15 CITGO 123.40 --- AUTO EXPENSE 710 503 1240 05/18 HOMER T. WE45 --- AUTO EXPENSE 710 507 1244 05/21 US SPRINT 45.45 --- LD CALLS 640 508 --- 05/21 SOCIAL SECURITY --- 686.00 --- 640 509 --- 05/23 ARIZONA PUBLIC SERVICE --- 56.00 --- --- --- AUTO EXPENSE 710 503 1240 05/18 HOMER T. WE: X X X X X X X DEP 23 DEP 21 45.45 --- LD CALLS 640 508 --- 05/21 SOCIAL SECURITY --- 686.00 --- 640 509 --- 05/23 ARIZONA PUBLIC SERVICE --- 56.00 --- --- --- AUTO EXPENSE 710 503 1240 05/18 HOMER T. WEXYZ NATIONAL BANK 654.89 MORTGAGE 300 01 COMMONWEALTH EDISON -- ELECTRICITY 910 01 NI-GAS -- GAS 630 01 SHELL OIL COMPANY -- AUTO EXPENSE 710 01 HOMER T. WEEVILNIP CO. 53.00 MAINTENANCE 650 01 AMOCO OIL COMPANY -- AUTO EXPENSE 710 10 MOBIL OIL COMPANY --IONAL NEWS CO. 16.40 NEWSPAPER 940 15 HOWARD MUSIC COMPANY 24.50 BASOON RENTAL 900 20 ILLINOIS BELL -- TELEPHONE 640 20 JEWEL FOODS -- CASH 20 -- VISA -- CREDIT CARD 210 28 OTHER -- -- -- -- HARD WORK INC. 2300.00 400 GEORGIA POWER 75.00 560 PACIFIC GAS T EL:312/359-5159 --OOOO-- HE ROUTINE WAS DEVELOPED FROM THE 13 BLOCK PROGRAM THEY SUPPLIED WITH THE -100 CHECK CARRIER. ONTACT THE AUTHORS IF YOUR CHECKS DO NOT ACCOMMODATE ONE OF THESE ROUN, . 44074. ON STANDARD 6" TRACTOR FEED PERSONAL CHECKS (ELUXE FORM #1050). HE ROUTINE WAS DEVELOPED FROM THE 13 BLOCK PROGRAM THEY SUPPLIED WITH THE -100 CHECK CARRIER. ONTACT THE AUTHORS IF YOUR CHECKS DO NOT ACCOMMODATE ONE OF THESE ROU RANSACTION O. 5 HECK O. 5 ATE 5 AYEE/OURCE 30 MT OF CHECK 9 MT OF DEPOSIT 8 URPOSE/ACCT  TOTALS FOR PAYMENTS, DEPOSITS, STARTING BALANCE AND ENDING BALANCE ARE PRINTED. ILES MENU CHOICE #5 ENABLES YOU TO REPLACE THE SAMPLE ROUTINE MONTHLY TRANSACTION FILE 'ROUTINE DATA' WITH YOUR OWN PERSONAL DATA. IMPLY FOLLOW THE SCREEN PROMPG MESSAGE: "WRITING A CHECK REGISTER WILL DESTROY" "ANY DATA YOU HAVE JUST ENTERED." "IF FILES HAVE NOT BEEN UPDATED, DO SO FIRST" RESS "W" TO WRITE A CHECK REGISTER AND THE PROGRAM LOADS IN THE EVILNIP CO. 53.00 --- MAINTENANCE 650 504 1241 05/20 VISA 123.45 --- CREDIT CARD 210 505 1242 05/20 HOWARD MUSIC COMPANY 24.50 --- BASOON RENTAL 900 506 1243 05/21 AMOCO OIL COMPANY 45..-- -- -- -- -- -- -- -- -- -- -- OTHER -- -- MUSIC COMPANY 24.50 BASOON RENTAL 900 20 ILLINOIS BELL -- TELEPHONE 640 20 JEWEL FOODS -- CASH 20 -- VISA -- CREDIT CARD 210 28 OTHER -- -- -- -- HARD WORK INC. 2300.00 400 GEORGIA POWER 75.00 560 PACIFIC GAS  509 1245 2199.69 -- -- -- -- OTHER -- -- MUSIC COMPANY 24.50 BASOON RENTAL 900 20 ILLINOIS BELL -- TELEPHONE 640 20 JEWEL FOODS -- CASH 20 -- VISA -- CREDIT CARD 210 28 OTHER -- -- -- -- HARD WORK INC. 2300.00 400 GEORGIA POWER 75.00 560 PACIFIC GAS  AUTO EXPENSE 710 10 PHILLIPS PETROLEUM COMPANY -- AUTO EXPENSE 710 10 UNOCAL -- AUTO EXPENSE 710 10 CITGO -- AUTO EXPENSE 710 10 HARLEY DENTAL ASSOCIATES -- DENTAL WORK 852 10 SEARS ROEBUCK & CO. 25.00 CREDIT CARD 220 13 US SPRINT -- LD CALLS 640 15 NAT& ELECTRIC 56.00 560 ARIZONA PUBLIC SERVICE 56.00 560 XYZ FUND 76.00 550 GNMA #10000 -- 570 GNMA #15000 -- 570 PEARL LIFE 75.00 570 FAST VALLEY 45.00 550 MOONLIGHTING WORK 25.00 400 SOCIAL SECURITY 686 620 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 500 05/18 SOCIAL SECURITY 686.00 DD 501 1238 05/13 NI-GAS 47.56 1 234 56789 0 630 502 1239 05/15 CITGO 123.40 AUTO EXPENSE 710 503 1240 05/18 HOMER T.  TINES. 3803 - OR - 912 . , 60008 , 60067 EL:312/255-8864  NOT APPEAR TO DENOTE THE BILL AS PAID. ENU CHOICE #2 (FOR CHECKS WRITTEN OFF PREMISE)IS THE SAME AS #1, EXCEPT A PROMPT FOR A DATE APPEARS BEFORE ANY OF THE DATA. HE SAME CHOICE FOR "Y/N" STILL APPLIES. O CHECKS ARE PRINTED BY THE PRINTER .?" APPEARS BELOW THE CHECK. F YOU ANSWER "N" THEN THE CHECK NUMBER AND THE BALANCE REMAIN UNCHANGED. F YOU ANSWER "Y" THEN THE CHECK IS PRINTED BY YOUR PRINTER. HE PROMPT APPEARS AGAIN, AND IF YOU ANSWER "Y" THE LISTING OF PAYEES RETURNS, WITH  RN ENTERS THE INFORMATION. EXT THE PRESET AMOUNT APPEARS (IF IN THE DATA) AND A RETURN ENTERS THE AMOUNT WHETHER BY DEFAULT OR KEYED IN. HE PURPOSE/ACCT. NO. THEN APPEARS, AGAIN BY DEFAULT. RETURN ENTERS THIS INFORMATION AS WELL. INALLY  2.- ENTER CHECKS (OFF PREMISES) 3.- ENTER DEPOSITS 4.- UPDATE FILES 5.- FILES MENU 6.- CREATE DB INPUT FILE 7.- GO TO DATA BASE 8.- EXIT PROGR- EXAMINE 'DBADD' FILE 3- EXAMINE DATA BASE FILE 4- PRINT CHECK REGISTER 5- CREATE ROUTINE PAYMENT/DEPOSIT FILE 6- RETURN TO CHECKWRITER ILES MENU CHOICE #1 AND 2 WILL START YOUR DISK E RECORDS BY TRANSCATION, DATE, CHECK NO., PAYEE/SOURCE, OR TYPE CODE, EFFORTLESSLY. ENU CHOICE #8 GETS A PROMPT: AVE YOU UPDATED FILES? (Y/N) HIS REMINDER LETS THE USER KNOW THAT IF YOU HAVE UPDATED THE FILEMUST USE OPTION #6 OF THE MAIN MENU TO CREATE A SEQUENTIAL FILE NAMED 'DBADD' CONTAINING ALL THE INFORMATION FROM 'CHKREG' IN PROPER FORMAT FOR DATABASE RECORDS! 'Y' RESPONSE TO THIS PROMPT CLEARS THE SCREEN AND GETS THE FOLLOWING MESSAGE:  ANY DATA JUST ENTERED WILL BE LOST UNLESS FILES HAVE BEEN UPDATED! (Y/N) ? HIS WARNING IS TO MAKE THE USER AWARE THAT ANY ENTRIES THAT HAVE NOT BEEN ENTERED INTO THE "" AND "" FILES WILL BE FOREVER L 2, ETC. ENU CHOICE #5 (FILES MENU) CALLS UP A SECONDARY MENU WHICH WILL BE DESCRIBED IN DETAIL AFTER DEALING WITH THE OTHER MAIN MENU CHOICES. ENU CHOICE #6 (CREATE DB INPUT FILE) DOES JUST THAT. T CONVERTS THE '' FITHE DISK THREE SEQUENTIAL FILES: "",SHOWING LAST TRANSACTION NO., LAST CHECK NO., AND CURRENT BALANCE; "/", CONTAINING AN "" FOR EACH ROUTINE CHECK WRITTEN, AND "DEP XX" TO INDICATE THE DATE OF ROUTINE DEPOSITS ENTERED; ", ALTHOUGH THE FACSIMILE CHECK DISPLAY STILL APPEARS ON SCREEN FOR CLOSE EXAMINATION BEFORE THE DATA IS ENTERED INTO THE PROGRAM. ENU CHOICE #3 (ENTER DEPOSITS (EN'S FAVORITE TRANSACTION)) BRINGS TO THE SCREEN A SIMILAR SAMPLE LISTING OF REGULAN "" TO THE RIGHT OF THE ONE YOU JUST PAID. HE CHECK NUMBER AND THE BALANCE AT THE TOP OF THE SCREEN ARE UPDATED TO REFLECT THE TRANSACTION. F YOU ANSWER "N" THEN THE CHECK NUMBER IS INCREMENTED, BUT THE BALANCE REMAINS UNCHANGED. HE "" DOES THE TYPE CODE APPEARS. CARRIAGE RETURN BRINGS TO THE SCREEN A FACSIMILE OF YOUR CHECK, WITH TRANSACTION NO., CHECK NO., DATE OF CHECK, NAME OF PAYEE, AMOUNT OF CHECK (IN TEXT DECIMAL), AND THE PURPOSE/ACCT. NO. PROMPT: "PRINTOUT O.KAM ENU CHOICE #1 (WRITE CHECKS ON THE PRINTER) BRINGS UP A LISTING OF SAMPLE PAYEE'S NAMES FOR ROUTINE MONTHLY BILLS, WITH THE DUE DATE, WHERE APPLICABLE. Y SELECTING THE KEY LETTER, THE PAYEE'S NAME IS DISPLAYED. SIMPLE CARRIAGE RETUDRIVE AND READ TO THE SCREEN THE INFORMATION CONTAINED IN '' OR IN '' FILES WITHOUT ALTERING ANY INFORMATION HELD IN PROGRAM MEMORY. ILES MENU CHOICE #3 REQUIRES THAT YOUR DATABASE ( FILES ONLY) DISK BE IN THE DRIVE AT THE TIME S, ALL ENTERED INFORMATION WILL BE BEYOND RECOVERY AND MUST BE REENTERED. AGE 5 / HE ILES ENU (AIN ENU CHOICE #5) IS LISTED BELOW: 1- EXAMINE 'CHKREG' FILE 2 NOW FOLLOW YOUR NORMAL LOADING PROCEDURE FOR YOUR DATABASE PROGRAM NCE IN THE DATABASE, YOU MAY AUTOMATICALLY ADD (OR MERGE) TO YOUR EXISTING FILE THE INFORMATION CONTAINED IN "", WITHOUT ANY FURTHER KEYBOARD ENTRIES. OU MAY THEN SORT THOST!!! 'Y' RESPONSE TO THIS PROMPT GETS THE FOLLOWING QUERY ON THE SAME SCREEN: HAVE YOU CREATED YOUR 'DBADD' FILES ON DISK ? (Y/N) HIS WARNING IS TO MAKE THE USER AWARE THAT IN ORDER TO ENTER ANY DATA INTO YOUR DATABASE, YOU LE INTO A SEQUENTIAL FILE ('') WHICH MAY BE IMPORTED INTO MOST GOOD DATABASES. ENU CHOICE #7 (GO TO DATABASE) GETS THIS MESSAGE: RE YOU SURE YOU ARE READY TO GO TO YOUR DATABASE PROGRAM ? NOTE: ", AN AUTOMATIC "HOLDING TANK" TO ENABLE PRINT OUT OF A HARD COPY CHECK REGISTER AT ANYTIME. T ALSO IS THE BASIS FOR CONVERSION TO A FILE FOR INPUT INTO A PERMANENT RECORD DATABASE SUCH AS , , , , , AR DEPOSITS. ELECTING THE DEPOSIT BY LETTER WILL GET PROMPTS FOR DATE, SOURCE, AMOUNT OF DEPOSIT, AND TYPE CODE, MOST OF WHICH HAVE DEFAULT ENTRIES, AND MAY BE ENTERED WITH ONLY A SIMPLE CARRIAGE RETURN. ENU CHOICE #4 (UPDATE FILES) WRITES TO / 128 --OOOO-- () OPYRIGHT 1987 Y AUL OCK & EN AGIN 3803 AY ANE HE DOWN POSITION. 4. URN ON THE COMPUTER AND MONITOR. : HIS PROGRAM IS DESIGNED FOR AN 80 COLUMN SCREEN, SO IT IS IMPERATIVE THAT YOU CONNECT YOUR MONITOR TO THE OUTPUT OF THE -128. MONITOR IS NECESSARY AS F NO FILES EXIST, YOU WILL BE PROMPTED FOR YOUR LAST TRANSACTION NO, CHECK NO., CURRENT BALANCE AND THE DATE. F FILES DO EXIST THE OPTIONS OF ADDING DATA TO THE EXISTING FILES OR PROCEEDING TO THE MAIN MENU ARE OFFERED. AILURE TO EX H, PRINTING OUT A CHECK REGISTER AT THE END OF EACH ENTRY SESSION. T THE END OF THE MONTH, CREATE A "" FILE, LOAD IT INTO YOUR DATA BASE, AND SCRATCH THE "/" AND "" FILES, "". F YOUR OPTION IS TO ADD b"A G F C A D"2202"A G F C A D"3X12500:3*30,12:4,14:5,1403"CARD.LBR":1290:1400t1"":::G$"ONLY ON":1290:14001"":::::G$"Q-LINK!":1290:1400114501 G(G$):G2(G2)G$" "G$:12901 ER OR PURCHASE TRACTOR FEED CHECKS. VINYL CHECK CARRIER IS SOLD BY THE OMPANY, ..OX 185, BERLIN, . 44074. HE CHECK PRINTING PORTION OF THIS PROGRAM WAS DEVELOPED FROM THE 13 BLOCK PROGRAM THEY SUPPLIED WITH THE -100 CHECK CARRIER. OUNTS, AND OTHER INFORMATION) ARE HANDLED WITHOUT RETYPING EVERY MONTH. XAMPLE INFORMATION IS CONTAINED IN A FILE CALLED 'ROUTINE DATA'. HIS CAN BE ALTERED TO FIT YOUR OWN PERSONAL NEEDS. OUTINE SOURCES OF FUNDS (DEPOSITS) ARE ALSO CONTAINE  2 ROGRAM PERATION 3 ILES ENU/RINTING HECK EGISTER 5 ROGRAM ESIGN 6 AGE 1 **** / 128 ***  OF THE PROGRAM, NAMELY: '128 CHKWR/REG 2.6' PRG; '128 CHKWR DOCS' SEQ; 'UPDATE' SEQ; 'CHK/DEP' SEQ; 'ROUTINE DATA' SEQ --OOOO-- ST BE DONE. OLDING ROUTINE MONTHLY PAYMENT AND DEPOSIT INFORMATION IN PROGRAM TO ELIMINATE THE BULK OF MANUAL ENTRY. --OOOO-- HIS PROGRAM IS BEING DISTRIBUTED ON A 'SHAREWARE' BASIS THROUGH BULLETIN BO  OLLING EADOWS, 60008 312 255-8864 312 359-5159 RINTS CHECKS, RECORDS DEPOSITS, PAYMENTS, PRINTS CHECK REGISTER AND WRITES FILE OF FINANCIAL INFORMATION FOR AUTOMATIC LOADING KS) IMPRINTED IN ORDER TO BE ACCEPTED BY THE BANK. AGE 2 1. URN ON THE DISK DRIVE. 2. NSERT THE PROGRAM DISK IN THE DRIVE. 3. E CERTAIN THE "40/80 COLUMN" KEY IS IN T  80 COLUMN OUTPUT IS NOT POSSIBLE THROUGH THE RF SOCKET ON THE -128 COMPUTER. FTER THE TITLE SCREEN ANY KEY PRESS BRINGS TO THE SCREEN THIS MESSAGE: CHECKING FOR FILES ERCISE THE "ADD TO EXISTING DATA" OPTION WILL RESULT IN LOSS OF YOUR EXISTING FILE INFORMATION WHEN THE FILE IS UPDATED WITH NEW INFORMATION. HE AUTHORS RECOMMEND THAT THE USER LET HIS ENTRIES ACCUMULATE IN THE "" FILE FOR A CALENDAR MONTTO EXISTING FILES, A 'ILES MENU' APPEARS. ELECTION #4 WILL READ IN THE EXISTING DATA. OLLOWING A PROMPT FOR ENTRY OF THE DATE THE MAIN MENU WILL APPEAR. AGE 3 1.- WRITE CHECKS RACTOR FEED CHECKS SHOULD BE PURCHASED THROUGH YOUR OWN BANK, FROM ANY CHECK PRINTER (SUCH AS ELUXE HECK RINTERS, NC., 1275 ED OX OAD, .. OX 64866, T. AUL, 55164-0866). HEY MUST BE (THOSE UNIQUELY-SHAPED NUMBERS ON YOUR CHEC D IN THE SAME FILE. LSO ALTER THESE FOR YOUR OWN PERSONAL NEED. Y HOLDING ROUTINE INFORMATION IN THE PROGRAM, 95 PERCENT OF TEDIOUS DATA ENTRY IS ELIMINATED!!! O PRINT YOUR CHECKS WITH THIS PROGRAM, YOU MUST EITHER OBTAIN A CHECK CARRI ** HIS PROGRAM PRINTS CHECKS AND LOGS DEPOSITS, COMPLETE WITH DATES AND ALL PERTINENT INFORMATION ENTERED AT THE TIME THE CHECKS ARE WRITTEN OR THE DEPOSITS ARE ENTERED. OUTINE BILLS (PAYEES, AM  AGE NTRODUCTION 1 OADING THE ROGRAM 2 ETTING TARTED ARDS IN THE MIDWEST AND OTHERS AROUND THE COUNTRY. F YOU THINK THIS PROGRAM IS OF VALUE TO YOU, PLEASE MAIL YOUR CONTRIBUTION TO THE AUTHORS: LEASE COPY AND DISTRIBUTE AS FREELY AS POSSIBLE! E SURE TO COPY ALL THE FILES NECESSARY TO THE OPERATION INTO A DATABASE. HE PROBLEM WITH MOST HOME COMPUTER-BASED FINANCIAL SYSTEMS IS TIRING OF ENTERING DATA FROM THE KEYBOARD. HIS PROGRAM ELIMINATES THE PROBLEM BY: UTOMATICALLY CAPTURING THE DATA WHEN CHECKS ARE WRITTEN - A TASK WHICH MU ) ' *"&0,10J&1," * ( *"T&4,11&1," * *"&0,12&1," * *"&4,13&1," * "$v1," *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"+${0,2q$1,(27);"T";" * A CHRISTMAS CARD FOR YOU *";(27);"I"z$4,3$1," * . . . . . . . . . . *"$0,4$1," * . . .. . .. . . . .. . *"$4 W$"0,4:4,40""WHAT DO YOU WANT THE CARD TO SAY",A$D"":";R$s""*""":";F$"!"*""&":";G$"+" ::G$"WHEN WRITING YOUR MESSAGE":190] ::G$"THERE ARE ONLY! 4 LINES TO WRITE ON!":190:230c x 0,14:4,14:5,5 "TYPE IN YOUR NAME ";A$ "THANK YOU",A$ "PRESS ANY KEY" S$ 0, ":190:2302608G(G$):G2(G2)G$" "G$:190cP1G2:21P);(G$,P);(G$,P):"";r1,33552,1W18:W:P:DBK$:DBK$""2301,0,24,(158)" PRESS ANY KEY "(157)(148)(32)(154),1A$ 2: LL LET YOU LOAD OTHER":12901::G$"CARD MAKER PROGRAMS":1290:1400N1"":::::::G$"CARD.LBR":1290:1400t1"":::G$"ONLY ON":1290:14001"":::::G$"Q-LINK!":1290:1400114501 G(G$):G2(G2)G$" "G$:12901 ..".` 5/j"PRESS (A) TO MAKE ANOTHER";/t"PRESS (B) TO END"j/u"PRESS (C) TO LOAD CARD.LBR"r/~F$/F$"A"400/F$"B"1180/F$"C"1172/"CARD.LBR",8/"":"":G$"COMING SOO  ",0,12!-1," "+-4,13]-1," "g-0,14-1," "-4,15-1," "-0 4,16*1," ",F$*0,20+1," "9+4,3H+1," ",G$Q+0,4+1," "+4,5+1," ",J$+0,6+1," "+4,7 1," * *")M4,8O)R1," *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"X)W0,9c)\X13m)a4,10)f1, (27);"8")pX)z1," -----------------")0,11)1,"  *"'0,14:'1," * ''''''''''' *"D'4,15v'1," * *"'0,16' 1," * ۳ *"'4,2'1," * ,5"%1," * . . . .. . . . . . . *"+%0,6]%1," * . .. . . . . . . . . *"f%4,7%1," * . . . .. . . . . *"%0,8%1," * . . ( . .* . . . *"%4,9&1," * *" #0":";J$9#5"*"B#D""j#N"PRESS ANY KEY TO PRINT"s#XA$#b"...PRINTING..."#l1,4,0#mX13#n1, (27);"8"#oX#pX13#q1, (27);"8"#rX 15:4,15)!"PLEASE TURN ON YOUR PRINTER",A$S!"THEN PRESS ANY KEY TO CONTINUE"\!L$l!0,16:4,16!"WHO IS THE CARD FROM";B$!"WHO IS THE CARD TO";C$!"PRESS ANY KEY TO CONTINUE"! (147)!r::G$"XMASCARD MAKER":190>s::G$"WRITTEN BY":190dw::G$"ANTHONY DENTE":190:230n|""::G$"XMASCARD MAKER TO BE USED WITH":190::G$"COMMODORE COMPATIBLE PRINTERS":190:230"":::G$"NOTE:":190  P1G2:21P);(G$,P);(G$,P):""; 21,33552,12(W18:W:P:72xDBK$:DBK$""1400{21,0,24,(159)" PRESS ANY KEY "(157)(148)(32)(153),12A$22 2:(147)2"SEE YA SOON"2502 N ":1290:14000""::::::::G$"*** CARD.LBR ***":1290P0::G$"THE ULTIMATE CARD PROGRAM":1290:1400q0"":::G$"CARD.LBR":12900::G$"WILL HAVE A VARIETY OF":12900::G$"CARDS TO CHOOSE FROM AND":12900::G$"WI ,16.1," -----------------". 4,2%.X137.1, (27);"8"@.0,3G.$XR..X13d.81, (27);"8"m.=4,4t.BX.CX13.D1, (27);"8".EX.F0,5.G1.L.Q0,1:4,1.V"DONE. +1," ,",B$,0,82,1," ";,4,9m,1," "w,0,10,1," ",4,11,1,"  ")4,120*1," ":*0,13U*1," DEAR,",C$_*4,14*1," "*0,15*1," ",R$*1," "* *"'0,3(( 1," * Σ *"1(%4,4c(*1," * *"l(/0,5(41," * *"(94,6(>1," * *"(C0,7)H -"+25.6 :ADDS 25.6 TO A":"."-16.5 :SUBTRACTS 16.5 FROM A":J."*3.2 :MULTIPLIES A TIMES 3.2":k."/10 :DIVIDES A BY 10":.$"^2 :RAISES A TO THE POWER OF 2":.."%250 :IF A=500 THEN %250=50%":.8E$"PDC"1130/B" ,fA(E$):A$(A):P11700:Չ70*,pST0P1:A$" ":70I,zA$"PRINTER IS NOT ON":70t,ST01,4:1:A$" ":960,2,32000,20:A$"TURN PRINTER ON":70,:, ---- HELP SCREENS -------,:,:&:-" K RADIANS":AA0:1590>*E$"RTD"LAA:LA$(A):AA(180):A$(A)" DEGREES":AA0:1590c*E$"ATM"MA:M$(A):AA0:1590*E$"P1"15,4,15:15:880*E$"P2"P2:70* E$"H"930*E$"PDC"15,4,15:15:900* E$"COT"A0A$" NO A$(A):A(A(AA1)):A$(A):AA0:1590?(E$"COS"A0A$" NO VALUE IN 'A'":70u(E$"COS"LAA:LA$(A):A(A):A$(A):AA0:1590(E$"ACOS"A0A$" NO VALUE IN 'A':GOTO480(E$"ACOS"LAA:LA$(A):A(A(AA1))2:A$(A):AA0: "A*M"LAA:LA$(A):AAM:A$(A):AAM:1590E&0E$"A/M"M0E$"NOTHING IN MEMORY":70z&:E$"A/M"LAA:LA$(A):AAM:A$(A):AAM:1590&D(E$,1)"%"Z((E$,2,20)):LAA:LA$(A):A(ZA)100:A$(A)" %":AA0:1590'N(E$,1)"^"Q((E$,2, , (0)(1)"FOR C-128 MODE ONLY!":P - -- - -- CARD.LBR -- - -- -( - WILL HAVE A VARIETY OF CARDS TO CHOOSE FROM & WILL LET YOU LOAD OTHER CARD MAKER PROGRAMS ---*)----------------------------------*"A = LOAD 061,"#########.######";A;:1," _ FIRST ENTRY"71:707:37 ------ PRINT ALL CLEARED -----97:k7P2A0:AA0:M0:LA0:A$"":LA$"":M$"":70t71,471,"---------------- ALL CLEARED"7A0:AA0:M0:LA0:M$"":A$"":LA$"":1:  :QUIT PROGRAM":4E$"PDC"1:1:70<5"  C CONTINUE  R RETURN TO PROGRAM":GK$:GK$""1090O5GK$"R":70`5GK$"C"930f5:5" ------- PRINT CALCULATIONS -5,:56P2705@1,45JD21,"#########.##";AA;:1630 GREES) TO RADIANS": 3d"H :HELP INSTRUCTIONS":73n"PDC :HELP INSTRUCTIONS TO PRINTER":J3xE$"PDC"14503"  C CONTINUE  R RETURN TO PROGRAM":GK$:GK$""10903GK$"R":703GK$"C"144033"P1 :CALCULAT  :SINE VAL OF A (A IN RADIANS)": 1E$"PDC"1290N1"  C CONTINUE  R RETURN TO PROGRAM":GK$:GK$""1090a1GK$"R":70s1GK$"C"1280y11 "ASIN :ARCSINE OF A":1"COS :COSINE OF A (A IN RADIANS)":1"ACOS :A  C CONTINUE  R RETURN TO PROGRAM":GK$:GK$""1090)/LGK$"R":70;/VGK$"C"1120A/`i/j"M456.7 :PUTS 456.7 INTO MEMORY":/t"CM :CLEARS MEMORY":/~"CE :CLEARS LAST ENTRY (NOT MEMORY)":/"CL :CLEARS ALL":0 A L Q U L A T O R C O M M A N D S":2-" A=ACCUMULATOR E=ENTRY M=MEMORY":\-"ENTRY : FUNCTIONS & EXAMPLES":-"234.75 :NUMBERS WITHOUT A SIGN IN FRONT"-" OF IT WILL BE THE FIRST ENTRY &"-" WILL BE VALUE A": VALUE IN 'A'":70++*E$"COT"LAA:LA$(A):A1(A):A$(A):AA0:1590X+4E$"ACOT"A0A$" NO VALUE IN 'A'":70+>E$"ACOT"LAA:LA$(A):A(A)2:A$(A):AA0:1590+HE$"CM"M0:M$"0":AA0:1590+RE$"D2"D2:70+\E$"D6"D6:70 1590)E$"TAN"A0A$" NO VALUE IN 'A'":70M)E$"TAN"LAA:LA$(A):A(A):A$(A):AA0:1590z)E$"ATAN"A0A$" NO VALUE IN 'A'":70)E$"ATAN"LAA:LA$(LA):A(A):A$(A):AA0:1590)E$"DTR"LAA:LA$(A):AA(180):A$(A)" 10)):LAA:LA$(A):AAQ:A$(A):AA0:1590C'XE$"PTM"M3.14159265:M$(M):AA0:1590o'bE$"SIN"A0A$" NO VALUE IN 'A'":70'lE$"SIN"LAA:LA$(A):A(A):A$(A):AA0:1590'vE$"ASIN"A0A$" NO VALUE IN 'A'":70(E$"ASIN"LAA:L CARD.LBR",+"B = XMASCARD MAKER"4,A$D-A$"A" 47T.A$"B" 50f/"CARD.LBR",8u01,55555,220,1:4,1:5,2P"":"":G$"WELCOME":190Z::G$"C-128 USER":190d::G$"TO":190n:::G$"XMASCARD MAKER1:707:7 ------- ERROR TRAP ------7&:80:&98:"  YOU HAVE AN ERROR ":2,32000,20J8D:12)(ER)m8N:" HIT ANY KEY TO RESUME"{8XGK$:10-6:61,46D21,"#########.##";A;:1," _ FIRST ENTRY":173 5T1,"#########.######";AA;5^1,2)E$&6hD21,"#########.##";A;:1," _ A":1660N6r1,"#########.######";A;:1," _ A"Y6|1:70_6:6 ------ PRINT FIRST ENTRY ----6:61,46D21,"#########.##";A;:1," _ FIRST ENTRY":173 IONS TO PRINTER":4"P2 :CALCULATIONS TO SCREEN ONLY":94"PTM :() 3.14159265 TO MEMORY":j4"D6 :SETS PRINTER @ 6 DECIMAL PLACES":4"D2 :SETS PRINTER @ 2 DECIMAL PLACES":4"= :DO NOT USE THE = SIGN":4"END RCCOSINE OF A":2("TAN :TANGENT OF A (A IN RADIANS)":322"ATAN :ARCTANGENT OF A":c2<"COT :COTANGENT OF A (A IN RADIANS)":2F"ACOT :ARCCOTANGENT OF A":2P"RTD :CONVERT A (RADIANS) TO DEGREES":2Z"DTR :CONVERT A (DE "SQR :RETURNS THE SQUARE ROOT OF A":&0"A+M :MEMORY ADDED TO A":O0"A-M :SUBTRACTS MEMORY FROM A":t0"A/M :A DIVIDED BY MEMORY":0"A*M :A MULTIPLIED BY MEMORY":0"ATM :PUTS VALUE OF A INTO MEMORY":0"SIN *********************************************_*t *******************************SAVE FILE********************************~ ************************************************************************ 0,0,39,24,1* "ENTER FILENAME: ";P$: P$  1840:%5 -------- K A L Q U L A T O R ---J J.S. NORVELLg( 1813 GROVEHAVEN CIR.2 MEMPHIS, TN. 38116<0,1:0,1:4,12:M$"0":A$"0":A0:E$"0":P2:D6F1,0,0,""$P1,0,1," + - / * ^ % "[1,0,6," TAN ATAN "1,0,7," "1,0,8," COT ACOT RTD DTR SQR PDC "1,0,9," / 1,0,14," 1 2 3 4 5 6 7 8 9 0 D6 D2 "G D2,36,14,"D2",1_ D6,32,14,"D6",1 1,0,15," " 1,0,16,"E= " "1,4,16,E$!,1,0,17,"LAST A=  OFF",1""rP1ST0,5,20,"P1=PRINTER ON",1Y"|1,0,21,"""1,6,22," "",5,24,"K A L Q U L A T O R BY JSN",1"&:1,0,22,"ENTRY ":21,64:E$:21,0:1,9,22,E$:(7):% E$,2,20))0E$"YOU CAN'T DIVIDE THAT !!":70j$(E$,1)"/"EE$(E$,2,20):LAA:LA$(A):AA(EE$):AAAA:A$(A):1590$(E$,1)"*"EE$(E$,2,20):LAA:LA$(A):AA(EE$):AAAA:A$(A):1590$E$"SQR"A0E$"CAN'T BE DONE":70%E$"SQR ***************************;3 *****************************DELETE RECORD*****************************3 ***********************************************************************3%3BZ:EG3 IB E13N$(I)N$(I1)3AD$(I)AD$(I *******************************************************************,1 0,1,39,24,1W1 "ENTER FILENAME: ";P$: P$"" 13401 "HAS THIS FILE BEEN INPUT TO MEMORY"1 "ALREADY? (Y/N)"1 A$: A$"Y" 19302%: I1 ***************************************O/ **********************************EXIT*********************************/ ***********************************************************************/ 0,0,39,24,1/"HAVE YOU SAVED FILE? (Y/ 2. PRINT A FEW LABELS"- " 3. PRINT 1 LABEL",- " 4. PRINT NO LABELS"E- "ENTER CHOOSE: "j- A$:A(A$): A1 A4 1380- A 1480, 1500, 1520- A4 - 1380-B1:EG- 1530- "STARTING LABEL: ";B: "ENDING L "" 240*P$"@"P$+%+ #1,(P$),W+ I1 G*+Z$(I)4+1,Z$A+1,N$(I)O+1,AD$(I)\+1,C$(I)j+1,SZ$(I)r+ I{+ #1+&+ 0,0,39,24,1+(+2 **************************************************************  ">Z,15,1," H = HELP ",1td1,0,2," SIN ASIN ó"n1,0,3," A= "x1,15,3,A$1,0,4," COS ACOS ó"%1,0,5,"  "41,0,10," A+M A-M A/M A*M ATM PTM "k1,0,11," "1,0,12," CE CL M CM END ",23,12," DO NOT USE = ",11,0,13," "  "#!61,8,17,LA$Z!@1,0,18,"M= "i!J1,4,18,M$!T1,0,19," "!^1,0,20," P1=PRINTER ON P2=PRINTER OFF "!hP2,21,20,"P2=PRINTER >#(E$,1)"+"EE$(E$,2,20):AA(EE$):LAA:LA$(A):AAAA:A$(A):1590P#E$"CL"1770#E$"CE"ALA:A$(A):AA0:E$"LAST ENTRY CLEARED":1590#(E$,1)"-"EE$(E$,2,20):AA(EE$):LAA:LA$(A):AAAA:A$(A):1590$(E$,1)"/"(( "LAA:LA$(A):A(A):A$(A):AA0:1590d%(E$,1)"M"M$(E$,2,20):M(M$):E$M$" ENTERED TO MEMORY":AA0:1590y%E$"END"&::%E$"A+M"LAA:LA$(A):AAM:A$(A):AAM:1590%E$"A-M"LAA:LA$(A):AAM:A$(A):AAM:1590&&E$q1)3C$(I)C$(I1)3SZ$(I)SZ$(I1)4 I4 &4 0,0,39,24,174  "RECORD ";Z;" DELETED"=4*)Q2NZ(Z$)[2XGG1n2b 64 ST64v2lGZ2v#12&2 0,1,39,24,122 ********************************************  500:N$(I)"":AD$(I)"":C$(I)"":SZ$(I)"": I2& #1,(P$),R20G1!2:E2D1,Z$,N$(G),AD$(G),C$(G),SZ$(G)Q2NZ(Z$)[2XGG1n2b 64 ST64v2lGZ2v#12&2 0,1,39,24,122 ******************************************** N)"/ A$: A$"N" /0 "THANKS FOR USING LABEL MAKER.2": 5 :}0 ***********************************************************************0 *******************************READ FILE*******************************1 **** ABEL: ";E- 1530 . "LABEL NUMBER: ";B:EB.4 .4,4:4.. IB E:.I$(I)A."4N.,4,N$(I)\.64,AD$(I)z.@4,C$(I);(44);" ";SZ$(I).J4.T4.^ I.h4:4.r 0,0,39,24,1.|/ ******************************** *********7,< ******************************PRINT FILE*******************************,F ***********************************************************************,P 0,0,39,24,1,Z 1770,d 0,1,39,24,1,n " 1. PRINT ALL LABELS",x " $ JOHN GRANDINETTI(C128T JOHN)8 LABEL MAKER.2L MARCH 5, 1987( *************************************************************************2 ******************************MAIN PROGRAM*******************************<< ***********T. FIED WITH IT. AKE SURE THAT YOUR PRINTER IS CONNECTED AND TURNED ON PRIOR TO SENDING THE PRINT COMMAND. F YOU DO NOT DESIRE A PRINTOUT OF YOUR OUTLINE, OR AFTER A PRINTOUT HAS BEEN MADE, YOU CAN GO ON TO THE NEXT SCREEN WHICH ASKS WHETHER YOU ATISFIED WITH IT. AKE SURE THAT YOUR PRINTER IS CONNECTED AND TURNED ON PRIOR TO SENDING THE PRINT COMMAND. F YOU DO NOT DESIRE A PRINTOUT OF YOUR OUTLINE, OR AFTER A PRINTOUT HAS BEEN MADE, YOU CAN GO ON TO THE NEXT SCREEN WHICH ASKS WHETHER YOU UNDER THE OMAN UMERAL, THEN TYPE "R" FOR REARRANGE. OU WILL SEE A SERIES OF SLASHES WITH THE CURSOR NEXT TO THE FIRST SLASH. YPE IN THE NUMBERS OF THE IDEAS AS YOU WANT THEM TO APPEAR UNDER THE OMAN UMERAL, PRESSING AFTER EACH NUMBER. OU XT. OW YOU CAN VIEW EACH OMAN UMERAL BLOCK JUST AS IT WOULD BE PRINTED ON PAPER. NCE AGAIN, IF THERE IS NOT ENOUGH SPACE ON THE SCREEN TO PRINT AN ENTIRE BLOCK, THE PROGRAM WILL WAIT FOR ANY KEY TO BE PRESSED BEFORE IT CONTINUES PRINTING THE ENTIRE LD FILE*****************************]'z ************************************************************************p' 0,0,39,24,1{' 1770'ZG' 1,1,38,14,1'ZZ1: Z500 ' 0,15,39,24,1' "FILE IS FULL, ANOTHER FILE I  " 6. GET ANOTHER RECORD"/% K$:K(K$): K1 K6 720N% K 750,780,810,840,1980X% 530k% 1,1,38,14,0% "NAME: ";N$(Z): N$(Z)"" 750%%  1,1,38,14,0% "ADDRESS: ";AD$(Z): AD$(Z)"" 780% %* 1,1,3 *****************************"# 0,0,39,24,1-# 1770?# 0,1,39,1,1# "ENTER RECORD # YOU WISH TO CHANGE: ";Z: Z0 Z500 530#& Z0 #0 0,0,39,24,1#::#D 1,1,38,14,1#N "NAME: ";N$(Z)#X "ADDRESS: ";A  "STATE,ZIP: ";SZ$(Z): SZ$(Z)"" SZ$(Z)SZ$(Z1)I!| "RECORD NUMBER: ";Z]! 1,15,38,24,1n! Z500 ! "FILE IS FULL, ANOTHER FILE IS NEEDED"! "SAVE DATA FIRST"! 460:! "ANYMORE RECORDS? (Y/N)" " *************************************************************** *****************************START NEW FILE***************************** ************************************************************************Z0 0,0,39,24,1  **************************************************************gF N$(500), AD$(500), C$(500), SZ$(500)zP 0,0,39,24,1Z "LABEL MAKER.2"d 0,1,19,14,0n " 1. START NEW FILE"x " 2. CHANGE OLD FILE"  " 3. A STATE,ZIP: ";SZ$(Z1)8) "STATE,ZIP: ";SZ$(Z): SZ$(Z)"" SZ$(Z)SZ$(Z1)U)$ "RECORD NUMBER: ";Zi). 1,15,38,24,1)8 "ANYMORE RECORDS? (Y/N)")B C$: C$"Y" 930)LGZ)V 0,0,39,24,1)`*j ************************** WANT TO MAKE A DISK COPY OF YOUR OUTLINE (A SEQUENTIAL FILE), RE-EDIT YOUR OUTLINE, OR END THE PROGRAM. F YOU DESIRE TO RE-EDIT YOUR OUTLINE, YOU WILL BE TAKEN BACK TO THE BEGINNING OF THE FINAL EDITING STEP AND THE PROGRAM WILL CONTINUE FROM THAT POIN  WILL PROBABLY DO MOST OF YOUR WORK TO FINALIZE YOUR OUTLINE HERE. HEN YOU HAVE COMPLETED THIS FINAL STEP, YOU WILL BE GIVEN THE OPTION TO PRINT YOUR OUTLINE. 'D SUGGEST THAT YOU MAKE A PRINTOUT OF YOUR OUTLINE, EVEN IF YOU KNOW THAT YOU ARE NOT S  OMAN UMERAL BLOCK. HIS IS YOUR LAST CHANCE TO ADD, DELETE, AND REARRANGE THE SEQUENCE OF THE IDEAS UNDER THE OMAN UMERAL BLOCK. HE ADD AND DELETE ROUTINES WILL BE EXACTLY THE SAME AS EARLIER IN THE PROGRAM. F YOU DESIRE TO REARRANGE THE IDEAS S NEEDED"( "SAVE DATA FIRST"#( 1120::( "NAME: ";N$(Z)X( "ADDRESS: ";AD$(Z1)( "ADDRESS: ";AD$(Z): AD$(Z)"" AD$(Z)AD$(Z1)( "CITY: ";C$(Z1)( "CITY: ";C$(Z): C$(Z)"" C$(Z)C$(Z1)( " 8,14,0&4 "CITY: ";C$(Z): C$(Z)"" 810#&>6&H 1,1,38,14,0j&R "STATE,ZIP ":SZ$(Z): SZ$(Z)"" 840p&\&f ************************************************************************'p ****************************ADD TO O D$(Z)$b "CITY: ";C$(Z)-$l "STATE,ZIP: ";SZ$(Z)H$v "RECORD NUMBER ";Z\$ 1,12,38,24,1$ "WHICH DO YOU WISH TO CHANGE:"$ " 1. NAME"$ " 2. ADDRESS"$ " 3. CITY"$ " 4. STATE,ZIP"$ " 5. DELETE RECORD %  C$: C$"Y" 280" 0,0,39,24,1""q" ************************************************************************" ****************************CHANGE OLD FILE*****************************# *******************************************  1,1,38,14,1 "ZZ1 ,GZ. 6 "NAME: ";N$(Z)L @ "ADDRESS: ";AD$(Z1) J "ADDRESS: ";AD$(Z): AD$(Z)"" AD$(Z)AD$(Z1) T "CITY: ";C$(Z1) ^ "CITY: ";C$(Z): C$(Z)"" C$(Z)C$(Z1) h "STATE,ZIP: ";SZ$(Z1),!r DD TO OLD FILE" 20,1,39,14,07 " 4. SAVE FILE"P " 5. PRINT FILE"c " 6. EXIT"w 0,14,39,24,1 " ENTER OPTION NUMBER: " A$:A(A$): A1 A6 200 A 270,510,900,1160,1360,1670 809 ********* E IDEAS THAT DID NOT GET LUMPED UNDER A OMAN UMERAL BLOCK, THEN THOSE IDEAS WILL BE LOADED INTO A BUFFER. ATER, AS YOU GET THE OPPORTUNITY TO ADD IDEAS TO YOUR OMAN UMERAL BLOCKS, THE BUFFERED IDEAS CAN BE VIEWED AND ADDED. TEP FOUR IS THE IDE IRST IDEA THEN TYPE "Y" AND THAT IDEA WILL AUTOMATICALLY BE LUMPED IN THE SAME OMAN UMERAL BLOCK AS THE FIRST IDEA. OU MAY HAVE UP TO TEN IDEAS IN EACH OMAN UMERAL LOCK. ATCH THE LITTLE WINDOWS AT THE BOTTOM OF THE SCREEN. HESE WINDOWS WILL IN DONE ENTERING IDEAS, TYPE THE WORD "END" (DO NOT USE THE QUOTES) AND HIT . HE SCREEN WILL ASK YOU IF YOU ARE SURE THAT YOU DO NOT WANT TO ENTER ANY MORE IDEAS. OU WILL THEN EITHER CONTINUE ENTERING IDEAS OR GO ON TO THE NEXT STEP. (F YOU ENTE ITLE ALL UPPER CASE LETTERS. N ANY CASE, ONCE YOU HAVE TYPED IN YOUR TITLE, YOU WILL BE GIVEN A CHANCE TO CHANGE IT. FTER YOU ARE SATISFIED WITH YOUR TITLE, YOU WILL ENTER YOUR IDEAS. OW JUST TYPE IN YOUR IDEAS AS THEY COME TO YOU. FTER ENTERIF 128 HOME APPLICATION/PRODUCTIVITY PROGRAMS ON . E 128 OWNERS ARE GETTING THE SHORT END OF THE STICK FROM THE SOFTWARE INDUSTRY. ET'S SUPPORT OURSELVES WITH OUR OWN PROGRAMS. FTER ALL, IF WE JUST WANTED TO RUN 64 PROGRAMS, WE WOULDN'T HAVE BOUGY TELL THE PROGRAM THAT YOU DESIRE TO ADD AN IDEA, THEN CHANGE YOUR MIND JUST TYPE "C" AND PRESS TO GET OUT OF THAT OPTION. FTER EACH ADDITION UNDER A OMAN UMERAL, YOU WILL BE SHOWN THE RESULT BY A COMPLETE REPRINTING OF THE OMAN UMERAL BLOCU WISH TO DELETE ONE OF THOSE IDEAS, THEN YOU MUST FIRST ADD AN IDEA, AND THEN DELETE THE UNWANTED IDEA. FTER DELETING ANY IDEAS YOU DO NOT WANT UNDER THE OMAN UMERAL, PRESS "D" TO GO ON TO THE NEXT OMAN UMERAL. FTER ALL OF YOUR OMAN UMERALED BT SPECIFIC OMAN UMERAL. OU MAY DELETE IDEAS SIMPLY BY PRESSING THE CORRESPONDING NUMBER OF THE IDEA THAT DOES NOT BELONG UNDER THAT OMAN UMERAL. DELETED IDEA WILL GO INTO THE BUFFER, FROM WHENCE IT MAY BE RECALLED WHEN GIVEN THE OPTION OF ADDINGAN UMERAL . FTER DOING THIS WITH ALL OF YOUR LABELS, THE SCREEN WILL CLEAR AND YOU WILL BE SHOWN THE NEW, OMAN UMERALED, SEQUENCE OF YOUR OUTLINE. T THIS TIME YOU WILL EITHER CONFIRM THIS SEQUENCE, OR BE GIVEN THE OPPORTUNITY TO GO BACK AND REPEAU WILL TITLE EACH OMAN UMERAL BLOCK. FTER LABELING THE OMAN UMERAL BLOCKS YOU WILL BE SHOWN THE OMAN UMERAL BLOCKS IN THE ORDER THEY CURRENTLY EXIST. OU MUST EITHER CONFIRM OR CHANGE THIS ORDER BY TYPING IN THE APPROPRIATE NUMBER OF THE TITLNTIFICATION OF YOUR OMAN UMERAL BLOCKS. OU WILL BE SHOWN ALL THE IDEAS YOU HAVE LUMPED TOGETHER UNDER ONE OMAN UMERAL. URING THIS STEP, AND OTHER STEPS THAT SHOW ALL THE IDEAS UNDER A SPECIFIC OMAN UMERAL, IF THERE ARE MORE IDEAS THAN THERE IS DICATE WHICH OMAN UMERAL BLOCK YOU ARE CURRENTLY IN, THE NUMBER OF IDEAS YET TO COMPARE, AND HOW MANY IDEAS YOU HAVE LUMPED UNDER THE PRESENT OMAN UMERAL. F YOU COMPLETE YOUR COMPARISON, THROUGH ALL TEN AVAILABLE OMAN UMERAL BLOCKS, AND STILL HAVR THE MAXIMUM OF 100 IDEAS THE PROGRAM WILL AUTOMATICALLY GO ON TO THE NEXT STEP) HE NEXT STEP WILL SHOW YOU YOUR FIRST IDEA IN THE TOP WINDOW AND THEN COMPARE IT WITH ALL OF YOUR OTHER IDEAS IN THE BOTTOM WINDOW. F A SPECIFIC IDEA GOES WITH THE FNG EACH IDEA, YOU ARE SHOWN YOUR IDEA AND ASKED IF THAT'S THE WAY YOU WANT IT. HANGE IT, IF YOU DESIRE. FTER ENTERING YOUR IDEA, THE # OF IDEAS BOX WILL BE INCREASED BY ONE SO THAT YOU CAN KEEP TRACK OF HOW MANY IDEAS YOU HAVE ENTERED. HEN YOU ARE HT OUR 128S!! : PON RUNNING THE PROGRAM YOU WILL SEE THE TITLE SCREEN. RESS ANY KEY TO BEGIN THE PROGRAM. HE FIRST ENTRY YOU WILL MAKE IS NAMING YOUR OUTLINE. HIS PROGRAM RUNS IN UPPER/LOWER CASE MODE. OU MAY WANT TO MAKE YOUR T K. NCE AGAIN THERE IS A LIMIT. OU MAY ONLY HAVE TEN IDEAS UNDER EACH OMAN UMERAL BLOCK. F YOU HAVE TEN IDEAS UNDER ONE BLOCK AND DESIRE TO ADD ANOTHER IDEA, YOU WILL FIRST HAVE TO DELETE AN IDEA. HE FINAL STEP IN ARRANGING YOUR OUTLINE IS NELOCKS HAVE BEEN REVIEWED UNDER THE OPTION, YOU WILL BE TAKEN TO THE STEP. HE OPTION IS JUST ABOUT THE SAME AS THE STEP, EXCEPT THAT HERE YOU HAVE THE OPTION OF VIEWING THE IDEAS THAT ARE HELD IN THE BUFFER. F YOU INADVERTENTL IDEAS. FTER EACH DELETION, YOU WILL BE SHOWN THE RESULTS BY A COMPLETE REPRINTING OF THE OMAN UMERAL BLOCK. NOTE HERE ... OU WILL BE FORCED TO HAVE AT LEAST TWO IDEAS UNDER EACH OMAN UMERAL. F THERE ARE ONLY TWO IDEAS UNDER THAT BLOCK AND YOT THIS STEP. FTER YOU HAVE ORGANIZED YOUR OMAN UMERAL BLOCKS, THEY CANNOT BE CHANGED. E SURE THAT THEY ARE IN THE ORDER YOU WANT THEM TO BE. EXT YOU WILL BE SHOWN THE OMAN UMERAL BLOCKS ONE AT A TIME WITH ALL OF THE IDEAS LUMPED UNDER THAE NEXT TO THE CORRESPONDING OMAN UMERAL. N OTHER WORDS, LETS SAY THAT ABEL #3 SHOULD BE OMAN UMERAL . EXT TO OMAN UMERAL . TYPE THE NUMBER 3 AND PRESS . ABEL #3 WILL DISAPPEAR FROM THE BOTTOM WINDOW AND WILL BE PLACED ADJACENT TO OM SPACE TO PRINT THEM ON THE SCREEN, YOU WILL BE ABLE TO VIEW THE IDEAS THAT ARE VISIBLE, AND THEN PRESS ANY KEY TO SCROLL UP TO VIEW THE REMAINDER OF YOUR IDEAS. IVE THE OMAN UMERAL BLOCK A TITLE, SUCH AS , OR , OR , ETC. O  @!A0....$$$$$#=$@@==?@@$$@>>=>>>>!AAA%@#=<<==#@>====>=>>>>>$$'rA!G8{T2 xz/Ԁɐ qG&O?UB@AAt+%&Gî?Ǫ]QߧN.M CCBaQLLLLX(NefS}:/\]abÐ{  128 IS AN IDEA PROCESSOR THAT WILL ASSIST YOU IN THE ORGANIZATION OF RANDOM THOUGHTS INTO AN OUTLINE FORMAT. HIS PROGRAM WAS DEVELOPED FOR MY SPECIFIC NEEDS, BUT SHOULD BE HELPFUL TO MOST PEOPLE NEEDING IT'S CAPABILITIES. 128 IS SIMPLE RGANIZES YOUR IDEAS INTO OUTLINE FORMAT. T THEN OFFERS YOU THE OPPORTUNITY TO EITHER PRINT THE FORMATTED OUTLINE TO PAPER OR SAVE THE OUTLINE TO DISK. AVING THE OUTLINE TO DISK CREATES A SEQUENTIAL FILE NAMED "." THAT CAN LATER BE LOADED I HEM CAN). NCE INSIDE THE WORD PROCESSOR, YOU CAN EXPAND THE OUTLINE, CHECK SPELLING, AND REFORMAT THE FINAL OUTLINE IF NECESSARY. HAVE ATTEMPTED TO KEEP 128 SIMPLE TO USE. S THE PROGRAM WAS BEING WRITTEN AND TESTED, OTHER FAMILY MEMBERS EXUND WILL ALERT THE USER TO TRY AGAIN WHEN MAKING AN ERROR. HAVE GIVEN COPIES OF THIS PROGRAM TO SEVERAL FRIENDS WHO HAVE 128S AND THEY HAVE BEEN ABLE TO USE IT WITHOUT ASKING ME FOR ANY GUIDANCE. NE FINAL NOTE BEFORE GETTING INTO THE INSTRUCTIONS ..TWO FOLLOWING CIRCUMSTANCES. F YOU INSIST ON TELLING THE PROGRAM TO PRINT WHEN THE PRINTER IS NOT CONNECTED (OR NOT TURNED ON) THE PROGRAM WILL CRASH. F YOU TELL THE PROGRAM TO SAVE A DISK FILE AND THERE IS ANOTHER FILE ON YOUR DISK NAMED ".4̰t@ A@<̠+̪4̰t&AW!ff6fh@(fihUi@)h@(vWkUW@W!LV,A/FEE@!Wal,ElE+$( {El@.qnnU*Q@!Qaj*aEnUjʹo@/oE0fūţgMf@7Bf@)@(W$ff fsAW@Wfv0+6ű5ϓA@W!Wb&sAf&+ff&kBkV&+kf+sA W@k&A @k&F{ZW@0FFqUI{@!qaIaUIFFvsKA{W;+$( {`@0A @#@"p!qaaUb@aW{wʼnaaUbCaW{wʼnaaURb@aW{waaUbCaW{waaUc@#caq@caq@C"@#apWa@ edW$eţ\WF\_ϾAsE@7űAsE@µūţ+#F@AsE@{7ű!!ŔvA@AII@9IyIx;@9yIx{x;IxIx{,!;Ix{x;Ix{x;IxIx{1<5 x;Ix{x;Ixڡ}ػp???NvA+[A@E@WbOV3@1@0YaWq3AA3@CBEDGFIE1-¶{25AGsE@{rF4tAtsE@uAtsE@r@IsF@( TO USE. UST ONE OR TWO PRACTICE SESSIONS WILL FAMILIARIZE YOU WITH THIS PROGRAM TO THE EXTENT THAT YOU WILL HAVE NO PROBLEMS USING IT WITHOUT REFERRING TO THESE INSTRUCTIONS. IRST OF ALL, A LITTLE INFORMATION ABOUT 128 ... HIS PROGRAM ONTO A WORD PROCESSOR. . FILES HAVE BEEN SUCCESSFULLY LOADED INTO AND WORD PROCESSORS. HEY SHOULD BE ABLE TO BE LOADED INTO ANY OTHER WORD PROCESSOR PROGRAMS WHICH CAN ACCEPT SEQUENTIAL FILES (JUST ABOUT ALL OF TPRESSED THEIR INTEREST IN USING THE PROGRAM FOR SCHOOL PROJECTS AND SPEECHES. N SCREEN INSTRUCTIONS HAVE BEEN ADDED TO ASSIST THOSE NOT FAMILIAR WITH THE PROGRAM. DDITIONALLY, A "BEEP" WILL BEEP WHEN THE USER MAKES A GOOD ENTRY AND A "BUZZER" TYPE SO. AM NOT A COMPUTER PROGRAMMER. ONLY WRITE PROGRAMS OUT OF NECESSITY, AND FOR A LITTLE FUN. OWEVER, BEFORE PUTTING THIS ON , HAVE ATTEMPTED TO MAKE 128 AS ERROR FREE AS POSSIBLE. OWEVER, THIS PROGRAM WILL CRASH IN EITHER ONE OF THE " THE PROGRAM WILL CRASH. F EITHER OF THESE INSTANCES OCCUR JUST TYPE "GOTO1670" AND CONTINUE WITH THE PROGRAM. LEASE FEEL FREE TO PASS THIS PROGRAM ON TO OTHER 128 OWNERS. ND HOW ABOUT UPLOADING SOME OF YOUR PROGRAMS? HERE SEEMS TO BE A LACK OEA/nEElEE7$!ͼʫxxA򾾘ۋ[[[ [ۗۘ  wũjKAA@!żŲ{hUwũjs@ M@<̠+̪ZW@0Fq@1hqi@@'&i@1hqiC@'&i1q (hd@vpW0@%*hU-A:mzj*A%sAM@!żŲ{hUwũjKAA@!żŲ{hUwũjs@ M@<̠+̪dW$s@M@+̠50̵ ̡5̷4̰!̬A'AW!@A@+̽0̵ ̡5̷4̰!̬A'AW!sA M@65ű){wtA A@65ű){wt&AW!ffL)fvpW@1@:CzIxI}<?xx9}y}V9IxZAyCWŧţ>q@1zxAWIxxAW|x<2IxxAW)x?IxxBq|q@1{~;IAsE@2µūţ˔sAAIIūţ,@U@ (51< &@KsI@'6-@JsI@+)$!@MsF@63Ҕ@OsF@&֔@sO@*Ҕw;AsE@5Ť.ű&FA@W!AsE@6ţµūţ”AIFū c6Hc56843 %B56dehd ^ȥK aȥL aL, \. (:L$ \.hhRhSRR ,j;I5#ʊojIggjI jjoccV5688c43 %Bd57e68R ,eo$ /i%c 8cd ^ee ae$cd .0>:6H'$a_ #h)fEjoEklmno #'LCE &gL# HD&$ +- b&ڱ$ 0:)'` d$b0 L$ e` e'`LD' A-'8`84455!"2?77777"8/.../.........////0111887'222232232330'0#2%1+?#3373=3%38%7%@999:3:;<< #L' \. n@klCc x!7@ ^B a a? a;fmL'Jjj` \."L'L$ \.($Pͳ (:ʹ (:Ў0L' \.S # -L' #L'w \.$ЍL'L$ \.kL' \.hhfhʆRgf ,e /d /cL5'c;gceR0j*gceRk ,$gd ,$RgRR,Lv/ .Z$Jf$$rqL', ,@ \.J7$t$E$tL' g. - . :é )F ȌL9 \.𝨈 -Ȍ . (:L}% (:u i04 \.e wj #L' (:I (:^ (:_( 8檥_%^ (:jn=cnd$e%-hL}%L$ \. . .0  (:3>^ L}%湢S$L >Ƅǩ;<;I `FL\.L$hiGhiHhhhlGh0h8ުhJhhhlG 9 \. 0 (:ƹ ! (:  -f , / / A0L' 9;<;I񅁆 L$})Ȫ};ȱ}<}i}~L'L#hKhLhj  hhL7F fgУL'cМL'F fg L'cȱ;IL'ȱ;Ie/Kȱ;Ie0Lȱ;Ie/mȱ;Ie0ne;kE:7? ? L$ ȹ $0rH Che&:,[W #;U  W #$0L2o h!$L,L'cL,lk$"k=ȹ"ȹeȆfgiL'L$ . (:K (:L 22EL%KL' . (:E L'L'ELQCL$CikDilieCCDo$L4Qko C$ 0LA(L.(g"cFe6d5ec5656c( v!>0 / AB.=?./>=A????%%A!%??#q ͑c77J!Nc݅ⅅ>x羾!HH8n>gӦv Y p˩Wc Er {sVvN#*18?FMT[bipw~'d H1'L%">s5I (:w \.iL}%7  (:k \. b  -L' (:ʆo (:hhphqp ,j /8ok /ljj!eocok3de / aL'L$ \.xHXhL. \.L' \.ҩ%Ѝ)iL. \.4Lr= \.EwSL' \. L$ \.wL',,,, \.JۦwEа]EЍL' \.IxܩܽX))= Lv/cd ,L' L'ȱ;I ȱ;I1 L'L$ ʎ    ` ?L7 ?ݎ (:Ў . . IiIi (:E .ar #L'ȱ;In $.6857 - $.㎋lL$=> \.w v0L$lkL@ȥwȩ ew$ \.$ $?) )$?)$?L' .wS  g]L',)o o )F ,cd$e% #$3 /FF ! -f , / /QF :xF  :jfF :XF :GF F :63F -fg !0!ZyEE #L'L$L$ FKHLA(L$ȱ;I ȱ;IGȱ;IH3a1j4b2kj2;Ie1l;Ie2ml ,е /Яjl ^ȥk a ieabȅZ[P #FsaG ^GȥH aʆr  a - .i aȊ a~> #$rs } #ΈL'Ȅ 9cde  (: }}cdEc0$ e}}~L'}<};L'ܐ܄FfgwcqF fgeL'c\FȆ> \.;If ffL'F>9ef8fe} ~L$~}}ȥfe;}=]:8 Ii> \.F>e8:7 !  C  L'> \. A0>DL' \. A0L';<L'> ? L$  )] -6,(981):0:(46)25647:@ HAT'S!X.!'%&$&$'%'LFL!"L$lKcʈ`cKʈ`3`$7$7`kd`e`LL'd c` `kId L. . 22gfL';<8L.fL*L$fghc / hh0: AG  &g&fʢf0g0c$h02П /gfL'd3g"fe6d5ced5656c1е /c CL' e ae k ^l a ȄFL'hiWhiXhqhhhchdhehfhglWhʆfg`qcdefh &fgg0g*dgecfg`)0$q BcɁh0,}idJf dJfefeg`0OdIefg?   ʆfgL'  gf0L~/L!&qFcL'KLܱ;Ie1jȱ;Ie2k;<jLF+߱;I1 ,e1aȊ /^ /e2ba ,H /G / ieaZeb[h0hohjhkhlhh D!nHmH /jhsj /jhjL$hr \h0hohjhkhlhh D!nHmH /(gHfHeHdHcHhHHgHfHHFɠQD0e/abiKLa , L' /*KfLg L'<ɦv;ɤ)L=+ dh dqL';I; <)Jb;II &b &b &b8IbJe/ae0baiKbiL$FpL#)L%(gɰ)ggengfemfeelen&m&lޭ nop  ;<=>Lj>h0Ahohjhkhlhmhn LW L!hmhn  L~ L%L L!L hphqL"LDWCDXlWȱ;IeFWEXlWno  #=>;<F; < #F L7H@  3@@v. ch0LZ LJ ?M`YZ$ T #L' \.j {j \.Ƞq #L'6d?e@c5 ? ,#L$fwЯ .omS %nL/ %HJJJJ %h) 0:i` .mn - eKKLjki谰$0 KL1324hhHHF  FIyCFIyD`0Cv9v}8~} }ȥ;}ȥ<} y|L7);<iL' C%ԢKLHH \.L *]` .ڎ*g$h &>L~ L%L D!0 -F> m%ffn%g mffnggL'L$ljɁkJfloImlIn`cco怰#5688c43 %Bd5e6cLw#$g6 /#WX`AW@@L]% QL# QL" 8je778f ,% /$o 8L1g"fe6d5ce55656p , /k /lq!pl6k5ek5656>jL7>cch M%>fgL'hj"ch0,%>fgL'co0hEo0c`128AUDIOFILE 1.2 DB 2A 1117 BLOCKS FREE:L$ $f &-rdf ' gKdUE$YE%8ȥg%gf$fge%gf0LBL /nSomȹlRcLm1 \.56843c %B56dedg ^Ș acȩ aL1Hz{( ^ȩ az(h`L$ \. A0L';< ԪH 0h0:)gf$0LE(L7(h cd ^L'c ,d8jfe 0.fg &fgLW.hGh -HGHgf>L$0`0ӥh0ťh0$q BcɁЪdJfee`gfг`$q Bh0cɁdJgf`H A-h748 DLL*0cɐ$q G L' -L'jhmj /jhjL$hnsr~> #en$emrs Хs &s$G0"$H04 &sereZKese[L$FPLA(Ll)eZKse[L$FpL,)L.(ereZKese[L$FpLB)cbe6d5Vg;6588c43 %Bd57e68f ,% /$c 8cdK ^eLfL'ɩL*ɧ;Iȱ;IgfȘL';Ibqdh d0);I; < L*ܠ)c;ec;<<Ȇkl x!L1L1yIeɭ; ɫ?nz1ɮڥzy #oSzR{3 /cLm1>z #L'e;; <;;ItXuD0e/abiKLa , 0% - /0  A-$q Bh %dd L'Lz,F; L=+L)LVE[EoEhpc #L'mfng Ef0%>fgL'cfG$q BfgPcɁJFie;dJ3fe*dJf* f e$fd d 0rrrg 0`dchcYEc`GL0 - =>,`f &L'0chIhL'0 -fIfgIgL'L1L$pgfcop ,jecޅcץ5688c43 %B5d76e8p ,% /$jAlC128 #14GT2AMENU5OUTLINE 1285OL128.INSTR&MPG-CALCWEATHER LABEL MAKER.2 KALQULATORMEMO XMASCARD MAKER128 CHK/REG 2.6\ CHKWRT128.DOCS33CHKREGCHK/DEPROUTINE DATAUPDATEDBADD READ.DOCSALBUM LISTER V1LISTMAKER.SDA, UNIT CONVERT.128PRG NAMES FILEVIDEO LABELS 128AMORT/80 V2.SDA#TESTFILE!LISTMAKER128"#LISTMKR.DOX  6,7: 5,14%:DD$(19):D$DD$DD$:U$(145):L$(157):R$(29): (14): IS$(100),TA$(10,10),LL$(10,11),BU$(100),NI(11),TG$(10),ZZ(10),FI(10):U14:U22:L130:L213:2080:"."::" ."::" ."::" ."::" .":D$R(U1 ":,59,12,"RESS ANY KEY":,61,13,"TO BEGIN":K$F2160::S$"NTER THE TITLE OF YOUR OUTLINE IN THE SPACES PROVIDED BELOW.":1880:S$"O NOT EXCEED SIXTY CHARACTERS IN YOUR TITLE."P:1880ZZU110:U28:L170:L210:2080 "Y" 150- K$"N" TL$"": 0,6,79,24,1:D$:90< 2170:120w :IS0:S$TL$:2100:LN)S$:U11:U23:L178:L25:2080 S$"HE FIRST STEP IN BUILDING YOUR OUTLINE IS TO ENTER IDEAS AT RANDOM AS THEY":1880)!S$"OCCUR TO YOU. ACH IDEA MA (146):,30,9,R1$t" 0,11,79,24,1:D$:U11:U213:L178:L214:2080:I1150:".";::DD$;:IP150:1900:IP$"END" D$:290|"D$" 0,18,79,24:SL80:A$"OUR IDEA IS ''"IP$"''...SAVE THIS AS A GOOD IDEA?":2120::S$"'Y'ES OR 'N'O":2100:D ENTERING ALL OF YOUR IDEAS":1880|$,S$"AND ARE NOW READY TO GO ON TO THE NEXT STEP. S THIS CORRECT?":1880:S$"'Y'ES OR 'N'O":1890$6K$:K$"Y" 2160:340$@K$"N" 200$J2170:310$TL1:AIS1:X0: 0,2,79,24,1:D$:U11:U23:L1AIN, CHANGES MAY BE MADE LATER.":1880&|S$"(YOU ARE LIMITED TO TEN IDEAS PER GROUP) RESS ANY KEY TO CONTINUE.":1890:K$:U11:U210:L178:L213:2080:D$&U11:U216:L178:L219:2080:D$:,32,21,"'Y'ES OR 'N'O"Q'U11:U222:L123:L223:208,46,23," ":"##";A:AA1:,68,23," ":"##";1:B1:A$IS$(Z):IS$(Z)"":TA$(X,0)A$:FI(X)1( 1,10,78,13,1:S$"OES THE IDEA . . . ":2100:LN)S$:SL 78:2120:D$:Y1IS: L10 520( IS$(Y)"" 510+)S$"O IN THE SAME ROMAN NUMERAL BLOCZ:BU0:600k* 0,2,79,24,1:I13:2170:I:2160:S$"OU HAVE RUN OUT OF OPPORTUNITIES TO PLACE YOUR IDEAS UNDER APPROPRIATE":1880*&S$"ROMAN NUMERAL BLOCKS. OWEVER, ALL IS NOT LOST. THE REMAINING IDEAS WILL":1880"+0S$"BE PLACED INTO A BUF LOADED ***":1880:S$"RESS ANY KEY TO CONTINUE":1890:K$,X 0,2,79,24,1:D$:U11:U23:L178:L24:2080:S$"OW YOU MUST ENTER THE TITLES FOR THE ROMAN NUMERAL BLOCKS":1880"-bS$"(NO MORE THAN FIFTY CHARACTERS PER TITLE, PLEASE) RESS ANY KEY HE TITLE YOU WANT? 'Y'ES OR 'N'O":S$IP$:1890$.K$:K$"N" 6306.K$"Y" 680E.2170:650.TG$(K)IP$:K: 0,2,79,24,1:D$:U11:U23:L178:L28:2080.S$"OW YOU WILL ARRANGE THE ROMAN NUMERAL LINES IN THE ORDER YOU WANT THEM TO":12:U26:L138:L217:2080:"."::" ."::" ."::" ."::" .":D$2U120:U210:L146:L221:2080:"."::" ."::" 1."::" 2."::" ."::" .";E<D$:,47,3," - 1 2 8":,49,5," ::"............................................................":U$U$:IP60:1900:TL$IP$:D$d,1,14,""::A$"S ''"(18)TL$(146)"'' THE TITLE THAT YOU WANT FOR THIS OUTLINE?":SL80:2120:S$"'Y'ES OR 'N'O"n::2100:LN)S$ xK$:K$Y BE UP TO 150 CHARACTERS IN LENGTH. O NOT":1880!S$"WORRY ABOUT MAKING MISTAKES. ORRECTIONS MAY BE MADE LATER IN THIS PROGRAM.":1890:U11:U29:L119:L29:2080:"DEAS NTERED: 000"D$"R1$(18)" YPE ''END'' AND PRESS '' WHEN DONE "LN)S$#K$:K$"Y"2160:D$:260/#K$"N" D$:200>#2170:230k#ISIS1:IS$(IS)IP$:,15,9,R$:"###";IS# IS100 340#200$" 0,11,79,24,1:D$:U11:U213:L178:L215:2080:S$"OU HAVE JUST INDICATED THAT YOU HAVE COMPLETE78:L26:2080W%^S$"HE NEXT STEP IN MAKING YOUR OUTLINE WILL BE THE GROUPING OF YOUR IDEAS INTO":1880%hS$"BLOCKS OF RELATED IDEAS (ROMAN NUMERAL BLOCKS). DEAS WILL BE THE 'LETTERED'":1880&rS$"LINES OF YOUR OUTLINE (.,.,.,ETC.). NCE AG0:"O. OF DEA ROUPS:":"(OMAN UMERAL INES)"D$:U130:U223:L149:L223:2080:"DEAS EMAINING:"D$'U156:U222:L177:L223:2080:"O. OF IDEAS IN":"THIS GROUP:"D$:Z1IS: X10 ZIS:540'IS$(Z)"" 530B(XX1:,20,22," ":"##";X:K AS . . . ":: 1,16,78,19,1:2100:LN)S$:A$IS$(Y):B$A$:2120:D$D)K$: K$"N" 510X) K$"Y" 500g)2170:470)IS$(Y)"":TA$(X,L)B$:,46,23," ":"##";A:AA1:,68,23," ":"##";B1:BB1:2160:LL1:FI(X)L) Y)L1) FER AREA. OU MAY RECALL THESE IDEAS LATER, WHEN NEEDED.":1880+:::S$" LEASE WAIT WHILE THE BUFFER IS BEING LOADED . . .":1880: 2:I0IS:IS$(I)"" 590+DBUBU1:BU$(BU)IS$(I):IS$(I)"":" . ";,NI: 2::S$"*** HE BUFFER HAS BEEN TO CONTINUE.":1890:K$:K1X: 0,6,79,24,1:S11:S216:J0FI(K)?-lA$TA$(K,J):2120:J:D$-v 1,3,78,4,1:DD$;:"NTER THE NAME FOR THIS GROUP OF IDEAS":".................................................."DD$:IP50:1900 .(147)"S THIS T 18808/S$"APPEAR IN YOUR OUTLINE. HE SCREEN WILL CLEAR, TWO WINDOWS WILL BE DRAWN":1880/S$"AND YOU WILL BE SHOWN THE TITLES YOU CREATED PREVIOUSLY. N ORDER TO":18800S$"ORGANIZE YOUR TOPICS IN ROMAN NUMERAL ORDER, TYPE IN THE APPROPRIA :I110:R$I"-": I:I110:,6,(12I),TG$(I): I: I1K1F1,7,I,R$:IP2:1900:Z(IP$): ZK 2170:770\1 ZK 2170:7701ZZ(I)Z:YY0I1: ZZZ(YY) 2170:YYI:7701  YY:,8 ,I,TG$(Z):RN$(I)TG$(Z):NI(I)FI(Z):XX0FI(Z):LL$(I,X 7502HK$"Y" 8602R2170:830^3\I1X: A$,B$:RN$(I)A$" "RN$(I): I::RT$""::S$TL$:2100:LN)S$:U11:U23:L178:L25:20803fS$"OW YOU MAY DELETE, ADD, AND MODIFY YOUR ORIGINAL IDEAS. HEY WILL EVENTUALLY":188014pS$"BECOME THE  LINES.":1890:RT$"YES" 9305A1X:S10:S21265 0,8,79,24,1:D$:,0,8,RN$(A): 0,9,79,24,15II0NI(A)1:A$(II):A$(A$,2,(A$)):A$A$" - "LL$(A,II):SL70:PT7:2120:PT0:II5NI(A)2 1350:RT$"YES" 10305K$5 RA,KK1):KK:LL$(A,NI(A))"":NI(A)NI(A)1: 0,9,79,24,1:S10:S212:940q7A:I13:2160:I: 0,2,79,24,1:D$:U11:U23:L178:L25:2080:A1X: 0,8,79,24,1:D$7,0,8,RN$(A):S10:S2127 0,9,79,24,17$II0NI(A)1:A$(II):A$(A$,2,(09LS$"RESS 'D' WHEN YOU ARE DONE OR DO NOT DESIRE TO ADD ANY MORE LINES.":1890X9VK$: RT$"YES" NI(A)10 K$"D" 2170:1400:10909` RT$"YES" K$"D" S10:S218:15009jK$"D" 12209t K$"V" 12309~ K$"A" 2170:K$: K$"N" 1160: K$"Y" 2170:1190,;NI(A)NI(A)1:LL$(A,(NI(A)1))IP$: 0,9,79,24,1:1060:; A:1440M; BU0 1330; BB1 BU: 1,3,78,5,1: 1,3,78,6,0:S$(18)" RESS 'A' TO ADD THIS LINE, 'V' TO VIEW ANOTHER, OR 'Q' TO ,1:S$"OU HAVE SEEN ALL OF THE CONTENTS IN THE BUFFER. RESS 'C' TO CONTINUE":18906=K$:K$"C" S10:S212:1050F=(2170:1310=2 1,3,78,5,1:S$"HE BUFFER IS EMPTY. RESS 'C' TO CONTINUE":1890:K$:K$"C" 1050=<2170:1310>F 1" 2170:1370R?d 1,3,78,5,1:S$"O DELETE A LINE, PRESS IT'S CORRESPONDING NUMBER.":1880::S$"RESS 'D' WHEN YOU ARE DONE DELETING LINES.":1890X?n?x 1,3,78,5,1:S$"OU MAY ONLY HAVE A TOTAL OF TEN LETTERED LINES PER ROMAN NUMERAL. OU":P78:L25:2080AS$"OU WILL HAVE ONE FINAL OPPORTUNITY TO ADD, DELETE, OR CHANGE YOUR ROMAN":1880tAS$"NUMERAL BLOCKS. RESS 'V' TO VIEW THE FORMATTED BLOCKS AND THEN FOLLOW":1880AS$"THE PROMPTS FOR THE FINAL ORGANIZATION OF YOUR OUTLINE.TE":1880:S$"NUMBER NEXT TO THE DESIRED ROMAN NUMERAL.":1880=0S$"(RESS 'C' TO CONTINUE)":1890[0K$:K$"C" 2170:7400 0,0,79,24,1:D$:U11:U21:L177:L210:2080:D$:U11:U213:L177:L222:2080:D$:I110:A$,B$:R$A$: I1::X)TA$(Z,XX):XX[2*,2,12Z," ": I::I1K1: A$,B$: A$" "RN$(I):I:24,1,15,"S THIS THE CORRECT ORDER OF YOUR ROMAN NUMERAL LINES? (Y/N)"2>K$:K$"N" :Z0:I1X:ZZ(I)Z::LETTERED LINES UNDER THEIR RESPECTIVE ROMAN NUMERAL LINE.":1880:S$"RESS 'C' TO CONTINUE":1890N4zK$:K$"C"2170:890`4 1,3,78,5,14S$"O DELETE A LINE, PRESS IT'S CORRESPONDING NUMBER.":1880:S$"R PRESS 'D' WHEN YOU ARE DONE DELETINGT$"YES" NI(A)2 K$"D" 2170:1350:960(6 RT$"YES" K$"D" S10:S218:1500;6K$"D" 1030a6K$(48) K$(57) 2170:9606K(K$): KNI(A)1 2170:9607BUBU1:BU$(BU)LL$(A,K):LL$(A,K)"":KKKNI(A):LL$(A,KK)LL$(A$)):A$A$" - "LL$(A,II):SL70:PT7:2120"8.PT0:II:RT$"YES" NI(A)10 1400:1090?88 NI(A)10 1400:12208B 1,3,78,5,1:S$"O ADD A LINE, PRESS 'A' AND ENTER IT AT THE PROMPT.":1880:S$"RESS 'V' TO VIEW THE LINES IN THE BUFFER.":1881110B: 1,3,78,5,1:QQ1150:".";:QQ::12)(18)" NTER 'C' AND PRESS 'RETURN' TO CANCEL THIS OPTION "DD$;:IP150:1900[: IP$"C" D$:1040: 1,3,78,5,1: 1,3,78,6,0:S$"S THIS A GOOD ADDITION ? (Y/N)":1880:A$IP$:SL78:2120:QUIT BUFFER ":1880;A$BU$(BB):SL78:S10:S25:2120:D$i<K$: K$"A" IP$BU$(BB): CCBB BU:BU$(CC)"":BU$(CC)BU$(CC1):CC:BUBU1:BBBU:S10:S212:1210~< K$"V" 1300< K$"Q" 2170:1260< BBBU:1040=BB: 1,3,78,5,3,78,5,1:S$"OU MUST HAVE AT LEAST TWO LETTERED LINES PER ROMAN NUMERAL. OU MUST ADD":1880>PS$"A LINE OR TWO BEFORE YOU CAN DELETE ANY LINES UNDER THIS ROMAN NUMERAL.":1880:S$"RESS 'C' TO CONTINUE WITH NEXT STEP . . .":1890>ZK$: K$"C 1880N@S$"MUST DELETE A LINE BEFORE YOU CAN ADD ANY MORE LINES TO THIS ROMAN NUMERAL.":1880:S$"RESS 'C' TO CONTINUE WITH NEXT STEP . . .":1890o@K$: K$"C" 2170:1420u@@I13:2160:I:RT$"YES"::S$TL$:2100:LN)S$:U11:U23:I ":1890AK$: K$"V" 2170:1480AA1X:S10:S218pB 0,2,79,23,1: RN$(A): PR$;:B0NI(A)1: A$,B$:B$" "B$" ":B$;:A$LL$(A,B):PT11:SL63:2120:PT0:SL80:BB:D$: 0,24,78,24,1:S$(18)" RESS 'D' TO DELETE, 'A' TO  :1520C A: 1660GD":I0NI(A):TE(I)NI(A)1: I: RN$(A): C0NI(A)1:" "C"- ";:PT11:SL63:A$LL$(A,C):S10:S218:2120:PT0:SL80:CD,:(18)" TYPE IN THE ORDER IN WHICH YOU WANT THESE LINES TO APPEAR "(146)" ";D6 D0NI(A) "/"L$L$" "L$;:INI(A):1600Eh I)FrL$"/";: E:C0NI(A):LL$(A,C)TA$(A,C):TA$(A,C)"": C::S$TL$:2100:LN)S$:1500:F|RT$"":1670F:I16:: I:S$"OU HAVE COMPLETED YOUR OUTLINE. O YOU NOW WISH TO PRINT IT? (Y/N)":1880FK$:  RN$(A):CTCT1:1780%H:CTCT1:1780: B0 NI(A)1:A$,B$:B$B$" ":A$B$LL$(A,B):((A$)63)(60CT) CT60:1780HPT7:SL63:2180::CTCT1:1780:PT0:SL80: B::CTCT1:1780:: A: K$"D" 1870H4:4:1670H CT60 18000:1820 J: #8,"OUTLINE.FILE,S", D0,W:8::::: TL$: A1 X: RN$(A):: B0 NI(A)1: A$,B$AJDC$" "B$" ":C$C$LL$(A,B): C$:: B::YJN A:#8: D0:1670zJX2100:LN);:A$S$:2110::Jb2100:LN);:A$S$:2110:D$:Jl((IP$)1))K" ";L$;L$;" ";L$;:1910KCTCT1KCT8KCU1" ";L$;L CU1(18)" ";(146);L$;)LCT0:CUCU1:L  (142);:,(U11),(U21),"":I1(L1U11):"";::"":I1(L2U21):L11)""::L11)"";:L$L$;L*I150:A$(A$,LNI):2120M\I:RLSL:2150:A$(A$,LNSL):2120NfPT)(A$,RL);: RLSL :S1S11:S1S22240:Վ&Np 1,12000,10:8Nz 1,1000,20:cNLN(A$): LNSL RLLN:2210:NU0:N I(SL1) 1 1: (A$,I,1)" " RLI1:2210:AILL SCROLL UP OUT OF VIEW, BUT WILL REMAIN IN MEMORY) ":"";:S10:E$O(27)"D";:(27)"D";:P " .","."," .","."," .","."," .","."," .","."," .","."," .",".",".","."," .","."," .","."I1:2210:A 5,6H CARLOS ECHAZABAL 6181708 ASSIGNMENT # 1N MPG-CALC ANY MONITOR(2 PROGRAM IS A MODIFIED VERSION OF THE PROGRAM ON PAGE 53, #2< DESIGNED TO PROCESS USER INPUT OF S VARIABLE DICTIONARYQ -------- ---------- DUMMY$ USED ONLY TO DETECT CARRIAGE RETURN FIRSTMILES STARTING MILEAGE LASTMILES ENDINGADD, 'R' TO REARRANGE, OR 'C' TO CONTINUE ":18904CK$:K$"D" S10:S212: 0,2,79,24,1:D$:U11:U23:L178:L25:2080:910CK$"A" S10:S212: 0,2,79,24,1:D$:U11:U23:L178:L25:2080:D$:1040C K$"R" 1570C K$"C" 21701:" /";: D::U$60);: E0 NI(A) 1@E@IP1:1900:TE(E)(IP$):TA$(A,E)LL$(A,TE(E)): IP$(48) IP$(57) 2170:L$"/"L$L$" "L$;:1600tEJ (IP$)NI(A)1 2170:L$"/"L$L$" "L$;:1600ET E0 1650E^I0E1:(IP$)TE(I) 2170:L$K$"Y" :::1710F K$"N" 2170:1680F18102GS$(18)" AKE SURE THE PRINTER IS TURNED ON AND THEN PRESS 'P' ":1880LGK$: K$"P" 1740\G2170:1720G4,4,7:4:::::S$TL$:2100:TT1LN:" ";:TT:TL$:::CT8:A1X:HH CT111:: CT:S$TL$" (ONT'D)":2100:TT1LN:" ";: TT:S$:::CT8:YI::::S$"RESS 'E' TO END, 'C' TO MAKE CHANGES OR 'D' TO SAVE OUTLINE TO DISK.":1880zIK$: K$"E" (142)::I& K$"C" 1440I0 K$"D" 217IP$"":CU1:CT0JvI$:2030:I$"" 1910JI$(13)" ";:JI$(20)2000KI$(32)I$(95)1960K1970:KI$(193)I$(218)1910MKI$(34)1910bK(IP$)IP1910|KIP$IP$I$:I$;:1910K(IP$)01910KIP$(IP$,1,1(L1U11):""L$L$;::""L$U$;:I1(L2U21):""U$L$;:: U1,U2,L1,L2,1: (14);:M4LN0:LN((78(S$)))2:DM>LN(A$):I1LN:(A$,I,1);:N17:N:I:jMHLN(A$): LNSL RLLN:2150:MR I(SL1) 1 1: (A$,I,1)" " RLI1:2$(A$,LNI):2180NI:RLSL:2210:A$(A$,LNSL):2180N NU0 " ";"OTT1PT:" ";: TT:(A$,RL);:NUNU1: RLSL 6OCTCT1:1780:O10)" PRESS ANY KEY TO CONTINUE PRINTING IDEAS UNDER THIS BLOCK "O6)" (SOME IDEAS W MILEAGE7 INITIAL$ INITIALIZES LOOPe FUEL FUEL USEDkqw MAINLINE START 1000: OPENING SCREEN 2000: INPUT PROCESSING  300 TARTING AND ENDING ODOMETER_F READINGS AND NUMBER OF GALLONS USED, AND PRODUCING A MILES PERP GALLON REPORT FOR BOTH IMMEDIATE DATA, AND ON A SEPARATE SCREEN,Z DATA FOR A CUMMULATIVE REPORT, PROMPTED BY USER PROMPTS.dn"x  URN WHEN READY TO BEGIN";DUMMY$::5,158#"LET'S GET STARTED..... ">#D##" OU WILL BE ASKED TO PROVIDE FOR A STARTING MILEAGE (0 - 999999) "# "AND ALSO FOR AN ENDING MILEAGE (1 - 999999), YOU MUST TRAVEL AT "!$"LEAST 1 MILE IN ORD ESCESSARY"D%<"THE SYSTEM WILL ALSO ASK FOR FUEL USED (1 - 9999) AND WILL ROUND OFF"%F"ANYTHING OVER 1 DECIMAL POINT FOR ACCURACY I:E 3.58 WILL BECOME 3.6"%P:" O RECAP ALL YOU HAVE TO DO IS ON YOUR NEXT FILL-UP RECORD YOUR ODOMETER "1&Z"R ATEAS POSSIBLE THERE IS A DIFFERENCE"'x " OU CAN CONTINUE THIS FOR SEVERAL FILL-UPS IF YOU LIKE, WHEN YOU'RE READY THE PROGRAM WILL TELL YOU YOUR MILES PER GALLON FOR 1 WEEK OR THE TOTAL ";#("FOR ALL THE DATA THAT YOU HAVE, THIS IS VERY USEFULL INITIAL$"" INITIAL$"Y"))R:FIRSTMILES0:LASTMILES0:FUEL0I)\" W A R N I N G ":: 5,12)f: " NEVER ENTER ANY COMMAS, OR ANYTHING AFTER THEM WILL BE IGNORED BY THE SYSTEM")p" IF YOU MAKE A MISTAKE AFTER ENTERING, YOU WILL BE GIVEN A *L+5,6: "ENDING MILEAGE (MAX SIX DIGITS, MUST BE GREATER THAN STARTING MILEAGE )";LASTMILES+LASTMILES(LASTMILES): LASTMILES999999 LASTMILES0 LASTMILES FIRSTMILES "NUMBER IS OUT OF RANGE, PLEASE VERIFY": 2250++" OK$ "N" OK$"" 2330-. OK$ "Y" OK$"" 2100(-8 ::P-B 5,6 : "ANOTHER (Y/N)";INITIAL$-L INITIAL$ "Y" INITIAL$"" INITIAL$"N" INITIAL$"" 2370-V TFUELTFUELFUEL-` PMILES(LASTMILESFIRSTMILES)-j TMILE "LAST MILES = ###### ";PMILESJ/ 5,11:: "TOTAL MILES = ####### ";TMILES/& 5,11:: "LAST FUEL = ####.# ";FUEL/0 5,11:: "TOTAL FUEL = #####.# ";TFUEL0: 5,11:: "LA% ****WRITTEN BY MARK WEIGL****B **RICHMOND, VIRGINIA**[ ***NAME-WEATHER***~ ***WRITTEN-MARCH 29, 1987*** ***VERSION 3***(53281,1:%)4,3:0,15:2,2:3,8:1,6:3,1*3,140,24,12,3,142,25,0-1,0,180 10: FINAL REPORT " , 6B @ MAINLINE ENDH JN TT ^Z ` f l   SCREEN HANDLING ROUTINE  $ . 8 B THIS IS THE OPENNING SCREEN SUBROUTINE L V !`20)"WELCOME TO T BOTH RUNNING AND UTILIZING THE PROGRAM."#"k""THIS PROGRAM WILL CALCULATE MILES PER GALLON USAGE FOR EITHER A """SINGLE TRANSACTION, OR MULTIPLE TRANSACTIONS, ALL BEING SUMMARIZED"""AT THE END OF THE PROGRAM.""#:: "PRESS RETER TO GET MILES PER GALLON. OF COURSE SINCE MOST"i$"OF US TRY TO TRAVEL FORWARDS, YOUR STARTING MILES SHOULD BE LESS"$("THAN YOUR ENDING MILEAGE, THE SYSTEM WILL DISREGARD ANY TENTHS "$2"OF A MILE SINCE THEY ARE USUALLY NOT THAT ACCURATE OR NEADING AND SAVE IT SOMEWHERE, IT WORKS BETTER IF YOU FILL THE TANK ";z&d"EVERY TIME. WHEN IT COMES TIME TO FILL UP AGAIN AND RECORD YOUR ";'n"ODOMETER READING AGAIN ONLY THIS TIME ALSO RECORD HOW MUCH FUEL YOU PUT IN, AGAIN REMEMBER TO BEAS ACCUR IN TRYING TO DETERMINE HOW WELL YOUR CAR IS PERFORMING."X(:"PRESS RETURN WHEN READY TO BEGIN";DUMMY$::^(d(j(p(v(( INPUT HANDLING ROUTINE(  5,3(( (*(4 INPUT PROCESSING ROUTINE(>INITIAL$"Y")H CHANCE"*z" TO CORRECT IT AT THE END OF THE SCREEN" *\*5,6: "STARTING MILEAGE (MAX 6 DIGITS)";FIRSTMILES*FIRSTMILES(FIRSTMILES): FIRSTMILES999999 FIRSTMILES0 "NUMBER IS OUT OF RANGE, PLEASE VERIFY": 2190***++G, 5,6: "NUMBER OF GALLONS USED (MUST BE GREATER THAN 0 AND LESS THAN 10,000)";FUEL, FUEL 9999 FUEL 1 "NUMBER IS OUT OF RANGE, PLEASE VERIFY ": 2310, 5,6: :: "IS THIS CORRECT (Y/N)";OK$,$ OK$"Y" OK$"STMILESPMILES.t MPG PMILES FUEL.~ TPGTMILESTFUEL#. TCTC1). /. 5. ;. A. d. FINAL SCREEN OUTPUT ROUTINEj. p. v. . 5,11. ::::" HERE ARE THE TOTALS FOR THE";TC; "TRANSACTIONS DONE TODAY" :: / :ST MILES PER GALLON = #######.## ";MPG>0D 5,11:: "TOTAL MILES PER GALLON = ########.## ";TPGg0N 5,14:: " THANK- YOU VERY MUCH "m0X . 5,11. ::::" HERE ARE THE TOTALS FOR THE";TC; "TRANSACTIONS DONE TODAY" :: / :60,180.1,5,190//0,14,4,"W E A T H E R",060&J2 X1 2000:XS70,1\A""C"WOULD YOU LIKE A FORECAST SPECIFICALLY FOR RICHMOND, VA OR FOR ANYWHERE"D"(R/A)": XY$E XY$"R" XY$"A" 66F"WHAT IS THE MONTH" HE UTILITY SYSTEM 1 "!j:7!t20)"BY ARLOS CHAZABAL 1987"?!~:!"THIS SERIES OF PROGRAMS IS DESIGNED FOR EASE OF OPERATION AND USER"!"FRIENDLINESS. THE PROGRAM WILL GUIDE YOU IN EVERY STEP OF THE WAY"""SO YOU WILL HAVE NO PROBLEM @ !A XY$"R"340!B XY$"A"460-!J 53280,1J!T"WEATHER CONDITIONS"T!^""|!h""!r""!|"Σ""" ";#" "V#""A$ B","Cu#"SKY CONDITION-"D$#"TEMPERATURE-"E#"BAROMETRIC PRESSURE-"F" "#"WIND-"H" MPH. "#"HUMIDITY-"T$"#J$ TT":720=%X"......."m%b"........."%l"........."%v"......."&{" "' ' ' '"E'"' '  '"u'"' ' ' ' '"'"' ' ' ' ' '"'""'"ISSUED AT-"K$'010(RG11030)\G31060)fG21090!)pG11110/)zG31120=)G21140K)I41170U)1180m)I1 I2 I31250w)1280)I41310)1340)I2 I41370)1380)I11390)I2 I31420)1450)I1 I.":1600 +"HEAVY SNOW AND WINDY.":16006+"HEAVY RAINS AND GUSTY WINDS":1600]+"TORNADO WATCH"m+X1350:X+" "+X1350:X+1220+E351270+"SEVERE STORM OF WIND AND <E351360-F"RAIN AND CLEARING AFTER":16004-P"SNOW AND CLEARING AFTER":1600e-Z"CLEARING AND COLDER WITHIN 12 HOURS":1600-d"CLEARING WITHIN 18 HOURS":1600-nE351410-x"RAIN WITH HIGH WINDS FOLLOWED IN 2 DAYS BY CLEARING AND COLAND/OR THUNDERSTORMS.":16001/"A CHANCE OF SEVERE THUNDERSTORMS AND/OR RAIN.":1600s/"RAIN WITHIN 18 HOURS THAT WILL CONTINUE A DAY OR TWO":1600/"SNOW WITHIN 18 HOURS THAT WILL CONTINUE A DAY OR TWO":1600/E351470/"RAIN ENDING SPA$Z"WHAT IS THE DATE""dB:e"WHAT IS THE YEAR"AfCYi"WHAT IS THE TIME"ajK$"IS IT CLEAR,MOSTLY CLEAR,PARTLY CLOUDY, MOSTLY CLOUDY,OR CLOUDY"D$"WHAT IS THE TEMPERATURE"E"WHAT IS THE HUMIDITY"T$2=SOUTH" "3=EAST" "4=WEST"# IG "IS IT ANY PRECIPITATION(Y/N)"O J$_ J$"Y"300o J$"N"320x "250 ,"WHAT TYPE OF PRECIPITATION IS IT" 1"(RAIN,HAIL,THUNDERSTORMS,SNOW,SLEET, FREEZING RAIN,OR SNOW FLURRIES 6Q$"0"""a""""""""ɤΣ"#""N"720$"PRECIPITATION-"Q$'$  XY$"R"5309$  XY$"A"720L$Q$"HAIL"720h$Q$"THUNDERSTORMS"590{$&Q$"SNOW"600$0Q$"SLEET"720$:Q$"FREEZING RAIN"720$?Q$"SNOW FLURRIES"650$DQ$"RAIN"680%N".......":720.&"* * *"\&"* * * *"&"* *  *"&"* * * *"&"' ' '"' X14000:X'""!(" WEATHER FORECAST"-("":(53280,0N(F 29.49 1145a(F 29.81 790t(F 30.01 820(F 30.21 850( F 30.20 880(G1910( G3930(*G2950(4G1970(>G3990(HG212 I31480)1490*I41500*1510$*$I2 I31520.*.1530<*BI41540F*L1550P*V1560c*`I4 I11570m*j1580w*t1590*yE251180*~E351190*E551210*1220*"HEAVY SNOW. POSSIBLY BLIZARD LIKE CONDITIONSRAIN.":1600,"SNOW AND COLD WAVE WITHIN 24 HOURS.":1600,,E351300S, "HEAVY RAIN THEN CLEARING.":1600~,"SNOW THEN CLEARING AND COOLER":1600,E351330,("RAIN AND CLEARING SHORTLY":1600,2"SNOW AND CLEARING SHORTLY":1600,DER":1600/."SNOW WITH HIGH WINDS FOLLOWED IN 2 DAYS BY CLEARING AND COOLER":1?.E351440S.H80E751425g.H88E801426{.H95E801427.1600."A CHANCE OF RAIN, POSSIBLY THUNDER- STORMS.":1600."A CHANCE OF RAIN HORTLY,THEN CLEARING":1600"0"SNOW ENDING SHORTLY,THEN CLEARING":1600Q0"PRECIPITATION ENDING WITHIN A DAY":16000"PRECIPITATION ENDING SHORTLY,THEN CLEARING":16000"FAIR,FOLLOWED WITHIN 2 DAYS BY WARMER AND RAIN":16000"FAIR WEATH !"WHAT IS THE BAROMETRIC PRESSURE"(FN"IS IT RISING,STEADY,OR FALLING"^"1=RISING"n"2=STEADY""3=FALLING"G"WHAT IS THE WIND SPEED"H"IS IT COMING FROM THE NORTH,SOUTH,EAST, OR WEST""1=NORTH" " 775,139:CP199:QZ0:Q20,775,1398792,98I1000:5,"P"n 0,0,79,24,1:%:"";:KO$(15)640:" KEYWORD MEMO FILE ":" COPYRIGHT 1987 ":" WRITTEN BY CLINT WAX ":"";A ":"":X#"IF YOU LIKE THIS PROGRAM PLEASE SEND $10 DOLLARS DONATION TO:":L0:"":KE$""(" CLINT WAX":" 1632 NAPFLE AVE. 1ST FL.":" PHILA. PA. 19111":"":"THANKS FOR YOUR KIND SUPPORT..."H-"THIS FEE WILL REGISTE **************************" K""F P29)"(1) TYPE IN FILE TO STORE" U29)"(2) SEARCH FOR KEYWORD":29)"(3) INSTRUCTIONS":29)"(4) QUIT " V29)"  PLEASE TYPE 1,2,3,OR 4 " W27)"*****************************"+!Z ";9"pM4::15:49425:(27)"X":792,64:56,48:58256,0:"":q"s""30)"  PLEASE WAIT... ":M3405"uCP199M4:112"xM130,240,645"}70"X1:PT1:EX0:Z05#625:"":" TYPE 'F1' KEY WHEN FINISHED":" TY170$ A$(92)K$(X)B$:650:B$"":520-$EX1EX0::$B$B$A$C$A$;g$ (B$)80K$(X)B$:B$"":XX1u$ XQ1$X21XQ:650:B$"":520$DC0:Z1:...OUTPUT TO DISC$:DCDC1$ #15,"DATAFILE"(DC)",S,R":15,Z:: PLEASE TYPE KEYWORD ":" YOU WISH TO SEARCH FOR"::16);:1,0:1,KE$:1T&b&550:DC1m&:900&  #15,"DATAFILE"(DC)",S,R"&15,X&R0&R1X:295&FC0"":KO$""9)" NO DATA FILES ON D(cM1X:K$(M)""JL1(hM21K$(M):(mM1(rPR13:3,4:375V(wJL1 485:QZ1Q:K$(QZ)"":t(xJL1DC(FC1)JL0:375(|GG$"Y"JL1JL0::Չ50("":"":""("":"":"TYPE ANY KEY TO GO BACK":"TO MAIN MENU"(CH$()*"":"":"DATA FILE # ";DC;" NOW DELETING"8*"DATAFILE"(DC)"":#15|*"":625:"";:"":"  FILE # ";DC;" DELETED": 2::50*626:"";:" DO YOU WISH TO CONTINUE SEARCH Y/N " +KO$" PRESS 'F3' TO DELETE FILE SHOER AHEAD":16001"WARMER AND RAIN WITHIN 24 HOURS":1600=1"PRECIPITATION WITHIN 24 HOURS":16001"FAIR WITH SLIGHT CHANGES IN TEMPERATURE FOR ONE OR TWO DAYS":16001"FAIR WEATHER WITH A SLIGHT CHANCE OF PRECIPITATION":16001H96E82J 320001"WARMER AND RAIN WITHIN 24 HOURS":1600=1"PRECIPITATION WITHIN 24 HOURS":16001"FAIR WITH SLIGHT CHANGES IN TEMPERATURE FOR ONE OR TWO DAYS":16001"FAIR WEATHER WITH A SLIGHT CHANCE OF PRECIPITATION":16001H96E8" PHILA.,PENNA. ":565:0,7:1,"\":3,"D":K$(22):25:30zKO$"  PRESS ANY KEY TO CONTINUE... ": CH$:6,10:"WHEN TYPING YOUR MEMO YOU MAY TYPE UP TO 20 LINES OF CHARACTERS.":"  YOU MAY USE COLONS AND COMMAS R YOU FOR REVISIONS":"AND FURTHER ENHANCEMENTS COMING SOON...":"":6,1:25m2X0:Y0:A$"":B$"":M0:DC1:P07CR$(13):T0:Z0:R0:K0<...KEYWORD FILEA"": PR13:3,4F635:""36)" MAIN MENU ":DC1 G""27);"***630:"**************************************"!_" TO DELETE A MEMO PRESS '2' TO SEARCH THEN FOLLOW PROMPTS "!d"**************************************"!iM$:M(M$):M1M2M3M4105!n"";:635:"PING YOUR MEMO.": 1:635:"":27)KO$" BEGIN TYPING YOUR MEMO ":;#n#52591:(27)"U";:A$:52639:PT1PT0:"";#A$(20)TA(B$):B$(B$,(TA1)):A$;:145#A$(29)A$(157)A$(17)A$(145)145#A$CR$K$(X)B$:B$"":XX1:Z1%Z1:Z0)%: #15,"DATAFILE"(DC)",S,W"3%15,XL%FCDCFCFC::FCDCT%Y0Z%d%YY1|%15,(34)K$(Y)CR$% YX%15,8%430%0,0,79,24,1:50%640:.......SEARCH MODE IN FROM DISCN&"ISK": 4:&"''15,K$(R)','115,8#'6P1X,';530B'@:PS1PS0:340N'EFC1d'JDCDC1:DCFC1'O640:"":" NOT IN FILE...TRY ANOTHER KEY-WORD ": 2:"":900:50'T"":MO:635'YPR13,4:3'^M050!).......INPUT FROM DISC TO SET FILE NO POINTER FC0) #15,"FC";)15,FCE)#15K))......OUT -DISC WITH THIS FILE NO. FC.......................................................)"FC") #15,"FC",W)15,FC)#15) WN":KO$" PRESS 'F5' FOR HARD-COPY"B+GG$:GG$"P"GG$"D"0,0,79,24,1:"";::626x+GG$"P"PR2"":KO$"  PRINTING... "+GG$"Y"#15+GG$"Y"2000: ,GG$"D""":625:"ARE YOU SURE YOU WANT":"TO DELETE THI 215572"A CHANCE OF RAIN AND/OR SEVERE THUNDER- STORMS.".2"NO EARLY CHANGE":1600n2""COOL AND CLEAR QUICKLY FOLLOWED BY WARMER AND RAIN":16002,"WARMER AND RAIN WITHIN 36 HOURS":160026"NO EARLY CHANGE"2;T$"Y"42@X14000:X Q0:(45)(46)25682:"BASIC 128 V1.00%$&'$&&'&%%.L ,(K$(P),KE$)PS1,!5-&KO$"************************"a-'KO$"  PRINTER ON (1) OFF (2)"-(KO$"************************"-+PR$:PR(PR$):PR1PR2555-,560:-0" CHECKWRITER/REGISTER 128 - VER.2.677(C)1987 PAUL MOCK & KEN MAGIN77LAST UPDATE: 5/20/877"t7 Ww77%DO YOU USE TRACTOR FEED CHECKS? (Y/N)z7`7N`֦ͦ7Ya7 7H OUR MEMO BY":"SEARCHING FOR ANY KEY-STRING IT CONTAINS."/I"WHEN SEARCHING FOR A KEY-STRING YOU MAY":"TYPE IN ANY PART OF ANY WORD CONTAINED IN THE MEMO YOU'RE SEEKING."0N"EG. IF YOU SEARCH FOR THE STRING  OBO ALL MEMOS CONTAINING THE WORDyziL7 ` S٧..<W>٧!I7CHKREG7,S,RW I,I,I,SH.[!I%!I77KIF SEQ FILE 'CHKREG' HAS BEEN ADDED TO DATA BASE, IT HAS NOT BEEN SCRATCHEDɩ777DO YOU WISH TO ADD NEW ENTRIES TOO THAT OTHER MEMOS WILL NOT BE RETREIVED."1]"":"":1b1g41l20,21,60,24,1:J1q25,21,60,24,1:`1r21,21,60,24,1:v1v23,18,60,22,1:1{0,0,79,20,0:120,0,60,24,1:11(K$(X))0K$(X)" ":1215,8,15B$S71- WRITE CHECKS7$2- ENTER CHECKS (OFF PREMISES)73- ENTER DEPOSITS74- UPDATE FILES 75- FILES MENU76- CREATE DB INPUT FILE77- GO TO DATABASE78-7S` 77777"$L7A\7S^DϬb"@m**$.T<.T.0=.0=.07> .0=.07> .0=lKl]K]SKK-کΪ7.T7DEP W>޸7䃄7FILE ' W7 ' qqqq7 FOR: ԃ"tqwq!I!Iރ7PRINTOUT O.K. (Y/N)?ɩz7`=7N`bnĩlSn芨7Q`SlSnĶSlSnXȩYƩƼX7 `ƼY70V""+"v.[`ߴ.[.H>.H<}.H>.H<}.H>.H<}.H>.H<}&.H> .H< }=.H>.H<}T.H> .H< }k.H>.H<7%-------------------------------䃄`S``"N̽z7`7: LAST CHK #: 7 CURRENT BAL:惄7( ---------------------------------------W7UPDATE7,S,WW I,I,I,SH.q!I?qăq胄q惄!I7CHK/DEP7,S,WW I,I,I,SH.Ͷ!Ic7PbV.cW7Wq}~ff"2Q7 END OF FILE9"tryzif7`79Q77`77EMPTY`b " NL "@S fQ[.cxr7cScSZMc"Qc"Rf"2Qz7`cz7`!I7؃" 0֪ˆª7 փ"237 & WW7/100W7 ܃"03e636m99t7-w7FOR: ԃރ7PRINTOUT O.K. (Y/N)?ɩz7`x7N`7Yax.6kݲsYlQ7NO[l<[[l?= ..< e AY.< W> q.< .<7` q7---u.<lQ'q7---u..<e AY.<W>.<l-.=..<e AY.<W>q.<.< 7`q7---q.< .<7`q7---q.<w!Iީ7 WW7 HUNDRED WW7 WWܶ6"Q 7 HUNDRED WW7 WWܶ6"Q37 WWܶ6"Q?ܶ6"OO7ZERO7 7ONE7TWO7THREE7FOUR7FIVE7SIX7SEVEN7EIGHT7NINE7 7TEN7TWENTY7THIRTY7FORTY7FI7ENTER THE DATE77|񹀫7ENTER THE SOURCE7.T<-7|7ENTER THE AMOUNT OF DEPOSIT7.T<07|T.7ENTER THE DEPOSIT TYPE CODE77|7IS THIS CORRECT? (Y/N)z7`7N`޸Ww.鲈֊ I,I,Iq7W7!I I,Iq77E I,I,Iqq)ȃ7 ƃ7 'ʃqqqq7܃7 DOLLARS"!3e636m99tq7-wq7 փqqq7 ؃eGҳXEXISTS.W7! DO YOU WANT TO REPLACE IT? (Y/N)Wz7`7N`7Ya7OKq7S0:W| FILE NAME CHKREG V7!I I,I,I70:W7,S,RW I,I,I,SH.!I}`$ltH}Y7/WWw.0=.0=.0=.0=.0= .0=.0= .0=lKlNKNmKK-کΪ.H7X>}Y~~Q~TQbnZQnZTnZ77,7,7,"twl-کΪnĩ7 LAST TR.#`"Q̽`w!Iz7`Խ77-"NtWwc|ENTER FILENAME7.RELW I,I,I,S}B~ffR_7SI|RECORD NO. (FROM,TO) ~~ZSZSZ2yTii#Tml77REC#m7䃄. "tq.<w"tq.<w!I7CHKREG7,S,WW I,I,I,SH.8!Iqtq.<.<7 `.<7`Dxq7---q.<q.<q.<.< 7`q7---.< lQѷ.< l-. < l-Sn֩l+.<l-Snw7( ---------------------------------------Wql-کΪ֩e AYW֩l-کΪe AYWq7TOTAL PAYMENTS:e Aփq7STARTING BALANCE:e Aq7TOTAL DEPOSITS:e Aq7E 71FOR LISTINGS WHERE YOU HAVE NO DATA SIMPLY ENTERW7--WW7AND HIT A CARRIAGE RETURNW7TO ABORT NOW, PRESS ^7$TO ABORT AFTER DATA ENTRY, PRESS _7PRESS ANY KEY TO CONTINUEz7`dҩ7^`"t7 PAYMENTS, LIS YOU ARE READY TO GO YOUR DATABASE PROGRAM?ɩ77INOTE: ANY DATA JUST ENTERED WILL BE LOST UNLESS FILES HAVE BEEN UPDATED!ɩ776HAVE YOU CREATED YOUR 'DBADD' FILE ON THIS DISK? (Y/N)z7`©7N`7Ya©7N`7Ya ,I77777777777777776I,I7PRESS ANY KEY TO ABORT7 ɼSI| DBADDQˀ꿷`c70:W7,S,RW I,I,I,SH.!I7yziLREG' FILEW77 0:CHKREG,S,R I,I,I,SH.!I}Ā$ltH}.H>}&.H>.H<7---`=.H7>.H.H<7 V>}X.H>}e.H>}r.H> .H< 7---`.H7> }.H>.H<7---`.H7>}.!I7CHK/DEP7,S,WW I,I,I,SH.!I"tq.<w"tq.<w!I7 7READING CHKREG FILE77 0:CHKREG,S,R I,I,I,SH.x!I}̀$ltH}.H>}.HER WILL DESTROY7! ANY DATA YOU HAVE JUST ENTERED.W7%IF FILES ARE NOT UPDATED, DO SO FIRST77& WRITE REGISTER RETURN TO MENUz7`NƩ7Wa7W`no71234.507&ENTER LAST MONTH'S ENDING BALANCE7 77,S,WW I,I,I,SH.!I$ltHq.H<q.H<q.H<q.H<.H< lQ%.H< l-.H= .H.H< e AY.H< W> q.H< .H<lQg.H<l-.H=.H.H<e AY.H<W>q.H<q.H< q.H<.<e AX.<W>.<7--`.7 >.<eH..<7 V>.<eH..<.<e AYW>q.<.<.<q.<.< .<l+.< l-m+.<l-Snl-کΪe AYWe AYWqe Al+.ATE FILE OF ROUTINE MONTHLY PAYMENTS & DEPOSITS7@TO REPLACE THE SAMPLE FILE ON THE DISK WITH YOUR OWN PERSONAL7CROUTINE MONTHLY PAYMENTS AND DEPOSITS, INPUT THE DATA AS REQUESTED.73YOU MUST ENTER 19 PAYMENT AND 21 DEPOSIT LISTINGS.STER 7* 5- CREATE OR EDIT 'ROUTINE DATA' FILE 7 6- RETURN TO CHECKWRITER77PRESS Q TO EXIT PROGRAMz7`<7Q`é71\76^D<76`.NCv'.<l)/⽘Îl)/⽀Ŏ777ARE YOU SURENDING BALANCE:e A77q!I-e2T$(m)7|= ARE YOU USING AN RGBI MONITOR Y<ʀ7N`ʩ7Ya<77777777777777776I©77;NOW FOLLOW YOUR NORMAL LOADING PROCESS FOR YOUR DATABASEs77HAVE YOU UPDATED FILES? (Y/N)z7`2é7N`7Ya27%PRESS TO RESTART THE PROGRAM7BANK0:SYS56139!Is77READING 'CHK!I̩7Wb**" N".**"M*"NC".*7 `˄`S`cScc"Q#̩7!----------------------------䃄c"QC̿cz7aC!I`"Q.Tc}d̀lM̩# twz7`̿`i@K̊H> .H< 7---`.H7> }.H>.H<7---`.H7>w!I$m$!.ƊyziL7 `,ŶS ..<W> ʼnt.<.<.<.<.< .<.< .<ws77ރ77&PRINTING A CHECK REGIST>.H<7---`.H7>}.H>}.H>}.H> .H< 7---`.H7> }.H>.H<7---`.H7>}&.H> .H< 7---`=.H7> }I.H>.H<7---``.H7>w!I7 7WRITING 'DBADD' FILE77DBADD|ƀl-کΪe AXW I,Iq77@q!7CHECK REGISTERqq7 CHECK DATEq7 TR # TRANSACTION7PAYMENTq7 DEPOSIT BALANCEq$t.< e H..< e AX.< W> .<eH. w!Iީ7 ROUTINE DATA7,S,RW I,I,I,SH.!IH"t}.>.>!.>$.>'.>*w"t}>.>-.>0.>6w!I74YOU MUST ENTER YOUR ROUTINE CHECK & DEPOSIT DATASI775CRE o kl mn` HH hhL Lhi;hi< l; H;< Hhe;;*7w"t7 DEPOSIT LISTING #7$ ENTER SOURCE NAME - 30 CHAR MAX7 .<-7|2.>-7 ENTER AMOUNT OF DEPOSIT7 .<07|k.>07 CHART OF ACCOUNTS CODE7 .<6BASIC 128 V1.00, 1985 T. HELBIG$q8HO;w"tq.<-q.<0q.<6w!I" t.<7--`.7>.!.<$7--` .7>$.<'7--`".7>'.<*7--`7.7>*w"t.<-7--`U.7>-.<07--`j.7>0.<67--`.7>6w I,Ifce`efc`hL{ޥcɐH-;<hL7L GȱH` IȱJ` GȥH`GIHJ`cGeHf`jGlHm` L Lߦ}GH ʆ}`} HG}`} JI}` 0L HG` HG` JI` JI`!I!I77ATHIS PROGRAM IS BEING DISTRIBUTED ON A 'SHAREWARE' BASIS THROUGH7>BULLETIN BOARDS IN THE MIDWEST AND OTHERS AROUND THE COUNTRY.7?IF YOU THINK THIS PROGRAM IS OF VALUE TO YOU, PLEASE MAIL YOUR7CONTRIBUTION TO TH` eIfJ`}8+}c tݦ}cgh %d f e`L}c h dgqe fi}`}j o knl mi}` Lo L{ L{L?hi;hi< ?l; c h de fgq`Lohi;hi< ol; j  7'128 CHK/REG 2.6' PRG;77'128 CHKWR DOCS' SEQ; 7'UPDATE' SEQ;!7'CHK/DEP' SEQ;77'ROUTINE DATA' SEQ7PRESS ANY KEY TO CONTINUEz7`*ډ7 CHECK ENTRIES (7DEPOSIT ENTRIES7"t.<#.<-w7eJH`GIHJG&HG&HLmYFHfG eIeJI&JYGH`Z mYې$%$KȥG8$ȥH$Ȑ)L$ȅI[$ȅJ\Z @ߤZ8I[J\ mK`Gq$GȥHq$Hȱ$`8IGGJHH`JEHYJ 8IIJJH Z[&Z&[8ZG[HZ[&I&JIGJHYTING #7% ENTER PAYEE'S NAME - 30 CHAR MAX7 .<7|.>7 ENTER MONTHLY PAYMENT7 .!7 ENTER PURPOSE/ACC'T NO.7 .<$7|U.>$7 CHART OF ACCOUNTS CODE7 .<'7|.>'7 DU 0@PV`hr>o{%+[އ167w76 READY TO WRITE FILE?z7`ԩ7N`Щ7_`7Y`Պ7 ROUTINE DATA7,S,WW I,I,I,SH.R!I"tq.<q.=: 808`GH;<hL7H ;<h 7H ;<h 7GH <`(0 ;`@`i^ai_ ͅ M";#<}L`=i== LH ;V<h 7=>L Lhi;hi< l; Lo~  =>" ", L  L(8= H=C>D` R MH;V<hL7~ $%H ; ȱ; ;i;<`LS6g H٦G` ` ) C;D< 7Lo C;D< @ߦIʊ 7Lo $%Hy;<h 7L H;<hL7L0hi;hi< 0l;H} Lv ~o ;=<>fK}7L oEhpcH';<h 7L`z(z {|H;<hL7H G LHHJJJJ h) ii0`H?Gʊ)7H;J<h 7&KKȢ K)(KLHLHT;Z<hL7HGJjj` 00' 0"' 0 0 HLTLL|hi;hi< |l; FLWLhi;hi< l; ( L KG`HG ;ȱ;`K e;;`Lhi;hi< l;;"<#=>, M  ;<`LLhi;hi< l;GH;<h 7 )ĭ,=>LL(hi;hi< (l;  H";<h 7 L(,LLYȱZ8ȥ`a8``L @ߥJIGyH|GH]`Lhi;hi< l; G0 vY,o#[ e dH6;<h 7] `H ;V<hL7H;V<hL7HQ;<hL7v|y }  `; <jHT;<hL78fmel`PI ``cjeelfempfe` oEhpcH;<h 7L cjxeYfZIiYIiZ0^l^m_Ii^Ii_0DKFZfY e^e_p+^&_0KfEm0ef`IieIif`YZ oEhpcH!;<h ;U<hL7H;U<hL78$8H;<h 7 G( `H;V<h 78H;<h 78 IiLhi;hi< l; }K;< ʩ ʆ}K;<`Lhh l; K0L}; <=`LLhi;hi< Ll; GH` ;<`G GH`GH`LHGLHG 853e64fc8USۅeVTۅfcfdcfghq`GHt;<h 7GH`8H;<h 7GH` GH`H;z<h 7`r_$H͍;<h 7LH HD;<h 7< ʆ}ȅ;ȅ<iiLALLhi;hi< l;} <;}`LGHHn;<hL7 ᪥GH`L ᪵GH` @ߥHJLGLIK 0ߥGHH>;l<hL7 ' [ۅ; \ۅ< H;  L GH;<hL7HX;V<hL7Lhi;hi< l; ;iȥ %$> . eGG` {~{|~` {) G eGGȱ{)eGGH` 8C H?ȩȩȩ` 8~ʽ%ʽ$ʽ~@?$`H5^6_95:68^_h`85Y6Z8    O K,? L,: 08`  L@/ 0: " " ,:  "i"!""!! " M , M ȭ  M M  " " " X      "` $%$GH`QۅRۅ8SKTK`~~`~ʽʽʽ~`^6_95:68^_h`85Y6Z8  !!!+ `, S"* / /    |"z" " * /   / ./ * , , 8Ly" Ͱ   `͌S" LN" @""%  "- - 9"$8% (`"& eWWXWȌ& `L" E$ whhɇɈm8HH L7H-GL: )HfGgL L,,,,, ,, , ,,, ,,,lLZ\~ʆ[ʆY~HGʆcH;<h 7Lo GH` $%H;T<hL7L $%HM; ? 8$> > %? ? Wm> > Xm? ? kPN(H 5 +! +! $  ¸ ¸- J eK e8 ¸ ¸> ? LV } IT ANY KEY TO CREATE THE FILES N UNIT 8,0 OR TO ABORT `?SPUR?ERSE?QGRL0@ 8; KH< LH=YY85Z6YZYY` ~$%L$` { GcȄqdh d` H t 0h { h %ddcG` G&H GGGH` GHHH 0ߥ G&H hGhG !  "jjjj. 4) "." .# .$ n$ n# n" . . .! o в `,: 0`L8`  PSU` .     !  ` Ԍ . L|  `STOPACSQUEECRUNCSQUASCRU}V ~Xʈa~Y ZZYe\ ]]`LHc~G`~HJ8G}G`H&G"~}I8}`L @ߍG~HHJI∘}.$ #     "#" ` #8   '  $       0  ` $ $) @ $ ) P $ ˩"#"   ` $`   b$    L# ". . 8 1hh   '[ȱ\ȥ[KLZ[K`I8e~L8K`eYeZԥ`L8556[5\ȑ585K56K5 6!55\[eY[ȱ[eZ[L~ʽX~Y\\ Z] Y\```~ʆ~ M= h< h; @ hh$0 ?  ? , @ `@B'd xWHh`@ 0  @ `W$X: Ս.)  HL : W$X 5P $0I +!?,' 0 $03L  & "F i;Ȣ i<  7}~ L=i;>i<`85364 _` }HA;d<h 7}L~ ɪSR?IT(Lhhh~f~g )(L(L hhh}}} }}} hhh} 0}hhNC } UN- 0 0 H) h }ING...`y!{! !,' 0>(  !Lt!  " " " ! !,' `   ' `   `H) M) m   h`L!`ˍ!!!hhLD!+ ۍ!!!L!!!!!+ ( + (<h 7L0101v`L|01 L L   `v@.`v.`H G L ?REDO FROM START ~ȱȱ~` Y85ȱZ6YZYȩY~ʆ~Z   ". . ( "8` L$` 8` ``   ` `  P $ @ $ ` $  `$) Lw) `LtH        h`hl `$%H ~~$h`H~ ~$% $$h`KaHaHI8e568^_834K KaLLa^^5_6ha`~KʽK~d&4B=kDR 3@rh0]:XFXE;6{T)o \5a5)QV C=V6axpRqD ‡[ KG\> b 悘+(?>&ЃP\1*C&PM2bhY I , (tRWRE&JHq8P[r)2Q+p(PC> ZAp5DsRFRi& SWŸ6;PCJAAbt5ųvh*#:rN&V$1 ( 0%A&P&3 PCE%5@&;3\54ejv<EpGv; AiSX+BC@:X4[uX+@C%)[* -JW [)ҁzrcG$"Xh4Ʀd^s(*(8ٔڬDJ4S]ħ"=f x=T)4٭ڣ=;}?T۷9@G;W-`0 (;L'0v#v=8*T{F)`860*t#+vn `` 0%?|=F4j9 Ԟ!P LISTMAKER128!᠀ xQ JpT@" C2I^@52IrLN& H$G qXh#p0(@1*9Ц(qJ9^5<)&0J6&Ft@А넀BKrT4*Ef )dR_8R24aĆ3 2 4e1eɓ#R>-%T :M#L7"ȣ @6m$ 4 0Z"a0) 7 y#znZ`rB]E0AH2^SZ)H'8H4*q8 @dT4#}QFR7iz&j2(%̸jWH%zj7i/]pK-.2 y*PšC$SP¶8@OFyWDlEOd6 !Xb"{W0B̊0@I,p;d{I&X leT1I.IrS3IB3@8&1 |$*$ßc&`nbĨ`l95b~ Й!'~8 -:^buN|&;`"&#J?7%p=z0-P:k(*B26 CSwq 볩f` 4P+;w幺k6f6Y/('`]UB-7 ˸9B;0Pǹ@'{*oϨtu` |: Ht3@-0Z 3C0`BSCy7&?XoS'` 0 Q#4 _P`;o6  e-; V0-" dij -Rb9N#'K) " aA *f"7"49@$az$]g5`xt]@F(HԬB2㐃 @H!F1bXo8!U,DOj, hRE%7< BQ P ()ƺ͗<O(Eb480r' x8s (PB!\S2<%mRT Ѓ _uӒӫ3=@*tH1&4@ՠ)JT 5 ,'0ua@,kA@qܞv P@PҗV h=Q yC9P*{00qC+P * % 8%sAǾ1A'LWBu%DW+h\'Q4W#w95TWפɕyC8  HBJJ@'0B`0x (PA ]Z#Fi#4 ctFZ,Ȃ&d\ڃ 84 y\bpA 7INOq A͠٧!:ftb#0`1L]ރ;>TȘ0`l%,v,͆XoŊ@;0 `< 0 6`AK*v+#NY pxPAi( %x6pU,4CSp C46 > H"BP,>psP p U#᠆b2jk(4pA!4BQTy>_41Lqp?J `(@14ae]CBPsEV S LISTMKR.DOX! &l`! 2(؄yT%G ! F2$)S!K4QJ1!? F K\2d͔1̒1C6lx"` KvL0e’ YcQ"{>Ɯ2Ra9 ,V:g˶M%\9iטV 1˔]36-Z~404Gޱ%D Zra٦U\6LgT]: i_ *h#UDֽX,N18x6;v^Qak- :5 :vejvuuX_"XbE-:.)]aVf}jp e+~kimMK>nS'juJ觟!a0I'^Pbaj_źIOEab۫/I-}HNi@ TidD8p6`E>Ꚋ"!GBQxg3 1U)-ΗA-FX+k+5wW|CH:OMSC,9PLd7jʕh٠EγI*l5v,X A- d-l1Spb@$?0*sNf*œ5J kݛ0 |O Lt.C5 Mj&7^P*OreQ`\Oqj</& "(љ)%X%#ޔEp{lk* XS, K b@p#N0.TClCO) 9D 3xO/8Hb(/,N/'0&` Z`r>@ HB<X3P鯎ͅ΋|0`. N]m.$ 0`DGK启' &LqH (,7ްK'fbr ]aX rQi*J%'S hf9Q 9 @A fjliPU` m S;ùXpU'A0C>  ;$V ~?AX b dV]!&pyXJR8)4P(p@`y24P'ֱf9!4(Px3"_e-c(BC:p@`YfT%?:Z771'Oy?#5a2BCp2T\, !p `^"%P)-b"6(i; =2 )ipb(p`A& `C0;u6PP$6POSPO6P$*pF:S|W:*QR uc;9120)0u95 > @0=du$ # 3.ρwԛ?hGΰo}=C&c ApºƭJbʌ++9'¶9V!Nxk58n9+ƚ*"i$bn)ƊFm] bfhEHJ,6ro "$@qڸXI"xXqT (4jL3.5l5ak.9i,QFdJ*3 F"Z2UDbK& ^,g E.*ҕ4A۠3+ќhcc$qQ8clR8KC'򎻢`KNS a{QJ~tix(Lg?:qj̃[ҳ|$7Ph:TiByD"”ǜнFisLq sAP0  JbI+((~sUDNJ.XD4Z  _ud )2SRd"+J$"3QSk KsZʋX˓hm.ĂX*j,,h+h8oBUJR^ա8mP)(\L IVTzON$"9M#,ec)H5Fp- BĨ09"2dP7RwEVֶV ʈbi(AP@2>1`[z{ƇD mu(z(@ `j{dgP+fz dfkdvRe^bdOyfyVZ`dmփB>ftg;P66BA<1.>89B^d^B*PFfvA(B`6+LQrS&Ҫ<'+D4x!S^S27ÉQ^AaV  CP}Ml%p|_!"#1,p|?3,)ώ/8'/&)>1rlB'p`.pil:Fc,>?)ݿ l)p,>l$0i)K&^,>lz& *3 `"@ &lh]N`<ȣl/p,>l!p,>l gSTESTFILE!Di$K Q! ,ATRB@dp`Bd#cĄ#&!$L%$\L`IF"1ƘE`|c$Oa'H-!2Ig@0Q9/*$ǤLlP-HGA(D!XꭂghBޕ &ӿ X䈄 /b oee맦OH Bj!gg 檖fcUZdd?8k!k)hT)KDcjm ]r(j 5QnY v8/I6sJ:)*Bg/禨*)a HvY"7F11Ѧ0bF]K?JbvzbJ'Hei9WZWe;d+!Ypj 꺾u)QkΆ$%/Yh=6 Z;ئ hs `r,N *@Pɹ}jí&iKyf%}dDL^ 'Aiֵ  &pe2` K}fk [@&pHƘ+S|c}ك P)e {!ڑMd|ڡe,|rXc4UUZLJa-Ԡ< q{`e'`7pb4H ;`  qR#-Hq 斠 H=1.۷ʃ23@5\p]5_#CS°9h2 $\ ^k>isM^7`6ϹD‚@ };8cGB:J (c4Tg H3/ߴ+͉zC*C`oI (p,>l pCl&"N pC`ξt)ȃ< N$7Q<@9pC[P#pC`C! Q6ȆqpC`Qr#g+pC`ۂk9n9:@P*`vl,6Pl6"뭂"4H6S>S;+3Qf-`C0W:u9)+QSR0PSQSC"!( *********************************O* LISTMAKER128 *v* BY VICTOR SINGLETON *(* 20 JANUARY 1990 *2* QLINK - PEREGRINE *<* BASIC 7.0 - C128 + DRIVE + *F* PRINTER -!OR #"DS$""0:4* SUB- CHECK KEYS AND JOYSTICK *K::A$:A$"" _:JS(2): JS: (JS 128) A$(13)::* FIRE *:JS(((JS 15)1)2): JS 290,320,300,310"::A$(145)::* UP *,::A$(17)::* DOWN * 6}zg?/}+_}_,V! ------" - MAIN ROUTINES -*" -----------------E"* CREATE A LISTFILE *w""********** CREATE A LISTFILE************"""LISTFILE NAME NEWFILE";F$:EA0:"CLEARING ARRAYS""440:* CLEAR ARRAYS *"6080:* EDIT THE FILE ! $ EF0 % I399%EAI:2:I400`%JI399:ML$(J,0)SS$:ML$(J,1)D$:J:* CLEAR REST OF ARRAY *f%|%* SELECT ITEMS *%SP0:NH0%140:* SET UP PAGE *%"[RET]=SELECT COM/ L=LOAD DATA, X=EXIT"%R1:C0:15:210&! 0(470:SP05330: SPSP20:5330:* PREV. PAGE *T(470:SP3805330: SPSP20:5330:* NEXT PAGE *m(* LOAD SELECTIONS *v(470("****** LOAD SELECTIONS FROM FILE *******"("DIRECTORY N";R$: R$"N" 410 )"FILENAME";N$:! JOYSTICK PORT 2 *9P*********************************CZ6730`d ----------------------}n - SECONDARY ROUTINES -x ----------------------* SUB- SET UP PAGE *"*"F$"* PAGE #";(SP20) ISPSP19:":";: NH0 ML$(I,! ::A$(157)::* LEFT *, @::A$(29)::* RIGHT *2 J8 TL ^* SUB- INPUT *} h15:20371:* JUMP TO BASIC INPUT ROUTINE * r B512 771: (B) 0 :* FIND END OF INPUT $ * |1:P,B512:* LENGTH OF INPUT STRING * 15: !!THIS IS YOUR LIST.":J0;*0I0EA1: ML$(I,1)"S" " "ML$(I,0):L$(J)ML$(I,0):JJ1P*::(235)245710*D::"PRESS ANY KEY FOR MORE";:R$:208,0:"";*NI:CTJ*X"DO YOU WISH TO EDIT THE LIST FURTHER?":" (Y/N) N";R$*bR$"N"5320!DATA *"#* LOAD A LISTFILE *I#"*********** LOAD A LISTFILE ************"q#"DIRECTORY N";R$:R$"N"410#"LISTFILE NAME";F$# EA0:"CLEARING ARRAYS"#440:* CLEAR ARRAYS *$"LOADING "F$:2,8,2,"0:"F$",S,R":15:2!52591:* TURN ON CURSOR */&240:* CHECK KEYBOARD OR JOYSTICK */G՚z ܫG.!"LOADING...":2,8,2,"0:"N$",S,R") DS I): 222:"TRY AGAIN Y";R$:2: R$"Y" U): 5550\)d)I0):#2,ML$(I,1):EFST: DS 222:2: 3:): II1: EF ) I399)2:5330)470:A$(189)5330)&"!1)"S" "";ML$(I,0):IJ"[DN]=NEXT ITEM :[UP]=PREVIOUS ITEM"y"[RT]=NEXTPAGE :[LT]=PREVIOUS PAGE"* SUB- PRINT AT * 1,C,R,":"* SUB- DISK ERROR *7:1,40000,30,2,39500,600,1,0"DISK ERR!* READ DIRECTORY *;!"DIRECTORY":"USE NO SCROLL TO PAUSE":Y!:"PRESS ANY KEY":R$:t!* SUB- CLEAR ARRAYS *! I0399:ML$(I,0)SS$:ML$(I,1)D$:L$SS$:I!!* SUB- TURN OFF CURSOR *!52639,1:":";!! -----------"+l"SAVE THE SELECTIONS TO DISK?":" (Y/N) N";R$,+v R$"N" 5880@+"FILENAME";N$d+3,8,3,"0:"N$",S,W": DS w+: DS63 +:: 222:"FILE EXISTS":"DO YOU WISH TO REPLACE IT (Y/N)";R$+:: R$"N" 3:5760+:: 3:!54,2:* SET STRINGTHING FOR FILE #2 *#$( DS D$2: 222:"TRY AGAIN Y";R$Y$<: 2:R$"Y" e$F: 5100l$Kt$PI0$Z:5136:EFST:L(5120):ML$(I,0)(Z$,L):* SYS TO STRINGTHING *$d DS $n: 222:2: 3:$x$II1! ITEM *$'6470:RR120(R1):210:5360:* PREV. ITEM *D'@470:ISPR1:IEAEAI1f'J ML$(I,1)D$ :* SELECT *'T: 360:ML$(I,0)B$NU$:":"ML$(I,0):ML$(I,1)S$'^: 'h: ML$(I,1)D$ :ML$(I,0):* DESELECT *'r'|210:536"(Z$)255 : ABOVE SETS INPUT STRING TO 255 CHARS7hJ5136:CK0::=7r P: P1 : J,P:JJ1:CKCKP:`7| CK7437 :* DATA ERROR *7 0,1:0,1:4,14:UL$(164):* UL$ = UNDERLINE *7CO$(58):* CO$ = COMMA *8SP$" " 3. SELECT ITEMS FROM *":7)"* A LISTFILE *"%:&7)"* *"I:07)"* 4. EDIT A LISTFILE *"m::7)"* *":D7)"* 5. READ DIRECTORY *":N7)"* *":X7)"* 6"(N$):5770,: : 222:3: 3:5760,(,"SAVING SELECTIONS"D, I0EA1:3,ML$(I,1);i,: DS 222:3:(N$): 3:5740s,I:3,* PRINT LIST *,"*********** PRINT YOUR LIST ************","DATE";DT$, "HEADING";HD$" NSERT, X=EXIT ";.210/52591:* TURN ON CURSOR *>/240:* CHECK KEYBOARD OR JOYSTICK *y/S(A$(17))2(A$(145))3(A$(13))4(A$(157))/SS5(A$(29))6(A$(172))7(A$(162))/ S 6180,6190,6200/6220/$470:R" NUMBER OF LINES TO DELETE";NL:(INL)EA6350:2"THAT EXTENDS BEYOND THE END OF THE LIST":6330`2JINLEA1:ML$(JNL,0)ML$(J,0)|2ML$(JNL,1)ML$(J,1):J2JEANLEA1:ML$(J,0)SS$:ML$(J,1)D$:J2EAEANL26090352639,1:"" DS 4: DS63 *5:: 222:"FILE EXISTS":"DO YOU WISH TO REPLACE IT (Y/N)";R$D5:: R$"N" 3:6500[5:: 3: (F$):6520~5: : 222:3:(F$): 3:651055"CREATING LISTFILE"5I0EA15:ML$(I,0)NU$ ML$(I,0)" ":NU$(0):SS$" ":S$"S":D$"D"8 ML$(399,1),L$(399)^8B$((73)256(74)):P(B$):* INITIALLIZE INPUT ROUTINE *81:P1,0:P2,2:15:* POINT B$ TO INPUT BUFFER *8* MAIN MENU *8:"*****LISTMAKER: " . EXIT PROGRAM *":b7)"* *"!;l7)"* *"E;v7)"* *"l;7)"*************************";:14)"CHOOSE ONE!"; 1;14)(SP$,12)"";M$:M$"0" M$"7""-"PRESS ANY KEY WHEN PRINTER IS READY!":208,0- R$3-*4,4:PN1:RMCT:J0J-44,(13);HD$;(13)j->4,DT$;" PAGE #";PN;(13)-HRM56IP56:5980-RIPRM-\SK((IP1)2)-fI1SK-p4,UL$;UL$;CO$;(L$(J)SP$,38);-z JSKC"R120(R20):6110:* NEXT ITEM *(0.470:RR120(R1):6110:* PREV. ITEM *S08ISPR1:IEAEAI1:* INPUT ITEM *w0B470:360:ML$(I,0)B$NU$:61100L S 6460,6460,6460,6240,6260,6280,64000V64600`SP061200j470:SPSP20:R1:C0"INSERT LINES MODE":ISPR1:* INSERT LINES *73 "NUMBER OF LINES TO INSERT";NL:NLEA4006430l3"THAT GIVES MORE LINES THAN WILL FIT!":64103JEA1I1:ML$(JNL,0)ML$(J,0):ML$(J,0)SS$3(ML$(JNL,1)ML$(J,1):ML$(J,1)D$:J32EAE"(160)ML$(I,0)(32)5:3,ML$(I,0)6: DS 222:3:(F$):65106I 63&6":6,* INITIALIZE *T66::* STRINGTHING128 *n6@::* BY JEFF MAY *6JZ$"*****************": (17 CHARS)6TZ$Z$Z$Z$Z$Z$:Z$Z$Z$Z$:TEMP(1)6^ "BY VICTOR SINGLETON*****"97)"********MAIN*MENU********")97)"* *"M97)"* 1. CREATE A LISTFILE *"q97)"* *"97)"* 2. LOAD A LISTFILE *"97)"* *"97)"*# ; 0.5:; (M$) 5040,5100,5320,6080,410< M$"6" <)<* ML FOR STRINGTHING128 *I< 160,0,140,0,20,166,254,32m< 198,255,32,228,255,201,13,240< 32,72,169,255,133,252,169,253< 133,253,169,252,141,185,2,104<  16"T 4,(13):6040.4,UL$;UL$;CO$;(L$(JSK),38);(13).JJ16.I:RMRMIP:JJSK[. RM0 PNPN1:4,(12);:5940n.4,(12);:4:.* EDIT A LISTFILE *.SP0:NH1:R1:C0:15.140:* SET UP PAGE *." COM/ D=DELETE, I=I"INSERT LINES MODE":ISPR1:* INSERT LINES *73 "NUMBER OF LINES TO INSERT";NL:NLEA4006430l3"THAT GIVES MORE LINES THAN WILL FIT!":64103JEA1I1:ML$(JNL,0)ML$(J,0):ML$(J,0)SS$3(ML$(JNL,1)ML$(J,1):ML$(J,1)D$:J32EAE"ANL:60903<470:A$(189)60904F* SAVE LIST *I4P"DO YOU WISH TO SAVE THIS LIST TO DISK?":" (Y/N) Y";R$]4Z R$"Y" 66904d"DIRECTORY N";R$:R$"N"4104n"LISTFILE NAME "F$"":13):F$4x3,8,3,"0:"F$",S,W"4 `@> 1A~@ |||<T|<<xe]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |aLFx |]|F /`"8| /``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|%F F decided to use transfer mode 4& HSSjw>w>,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|!x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l | (|||>V| @@x| @A|?]|-| x>Ґ|Ґ|u|xu|?x $| ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V| x1F`>J?a|@= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE: I 0Z0!wp|TY6ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor