Ÿ èÐ6â6N°N±N²N³N´N¶N·N¸N1´N1·N12µCÌRÁA¤FI¤FN¤FH¤FMT¤CÈDÌC1¨C2¨F¤B¤C¤NÉSRT¤ÉÁ×SEÃP¤ÒBYÔTI¤B¨NÈMØJÊSÂFÓSÓÊHÌIÌBLËH¤I¤T¤SEÇPÌÓÅÌFREÅLRECÌLÏHÉIÏRÓÔJ±ÎQÑJ²CÓI±I²BÓNÆDÓI¹AÓ € €€€€@@€€€€€ !€"@#$%&'()*+,-€.€/€0123456789:;<=>?@ABCDEFGH2$$******************************›7$$* *›<$$* DATABASE MANAGER *›A$$* from *›F$$* SOFTSIDE MAGAZINE *›K$$* by *›P$$* MARK PELCZARSKI *›U$$* *›Z$$******************************›ny6€-6-@#6‚-%+6ƒ-%‚36„-‚%‚;6…-ƒ%ƒC6†-%…K6‡-‚%…S6ˆ-‡%…[6‰-ˆ%ƒg6Š-A%s6‹-@y6Œ-€x8;A`,&Ž;ˆ,;‡,;ˆ,‘;ˆ,,6’-€86“-AV‚I0”9†,•9†,–;A,—;A,˜;A,76™-6@6Ž.D:I6.D:ƒ2š;A,›-A""œ.6š7›,.>:œ,2 ›„ii104,201,5,240,15,168,240,5,104,104,136,208,251,132,213,169,1,133,212,96,104,133,216,104,133,215,104›…kk141,251,6,104,141,250,6,104,104,133,218,104,133,213,104,133,212,104,104,133,217,169,0,133,209,133,214›†jj162,1,165,215,133,205,165,216,133,206,173,250,6,133,222,173,251,6,133,223,24,165,205,133,203,101,218›‡jj133,205,165,206,133,204,105,0,133,206,24,165,222,133,220,105,3,133,222,165,223,133,221,105,0,133,223›ˆii164,207,169,1,208,2,208,188,197,217,240,10,177,205,209,203,144,21,240,12,176,55,177,205,209,203,144›‰hh49,240,2,176,7,196,208,176,41,200,144,219,169,1,133,209,164,218,136,177,205,72,177,203,145,205,104›Šhh145,203,192,0,208,241,160,3,136,177,222,72,177,220,145,222,104,145,220,192,0,208,241,232,224,0,208›‹ff2,230,214,228,212,208,134,165,213,197,214,208,128,165,209,201,0,208,162,169,0,133,212,133,213,96›Œ/‚„€K:+€0‚‹„%0„‹„/ A–-A $ GET RANDOM ACCESS POINTER›ªI36ž-@:Ÿ7 $ƒ%< $ƒ%,,$AV%@:Ÿ7 $ƒ%‚< $ƒ%‚,,I6¡-@:Ÿ7 $ƒ%ƒ< $ƒ%ƒ,,´ ž¡$¾8 6¢. 6¢7£8¤%,&‚,. &6¢7‚,.¢)$8BLANK RECORD›ÈD-…@"6.1(>:“,ENTER FILE NAME 5D4A@Ò##7<,2A)7<,3ZA@Ü? 6Ž7ƒ,.6Ž7B:Ž,%,..DAT*›-B:,?7›<›,4.A@æ& ›67ƒ,.#67B:,%,..HDG&$ð:-…@"&(>:“, ÉÎÖÁÌÉÄ ÎÁÍÅ0 AP: AùUULines 250-260: Replace lower case with the corresponding contol characters.›ú00(>:A%, FILE: A((** DATABASE II ** RECS: ™%A( Œ!€( FREE: ¥&™&( ( ($"66.NONE AP6((I) INITIALIZE A NEW FILE,U((L) LOAD A SAVED FILE?!(/(ÓÅÌÅÃÔ¿ 6)‚œA>:œ,4IK A`U A@6>:œ,0LA@ A¦"€AJ A A T¦!€A`^((%(FOR WARM RESTART: GOTO 360(&h6 A`ƒ AP6((S) SAVE CURRENT FILEr((P) PRINT DATA|( (A) ADD DATA†((C) CHANGE A RECORD((D) DELETE A RECORDš((T) SORT¤((F) LIST FILE NAMES®((N) START NEW FILE¸((Q) QUIT(Â( ((ÓÅÌÅÃÔ Ì )‚œ(>:œ,Ö">:œ,4S A€" A`à">:œ,4P A€" A`ê">:œ,4A A" A`ô(>:œ,4C6§-ƒ A!€( A`þ.>:œ,4D6§-„6¨-$ A!€. A`">:œ,4T Ap" A`">:œ,4F A" A`>:œ,4Q)>:œ,4NA`& A`0©A€: A€D>:œ,4N%N B+€XQ-‚@$(>:“, DATA FILES:. AAƒ…€D:*.DATK A Q6¦-€b@-„@ .(ÃÁΧԠÒÅÁÄ ÄÉÓË ÄÉÒÅÃÔÏÒÙ®3ƒ= AP@$l ƒv8›-‰@ 'ª-‚@)@ 8B:, ‰A€€/ -ª›(7ƒ<@, 6¦-¦%'ƒ+ ª/ ›ŠB:, ‰A€”8-@@#1(PRESS ÒÅÔÕÒÎ FOR MORE 8)‚œž0›-@#‰6-€›"(>:“,& ›0 A0¨@ A`¦"€(6(ÎÏ ÄÁÔÁ ÆÉÌÅÓ ÉΠÄÉÒÅÃÔÏÒÙ@ AP²Eƒ-…@#>:œ,0L>(PRESS ÒÅÔÕÒÎ TO CONTINUE E)‚œ¼$ÆLOAD SUBROUTINE›Ð; 6¦- AP(&(ÌÏÁÄÉÎÇ 0 A@;ƒ„€Úƒ¤™«¬¥­Œä<<®;«$+¤%@,,£9¤%@,¯;¥$¬%,Ÿ;¥$ƒ,°;¤$¬%¬,î[ ›-€¤%ƒª6£8›,-ª! ›5¢;£8¤%@,&,=6¯. L6¯7¥$¬&,. U6¯7‚,.¯[6±-ø ƒB:,"€A€$ 6®7±,.6±-±%AP$ A` ) ƒ²›-²)ƒ¡%6Ÿ7›,.>:¡,) ›#ƒ@€Ž# A   6©- $*!!READ ITEMS UNDER HEADING CH›4B 6³-£8’,6´-£8’%,&#6µ-´&³%+›-€™16 -›; ApB¢>"6¯7›$µ%<›$µ%µ,.¢7³<´, ›"$HW0(>:AV,>:AS,ÄÉÓË ÁÃÃÅÓÓ ÅÒÒÏÒ5:ƒ@6¦-€J APM'W A@RINITIALIZE SUBROUTINE V.2›\ AfD AP(((HOW MANY HEADINGS 2 Ap6¤D¤ AppE()(ENTER MAXIMUM HEADING LENGTH 3 A€7«E« A€zP A ®;«$¤,£9¤,#6¤-¤&*6™-616®.@6£8,-F6¬-€P AP„ ›-€¤Ž`(( HEADING #›% :"+6ª-B:,1ª!«V(MAXIMUM LENGTH IS « . REENTER` A “ª"€A ˜& B:, «67B:,%,. & A ¢a A 01(MAXIMUM LENGTH OF 7<ª,: 5ª? A U6£8›%@,-£8›,%ª[ª!¬a6¬-ª¬6®7B:®,%,. ›¶[%6¥-P:+I:,&A ,'+¬%ƒ,,/ A@Fƒ@€D:*.*[FIND SPACE ON DISK›À ƒB:, ‰A €Ê A `Ô^ƒ A 86¶-A:7<@,,$Š&++¤%@,$«,R6¶-P:¶'+£8¤%@,%ƒ,,X¶ ¥^6¥-¶Þ$ AP$(DISK SPACE REPORT:è[(,(DATABASE CAPACITY = ¥ RECORDS76·-£8¤%,C6­-@PI6¸-ŠO6¹-­U¹!¥[6¹-¥ò›-¹6·$› žA0ü(6¶-·$›'Š&P:·$›'Š,¶ ¸"6¸-¶(6­-›* › (*( BLOCK SIZE = ­ RECORDS.4(*(SECTORS/BLK = P:­$·'Š%?P,4 APZ0¯;¥$¬%,Ÿ;¥$ƒ,¢;£8¤%@,&,°;¤$¬%¬,86¯. G6¯7¥$¬&,. P6¯7‚,.¯Z AP$06º-@6 -€6´-­&' Ap-6¦-0$.v A A@((D("ONE MOMENT...ALLOCATING DISK SPACEv( FOR RECORDS  %@ TO ´%@...8Mº€Ž›- ´$ž¡56¹-P:ž'AV,E6¸-ž&¹$AVM6³-›$ƒB96Ÿ7³%<³%,.>:¹,'6Ÿ7³%‚<³%‚,.>:¸,96Ÿ7³%ƒ<³%ƒ,.>:¡,L* ¢ ›$@€Ž*6Œ-´V 6©-€ $`:('(ÅÒÒÏÒ - FILE NOT INITIALIZED-6¦-€7 AP:$jWRITE RECORD R FROM TI$›t+ A@ Ap ¢( A`+$~READ RECORD R INTO TI$›ˆ1 A@6 -› Ap$¢. A`1$’WRITE HDG FILE›œ: 6¦- AP(%(ÓÁÖÉÎÇ / A@:ƒ‡€¦4 ƒ¤ ƒ™ ƒ« ƒ¬& ƒ¥- ƒ­4 ƒŒ°! ›-€¤% ƒ£8›, ›!6±-º-B:®,±%AI# ƒ®7±:œ,4YJ A(pT A`Z6¨-‚d A >:œ,0NA€ 6¨- A0(¨"‚*–4A€2c AP6§-%( (S) SCREEN or8( (P) PRINTER ?E)@œH(S>:œ,4PY6§-‚c AP<>:œ,0SA0F! A!ƒAR€!$PPRINT ONE RECORD VERS. 4›ZR(>:A%,%¨A0A`1-‚@"R(PRESS ÒÅÔÕÒÎ (ÅÓà FOR MENU)d )‚œœ"@'6»-n$x))PRINT ONE RECORD TO PRINTER, VERS.4›‚¨A A`$Œ §"„(>:A%,–D ƒ ƒRECORD ›% ƒ(ª-€¤16³-£8ª,D6´-£8ª%@,& )" ƒ®7ª$«%<ª$«%«, ¢7³<´,& ª)$ªPRINT ONE FORMAT›´2 6ª-6¼-€6—.$–7B:–,,0626–7B:–,,.6¾=6½-A:–7ª<ª,,6ª-ª%%½ @56¾-A:–7ª<ª%,,=6ª-ª%‚È77½AAAA A@AÒ 6.®7¾$«%<¾$«%«, ApÜ8 6³-£8¾,6´-£8¾%,&#6µ-´&³%.6.¢7³<´,8 Apæ) ¿-¾6—7B:—,%,.  ¿) A€ð! ƒ—¾!À-‚¾ ƒ! Àú 6—. A€ 6À-ª"–7À<À,0!6À-À%" AP6.–7ª<ª%+À&ª,&,6ª-À%"6—7B:—,%,., Ap6 ƒ— $@2 6©-€™%"¥(%( ÆÉÌÅ ÉÓ ÆÕÌÌ/ AP2$J 6 -™% ŒA@T% AP6´-Œ%­´!¥&%6´-¥&^6º-@  AphT AP(<(RECORD NUMBER ™%‚ (ENTER ! TO END)?(B(Jª-€¤T Ar7<,4!6ª-¤ ª$| ª6™-™%†- A@6³-£8’,#6´-£8’%,&-6µ-´&³%6¯7™$µ%<™$µ%µ,.¢7³<´,š A¤""DATA INPUT SUBROUTINE VERS.1›®K!(®7ª$«%@<ª$«%«, : %.6³-£8ª,A6´-£8ª%@,&K6µ-´&³%¸& B:, µ67B:,%,. & A Â6¢7³<´,.$ÌCHANGE SUBROUTINE VERS.2›ÖU AP4("(C) CHANGE ITEM, (K) KEEP ITEM, ORU((R) KEEP REMAINDER OF RECORDàS((RECORD ›%6Á-"6»-€0ª-¤3(<6³-£8ª,I6´-£8ª%,&S6µ-´&³%ê''(®7ª$«%<ª$«%«, : ¢7³<´, ?ô »"  A@þ/ )‚œ/>:œ,0C*>:œ,0K*>:œ,0RA (>:œ,>:œ,4KA@>:œ,4R6»- A@%AR€ A%AR& 6Á-€0[ ª 6»-€Á"€6 -›# A@,6³-£8’,96´-£8’%,&C6µ-´&³%[6¯7›$µ%<›$µ%µ,.¢7³<´,:$DDELETE SUBROUTINE VERS.2›N,(AR€,(DELETE THIS RECORD? X& )‚œ&>:œ,0Y*>:œ,0NA€b) (>:œ,AR)>:œ,4NAPl96.Ÿ7›$ƒ%<›$ƒ%ƒ,,6Ÿ7›$ƒ%,.Ÿ7›$ƒ%%ƒ,96Ÿ7Œ$ƒ%,.v6¯7B:¯,%,. €C6µ-£8’%,&£8’,)6¯7›$µ%,.¯7›$µ%µ%,2B:¯,"96¯.C A@Š6¯.¯7:œ,4AJ6œ-€T A Pî>:œ,4D6œ- A Pø A N(( SORTING..."A€0Aµ&N6¼-?:C:š,= :œC6•8ª,-œ[•8ª, )•8ª,!ƒA"PÔ--‚@"(VALUE:-”8ª,"6A#Þ  è& B:, ¬67B:,%,. & A"€ò,6˜7ª$¬%<ª$¬%¬,.6ª-ª%,ª!†A#€ü A" "  ›"› )›!™%A# 6›-›&  •8ª,"6Ã-›$  •8ª,"‚6Â-›6Ã-›.  •8ª,"ƒ6Â-›8 A"B ª ‚A$L g-‚@!9(>:“, 1) ITEM MUST MEET ALL CONDITIONSc(>:“,2) ITEM MAY MEET ANY CONDITION gÄV Ä )Ä!‚A#€` F 6»-€6½-”8€,6Æ-€&ª-€@0”8ª,"6<6ª-@F A$ j  ½”8ª,6½-6‚t  ª~ ½!6*½’6’-½ A ˆ  ½"6‚6Æ-’ 5 A$€§"‚!ƒ‡€P:+ A`5 A$œ 7ƒ‡€E:AR' A`/0‚‹„70„‹„¦ +-‚@"!( ÓÅÁÒÃÈÉÎÇ®®®+ A$° *ƒ (PRINTER NOT ON LINE* A(@º  6›-Â&Ç-ÂÃ6›-›%Ä K Æ"€6³-£8’,6´-£8’%,&)6µ-´&³%A6¢7³<´,.¯7›$µ%<›$µ%µ,K A% Î A`Ø  6È-€ª-€†â  ”8ª,"66ª-† A' ì G6³-£8”8ª,,6´-£8”8ª,%,&)6µ-´&³%<6—.˜7ª$¬%<ª$¬%µ,G6.¢7³<´,ö 0¼-µ67¼<¼,4  ¼&6.0 A%p 6.7<¼, 0¼-µ6—7¼<¼,4  ¼&6—.0 A% 6—.—7<¼, ""•8ª,A&A& A&p( /—A&2 A'< 4—A&F ¼"€A'P —7¼,0*A'Z 7<¼&,4—7<¼&,A&d A'n 1—A&x A'‚  Ä"‚6È-6ª-†Œ A' –  Ä"6È-‚6ª-†   ªª È"€*Ä"A'P´ È"€)È"‚A(¾  Æ"€ A`È %6Å-§"@% ApÒ  §"‚)§"„ AÜ  §"ƒ APæ  §"„ Apð  »"6Ç-Ãú P-‚@"9($ÓÅÁÒÃÈÉÎÇ®®® = ÇIAR€M»P$ 6Å-‚@",(ÎÏ ÍÁÔÃÈÅÓ ÆÏÕÎÄ...6 A(@ #-‚@"#(END OF FILE... -#(>:AS,ÒÅÔÕÒÎ FOR MENU*)‚œ-$" 2%(>:AS,NO DATA IN MEMORY./ AP2$, PRINT FORMATTING, V.1›6  AP–4A)@ .( SAME FORMAT? )‚œ +>:œ,4Y.$J >:œ,0NA(pT O((L) LOAD FORMAT or2((C) CREATE FORMAT 9)‚œ<(O>:œ,4CA)p^ >:œ,0LA(ph 6–. A1€‘4D: $r  A)Pƒ„€‘| 5 ƒÅª-€Åƒ'6–7B:–,%,.+ ª5 A)`† 6(FORMAT ‘ NOT FOUND( AP/6‘.66–. ƒ $š o A)p6Å-€6ª-€ 6–.* APQ("START IN THE UPPER LEFT CORNER ANDl(WORK ACROSS EACH LINE.o(¤ P( 1:HEADING(2:ITEM&(3:TAB6( 4:NEXT LINEC(5:STRINGM(6:ENDP(® ½½ )½!…A)¸ 6–7B:–,%,.=:½,6ª-ª% 77½A0 A0 A0PA0PA0A1Ì 3 AP¼-€¤/ ¼%) ®7¼$«%<¼$«%«,3 ¼Ö 1((WHICH? ¼6¼-¼&1¼ €)¼!¤A00à A0`ê C( HOW MANY? ¼'¼ )¼!@™9( OUT OF RANGE.C A0Pô 1 6.=:¼,¼ @ 6.0167B:,%,.=:¼,þ 6–7B:–,%,.6ª-ª%‚ A1 >(STRING: %67B:,%,.!36–7B:–,%,.>6ª-ª%B:,  AP A)€& * A1p A1€ ‘4D:'6–.*$0 ƒ‡€‘:  ƒP:+B:–,&,'AP,D Yª-€P:+B:–,&,'AP,6B:–, ª$AP%APO(ƒ–7ª$AP%