Category : Databases and related files
Archive : RESUMAKE.ZIP
Filename : RESUMAKE.BAS
Output of file : RESUMAKE.BAS contained in archive : RESUMAKE.ZIP
Í ~ :ÙEnd of entry $ KK%ç Í L :ÙBackspace 0. KK%æ ï (KK%è î KK%æ
) ï (KK%è î KK%æ) Í KK$;: NTRY$çNTRY$éKK$ :ÙEcho keystroke and add to entry d8 ÿ(NTRY$) ç INLEN% Í ~ :ÙEntry full ¥B :ÙGet another character »L:Ù**** Backspace úV ÿ(NTRY$)ç Í :ÙNot if entry is empty (` ÿ( );Ö(,°);ÿ( ); :ÙRedisplay box ijNTRY$çÿ(NTRY$,ÿ(NTRY$)ê) :ÙDelete last character §t :ÙGet next character î~ (ÿ(NTRY$)ç) î (OKç) Í Å : :¡ ÿ(INLEN% ê ÿ(NTRY$)); ô 4:Ù******************************************************** t:Ù* NUMERIC INPUT ROUTINE * ´¦:Ù******************************************************** Ô° ÑO.DECIMALçØ(NTRY$,".")ç áºNTRY$ç""
ÄKK$çÞ: KK$ç"" Í Ä :¡ KK%çÿ(KK$) =Î KK%ç
Í F :ÙEnd of entry mØ KK%ç Í :ÙBackspace ¹â KK%ç- î REAL.NUM Í ÿ(NTRY$)ç î INLEN%æ Í KK$;: NTRY$çKK$: ÿì KK%ç. î ÑO.DECIMAL î REAL.NUM Í KK$;: NTRY$çNTRY$éKK$: 0ö KK%æ/ î KK%è: Í KK$;:NTRY$çNTRY$ é KK$ M ÿ(NTRY$)çINLEN% Í F
Ä :ÙGet another character £:Ù**** Backspace á ÿ(NTRY$)ç Í Ä :ÙNot if entry is empty ( ÿ( ); ÿ(°); ÿ( ); :ÙRedisplay box T 2NTRY$çÿ(NTRY$,ÿ(NTRY$)ê) :ÙDelete last character < Ä :ÙGet next character Ó F ÿ(NTRY$)ç î OKç Í Å: Ä :¡ ÿ(INLEN% ê ÿ(NTRY$)); Ù P ÷ Ð:Ù**** Word Wrap Routine B :Ù******************************************************************* :Ù************** Word Wrap Routine - version of: 10-24-85 ********** Ø :Ù******************************************************************* ó É() : É() : É() * É() (
: É() ö : É() È
4 4:ÙScreen setup >É ,"HELP": É ,"RESET": É ,"END": É ,"": É ,"": É ,"": É ,"": É ,"": É ,"": É
,"": É Í HÊ ROW%,COL%,: Ö(LINE.SIZE,°): Ê ROW%,COL%, ß R:ÙInitialize W LCVç Ì NUM.LINES: DOC$(LCV)ç"": LCV: NUM.LINESç ; \IMAGE$ç"": WORD$ç"": END.ITç Y fBACKSPACE$çÿ()éÖ(,Ä) | pTAB.KEY$çÖ(,Ä)éÿ()éÿ(³) z ÑFULLçØ(IMAGE$," ") Æ SEGç: ,ÿ( ) :Ù** Clear keyboard â :Ù**** Main processing ÿ(IMAGE$)æçLINE.SIZE Í t ? ¢CH$çÞ: END.IT Í :¡ CH$ç"" Í ¢ :¡ CH%çÿ(CH$) ½ ¬ CH%æ ï (CH%è î CH%æ
) ï (CH%è î CH%æ) Í CH$;: WORD$çWORD$éCH$: IMAGE$çIMAGE$éCH$: æ ¶ CH%ç Í è :Ù**** Backspace !À CH%ç Í . :Ù**** Space =!Ê CH%ç
Í L :Ù**** Early end of entry i!Ô CH%ç Í º :Ù**** Tab 5 spaces !Þ:Ù**** Backspace routine !è ÿ(IMAGE$)æ Í ü Q"ò NUM.LINESæ Í NUM.LINESçNUM.LINESê: IMAGE$çDOC$(NUM.LINES): Ê ,: ÿ(O);: Ê Ûê,ÿ(IMAGE$)éCOL%,: Ö(LINE.SIZEêÿ(IMAGE$),°);: Ê ,ÿ(IMAGE$)éCOL%,: ¢ :¡ ¢ "ü ÿ(WORD$)æ Í WORD$çÿ(WORD$,ÿ(WORD$)ê) " ÿ( );ÿ(°);ÿ( ); À" IMAGE$çÿ(IMAGE$,ÿ(IMAGE$)ê) Ê" ¢ ä"$ :Ù**** Space routine #. ÿ( );: IMAGE$çIMAGE$éÿ( ): WORD$ç"" #8 C#B :Ù**** Early end of entry routine #L ÿ(LINE.SIZEêÿ(IMAGE$)): ÎCOL%);Ö(LINE.SIZE,°);: Ê ,COL%, Ï#V DOC$(NUM.LINES)çIMAGE$: NUM.LINESçNUM.LINESé: IMAGE$ç"": WORD$ç"" Ù#` ¢ ò#j :Ù**** EOLN routine B$t ÿ(WORD$)èLINE.SIZE Í ~ :¡ WORD$ç"": IMAGE$çÿ(IMAGE$,LINE.SIZE): m$~ IMAGE$çÿ(IMAGE$,ÿ(IMAGE$)êÿ(WORD$)) $ Ê ,COL%,: IMAGE$;ÿ(LINE.SIZEêÿ(IMAGE$)) Ñ$ ÎCOL%);Ö(LINE.SIZE,°);: Ê ,COL%,: WORD$; % DOC$(NUM.LINES)çIMAGE$: IMAGE$çWORD$: NUM.LINESçNUM.LINESé %¦ /%° :Ù**** Tab routine X%º ÿ(IMAGE$é" ")æçLINE.SIZE Í ¢ }%Ä " ";:IMAGE$çIMAGE$é" " %Î ¢ ¡%Ø :Ù**** PRINT routine °%â :Ùdeleted Ò%ì :Ù**** RESET (Dummy routine) &ö Lç Ì DOC.SIZE: DOC$(L)ç"": L:IMAGE$ç"": WORD$ç"" )&
Ûæ Í R%ç :¡ R%çROW% &
ERASçR% Ì Û: Ê ERAS,COL%: ÿ(LINE.SIZE);: ERAS: Ê ROW%,COL%,: Ö(LINE.SIZE,°): Ê ROW%,COL%, ¦&
NUM.LINESç: ¿&
:Ù**** Help routine
'(
TROWçÛ: TCOLçÿ(): È ,,,: É Ý: À: Ê ,$: "H E L P":Ê ,$:"- - - -" J'2
Ê ,: "1. This routine allows you to type in text." '<
Ê ,: "2. Words will wrap automatically when you reach the" ´'F
Ê ,: " end of the line." ð'P
Ê
,: "3. Use F3 to RESET, and start over again." ,(Z
Ê ,: "5. Use F5 to END the entry when finished." x(d
Ê ,: "6. You can use the BACKSPACE (";BACKSPACE$;") key to move" °(n
Ê ,: "backward through the text and edit it." ô(x
Ê ,: "7. You can use the TAB (";TAB.KEY$;") to tabulate" )
Ê ,: "five spaces over." Y)
Ê ,: "NOTE: The cursor keys on the numeric keypad," )
Ê ,: "the Insert, and the Delete keys will all" Ä)
Ê ,: "back up like the backspace key." û)´
¿ : Ê ,: "Press any key to RETURN.";: ¿ FC **¾
Þç"" Í ¾
:¡ È ,,,:Ê TROW,TCOL:É : q*È
ÿ(LINE.SIZEêÿ(IMAGE$));: IMAGE$èæ"" Í DOC$(NUM.LINES)çIMAGE$ *+Ò
É Ý: É ,"LIST ": É ,"RUN"éÿ(
): É ,"LOAD"éÿ("): É ,"SAVE"éÿ("): É ,"CONT"éÿ(
): É ,","éÿ(")é"LPT1": É ,"TRON"éÿ(
): É ,"TROFF"éÿ(
): É ,"KEY ": É
,"SCREEN" [+Ü
DOC$(NUM.LINES)ç"" Í NUM.LINESçNUM.LINESê k+æ
END.ITç: +(#:Ù************ Main Program ************** º+2# ðÒ :Ù**** Intro screen È+<#¿ FCé: À ø+F#Ê ,: "R E S U M A K E R - Main Menu" .,P#Ê ,: "- - - - - - - - - ---- ----": ¿ FC W,Z#Ê ,: "Which do you wish to do?" ,d#Ê ,: "(B)uild and Store a New Resume" ¸,#Ê ,: "(P)rint a Resume on the Printer" Ü,#Ê ,: "(E)xit the Program" -#Ê ,: "Please enter your choice (B,P,E) ";ÿ(°);ÿ( ); S-#CH$çÞ: CH$ç"" Í # :¡ CH$çÑUPCASE$(CH$): CH$ - # CH$èæ"B" î CH$èæ"P" î CH$èæ"E" Í Å: # -ª# CH$ç"B" Í ' ¯-È# CH$ç"P" Í 0u Æ-Ò# CH$ç"E" Í ØÖ ê-Ü# <# :Ù**** Back to main menu .'¿ FCé: À :Ù**** Routine to BUILD a Resume F.'Ê ,: "B U I L D a R e s u m e" x.$'Ê ,: "- - - - - - - - - - - -": ¿ FC ª..'Ê ,: "Please enter the following data: " î.8'Ê
,,: "Your legal FIRST NAME: ";Î-);Ö(,°); Ö($, ); /B'INLEN%ç: è: FIRST.NAME$çNTRY$ /L'Ê ,: "Your MIDDLE INITIAL: "; Î-);ÿ(°);: Ê
,: "Press ";NTER$;" by itself to OMIT.": Ê ,- °/V'OKç: INLEN%ç: è: MI$çNTRY$: OKç 0`'Ê
,: ÿ(7);: Ê ,: "Your LAST NAME: "; Î-); Ö(,°); Ö($, ); (0j'INLEN%ç: è: LAST.NAME$çNTRY$ Q0t'Ê ,: "Is this correct? (Y/N)"; 0~'ANS$çÞ: ANS$ç"" Í ~' :¡ ANS$çÑUPCASE$(ANS$) µ0' ANS$ç"N" Í ' :¡ ANS$èæ"Y" Í Å: ~' ÷0'À: Ê ,: "The next section will request your ADDRESS and" <1'Ê ,: "PHONE NUMBERS. You may omit some items such as your" 1'Ê
,: "APARTMENT NUMBER, ZIP CODE EXTENSION, and BUSINESS" É1'Ê ,: "PHONE if they do not apply. Simple press (";NTER$;")"; å1'ROW%ç: COL%ç: n 02'À: Ê ,: "Please enter the following data about your residence: "; q2¦'Ê ,: "Your STREET ADDRESS: "; Î-); Ö(,°); Ö($, ); 2°'INLEN%ç: è: STREET$çNTRY$ Ð2²'Ê ,: "Your APARTMENT:"; Î-); Ö(,°); Ö($, ); ý2µ'OKç: INLEN%ç: è: APT$çNTRY$: OKç B3º'Ê
,: "Your CITY of residence: "; Î-); Ö(,°); Ö($, ); d3Ä'INLEN%ç: è: CITY$çNTRY$ ¦3Î'Ê ,: "Your STATE of residence: ";Î-);Ö(,°); Ö(, ); È3Ø'INLEN%ç: è: STATE$çNTRY$ 4â'Ê ,: "Your ZIP CODE: "; Î-); Ö(,°);Ö(, ); !4ì'INLEN%ç: °: ZIP$çNTRY$ f4ö' "-";Ö(,°); Ö(, );: OKç: INLEN%ç: °: EXT$çNTRY$: OKç 4 ( EXT$èæ"" Í ZIP$çZIP$é"-"éEXT$ :¡ Ê ,2: " "; ø4
(Ê ,: "Your HOME PHONE: ";Î-); "(";Ö(,°);")";"-";Ö(, );"-";Ö(, );Ö(
, ); 5(INLEN%ç: °: AREA.CODE$çNTRY$ V5 ( Ö(, ); Ö(,°); Ö(, );: °: PRE.FIX$çNTRY$ 5(( ÿ( ); Ö(,°); Ö(, );: : INLEN%ç: °: SUF.FIX$çNTRY$ Ó52(HOME.PHONE$ç"("éAREA.CODE$é")-"éPRE.FIX$é"-"éSUF.FIX$ 26<(Ê ,: "Your BUSINESS PHONE: ";Î-); "(";Ö(,°);")";"-";Ö(, );"-";Ö(, );Ö(
, ); d6F(OKç: INLEN%ç: °: AREA.CODE$çNTRY$: OKç ¨6K( AREA.CODE$ç"" Í BUSINESS.PHONE$ç"": Ê ,-: ÿ();: n( à6P( Ö(, ); Ö(,°); Ö(, );: °: PRE.FIX$çNTRY$ !7Z( ÿ( ); Ö(,°); Ö(, );: INLEN%ç: °: SUF.FIX$çNTRY$ _7d(BUSINESS.PHONE$ç"("éAREA.CODE$é")-"éPRE.FIX$é"-"éSUF.FIX$ 7n(Ê ,: "Is this information correct? (Y/N)"; Ç7x(ANS$çÞ: ANS$ç"" Í x( :¡ ANS$çÑUPCASE$(ANS$) ø7( ANS$ç"Y" Í ð( :¡ ANS$èæ"N" Í Å: x( 8(LOWERç: UPPERç A8(É( ) : É( ) Ü : É() : É() ú h8(RW%ç: Ê RW%,,: ¿ : ÿ(); å8(¿ : Ê ,,: "Use cursor arrows (";ÿ();ÿ();") to SELECT item, ";NTER$;" to MODIFY, Esc when FINISHED.";: ¿ FC 9 (K$çÞ: K$ç"" Í ( :¡ K%çÿ(K$): Ê ,,: ÿ(O); {9ª( K%ç Í ð( :¡ K%ç
Í R%çRW%ôê: R% (,°(,³(,¶(,¹(,Å(,Ò( :¡ Å: ( Ç9(Ê ,-,: Ö(,°); Ö($, );: INLEN%ç: è: STREET$çNTRY$: ( :°(Ê ,-,: Ö(,°); Ö($, );: INLEN%ç: OKç: è: APT$çNTRY$: OKç: ( g:³(Ê
,-,: Ö(,°); Ö($, );: INLEN%ç: è: CITY$çNTRY$: ( °:¶(Ê ,-,: Ö(,°); Ö(, );: INLEN%ç: è: STATE$çNTRY$: ( ð:¹(Ê ,-,: Ö(,°); Ö(, );: INLEN%ç: °: ZIP$çNTRY$ 5;¼( "-";Ö(,°); Ö(, );: OKç: INLEN%ç: °: EXT$çNTRY$: OKç h;¿( EXT$èæ"" Í ZIP$çZIP$éEXT$ :¡ Ê ,2: " "; r;Á( ( ¨;Å(Ê ,-,: "(";Ö(,°);")-";Ö(, );"-";Ö(, ) Ù;È(Ê ,.,: INLEN%ç: °: AREA.CODE$çNTRY$ .<Ë( Ö(, ); Ö(,°); Ö(, );: °: PRE.FIX$çNTRY$: ÿ( ); Ö(,°); Ö(, ); <Ï(INLEN%ç: °: SUF.FIX$çNTRY$: HOME.PHONE$ç"("éAREA.CODE$é")-"éPRE.FIX$é"-"éSUF.FIX$: ( Æ<Ò(Ê ,-,: "(";Ö(,°);")-";Ö(, );"-";Ö(, ) =Õ(Ê ,.,: OKç: INLEN%ç: °: AREA.CODE$çNTRY$: OKç H=×( AREA.CODE$ç"" Í BUSINESS.PHONE$ç"": Ê ,-,: ÿ(): ( =Ù( Ö(, ); Ö(,°); Ö(, );: °: PRE.FIX$çNTRY$: ÿ( ); Ö(,°); Ö(, ); ü=Ü(INLEN%ç: °: SUF.FIX$çNTRY$: BUSINESS.PHONE$ç"("éAREA.CODE$é")-"éPRE.FIX$é"-"éSUF.FIX$ >ß( ( >ð( BUSINESS.PHONE$ç"" Í HOME.PHONE$ç"Phone: "éHOME.PHONE$ :¡ HOME.PHONE$ç"Home: "éHOME.PHONE$: BUSINESS.PHONE$ç"Business: "éBUSINESS.PHONE$ ñ>õ(À: Ê ,
: "Please enter the current date. (ex. May 13, 1985) "; Ö(,°); Ö(, ); ?÷(INLEN%ç: è: RESUME.DATE$çNTRY$ /?ú(É( ) Ý: É() Ý n?)À: Ê ,: "The next section will request PERSONAL DATA" ¯?)Ê
,: "about you such as AGE, HEIGHT, WEIGHT, HEALTH, " ç?)Ê ,: "MARITAL STATUS, and SPECIAL INTERESTS." ú?")ROW%ç: n 8@,)À: Ê ,: "Please enter the following PERSONAL DATA: " s@6)Ê ,: "Age: (be honest!)"; Î(); Ö(,°); Ö(, ); ´@@)INLEN%ç: OKç: °: OKç: AGE$çNTRY$é" years": " years" ë@J)Ê ,: "Height: "; Î(); ÿ(°);" feet": Ê ,( AT)INLEN%ç: °: FEET$çNTRY$ 4A^)Ê ,0: Ö(,°);" inches": Ê ,0 WAh)INLEN%ç: °: INCHES$çNTRY$ Ar)HEIGHT$çFEET$é" feet "éINCHES$é" inches" ¿A|)Ê
,: "Weight:"; Î(); Ö(,°);" pounds": Ê
,( ìA)INLEN%ç: °: WEIGHT$çNTRY$é" pounds" B)Ê ,: "Health: "; Î(); Ö(,°); aB)Ê
,: "(Fair, Good, Excellent, etc. Press ";NTER$;" to omit.)"; B¤)Ê ,(: OKç: INLEN%ç: è: HEALTH$çNTRY$: OKç ±B®)Ê
,: ÿ(2); íB¸)Ê ,: "Marital Status: ";Î(); Ö(
,°); Ö(
, ); CÂ)INLEN%ç
: è: M.STATUS$çNTRY$ 9CÌ)Ê ,: "Special Interests: "; ~CÖ)Ê ,: "NOTE: Up to 4 lines ONLY. Words wrap automatically." ÒCÛ)Ê ,: "IMPORTANT: ";: ¿ FCé: " USE F5 to END SPECIAL INTERESTS.": ¿ FC üCà)Ê ,: "Press ANY KEY to BEGIN."; 6Dê) Þç"" Í ê) :¡ Ê ,: ÿ(<): ÿ(K): ÿ(F) `Dô)ROW%ç: COL%ç : LINE.SIZEç-: Ð §Dþ) Iç Ì NUM.LINES: INTERESTS$(I)çDOC$(I): I: INTERESTSçNUM.LINES ÌD0* Ûè Í Ê Ûé,, :¡ Ê ,, øD:* "Is this information correct? (Y/N)"; +ED*ANS$çÞ: ANS$ç"" Í D* :¡ ANS$çÑUPCASE$(ANS$) ZEN* ANS$ç"Y" Í ø* :¡ ANS$èæ"N" Í Å: D* pES*LOWERç: UPPERç ¡EX*M.ROW%çÛ: RW%ç: Ê RW%,,: ¿ : ÿ(); ÔE]*É( ) : É( ) Ü : É() : É() ú UFb*¿ : Ê M.ROW%,,: "Use cursor arrows (";ÿ();ÿ();") to SELECT item, ";NTER$;" to MODIFY, Esc when FINISHED.";: ¿ FC Fg*K$çÞ: K$ç"" Í g* :¡ K%çÿ(K$): Ê M.ROW%,,: ÿ(O); ëFl* K%ç Í î* :¡ K%ç
Í R%çRW%ôê: R% q*,v*,{*,*, *,* :¡ Å: b* 1Gq*Ê ,(,: Ö(,°); Ö(, );: INLEN%ç: °: AGE$çNTRY$: b* lGv*Ê ,(,: ÿ(°);ÿ( );:INLEN%ç: °: FEET$çNTRY$ ßGx*Ê ,0,: Ö(,°); Ö(, );: INLEN%ç: °: INCHES$çNTRY$: HEIGHT$çFEET$é" feet "éINCHES$é" inches": b* 3H{*Ê
,(,: Ö(,°); Ö(, );: INLEN%ç: °: WEIGHT$çNTRY$é" pounds": b* H*Ê ,(,: Ö(,°); Ö(, );: INLEN%ç: OKç: è: HEALTH$çNTRY$: OKç: b* ÛH *Ê ,(,: Ö(
,°); Ö(
, );: INLEN%ç
: è: M.STATUS$çNTRY$: b*
I* Lç Ì éINTERESTS: Ê L,: ÿ(@);: L 7I*ROW%ç: COL%ç : LINE.SIZEç-: Ð ~I* Iç Ì NUM.LINES: INTERESTS$(I)çDOC$(I): I: INTERESTSçNUM.LINES I* b* Iî*É( ) Ý: É() Ý ÇIø*À: Ê ,
: "EMPLOYMENT OBJECTIVE: " J+Ê ,: "In this section, you should compose a few lines " LJ +Ê ,: "about what position you are seeking and/or what you" yJ+Ê ,: "wish to get out of your job." ¹J +Ê ,: "As with SPECIAL INTERESTS of the last section," üJ*+Ê
,: "you will enter lines of text, (about 3-5). Words" @K4+Ê ,: "will wrap automatically. You can use F1 for HELP," K>+Ê ,: "F3 to RESET and start over, and you will use F5 to" ³KH+Ê ,: "signal the END of your entry." íKR+ROW%ç: : MSG$ç"Press ANY KEY to BEGIN.": n =L\+À: Ê ,
: "EMPLOYMENT OBJECTIVE: ": ROW%ç: COL%ç: LINE.SIZEç7: Ð Lf+ Iç Ì NUM.LINES: OBJECTIVE$(I)çDOC$(I): I: OBJECTIVEçNUM.LINES £Lp+À: Ê ,
: "EDUCATION: " àLz+Ê ,: "In this section, briefly describe your past " !M+Ê ,: "education, beginning with whatever education you" `M+Ê ,: "feel might be important to your work or to an " M+Ê ,: "interviewer who might review your resume." ÚM¢+Ê
,: "The next section will be devoted to RELEVANT " N¬+Ê ,: "COURSE WORK, so you need not include that here." 7N¶+ROW%ç: COL%ç: n VNÀ+À: Ê ,
: "EDUCATION: " qNÊ+ROW%ç: COL%ç: Ð £NÔ+ Iç Ì NUM.LINES: EDUCATION$(I)çDOC$(I): I »NÞ+EDUCATIONçNUM.LINES åNè+À: Ê ,
: "RELEVANT COURSE WORK: " &Oò+Ê ,: "This section is devoted to those who have earned" gOü+Ê ,: "college credit in a field and wish to note this " ©O,Ê ,: "fact. You may do so here. List courses that are" éO,Ê ,: "relevant to the position that you are seeking." *P,Ê
,: "Again you will use F5 to END the entry of text." nP$,Ê ,: "If you decide that you do not wish to enter COURSE" ³P.,Ê ,: "WORK, just press F5 without entering any text, once" ïP8,Ê ,: "the routine to allow text entry is called." QB,ROW%ç: COL%ç: n : COURSE.WORKç ]QL,À:Ê ,:"Do you wish to enter RELEVANT COURSE WORK? (Y/N)"; QV,ANS$çÞ: ANS$ç"" Í V, :¡ ANS$çÑUPCASE$(ANS$) ÁQ`, ANS$ç"N" Í , :¡ ANS$èæ"Y" Í Å: V, êQj,À: Ê ,: "RELEVANT COURSE WORK:" Rt,ROW%ç: COL%ç: Ð MR~, Iç Ì NUM.LINES:COURSE.WORK$(I)çDOC$(I): I:COURSE.WORKçNUM.LINES wR,À: Ê ,: "EMPLOYMENT EXPERIENCE:" ²R,Ê ,: "In this section, you will enter your past " òR,Ê ,: "employment experience, beginning with your most" 4S¦,Ê ,: "recent employment and listing all employment that" gS°,Ê ,: "might be relevant to this resume." ¥Sº,Ê
,: "Indicate the position held, employer, period" æSÄ,Ê ,: "of time employed there, and responsibilities or" TÎ,Ê ,: "duties while in that position." @TØ,ROW%ç: COL%ç: n : EXPERIENCEç Tâ,À:Ê ,: "Do you wish to enter EMPLOYMENT EXPERIENCE? (Y/N)"; ¹Tì,ANS$çÞ: ANS$ç"" Í ì, :¡ ANS$çÑUPCASE$(ANS$) êTö, ANS$ç"N" Í - :¡ ANS$èæ"Y" Í Å: ì, U -À: Ê ,: "EMPLOYMENT EXPERIENCE:" /U
-ROW%ç: COL%ç: Ð wU- Iç Ì NUM.LINES: EXPERIENCE$(I)çDOC$(I): I:EXPERIENCEçNUM.LINES ¢U -À: Ê ,: "FELLOWSHIPS AND GRANTS:" âU(-Ê ,: "If your are currently working under, or have in" 'V2-Ê ,: "the past worked under a grant or fellowship, you can" eV<-Ê ,: "indicate them in this section of your resume." ©VF-Ê ,: "If you later decide not to enter anything in this " ëVP-Ê
,: "section, simply press F5 to END the text without" (WZ-Ê ,: "entering any. This will skip this section." NWd-ROW%ç: COL%ç: n : GRANTSç Wn-À: Ê
,: "Do you wish to enter FELLOWSHIPS AND GRANTS? (Y/N)" ÈWx-ANS$çÞ: ANS$ç"" Í x- :¡ ANS$çÑUPCASE$(ANS$) ùW- ANS$ç"N" Í ´- :¡ ANS$èæ"Y" Í Å: x- $X-À: Ê ,: "FELLOWSHIPS AND GRANTS:" ?X -ROW%ç: COL%ç: Ð Xª- Iç Ì NUM.LINES: GRANTS$(I)çDOC$(I): I: GRANTSçNUM.LINES ²X´-À: Ê ,: "SPECIAL SKILLS AND ACTIVITIES:" ðX¾-Ê ,: "This section is devoted to any special skills" 2YÈ-Ê ,: "that you may have, or any activities that you are" uYÒ-Ê ,: "or have been involved in that will be of advantage" ·YÜ-Ê ,: "to you and your employer if you get the position" ×Yæ-Ê
,: "that you seek." Zð-Ê ,: "NOTE: There will be a separate section for " WZú-Ê ,: " ORGANIZATIONS and AFFILIATIONS, so you need" Z.Ê ,: " not include those here." «Z.ROW%ç: COL%ç: n : SKILLSç úZ.À: Ê
, : "Do you wish to enter SPECIAL SKILLS AND ACTIVITIES? (Y/N)"; -[".ANS$çÞ: ANS$ç"" Í ". :¡ ANS$çÑUPCASE$(ANS$) \[,. ANS$ç"N" Í J. :¡ ANS$èæ"Y" Í Å: ". [6.À: Ê ,: "SPECIAL SKILLS AND ACTIVITIES:" ©[@.ROW%ç: COL%ç: Ð ê[E. Iç Ì NUM.LINES: SKILLS$(I)çDOC$(I): I: SKILLSçNUM.LINES \J.À: Ê ,: "ORGANIZATIONS AND AFFILIATIONS:" ]\T.Ê ,: "In this section you can enter any organizations" ¡\^.Ê ,: "and professional affiliations that might be import-" Ô\h.Ê ,: "ant to the position that you seek." ]r.Ê ,: "Include in this list the name of the organization" \]|.Ê
,: "as well as offices held or any other data about the" ¡].Ê ,: "organization that might be pertinent to the resume." å].Ê ,: "As with the previous sections, pressing F5 without" ^.Ê ,: "entering any text will omit that section." M^¤.ROW%ç: COL%ç: n : ORGANIZATIONSç ^®.À: Ê , : "Do you wish to enter ORGANIZATIONS AND AFFILIATIONS? (Y/N)"; Ð^¸.ANS$çÞ: ANS$ç"" Í ¸. :¡ ANS$çÑUPCASE$(ANS$) _Â. ANS$ç"N" Í à. :¡ ANS$èæ"Y" Í Å: ¸. 4_Ì.À: Ê ,: "ORGANIZATIONS AND AFFILIATIONS:" O_Ö.ROW%ç: COL%ç: Ð _Û. Iç Ì NUM.LINES: ORGANIZATIONS$(I)çDOC$(I): I: ORGANIZATIONSçNUM.LINES Ä_à.À: Ê ,: "HONORS AND AWARDS:" ÿ_ê.Ê ,: "As you might have guessed, this section is" A`ô.Ê ,: "devoted to any honors and/or awards that you have" `þ.Ê ,: "received that would relevant enough to be mentioned" ¦`/Ê ,: "in your resume." â`/Ê
,: "Again, you can omit this section by simply" a /Ê ,: "pressing F5 without entering any text." @a&/ROW%ç: COL%ç: n : HONORSç a0/À: Ê ,: "Do you wish to enter HONORS AND AWARDS? (Y/N)"; ¶a:/ANS$çÞ: ANS$ç"" Í :/ :¡ ANS$çÑUPCASE$(ANS$) çaD/ ANS$ç"N" Í v/ :¡ ANS$èæ"Y" Í Å: :/
bX/À: Ê ,: "HONORS AND AWARDS:" (bb/ROW%ç: COL%ç: Ð ibl/ Iç Ì NUM.LINES: HONORS$(I)çDOC$(I): I: HONORSçNUM.LINES bv/À: Ê ,: "MILITARY SERVICE:" Êb/Ê ,: "If you have served in the military, you can"
c/Ê ,: "use this section to describe your military record," Kc/Ê ,: "giving your terms of duty, locations of duty " c/Ê ,: "stations, rank, responsibilities, and conditions " ¼c¨/Ê
,: "of discharge, if applicable." äcÐ/ROW%ç: COL%ç: n : MILITARYç &dÚ/À: Ê ,: "Do you wish to enter MILITARY SERVICE? (Y/N)"; Ydä/ANS$çÞ: ANS$ç"" Í ä/ :¡ ANS$çÑUPCASE$(ANS$) dî/ ANS$ç"N" Í 0 :¡ ANS$èæ"Y" Í Å: ä/ ¯dø/À: Ê ,: "MILITARY SERVICE:" Êd0ROW%ç: COL%ç: Ð e 0 Iç Ì NUM.LINES: MILITARY$(I)çDOC$(I): I: MILITARYçNUM.LINES 1e0À: Ê ,: "PUBLICATIONS: " ne 0Ê ,: "This section will allow you to list most any" ²e*0Ê ,: "publications that you have had published. Included" õe40Ê ,: "in this section are BOOKS, ARTICLES, BOOK REVIEWS," f>0Ê ,: "MONOGRAPHS, and PAPERS." ^fH0Ê
,: "Each of the above can be entered in a separate" ¡fR0Ê ,: "category, with an appropriate title. If you have" åf\0Ê ,: "written a publication that does not fall under any" )gf0Ê ,: "of the above categories, you will be able to enter" Wgp0Ê ,: "it under OTHER PUBLICATIONS." sgz0ROW%ç: COL%ç: n µg0À: Ê ,: "Do you wish to enter any PUBLICATIONS? (Y/N)"; èg0ANS$çÞ: ANS$ç"" Í 0 :¡ ANS$çÑUPCASE$(ANS$) ;h0 ANS$ç"N" Í PUBLICATIONSç: È2 :¡ ANS$èæ"Y" Í Å: 0 :¡ PUBLICATIONSç vh¢0À: Ê ,: "Do you wish to enter any BOOKS? (Y/N)"; ©h¬0ANS$çÞ: ANS$ç"" Í ¬0 :¡ ANS$çÑUPCASE$(ANS$) ãh¶0 ANS$ç"N" Í BOOKSç: Þ0 :¡ ANS$èæ"Y" Í Å: ¬0 ýhÀ0À: Ê ,: "BOOKS:" iÊ0ROW%ç: COL%ç: Ð WiÔ0 Iç Ì NUM.LINES: BOOKS$(I)çDOC$(I): I: BOOKSçNUM.LINES iÞ0À: Ê ,: "Do you wish to enter any ARTICLES? (Y/N)"; Èiè0ANS$çÞ: ANS$ç"" Í è0 :¡ ANS$çÑUPCASE$(ANS$) jò0 ANS$ç"N" Í ARTICLESç: 1 :¡ ANS$èæ"Y" Í Å: è0 $jü0À: Ê ,: "ARTICLES: " ?j1ROW%ç: COL%ç: Ð j1 Iç Ì NUM.LINES: ARTICLES$(I)çDOC$(I): I: ARTICLESçNUM.LINES Æj1À: Ê ,: "Do you wish to enter any BOOK REVIEWS? (Y/N)"; ùj$1ANS$çÞ: ANS$ç"" Í $1 :¡ ANS$çÑUPCASE$(ANS$) 5k.1 ANS$ç"N" Í REVIEWSç: V1 :¡ ANS$èæ"Y" Í Å: $1 Vk81À: Ê ,: "BOOK REVIEWS:" qkB1ROW%ç: COL%ç: Ð ¶kL1 LCVç Ì NUM.LINES: REVIEWS$(I)çDOC$(I): I: REVIEWSçNUM.LINES ökV1À: Ê ,: "Do you wish to enter any MONOGRAPHS? (Y/N)"; )l`1ANS$çÞ: ANS$ç"" Í `1 :¡ ANS$çÑUPCASE$(ANS$) hlj1 ANS$ç"N" Í MONOGRAPHSç: 1 :¡ ANS$èæ"Y" Í Å: `1 lt1À: Ê ,: "MONOGRAPHS:" ¢l~1ROW%ç: COL%ç: Ð êl1 Iç Ì NUM.LINES: MONOGRAPHS$(I)çDOC$(I): I:MONOGRAPHSçNUM.LINES &m1À: Ê ,: "Do you wish to enter any PAPERS? (Y/N)"; Ym1ANS$çÞ: ANS$ç"" Í 1 :¡ ANS$çÑUPCASE$(ANS$) m¦1 ANS$ç"N" Í PAPERSç: Î1 :¡ ANS$èæ"Y" Í Å: 1 ¯m°1À: Ê ,: "PAPERS:" Êmº1ROW%ç: COL%ç: Ð nÄ1 Iç Ì NUM.LINES: PAPERS$(I)çDOC$(I): I: PAPERSçNUM.LINES SnÎ1À: Ê ,: "Do you wish to enter any OTHER PUBLICATIONS? (Y/N)"; nØ1ANS$çÞ: ANS$ç"" Í Ø1 :¡ ANS$çÑUPCASE$(ANS$) Ànâ1 ANS$ç"N" Í OTHERç: È2 :¡ ANS$èæ"Y" Í Å: Ø1 çnì1À: Ê ,: "OTHER PUBLICATIONS:" oö1ROW%ç: COL%ç: Ð Ao 2 Iç Ì NUM.LINES: OTHER$(I)çDOC$(I): I: OTHERçNUM.LINES `oÈ2À: Ê ,: "REFERENCES:" oÒ2Ê ,: "In this section, you should indicate the names" ãoÜ2Ê ,: "and addresses of some people, whom the employer may" (pæ2Ê ,: "contact concerning you, or indicate that this infor-" [pð2Ê ,: "mation is available upon request." pú2Ê
,: "If you list the names and addresses of people," Þp3Ê ,: "you should not list any family members; only list" #q3Ê ,: "people who are familiar with you, perhaps a teacher" Hq3Ê ,: "or former employer." q"3Ê ,: "It is also recommended that you indicate that the" Àq,3Ê ,: "reference was made with permission." Üq63ROW%ç: COL%ç: n ûq@3À: Ê ,: "REFERENCES:" rJ3ROW%ç: COL%ç: Ð ^rT3 Iç Ì NUM.LINES: REFERENCES$(I)çDOC$(I): I:REFERENCESçNUM.LINES r NÀ: :Ù**** Routine to Store RESUME data on disk ßrRNÊ ,
: "You have now completed your resume. Please give it a name."; .s\NÊ ,
: "The name must be 8 characters or less without a period in it." ssfNÊ ,
: "Resume Name: ";Ö(,Ä); ÿ();" ";Ö(,°); Ö(, ); ¢spNINLEN%ç: è: RESUME.NAME$çNTRY$é".RSM" ïszNÀ: Ê
,: "Storing your RESUME data in file ";Q$;RESUME.NAME$;Q$;"." tNÊ ,: "Please wait."; 0tÞNº RESUME.NAME$ OUTPUT AS # ;tèN "."; ¢tòN MI$ç"" Í FULL.NAME$çFIRST.NAME$é" "éLAST.NAME$ :¡ FULL.NAME$çFIRST.NAME$é" "éMI$é". "éLAST.NAME$ ·tüN· #, FULL.NAME$ ÉtO· #, STREET$ ØtO· #, APT$ ôtO· #, CITY$,STATE$,ZIP$
u$O· #, HOME.PHONE$ $u.O· #, BUSINESS.PHONE$ ;u3O· #, RESUME.DATE$ Fu8O "."; UuBO· #, AGE$ guLO· #, HEIGHT$ yuVO· #, WEIGHT$ u`O· #, HEALTH$ ujO· #, M.STATUS$ ÈulO· #, "SPECIAL INTERESTS:",INTERESTS vnO Iç Ì INTERESTS: STRNG$çINTERESTS$(I): ª :INTERESTS$(I)çSTRNG$ ,voO· #, INTERESTS$(I): I WvtO· #,"EMPLOYMENT OBJECTIVE:",OBJECTIVE v~O Iç Ì OBJECTIVE: STRNG$çOBJECTIVE$(I): ª :OBJECTIVE$(I)çSTRNG$ »vO· #, OBJECTIVE$(I): I ÆvO "."; çvO· #, "EDUCATION:",EDUCATION .wO Iç Ì EDUCATION: STRNG$çEDUCATION$(I): ª :EDUCATION$(I)çSTRNG$ Kw¡O· #, EDUCATION$(I): I Vw¦O "."; rw°O COURSE.WORKç Í âO wºO· #, "RELEVANT COURSE WORK:",COURSE.WORK íwÄO Iç Ì COURSE.WORK: STRNG$çCOURSE.WORK$(I): ª :COURSE.WORK$(I)çSTRNG$ xÎO· #, COURSE.WORK$(I): I xØO "."; 2xâO EXPERIENCEç Í
P `xìO· #, "EMPLOYMENT EXPERIENCE:",EXPERIENCE ¬xöO Iç Ì EXPERIENCE: STRNG$çEXPERIENCE$(I): ª : EXPERIENCE$(I)çSTRNG$ Êx P· #, EXPERIENCE$(I): I ÕxP "."; ìx
P GRANTSç Í : "Do you wish to PRINT a Stored or Blank Resume? (S/B)"; GDuANS$çÞ: ANS$ç"" Í Du :¡ ANS$çÑUPCASE$(ANS$) xNu ANS$ç"S" Í @ :¡ ANS$èæ"B" Í Å: Du ÀXuÀ: Ê ,: "Please align your printer at the very top of a page." ûbuROW%ç: COL%ç: MSG$ç"Press ANY KEY to BEGIN": n *luÀ: Ê ,: "Printing your BLANK Resume." IvuÊ ,: "Please wait."; `u Lç Ì : : L tu Î%);"RESUME" u Î);"Name: (Full Legal Name)" ´u Î);"Street Address:" Û¨u Î);"Apartment Name and Number:" ý²u Î);"City, State, Zip Code" ¼u Î);"Home Phone Number:" ?Æu Î);"Business Phone Number:" EÐu XÚu Î2);"Date:" fäu: "."; îu Î);"PERSONAL DATA:" øu v Î
);"Age:" ® v Î
);"Height:" Ãv Î
);"Weight:" Ø v Î
);"Health:" õ*v Î
);"Marital Status:" 4v Î
);"Special Interests:" 6 >v Lç Ì : : L: "."; X \v Î);"EMPLOYMENT OBJECTIVE:" y fv Lç Ì +: : L: "."; pv Î);"EDUCATION:" ± zv Lç- Ì <: : L: "."; · v ½ v Î v Î');"-1-" Ô ¢v Ú ¬v ü ¶v :Ù**** Line #66 of page 1 Àv Lç Ì : : L 4Êv Î);"RELEVANT COURSE WORK:" TÔv Lç Ì : : L: "."; wÞv Î);"EMPLOYMENT EXPERIENCE:" èv Lç Ì ": : L: "."; »òv Î);"FELLOWSHIPS AND GRANTS:" Ý÷v Lç $ Ì .: : L: "."; üv Î);"SPECIAL SKILLS AND ACTIVITIES:" )w Lç0 Ì <: : L: "."; /w 5w F$w Î');"-2-" L.w R8w tBw :Ù**** Line 66 of page 2 Lw Lç Ì : : L ·Vw Î);"ORGANIZATIONS AND AFFILIATIONS:" ×`w Lç Ì : : L: "."; öjw Î);"HONORS AND AWARDS:" tw Lç Ì *: : L: "."; <~w Î);"MILITARY SERVICE RECORD:" ]w Lç, Ì <: : L: "."; cw iw z¦w Î');"-3-" °w ºw ©Äw :Ù**** Line 66 of page 3 ÀÎw Lç Ì : : L ÚØw Î);"PUBLICATIONS:" àâw ôìw Î
);"BOOKS:" öw Lç Ì : : L: "."; + x Î
);"ARTICLES:" L
x Lç Ì : : L: "."; gx Î
);"BOOK REVIEWS:" x Lç Ì : : L: "."; ¡(x Î
);"MONOGRAPHS:" Â2x Lç Ì #: : L: "."; ×
t:Ù**** Routine to LPRINT and increment LINES.PRINTED 2~LINES.PRINTEDçLINES.PRINTEDé: : _@:Ù**** Routine to PRINT a Stored Resume mJ § h¿ zTÀ: Ê , ^þ "*.RSM": : h § ârÊ ,: "Which Resume do you wish to PRINT? ";Ö(,°); Ö(, ); |INLEN%ç: è: RESUME.NAME$çNTRY$é".RSM" § 0À <º RESUME.NAME$ AS # J § P¤À ®Ê ,
: "Please align your printer at the very top a a page." ϸROW%ç:COL%ç
: MSG$ç"Press ANY KEY to BEGIN.": n ÕêÀ ôÊ ,
: "Printing your resume: ";Q$;RESUME.NAME$;Q$ .þÊ ,
: "Please wait."; l #, FULL.NAME$,STREET$,APT$,CITY$,STATE$,ZIP$,HOME.PHONE$,BUSINESS.PHONE$,RESUME.DATE$ ²p Lç Ì : : L: LINES.PRINTEDç ÍvSTRNG$ç"RESUME": L êSTRNG$çFULL.NAME$: L STRNG$çSTREET$: L *STRNG$çAPT$: STRNG$èæ"" Í L WSTRNG$çCITY$é", "éSTATE$é" "éZIP$: L u¼STRNG$çHOME.PHONE$: L ¦ÆSTRNG$çBUSINESS.PHONE$: STRNG$èæ"" Í L ÙÐ ~ :Ù** LPRINT and increment LINES.PRINTED øÔ Î2);RESUME.DATE$: j Ú "."; 4ä #, AGE$,HEIGHT$,WEIGHT$,HEALTH$,M.STATUS$ Oæ #, TITLE$,INTERESTS é Lç Ì INTERESTS: #, STRNG$: : INTERESTS$(L)çSTRNG$ ë L ¢í ~ Äî Î);"PERSONAL DATA:": j Îø ~ ð Î);"Age:";Î );AGE$: j Î);"Height:";Î );HEIGHT$: j @ Î);"Weight:";Î );WEIGHT$: j h Î);"Health:";Î );HEALTH$: j * Î);"Marital Status:";Î );M.STATUS$: j º4 Î);"Special Interests:"; ë> Lç Ì INTERESTS: Î );INTERESTS$(L): L HLINES.PRINTEDçLINES.PRINTEDéINTERESTS R "."; .\TAB.COLç =±é Ó ÿ£() r¢ #,SECTION.TITLE$,NUM.LINES: SECTION.LINESç ²¬ Lç Ì NUM.LINES: #,STRNG$: :DOC$(L)çSTRNG$: L ãÀ SECTION.TITLE$ç"REFERENCES:" Í TAB.COLç Ê LINES.PRINTEDæ7 Í X Ô ~ 8Þ ÎTAB.COL);SECTION.TITLE$: j vè SECTION.TITLE$èæ"PUBLICATIONS:" Í ~ :¡ TAB.COLç
B Lç Ì NUM.LINES ²L LINES.PRINTEDæç< Í ô ×V ÎTAB.COLé);DOC$(L): j ý[ SECTION.LINESçSECTION.LINESé ` L j "."; IJ É» EÎ LçLINES.PRINTEDé Ì >: : L aØ Î&);"-";PAGE.NUM;"-" nâ ÿ( ) {ì ÿ( ) ( "."; » Âh¿:Ù**** ERROR Trapping Routine (no files on disk) Ör¿ Õèæ5 Í Ì¿ |¿À: Ê ,
: "You have no resumes on this disk." ^¿Ê ,
: "Please BUILD one with option `B' or COPY one to this disk.": Ö¿ Ì¿À: Ê ,
: "ERROR #";Õ;" occurred in LINE #";Ô;"." ØÖ¿ROW%ç: COL%ç
: MSG$ç"Press ANY KEY to START OVER.": n Þà¿ 0À:Ù**** ERROR Trapping Routine (input file not found) ,5À Õèæ4 Í ?À j7ÀÀ: Ê ,: "The name";Q$;RESUME.NAME$;Q$;" is invalid." ª:ÀÊ ,: "Remember, you do not need to add `.RSM'.": lÀ ¾?À Õèæ5 Í bÀ þDÀÀ: Ê ,: "Resume ";Q$;RESUME.NAME$;Q$;" doesn't exist." 2NÀÊ ,: "Please check your spelling.": lÀ kbÀÀ: Ê ,: "ERROR #";Õ;" occurred in LINE #";Ô;"." ¬lÀROW%ç: COL%ç: MSG$ç"Press ANY KEY to START OVER.": n ²vÀ òÏ:Ù**** Initialize arrays to store lines of text (DOC.SIZE) 3Ï DOC$(DOC.SIZE), OBJECTIVE$(DOC.SIZE), EDUCATION$(DOC.SIZE) v Ï COURSE.WORK$(DOC.SIZE), GRANTS$(DOC.SIZE), SKILLS$(DOC.SIZE) ½&Ï ORGANIZATIONS$(DOC.SIZE), HONORS$(DOC.SIZE), MILITARY$(DOC.SIZE) ý0Ï BOOKS$(DOC.SIZE), ARTICLES$(DOC.SIZE), REVIEWS$(DOC.SIZE) C:Ï MONOGRAPHS$(DOC.SIZE), PAPERS$(DOC.SIZE), REFERENCES$(DOC.SIZE) IDÏ uðÒ¿ FCé: À :Ù**** Intro screen routine ´úÒÊ ,: "R E S U M A K E . B A S - `The Resume Maker'" òÓÊ ,: "- - - - - - - - - - - --- ------ -----" ûÓ¿ FC ;ÓÊ ,: "This is it! We at I.B.Magazette are proud to" "ÓÊ ,: "bring you RESUMAKE.BAS, the resume maker. This pro-" Ã,ÓÊ ,: "gram will allow you to build and store resumes on " ý6ÓÊ ,: "disk, according to a pre-defined format." @@ÓÊ
,: "You can build a resume with the program, store it" JÓÊ ,: "on disk, and print it out on the printer all at " ÇTÓÊ ,: "once, or use the program to retrieve stored resumes"
^ÓÊ ,: "from disk and print them on the printer. You can" OhÓÊ ,: "even print a blank resume form, which could be used" rÓÊ ,: "to write a rough draft before building your resume."; Õ|ÓMSG$ç"Press ANY KEY to CONTINUE.": ROW%ç: : n : À ÓÊ ,: "The program creates an ASCII text file, which" UÓÊ ,: "can be edited with Volkswriter or any other word " ÓÊ ,: "processor that uses standard ASCII format. (The " ؤÓÊ ,: "demo of PC-TYPE in issue #30 works very nicely.)" ®ÓÊ ,: "However, it is recommended that you read the " [¸ÓÊ
,: "documentation file before modifying a resume file." ÂÓÊ ,: "The program inputs text in a certain format with " âÌÓÊ ,: "special characters in some places. You can change" % ÖÓÊ ,: "text in the resume with no problems if you follow" i àÓÊ ,: "the guidelines set down in the documentation file," êÓÊ ,: "RESUMAKE.DOC."; Ê ôÓMSG$ç"Press ANY KEY to BEGIN or F8 to EXIT.": : n : æ ØÖ:Ù return to magazette ¡ÙÖþ ADDR.%, COLOR.MONITOR$ ¡ÛÖÈ : P: ¿ , l¡ÜÖ ADDR.%èæ Í Ê ,,: ÿ( );"Returning to Magazette";ÿ( );: þ "START" ¡ÝÖÀ: Ê ,#: "Good-bye!": ¿ ¡ÞÖ
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/