Category : Databases and related files
Archive   : RESUMAKE.ZIP
Filename : RESUMAKE.BAS

 
Output of file : RESUMAKE.BAS contained in archive : RESUMAKE.ZIP
ÿÀ:Ù**** RESUMAKE.BAS **** Program to create a RESUME:Ù**** written for I. B. Magazette by: Michael P. Ellerbe)É Ý: È :   P: É() •: • É()  ØÖ_— SEG ç : ‹ (ÿ—( ) î 0) èæ 0 Í GRAPH.ICSç„‹ GRAPH.ICS Í FCç: BCç :¡ FCç•¿ FC,,BC: ÀÀ:Ù**** Initialize necessary variables#DOC.SIZEç2:  Ï :Ù** Initialize arrays to store lines of textW(OKç :Ù** Ok to let nothing be entered in input routine’2LINES.PRINTEDç :Ù** Number of lines printedÍ7PAGE.NUMç :Ù** Number of pages printedý<Q$çÿ–(") :Ù** Quote Mark (")=FFAKE.Q$çÿ–() :Ù** Used to replace (") in the filezKNTER$çÿ–()éÿ–(Ä)éÿ–(Ù) :Ù** Symbol for <ÄÙ¥P— ÑUPCASE$(STRNG$)çÿ–(ß î ÿ•(STRNG$))ÉZ‰ (# :Ù**** Main Program **** d:Ù**** Routine to present MSG$ on line 25 and await keypress!nÊ ROW%,COL%: ¿  Hx‘ MSG$;: — SEGç: ˜ ,ÿ—( ): Åd‚‹ Þç"" Í ‚ :¡ ¿ FC: ŽžŒ:Ù**** Routine to calculate COL% as centered on MSG$¸–COL%ç(êÿ’(MSG$)ô: Žú :Ù**** Function to REPLACE QUOTES ("") with FAKE QUOTES ()"ªLOCATçØ(STRNG$,Q$): ‹ LOCATç Í Èd´STRNG$çÿ(STRNG$,LOCATê)éFAKE.Q$éÿ‚(STRNG$,ÿ’(STRNG$)êLOCAT)n¾‰ ªtȎ’Ò:Ù**** Cursor up routineÑÜÊ RW%,,: ‘ " ";:¿ : RW%çRW%ê:‹ RW%èLOWER Í RW%çUPPERôæÊ RW%,,: ‘ ÿ–();: ¿ FC: Žð:Ù**** Cursor down routineSúÊ RW%,,: ‘ " ";:¿ : RW%çRW%é:‹ RW%æUPPER Í RW%çLOWERvÊ RW%,,: ‘ ÿ–();: ¿ FC: Ž½:Ù**** Function to REPLACE FAKE QUOTES () with REAL QUOTES ("")êLOCATçØ(STRNG$,FAKE.Q$): ‹ LOCATç Í 6'"STRNG$çÿ(STRNG$,LOCATê)éQ$éÿ‚(STRNG$,ÿ’(STRNG$)êLOCAT)1,‰ 76Žvè:Ù*******************************************************µò:Ù* ALPHABETIC INPUT ROUTINE *ôü:Ù*******************************************************NTRY$ç"":KK$çÞ: ‹ OMIT Í ˆ :¡ ‹ KK$ç"" Í  :¡ KK%çÿ•(KK$)n‹ KK%ç
Í ‰ ~ :ÙEnd of entryŸ$‹ KK%ç Í ‰ L :ÙBackspace0.‹ KK%æ ï (KK%è î KK%æ
) ï (KK%è î KK%æ) Í ‘ KK$;: NTRY$çNTRY$éKK$ :ÙEcho keystroke and add to entryd8‹ ÿ’(NTRY$) ç INLEN% Í ~ :ÙEntry full¥B‰  :ÙGet another character»L:Ù**** BackspaceúV‹ ÿ’(NTRY$)ç Í  :ÙNot if entry is empty(`‘ ÿ–();Ö(,°);ÿ–(); :ÙRedisplay boxijNTRY$çÿ(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 entrymØ‹ 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 boxT2NTRY$çÿ(NTRY$,ÿ’(NTRY$)ê) :ÙDelete last character‘<‰ Ä :ÙGet next characterÓF‹ ÿ’(NTRY$)ç î OKç Í Å: ‰ Ä :¡ ‘ ÿ˜(INLEN% ê ÿ’(NTRY$));ÙPŽ÷Ð:Ù**** Word Wrap RoutineB:Ù******************************************************************* :Ù************** Word Wrap Routine - version of: 10-24-85 **********Ø:Ù*******************************************************************ó É() •: É() •: É() • *• É()  (
: • É()  ö : • É()  È
44:ÙScreen setup™>É ,"HELP": É ,"RESET": É ,"END": É ,"": É ,"": É ,"": É ,"": É ,"": É ,"": É 
,"": É •ÍHÊ ROW%,COL%,: ‘ Ö(LINE.SIZE,°): Ê ROW%,COL%,ßR:ÙInitializeW‚ LCVç Ì NUM.LINES: DOC$(LCV)ç"": ƒ LCV: NUM.LINESç;\IMAGE$ç"": WORD$ç"": END.ITçYfBACKSPACE$çÿ–()éÖ(,Ä)|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 entryi!Ô‹ 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 routineB$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 routineX%º ‹ ÿ’(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#Ê ,: ‘ "- - - - - - - - - ---- ----": ¿ FCW,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 ResumeF.'Ê ,: ‘ "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%ç:  n02’'À: Ê ,: ‘ "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.";: ¿ FC9 (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%ç:  n8@,)À: Ê ,: ‘ "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": Ê ,0WAh)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,: ‘ ÿ˜(@);: ƒ L7I*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%ç:  nVNÀ+À: Ê ,
: ‘ "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.LINESwRˆ,À: Ê ,: ‘ "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.LINES1e0À: Ê ,: ‘ "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µg„0À: Ê  ,: ‘ "Do you wish to enter any PUBLICATIONS? (Y/N)";ègŽ0ANS$çÞ: ‹ ANS$ç"" Í Ž0 :¡ ANS$çÑUPCASE$(ANS$);h˜0‹ 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" Í Å: ‰ $1Vk81À: Ê ,: ‘ "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%ç:  Ðêlˆ1‚ Iç Ì NUM.LINES: MONOGRAPHS$(I)çDOC$(I): ƒ I:MONOGRAPHSçNUM.LINES&m’1À: Ê  ,: ‘ "Do you wish to enter any PAPERS? (Y/N)";Ymœ1ANS$çÞ: ‹ 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.LINESSnÎ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%ç:  ÐAo2‚ 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$;"."t„NÊ ,: ‘ "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:",INTERESTSvnO‚ Iç Ì INTERESTS: STRNG$çINTERESTS$(I): ª:INTERESTS$(I)çSTRNG$,voO· #, INTERESTS$(I): ƒ IWvtO· #,"EMPLOYMENT OBJECTIVE:",OBJECTIVEžv~O‚ Iç Ì OBJECTIVE: STRNG$çOBJECTIVE$(I): ª:OBJECTIVE$(I)çSTRNG$»vƒO· #, OBJECTIVE$(I): ƒ IÆvˆO‘ ".";çv’O· #, "EDUCATION:",EDUCATION.wœO‚ Iç Ì EDUCATION: STRNG$çEDUCATION$(I): ª:EDUCATION$(I)çSTRNG$Kw¡O· #, EDUCATION$(I): ƒ IVw¦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): ƒ IxØO‘ ".";2xâO‹ EXPERIENCEç Í ‰ 
P`xìO· #, "EMPLOYMENT EXPERIENCE:",EXPERIENCE¬xöO‚ Iç Ì EXPERIENCE: STRNG$çEXPERIENCE$(I):  ª: EXPERIENCE$(I)çSTRNG$ÊxP· #, EXPERIENCE$(I): ƒ IÕxP‘ ".";ìx
P‹ GRANTSç Í ‰  : ‘ "Do you wish to PRINT a Stored or Blank Resume? (S/B)";G‚DuANS$çÞ: ‹ ANS$ç"" Í Du :¡ ANS$çÑUPCASE$(ANS$)x‚Nu‹ 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."IƒvuÊ ,: ‘ "Please wait.";`ƒ€u‚ Lç Ì :  : ƒ LtƒŠu Î%);"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ç Ì : : ƒ L4†Ê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5‡wF‡$w Î');"-2-"L‡.wR‡8wt‡Bw :Ù**** 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: ‘ ".";cˆ’wiˆœw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: ‘ ".";g‰x Î
);"BOOK REVIEWS:"ˆ‰x‚ Lç Ì :  : ƒ L: ‘ ".";¡‰(x Î
);"MONOGRAPHS:"‰2x‚ Lç Ì #:  : ƒ L: ‘ ".";׉ );"PAPERS:"ø‰Fx‚ Lç% Ì *:  : ƒ L: ‘ ".";ŠPx Î);"REFERENCES:"1ŠZx‚ Lç, Ì <:  : ƒ L: ‘ ".";7Šdx=ŠnxNŠxx Î');"-4-"TŠ‚xZŠŒx}Š–x :Ù**** Line 66 of page 4œŠ x ÿ–( ) :Ù**** Form feedԊªxÀ: Ê ,: ‘ "Finished printing your BLANK RESUME." ‹´xÊ  ,: ‘ "Please use it for a rough draft form."J‹¾xROW%ç: COL%ç: MSG$ç"Press ANY KEY to CONTINUE.":  no‹Èx‰ €» :Ù**** Single EXIT Return•‹ô—‹ NUM.LINESêSECTION.LINESç Í ¼˜»‹X˜‹ NUM.LINESêSECTION.LINESè Í ¼˜à‹b˜‚ LçLINES.PRINTEDé Ì >: : ƒ Lü‹l˜ Î&);"-";PAGE.NUM;"-" Œv˜ ÿ–( )!Œ€˜PAGE.NUMçPAGE.NUMé7ŒŠ˜‚ Lç Ì : : ƒ LKŒ”˜LINES.PRINTEDçQŒ¼˜ŽŒLš:Ù**** Routine to LPRINT STRNG$ centered˜ŒVšCOL%ç(êÿ’(STRNG$)ô¬Œ`š ÎCOL%);STRNG$ЌjšLINES.PRINTEDçLINES.PRINTEDé:Ž
tš:Ù**** Routine to LPRINT and increment LINES.PRINTED2~šLINES.PRINTEDçLINES.PRINTEDé: : Ž_@œ:Ù**** Routine to PRINT a Stored ResumemJœ• § ‰ h¿zTœÀ: Ê ,^œþ "*.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ç͏vSTRNG$ç"RESUME":  Lšê€STRNG$çFULL.NAME$:  LšŠSTRNG$çSTREET$:  Lš*”STRNG$çAPT$: ‹ STRNG$èæ"" Í  LšWžSTRNG$ç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“HžLINES.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Ÿ‘ ".";•ÄŸ² •ÉŸ» E•ÎŸ‚ LçLINES.PRINTEDé Ì >: : ƒ La•ØŸ Î&);"-";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 Í ‰ ?Àj—7ÀÀ: Ê ,: ‘ "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."2˜NÀÊ  ,: ‘ "Please check your spelling.": ‰ lÀk˜bÀÀ: Ê ,: ‘ "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)IšDώ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"OhÓÊ ,: ‘ "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!": ¿ ”¡Þց

  3 Responses to “Category : Databases and related files
Archive   : RESUMAKE.ZIP
Filename : RESUMAKE.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/