9è * * * LGK PHILEMASTER V1.5 * * *ƒò ===================================================================ü : DATA BASE PROGRAM FOR THE C128 COMPUTER (80 COLUMN DISPLAY) - : : 1571 DISK DRIVE - OKIDATA 120 (COMMODORE COMPATIBLE) PRINTER :g : :± : BASED ON A PROGRAM FROM 'TRANSACTOR' - ISSUE 5, VOL.4 - PAGE 41 :û : :E$ : VERSION 1.5 - 1/3/88 :. ===================================================================•8:ÇB *** MAKE SURE COMPUTER IS IN 80 COLUMN MODEÍL:6V‹Ì(N)³±5§™Ç(15)"“SET MONITOR SWITCH FOR 80 COLUMN DISPLAY’": ž49194:™Ç(7):þ1:™Ç(7):þ1:™Ç(7):þ3B`™Ç(142)Hj:^t *** TRAP ERRORSd~:qˆþ%:×8200w’:Ëœç5,7:ç6,16:™"“ * * * LGK PHILEMASTER - VERSION 1.5 * * *"! ¦™" DO YOU WANT UPPERCASE/GRAPHIC OR LOWERCASE/UPPERCASE CHARACTERS (U/L/P) ?"s °™" NOTE: PREVIOUS VERSIONS OF PHILEMASTER (V1.4 AND LOWER) USED UPPERCASE"Ã º™" CHARACTERS. IF YOU WANT TO USE THIS VERSION (V1.5) TO LOAD DATA"!Ä™" FILES CREATED WITH PREVIOUS VERSIONS YOU MUST ENTER 'P'."!Î1340&!Ø‹C$²"P"§UL²07!â‹C$²"U"§UL²1H!ì‹C$²"L"§UL²2j!ö‹C$³±"P"¯C$³±"U"¯C$³±"L"‰1180Ò!™" DO YOU WANT INFORMATION ABOUT "Ç(34)"PHILEMASTER V1.5"Ç(34)" (Y/N) ? ";:1340:™C$:‹C$²"Y"‰9610ä! ‹C$³±"N"‰1280ø!ç5,4:ç6,1:‰1930þ!:,"( *** CLEAR KEYBOARD BUFFER AND GETKEY C$2"2:J"<—208,0:C$²"":¡ùC$:ŽP"F:m"P *** DISK ERROR ROUTINEs"Z:¢"d‹DS±19§1650:™Ç(7)" DISK ERROR ’ "DS$Ô"n‹DS±19¯T1²0§™" PLEASE RE-RUN THE PROGRAM":€ã"x‹DS±19§þ6é"‚Ž#ŒX²0¤15: X:‚:þ:þ:Ž#–:V# *** COLOR ROUTINES (SOME NOT USED BUT ALL ARE LISTED FOR FUTURE UPDATE)\#ª:g#´™"":Žr#¾™"":Ž}#È™"":Žˆ#Ò™"Ÿ":Ž“#Ü™"œ":Žž#æ™"":Ž©#ð™"":Ž´#ú™"ž":Ž¿#™"":ŽÊ#™"•":ŽÕ#™"–":Žà#"™"—":Žë#,™"˜":Žö#6™"™":Ž$@™"š":Ž$J™"›":Ž$T:.$^ *** CLEAR ALL WINDOWS4$h:H$rþ0,0,79,24,1:ŽN$|:u$† *** WINDOW SPECIFICATION ROUTINE{$:—$šX1²18:Y1²2:X2²59:Y2²2:Ž²$¤X1²4:Y1²2:X2²74:Y2²2:ŽÎ$®X1²20:Y1²2:X2²57:Y2²6:Žì$¸X1²21:Y1²14:X2²57:Y2²18:Ž %ÂX1²21:Y1²18:X2²57:Y2²18:Ž(%ÌX1²16:Y1²14:X2²62:Y2²14:ŽF%ÖX1²20:Y1²12:X2²57:Y2²21:Žc%àX1²26:Y1²1:X2²52:Y2²23:Ž€%êX1²20:Y1²9:X2²57:Y2²22:Žœ%ôX1²2:Y1²5:X2²77:Y2²23:Ž¢%þ:Â% *** WINDOW BORDER ROUTINEÈ%:Ö%™Ç(27)"M"ð%&þX1«1,Y1«1,X2ª1,Y2ª1&0XX²Î (0):YY²Î (1)*&:™"Ï";:II²1¤(YY«1):™"·";:‚:™"Ð"J&DII²1¤(XX«1):™"´";£YY)"ª":‚n&N™"Ì";:II²1¤(YY«1):™"¯";:‚:™"º"€&XþX1,Y1,X2,Y2†&bŽŒ&l:®&v *** DEFINE STRING VARIABLES´&€:à&ŠM1$²" PRESS ANY KEY ’ TO CONTINUE"'”M2$²" PRESS M ’ TO RETURN TO MENU"9'žM3$²" INSERT PHILEMASTER DATA DISK"?'¨:V'² *** MENU HEADING\'¼:m'ÆCR$²Ç(13): 1'Ð1490:1650:1710:1470:1820¡'Ú™Ç(7)Ç(27)"R"Ì'ä™" "ö'î™" P H I L E M A S T E R " (ø™" "J(™" FROM LARRY G. KIRGAN "t(™" "ƒ(‹M1²1‰2940’( ‹M1²2‰4330¨(*1750:1530:1820×(4þ%:™" * * * INITIALIZE RECORD FILE * * *")>™:™:™" PRESS C ’ TO CREATE A NEW FILE"5)H™:™" PRESS L ’ TO LOAD AN EXISTING FILE"c)R™:™" PRESS 0 ’ TO VIEW DISK DIRECTORY"o)\Ÿ1,8,15|)f1340:þ%)p‹C$²"C"‰2390ž)z‹C$²"L"‰2210ç)„‹C$²"0"§1650:1490:1760:1820:™Ç(27)"L":î:1380:‹DS±19§1420:‰2000"*Ž‹C$²"0"§™" PRESS ANY KEY ’ FOR MENU": 1:1340:‰2000,*˜‰2150b*¢1500:è:™" * * LOAD AN EXISTING RECORD FILE * *"¥*¬™" WHAT IS THE NAME OF THE FILE":™:…" TO LOAD ";FI$Í*¶‹È(FI$,3)²"PM-"§FI$²É(FI$,Ã(FI$)«3)ê*À‹Ã(FI$)±13§FI$²È(FI$,13)+Êþ#2:þ #2,"PM-"ª(FI$)+Ô1380+Þ‹UL³±0§„2,UL-+è„2,N$,NF$;+òNF²Å(NF$)H+ü†FD$(NF)X+ I²1¤Å(NF$)f+ „2,FD$(I)m+ ‚I|+$ þ#2:1380†+. ‰2740Œ+8 :¦+B *** CREATE NEW FILE¬+L :à+V 1500:è:™" * * * CREATE A RECORD FILE * * *"%,` ™" WHAT IS THE NAME TO USE FOR":™:…" THIS FILE ";FI$9,j ‹FI$²""§è:‰2400V,t ‹Ã(FI$)±13§FI$²È(FI$,13)r,~ þ#2:þ #2,"PM-"ª(FI$),W|,ˆ 1380,’ ‹UL³±0§˜2,ULâ,œ è:™" WHAT IS THE MAXIMUM NUMBER OF RECORDS":™:…" TO BE PLACED IN THIS FILE ";N$õ,¦ ‹N$²""§è:‰2460-° ˜2,N$CR$;M-º è:™" HOW MANY FIELDS (HEADINGS) DO YOU":™:…" WANT PER RECORD ";NF$a-Ä ‹NF$²""§è:‰2490o-Î NF²Å(NF$)|-Ø †FD$(NF)‹-â ˜2,NF$CR$;—-ì I²1¤NFÖ-ö è:™" WHAT IS THE NAME FOR FIELD (HEADING)":™:™" NUMBER"I;â- …FD$(I)ô- ˜2,FD$(I)CR$;. ‹FL³Ã(FD$(I))§FL²Ã(FD$(I)). ‚I/.( þ#2:1380:14205.2 :R.< *** CREATE A NULL FILEX.F :ˆ.P ™" PLEASE WAIT... CONFIGURING DATA FILE"ž.Z þ#2:þ #2,(FI$),W¯.d ‹UL³±0§˜2,UL».n I²1¤NFÌ.x ˜2,"EOD"CR$;Ó.‚ ‚Iè.Œ þ#2:1380:1420î.– :/ *** INITIALIZATION /ª :/´ N²Å(N$)P/¾ †REC$(Nª1,NF),R%(Nª1),S%(2¬Nª1),W(NF),F(NF),FW(NF)[/È I²1¤Ng/Ò R%(I)²In/Ü ‚I~/æ L²Ã(FD$(1))Š/ð FW(1)²L–/ú J²2¤NFª/FW(J)²Ã(FD$(J))¿/‹L³FW(J)§L²FW(J)Þ/‹FL³Ã(FD$(J))§FL²Ã(FD$(J))å/"‚J'0,BL$²" ": SHIFTED SPACE-06:Q0@N²0: CURRENT NUMBER OF ENTRIES[0J‰4090a0T:u0^ *** MAIN MENU{0h:Š0rM1²1:‰2000›0|M1²0:T1²1: 1±0†1770:1530:1820Û0þ%:™£5)"* * * * MAIN MENU * * * *"ÿ0š™" PRESS 1 ’ TO ENTER DATA"$1¤™" PRESS 2 ’ TO SEARCH DATA"Q1®™" PRESS 3 ’ TO LOAD DATA FROM DISK"€1¸™" PRESS 4 ’ TO LIST/SORT/CHANGE DATA"«1Â™" PRESS 5 ’ TO SAVE DATA TO DISK"Ï1Ì™" PRESS 6 ’ TO PRINT DATA"Ù1Ö1340å1àK²Æ(C$),2ê‹K²48§1650:1490:1760:1820:™Ç(27)"L":î:1380:‹DS±19§1420:‰2930e2ô‹K²48§™" PRESS ANY KEY ’ FOR MENU": 1:1340:‰2930y2þ‹K³49°K±54‰3030¡2‘K«483130,3320,3970,4310,3620,6890«2‰3030±2:Í2& *** ENTER INFORMATIONÓ20:Ý2:N²Nª1ÿ2D1490:1650:1690:1560:1820"3N™£9)"ENTER RECORD INFORMATION"83X1590:1780:1820G3b™Ç(27)"L";Q3l6090b3v‹C$²"Y"‰3220n3€™""x3Š‰3180ã3”‹N±²Å(N$)§è:™Ç(7)Ç(15)" YOU HAVE ENTERED THE MAXIMUM NUMBER OF RECORDS THAT THIS FILE WILL HOLD! ’"4ž‹N±²Å(N$)§™:™£20)M1$:1340:‰2930<4¨™£17)"DO YOU WANT TO ADD MORE RECORDS (Y/N) ?"F4²1340`4¼‹C$²"Y"§è:N²Nª1:‰3180r4Æ‹C$³±"N"‰3250|4Ð‰2930‚4Ú:“4ä *** SEARCH™4î:»4ø1490:1650:1690:1560:1820Ò4 ™£14)"SEARCH DATA"è4 1590:1780:1820÷4 ™Ç(27)"L"; 5 ™" SEARCH: ";5* 646054 1340.5> ‹C$²"^"‰2930=5H K²Æ(C$)«64P5R ‹K³1°K±NF§3380§5\ è:™" ENTER THE ITEM TO SEARCH FOR OR PRESS RETURN ’ TO VIEW EACH RECORD"Ò5f ™" ";:PROMPT$²FD$(K)ª" TO SEARCH FOR"å5p —842,34:—208,1ï5z 5810ú5„ I²1¤N6Ž ‹A$³±È(REC$(R%(I),K),Ã(A$))§3540>6˜ è:™£28)"RECORD NUMBER:"I:™H6¢ 5900[6¬ ™:™Ç(7)£19)M1$Œ6¶ ™£20)"(PRESS ^ ’ TO RETURN TO MAIN MENU)"–6À 1340§6Ê ‹C$²"^"‰2930®6Ô ‚Iê6Þ ‹A$³±È(REC$(R%(I),K),Ã(A$))§è:™:™£28)"SEARCH COMPLETED"ù6è ™:™£19)M1$7ò 13407ü ™"“":‰33607:,7 *** SAVE DATA27:T7$1490:1650:1690:1560:1820_7.™:™M3$u781740:1530:18207BFX$²FI$«7L™"WHAT IS THE FILENAME TO SAVE ? "FI$¾7V™£29)"‘";:…FI$í7`™"“ PRESS ANY KEY ’ TO SAVE: – "FI$" "÷7j1490 8t1730:1530:18208~™M2$ 8ˆ1340:8’‹C$²"M"§FI$²FX$:‰2930W8œ1380:‹DS±19§1420:‰2930{8¦ò(FI$):1380:‹DS±19§1420:‰2930‘8°þ#2:þ #2,(FI$),W›8º1380½8Ä1490:1650:1690:1500:1820×8Î™£10)"SAVING....."FI$í8Ø1590:1720:1820þ8â‹UL³±0§˜2,UL 9ìJ²1¤N9öK²1¤NF39˜2,Ç(34)REC$(R%(J),K)CR$;:9 ‚KV9™"*";:‹J185²µ(J185)§è]9‚Ji9(J²1¤NFz92˜2,"EOD"CR$;9<‚J9Fþ#2:1380:‹DS±19§1420©9PFI$²FX$³9Z‰2930¹9d:Ô9n *** LOAD (READ) DATAÚ9x:ü9‚1490:1650:1690:1560:1820:Œ™:™M3$:–1740:1530:1820): FX$²FI$S:ª™"WHAT IS THE FILENAME TO LOAD ? "FI$f:´™£29)"‘";:…FI$•:¾™"“ PRESS ANY KEY ’ TO LOAD: – "FI$" "Ÿ:È1490µ:Ò1730:1530:1820¾:Ü™M2$È:æ1340â:ð‹C$²"M"§FI$²FX$:‰2930ö:úþ#2:þ #2,(FI$);FX$²FI$;1380:‹DS±19§1420:‰2930A;1490:1650:1690:1500:1820\;"™£10)"LOADING....."FI$r;,1590:1720:1820‚;6‹UL±0§„2,ULŒ;@N²Nª1˜;JJ²1¤NF©;T„2,REC$(N,J)È;^‹FL³Ã(FD$(J))§FL²Ã(FD$(J))Ï;h‚Jë;r™"*";:‹N185²µ(N185)§è<|‹REC$(N,1)²"EOD"‰4240<†‰4160<N²N«15<šþ#2:1380:‹DS±19§1420A<¤FI$²FX$K<®‰2930Q<¸:k<Â *** MANIPULATE/SORTq<Ì:|<Ö‹N²0§Ž‹<àM1²2:‰2000”<êM1²0ª<ô1770:1590:1820Ð<þ™£6)"* * * RECORDS MENU * * *"ú<™" PRESS 1 ’ TO LIST ALL RECORDS"#=™" PRESS 2 ’ TO LIST ONE RECORD"I=™" PRESS 3 ’ TO SORT RECORDS"q=&™" PRESS 4 ’ TO CHANGE RECORDS"š=0™" PRESS 5 ’ TO DELETE A RECORD"Æ=:™" PRESS 6 ’ TO RETURN TO MAIN MENU"Ð=D1340Ü=NM²Æ(C$)#>X‹M²48§1650:1490:1760:1820:™Ç(27)"L":î:1380:‹DS±19§1420:‰4320\>b‹M²48§™" PRESS ANY KEY ’ FOR MENU": 1:1340:‰4320p>l‹M³49°M±54‰4420>v‹M²54‰2930>€‹M³±50‰4740•>Š:·>” *** LIST INDIVIDUAL RECORDS½>ž:ß>¨1490:1650:1710:1500:1820?²™" CURRENT DATA FILE HAS"N"RECORDS"1?¼™:…" START AT WHAT RECORD NUMBER ";KE?Æ‹K±²1¯K³²N§4580t?Ðè:™:™:™Ç(7)Ç(15)£7)"ILLEGAL RECORD NUMBER"„?Úþ4:è:‰4530¦?ä1490:1650:1700:1530:1820û?î™" F ’ = FORWARD B ’ = BACKWARD R ’ = RESTART M ’ = MENU"@ø1590:1780:1820:™Ç(27)"L";B@I²R%(K):™" RECORD NUMBER"K":":™L@5900|@1340:‹C$³±"F"¯C$³±"B"¯C$³±"R"¯C$³±"M"‰4630Ž@ ‹C$²"F"§K²Kª1 @*‹C$²"B"§K²K«1@4‹K³1§K²Nº@>‹K±N§K²1Ë@H‹C$²"R"‰4460Ü@R‹C$²"M"‰4310è@\è:‰4610î@f:Ap LIST ALL RECORDSAz:A„‹M³±49§5100=AŽ1490:1650:1690:1530:1820\A˜™£11)"LIST OF ALL RECORDS"rA¢1590:1780:1820A¬™Ç(27)"L";ŒA¶J²1¤N¥AÀ‹J³10§™" ";:‰4840¾AÊ‹J³100§™" ";:‰4840×AÔ‹J³1000§™" ";:‰4840çAÞ™" ";:‰4840õAè™J":’ ";ýAò¡A$ Bü‹A$²""‰4890B¡A$%B‹A$²""‰48701BK²1¤NF7B$:aB. *** START UPPER/LOWER CASE PRINTINGgB8:yBB‹UL²2§™Ç(14);BL:—BV™REC$(R%(J),K);" ";B`:àBj *** STOP UPPER/LOWER CASE AND START UPPER CASE ONLY PRINTINGæBt:ùB~‹UL²2§™Ç(142);ÿBˆ:C’‚KCœ™ C¦‹J²N§™:™£19)M1$'C°‚J1Cº1340;CÄ‰4310ACÎ:VCØ DELETE AN ITEM\Câ:lCì‹M³±53‰5340ŽCö1490:1650:1690:1560:1820¨C™£13)"DELETE RECORDS"¾C 1590:1780:1820ÍC™Ç(27)"L";øC™£21)"CURRENT DATA FILE HAS"N"RECORDS"&D(™:PROMPT$²" DELETE WHICH RECORD NUMBER "0D25810JD<‹Å(A$)³0°Å(A$)±N‰5510kDF™:™" RECORD NUMBER "A$":":™wDPI²Å(A$)‚DZ 5900¹Dd™:™£16)"DO YOU WANT TO DELETE THIS RECORD (Y/N) ?"ÃDn1340ÔDx‹C$²"N"‰4310æD‚‹C$³±"Y"‰5230òDŒJ²1¤NFE–REC$(R%(I),J)²REC$(R%(N),J)E ‚J#EªN²N«1.E´‰ 43104E¾:LEÈ *** CHANGE RECORDREÒ:bEÜ‹M³±52§5650„Eæ1490:1650:1690:1560:1820žEð™£13)"CHANGE RECORDS"´Eú1590:1780:1820ÃE™Ç(27)"L";îE™£21)"CURRENT DATA FILE HAS"N"RECORDS"F™:PROMPT$²" CHANGE WHICH RECORD NUMBER"$F"5810>F,‹Å(A$)³0°Å(A$)±N§5650JF6I²Å(A$)eF@è:™" RECORD NUMBER:"IkFJ™uFT5900 F^™" IS THIS THE CORRECT ITEM (Y/N) ?"ÒFh™£20)"PRESS ^ ’ TO RETURN TO RECORD MENU"ÜFr1340íF|‹C$²"^"‰4310þF†‹C$²"Y"‰5540G‹C$²"N"§è:‰5380Gš‰54904G¤è:™£24)"CHANGING ";?G®FLAG²1GG¸B²NOGÂN²IYGÌ6100dGÖFLAG²0lGàN²BvGê‰4310|Gô:‹Gþ *** SORT‘G:¡G‹M³±51‰4310ÃG1490:1650:1690:1530:1820ÛG&™£14)"SORT RECORDS"ñG01590:1780:1820H:™Ç(27)"L";HD™" SORT ON:";HN6460&HX13407Hb‹C$²"^"‰4310FHlK²Æ(C$)«64YHv‹K³1°K±NF‰5720sH€è:™£30)"SORTING....."}HŠ‰6560ƒH”:¡Hž *** INPUT PROMPT STRING§H¨:µH²™PROMPT$;¿H¼A$²""ÇHÆ…A$ØHÐ‹A$²"^"‰4310ìHÚ‹A$³±Ç(34)‰5880öHä™"‘";Iî‰5810IøŽI:5IJ²1¤NF:‹FL³Ã(FD$(J))§FL²Ã(FD$(J)):‚AIJ²1¤NF_I ™" "FD$(J);:™£FLª2)": ";eI*:I4 *** START UPPER/LOWER CASE PRINTING•I>:§IH‹UL²2§™Ç(14);IR:ÀI\™REC$(R%(I),J)ÆIf: Jp *** STOP UPPER/LOWER CASE AND START UPPER CASE ONLY PRINTINGJz:"J„‹UL²2§™Ç(142);(JŽ:/J˜‚J5J¢Ž;J¬:ZJ¶ *** INPUT VARIOUS FIELDS`JÀ:kJÊ™£28);ƒJÔ™"RECORD NUMBER"N:™JÞK²1¤NF™JèA$²""±Jò™È(FD$(K)ªBL$,Lª2);·Jü:óJ *** START UPPER/LOWER CASE (WHEN CHANGING FIELD DATA)ùJ:K‹FLAG²1§‹UL²2§™Ç(14);K$:GK.‹FLAG²1§™£Lª4)REC$(R%(N),K)CR$;£Lª1);"‘";ZK8—842,34:—208,1`KB:œKL *** START UPPER/LOWER CASE (WHEN ENTERING FIELD DATA)¢KV:´K`‹UL²2§™Ç(14);ºKj:ÂKt…A$ÈK~:Lˆ *** STOP UPPER/LOWER CASE AND START UPPER CASE ONLYL’:Lœ‹UL²2§™Ç(142);!L¦:3L°‹A$²""§A$²"*"HLºREC$(R%(N),K)²A$OLÄ‚K„LÎ™£17)"IS THE ABOVE INFORMATION CORRECT (Y/N) ?"ŽLØ1340œLâ‹C$²"Y"§Ž®Lì‹C$³±"N"‰6360ÄLöI²1¤61:™Ç(20);:‚ÎL™"";êL ™£24)"CHANGING ";:‰6100ðLŽöL:M( LIST FIELDSM2:M<I²1¤NF6MF™£10)Ç(Iª64)" = "FD$(I)=MP‚INMZ‹FLAG²1§6520…Md™£17)"PRESS THE KEY ’ REPRESENTING YOUR CHOICE"¶Mn™£20)"(PRESS ^ ’ TO RETURN TO MAIN MENU)"¼MxŽÂM‚:ØMŒ TOURNAMENT SORTÞM–:N M²0:N²Nª1:X²0:B²N«1:J²0¤B:S%(J)²J:‚JNªJ²0¤N¬2«3©27N´B²Bª1:I1²S%(J):I2²S%(Jª1)AN¾6750PNÈS%(B)²I:‚JlNÒX²X«1:C²S%(B):‹C³0‰6770rNÜ:œNæ *** START UPPER/LOWER CASE PRINTING¢Nð:´Nú‹UL²2§™Ç(14);ºN:ÛN™" "REC$(C,K):R%(M)²C:M²Mª1çNS%(C)²X O"C%²C2:J²C%¬2:C²NªC%:‹C±B‰6610"O,I1²S%(J):I2²S%(Jª1)7O6‹I1³0§I²I2:‰6740LO@‹I2³0§I²I1:‰6740VOJ6750hOTS%(C)²I:‰6690O^I²I1:‹REC$(I2,K)³REC$(I1,K)§I²I2“OhŽOrN²N«1£O|:æO† *** STOP UPPER/LOWER CASE AND START UPPER CASE ONLY PRINTINGìO:þOš‹UL²2§™Ç(142)P¤:P®™:™£20)M1$P¸1340'PÂ‰4310-PÌ:BPÖ *** PRINT DATAHPà:mPêþ%:1490:1650:1690:1560:1820…Pô™£14)"DISPLAY DATA"›Pþ1590:1780:1820ªP™Ç(27)"L";ÜPT$²"":CT²0:QL²0:PF²0:LF²0:PF$²"-PF":LF$²"-LF"!Q™" IS THE CURRENT DATA GOING TO BE PRINTED TO LABELS (Y/N) ? ";BQ&1340:™C$:‹C$²"Y"§QL²1:‰6970TQ0‹C$³±"N"‰6940©Q:™" DO YOU WANT TO USE A PREVIOUSLY SAVED PRINTER FORMAT FOR THE DATA (Y/N) ? ";ÖQD1340:™C$:‹C$²"Y"§‹QL³±1§PF²1:LF²0:‰8690øQN‹C$²"Y"§‹QL²1§LF²1:PF²0:‰8690 RX‹C$³±"N"‰6970Rb‹QL²1‰7040,Rl—842,34:—208,1kRv…" WHAT NAME DO YOU WANT TO USE FOR THE DATA HEADING ";T$ÅR€…" HOW MANY COLUMNS DO YOU WANT TO INDENT THE LEFT MARGIN ";L1$:LM²Å(L1$):‹QL²1‰7060‹QL²1§‹F±5§™" MAXIMUM OF"F"FIELDS ALLOWED WHEN PRINTING LABELS ... "Ç(15)"PLEASE RE-ENTER":‰7170VHI²1¤F^VR8650:™" WHAT IS THE LETTER REPRESENTING THE RECORD FIELD THAT WILL BE ITEM"I;:…A$pV\F(I)²Æ(A$)«64‹Vf‹F(I)±NF ° F(I)³1§7250ÓVp™" HOW MANY COLUMNS OF RECORD FIELD '"A$;:™"' DO YOU WANT PRINTED"%Wz‹QL²1§™" (MAXIMUM OF 34 COLUMNS ALLOWED INCLUDING MARGINS AND SPACES)":‰7310jW„™" (MAXIMUM OF 75 COLUMNS ALLOWED INCLUDING MARGINS AND SPACES)€WŽ™£58)"‘‘‘";:…W(I)£W˜‹QL²0§CT²CTªW(I)ª1:‹CT±75‰8100ÄW¢‹QL³±0§CT²W(I)ª1:‹CT±35‰8100ËW¬‚IßW¶‹QL²1§™:™:‰7390!XÀ™" DO YOU WANT THE RECORD FIELD HEADERS PRINTED (Y/N) ? ";5XÊ1340:™C$:H$²C$WXÔ‹C$³±"N"¯C$³±"Y"§™"‘‘‘":‰7360µXÞ™" THERE ARE"N"RECORDS,";:…" WHAT RECORD NUMBER DO YOU WANT TO START WITH ";B1$:B²Å(B1$)øXè…" WHAT RECORD NUMBER DO YOU WANT TO STOP WITH ";E1$:E²Å(E1$)Yò‹E±N§E²NLYü‹QL²0§RN$²"":™" DO YOU TO WANT PRINT THE RECORD NUMBER (Y/N) ? ";gY‹QL²0§1340:™C$:RN$²C$ˆY‹QL²0§‹C$³±"Y"§‹C$³±"N"‰7420ËY™" DO YOU WANT THE OUTPUT TO THE SCREEN OR PRINTER (S/P) ? ";àY$1340:™C$:DV$²C$ûY.‹C$³±"S"§‹C$³±"P"‰7450IZ8™" DO YOU WANT THE SAVE THIS INFORMATION FOR FUTURE PRINTOUTS (Y/N) ? ";•ZB1340:™C$:‹C$²"Y"§‹QL²0§PF²1:LF²0:‰9210:Õ‹C$²"Y"§‹QL³±0§LF²1:PF²0:‰9210§ZL‹C$³±"N"‰7480¿ZV‹DV$²"S"§DV²3:‰7550×Z`‹DV$²"P"§DV²4:‰7540óZj‹DV$³±"S"¯DV$³±"P"‰7450[t™Ç(7):™£27)"PREPARE THE PRINTER"'[~™:™£19)M1$6[ˆ™:™£19)M2$@[’1340I[œ™"“"Z[¦‹C$²"M"‰2930g[° 3:Ÿ3,DVv[º‹QL²1‰7720“[Ä˜3,È(BL$,(80«Ã(T$))2)T$š[Î˜3¬[Ø‹H$³±"Y"§7710·[âI²1¤Fè[ì‹I²1§˜3,LM$;È(FD$(F(I))ªBL$,W(I));NC$;:‰7680 \ö˜3,È(FD$(F(I))ªBL$,W(I));NC$;\‚I\ ˜3/\I²1¤76:˜3,"=";:‚I6\˜3e\(I²B¤E:‹RN$²"Y"§˜3:˜3,"RECORD NUMBER:"I:˜3p\2J²1¤Fv\<:»\F *** START UPPER/LOWER CASE (PRINT FIELDS TO SCREEN OR PRINTER)Á\P:Þ\Z‹UL²2§ 3:Ÿ3,DV,7:™Ç(14);ä\d:]n‹QL²0§‹J²1§˜3,LM$;È(REC$(R%(I),F(J))ªBL$,W(J));NC$;S]x‹QL²1§‹J²1§˜3,LM$;È(REC$(R%(I),F(J))ªBL$,W(J));NC$a]‚‹J²1§7840]Œ‹QL²0§˜3,È(REC$(R%(I),F(J))ªBL$,W(J));NC$;Â]–‹QL²1§˜3,LM$;È(REC$(R%(I),F(J))ªBL$,W(J));NC$É] ‚JÖ]ª‹QL²0§˜3Ü]´:z^¾ *** THE VALUE OF NL IN LINE 7900 IS THE NUMBER OF BLANK LINES TO INSERT TO MOVE TO THE NEXT LABEL - IF NECESSARY, ADJUST THE VALUE OF NL TO¤^È *** FIT YOUR PRINTER AND LABEL SIZEª^Ò:³^ÜNL²6¹^æ:Ñ^ð‹QL²1§BL²J¤NL:˜3:‚Ù^ú¡A$é^‹A$²""§7960ó^1340ú^‚I_":M_, *** STOP UPPER/LOWER CASE AND START UPPER CASE (AFTER PRINTING FIELDS)S_6:p_@‹UL²2§ 3:Ÿ3,DV,0:™Ç(142)v_J:‘_T˜3:‹DV²4¯QL²0§˜3,Ç(12)˜_^ 3Ä_h™:™£23)"PRESS P ’ TO PRINT DATA AGAINÓ_r™:™£19)M2$Ý_|1340î_†‹C$²"P"‰7450ÿ_‹C$²"M"‰2930 `š‰8060`¤èK`®™£13)"NO SINGLE FIELD AND/OR THE LENGTH OF ALL FIELDS"ˆ`¸‹QL²0§™£13)"CAN TOTAL MORE THAN 76 COLUMNS IN LENGTH!!"Æ`Â‹QL³±0§™£13)"CAN TOTAL MORE THAN 36 COLUMNS IN LENGTH!!"û`Ì™""£19)"(YOU SELECTED A TOTAL OF"CT"COLUMNS)"aÖ™:™:™£19)M1$:™:™£19)M2$!aà13402aê‹C$²"M"‰2930AaôCT²0:‰7280Gaþ:Qa 1650~a ™" AN ERROR OCCURRED IN LINE:"ELªa ™" THE SYSTEM ERROR NUMBER IS:"ERÚa& ™" THE USUAL ERROR MESSAGE IS: "Ó(ER)èa0 þ6:×8200òa: Ö2930øaD :bN ™" THE RECORD FIELD NUMBERS ARE:"NbX ™:X²1¤NF:™£6«(Ã(Ä(X))))X"= "£5)FD$(X):‚:™„bb …" COMBINE WHAT TWO FIELD NUMBERS (#,#) ";A1$,A2$œbl A1²Å(A1$):A2²Å(A2$)§bv I²1¤N³b€ J²1¤NFýbŠ ‹É(REC$(I,A1),1)²" "§REC$(I,A1)²È(REC$(I,A1),(Ã(REC$(I,A1)))«1):‰8330&c” REC$(I,A1)²REC$(I,A1)ª" "ªREC$(I,A2)8cž REC$(I,A2)²""?c¨ ‚JFc² ‚Ifc¼ FD$(A1)²FD$(A1)ª"+"ªFD$(A2)ucÆ FD$(A2)²""œcÐ ™" THE RECORD FIELD NUMBERS ARE:"ËcÚ ™:X²1¤NF:™£6«(Ã(Ä(X))))X"= "£5)FD$(X):‚:™dä ™" DO YOU WANT TO COMBINE MORE RECORD FIELDS (Y/N) ? ";,dî 1340:™C$:QM$²C$:‹C$²"Y"§™:‰8270?dø ‹QM$³±"N"‰8420\d!‹Ã(FI$)±13§FI$²È(FI$,13)nd!F1$²FI$ª"-CF"©d!™" SAVING COMBINED FIELD DATA TO FILE: "F1$" ......"Íd !ò(F1$):1380:‹DS±19§1420:‰2930ãd*!þ#2:þ #2,(F1$),Wíd4!1380þd>!‹UL³±0§˜2,UL eH!J²1¤NeR!K²1¤NFMe\!‹REC$(R%(J),K)²""§REC$(R%(J),K)²" ": SHIFTED SPACEkef!˜2,Ç(34)REC$(R%(J),K)CR$;•ep!‹FD$(K)²""§FD$(K)²" ": SHIFTED SPACE£ez!˜2,FD$(K)e„!‚K:‚J¹eŽ!J²1¤NFÊe˜!˜2,"EOD"CR$;Ñe¢!‚Jíe¬!þ#2:1380:‹DS±19§1420öe¶!LF²1fÀ!QM²1:‰7090KfÊ!™" THE RECORD FIELDS ARE:":™:X²1¤NF:™£10)Ç(Xª64)" = "FD$(X):‚:ŽQfÔ!:fÞ! *** LOAD PRINTER FORMAT (PF=1) OR LABEL FORMAT (LF=1)“fè!:°fò!‹Ã(FI$)±13§FI$²È(FI$,13)Æfü!‹PF²1§FL$²FI$ªPF$Üf"‹LF²1§FL$²FI$ªLF$g"™" LOADING PRINTER FORMAT DATA FROM FILE: "FL$" ......".g"þ#2:þ #2,(FL$)8g$"1380Ig."‹UL³±0§„2,ULSg8"„2,QL^gB"„2,BL$hgL"„2,LMsgV"„2,LM$}g`"„2,T$‡gj"„2,NC’gt"„2,NC$œg~"„2,CT¦gˆ"„2,QM±g’"„2,QN$ºgœ"„2,FÄg¦"„2,NFÎg°"„2,H$Øgº"„2,RNãgÄ"„2,RN$ìgÎ"„2,EõgØ"„2,Nhâ"„2,DV$ hì"„2,Bhö"I²1¤F h#„2,F(I),h #„2,W(I)2h#‚Th#þ#2:1380:‹DS±19§1420:‰2930ch(#‹QL²1‰9050mh2#‰7510sh<#:žhF# *** LOAD LABEL COMBINED FIELDS (-CF)¤hP#:ÁhZ#‹Ã(FI$)±13§FI$²È(FI$,13)Óhd#F1$²FI$ª"-CF"in#™" LOADING COMBINED FIELD DATA FROM FILE: "F1$" ......"%ix#þ#2:þ #2,(F1$)/i‚#1380@iŒ#‹UL³±0§„2,ULKi–#J²1¤NWi #K²1¤NFliª#„2,REC$(R%(J),K)zi´#„2,FD$(K)„i¾#‚K:‚J¦iÈ#þ#2:1380:‹DS±19§1420:‰2930°iÒ#‰7510¶iÜ#:òiæ# *** SAVE PRINTER FORMAT (PF=1) OR LABEL FORMAT (LF=1)øið#:jú#‹Ã(FI$)±13§FI$²È(FI$,13)+j$‹PF²1§FL$²FI$ªPF$Aj$‹LF²1§FL$²FI$ªLF$zj$™" SAVING PRINTER FORMAT DATA TO FILE "FL$" ......"žj"$ò(FL$):1380:‹DS±19§1420:‰2930´j,$þ#2:þ #2,(FL$),W¾j6$1380Ïj@$‹UL³±0§˜2,ULÙjJ$˜2,QLäjT$˜2,BL$îj^$˜2,LMkh$‹LM$²""§LM$²" ": SHIFTED SPACEkr$˜2,LM$?k|$‹T$²""§T$²" ": SHIFTED SPACEIk†$˜2,T$Sk$˜2,NCwkš$‹NC$²""§NC$²" ": SHIFTED SPACE‚k¤$˜2,NC$Œk®$˜2,CT–k¸$˜2,QMºkÂ$‹QN$²""§QN$²" ": SHIFTED SPACEÅkÌ$˜2,QN$ÎkÖ$˜2,FØkà$˜2,NFúkê$‹H$²""§H$²" ": SHIFTED SPACElô$˜2,H$lþ$˜2,RN2l%‹RN$²""§RN$²" ": SHIFTED SPACE=l%˜2,RN$Fl%˜2,EOl&%˜2,NZl0%˜2,DV$cl:%˜2,BnlD%I²1¤FzlN%˜2,F(I)†lX%˜2,W(I)Œlb%‚®ll%þ#2:1380:‹DS±19§1420:‰2930¸lv%‰7510¾l€%:ülŠ%þ%:ç5,7:ç6,16:™"“"£24)"* * * LGK PHILEMASTER V1.5 * * *"Tm”%™" THIS IS AN EXCELLENT FILING PROGRAM THAT IS BASED ON ONE ORIGINALLY WRITTEN"¬mž%™" FOR THE C64 BY ROBERT DRAKE WHICH WAS PUBLISHED IN VOLUME 5, ISSUE 4, PAGE 41"n¨%™" OF "Ç(34)"TRANSACTOR"Ç(34)" MAGAZINE. IT IS MENU DRIVEN, WRITTEN IN BASIC 7.0 AND IS VERY"tn²%™" "Ç(34)"USER FRIENDLY"Ç(34)" WITH SUCH THINGS AS SORT FIELDS AND CUSTOM PRINT ROUTINES"œn¼%™" AVAILABLE FROM MENU SELECTION."oÆ%™" WHEN FIRST RUN YOU MUST SELECT THE "Ç(34)"CREATE A FILE"Ç(34)" OPTION FROM THE OPENING"XoÐ%™" MENU. THIS WILL AUTOMATICALLY CREATE A DATA FILE WITH THE NAME OF YOUR CHOICE"°oÚ%™" AND A CONFIGURATION FILE (PREFIXED WITH PM-) TO HOLD YOUR FILE SPECIFICATIONS."pä%™" AFTER YOU HAVE ENTERED DATA YOU MUST USE THE "Ç(34)"SAVE DATA"Ç(34)" OPTION FROM THE MAIN"lpî%™" MENU TO SAVE YOUR DATA. ONCE YOU HAVE SAVED DATA IT WILL BE LOADED BACK INTO"Ÿpø%™:™£25)"(PRESS ANY KEY ’ TO CONTINUE)":1340ÿp&™"“ THE COMPUTER THE NEXT TIME YOU RUN THE PROGRAM BY CHOOSING THE "Ç(34)"LOAD EXISTING"^q&™" FILE"Ç(34)" OPTION FROM THE OPENING SCREEN AND ENTERING YOUR FILE NAME AT THE PROMPT."¢q&™" YOU CAN PRESS 0 ’ AT ANY MENU TO VIEW THE DISK DIRECORY."ûq &™" THERE IS AN OPTION TO PRINT LABELS IN THE PRINT ROUTINE. HOWEVER, BECAUSE OF"Tr*&™" DIFFERENCES BETWEEN VARIOUS PRINTERS AND LABEL SIZES, THE ROUTINE MAY HAVE TO"r4&™" BE MODIFIED FOR YOUR PARTICULAR USE BY CHANGING THE VALUE OF 'F' IN PROGRAM"s>&™" LINE 7230 AND THE VALUE OF 'NL' IN PROGRAM LINE 7900. THE CURRENT SETUP IS FOR"\sH&™" 15/16 X 3 1/2 INCH LABELS AND AN OKIDATA 120 (COMMODORE COMPATIBLE) PRINTER."µsR&™" SPECIFIED DATA CAN BE PRINTED TO THE SCREEN OR PRINTER AND SELECTED FIELDS"t\&™" CAN BE COMBINED WHEN PRINTING LABELS WITH AN OPTION TO SAVE THE PRINTING FORMAT"Atf&™:™£25)"(PRESS ANY KEY ’ TO CONTINUE)":1340[tp&™"“ FOR FUTURE USE."¿tz&™" THIS VERSION OF "Ç(34)"PHILEMASTER"Ç(34)" (V1.5 - JANUARY 3, 1988) IS COMPATIBLE WITH"u„&™" PREVIOUS VERSIONS AND ALSO INCLUDES SOME USER SUGGESTED ENHANCEMENTS THAT ARE"GuŽ&™" NOT INCLUDED IN THE PREVIOUS VERSIONS."«u˜&™" IF YOU USE "Ç(34)"PHILEMASTER"Ç(34)" FREQUENTLY I RECOMMEND THAT YOU COMPILE IT WITH A"v¢&™" BASIC COMPILER. THIS WILL GREATLY INCREASE THE SPEED OF OPERATION (ESPECIALLY"[v¬&™" WHEN USING THE SORT ROUTINE). IF YOU DON'T HAVE A BASIC COMPILER I WILL SEND"³v¶&™" YOU THE LATEST COMPILED VERSION ON DISK FOR $4.00. (TO COVER THE COST OF THE"ævÀ&™" DISK AND MAILING - PLUS A CUP OF COFFEE!)"wÊ&™£30)" LARRY G. KIRGAN""wÔ&™£30)" 252 PRAIRIE STREET"EwÞ&™£30)" LOWELL, INDIANA 46356"‘wè&™""£17)"(PRESS ANY KEY ’ TO RUN "Ç(34)"LGK PHILEMASTER V1.5"Ç(34)")"¡wò&1340:‰1300§wü&:w'€