Category : Miscellaneous Language Source Code
Archive : COBOL701.ZIP
Filename : RUN655.OVR
Output of file : RUN655.OVR contained in archive : COBOL701.ZIP
C.A.S.T. NPO.
115 Lynton Rd.
Jesup Ga. 31545
LIC. FOR PRIVATE USE
NON-PD SOFTWARE Unlimited use version hh:mm:ss29-Jul-82Line Number Source Line COB JanFebMarAprMayJunJulAugSepOctNovDec´*Í!»ÆQÂè? CþÎÆÐàÆø í ï ÃXäµdöõÄè ´,Í!»¾Åè CÁè CƵ
öõ00CCð>~ uþÈ>z u ,>| uþÈ ¹P Ù¢ à ÿ ºÿÚÑÞÑÖþÍuñ rºÆöÐðÂöÐÐBÚÑÞÑÖÚ»Æ CJÆ
Âuñ»¤ ¹¨ èÆñ¬Ð¶ »óÚÑÞÑÖÚÑÞÑÖC7ÚÿãåI r y ¡Ah¢ .ºÁf` º 9 ¡
Ç
x
´ Ñ mü
å õ &
Z
a
S e q Ï
.
P
Y
e
w^)qÖgÝ¥ú5ç õq
{
Z$ååååå>gw
þ[§²Åãëõ# -<H1hntSë.tÅ B½8N`ÐHæ)Õ8 bõÑ»+è 0¢ ¢~»ègwén
?Compiler Error in Phase at address
AAAéþèûÚC
uì» ÙÑÞÑÖïË,x×,6xÐëËèÒÚC
tÃëÕèÂÚé èG Â
CÆ
ë¡è¢2ÀúªBúªëè Ú ëè ÚC7ésÿèt ÛÑÞÑÖÚÑÞÑÖSè[ëØ°F»é èNRè[ëÆèÑ ë½°=»:té(ÿè/îÊé·ý°Hëè°Lëä°Z» ëà
ÛÑÞÑÖÚÑÞÑÖèâ
èGé¤þè¥
Ú éþQèë
ÇöÐ"Æ
ÅðÃöÐ"Â
Á C7YémþQèÆ
Æ"ÇøÂ"ÃØõÑYAAÚèÅ
sé ué °Hé °=é °L¢é7þèí
é è¿
Úè¤
ëÐèÙ
é è«
ëêèb
RèÆ
[ëàèX
Rè
[ëÖè
éwþè
Ú éêýèx
è Kéaþè
é èf
Rè"
^ÞVÚèqÚ[KèW
Æ
Âé? èn
é è@
èQ é èW
é è)
è: ÚÆ
Àté
°Pté °Zué °Pxé °N¢ écýèd ÚC/SYéRýèS ÚC/éCýèù èò ÚÑÞÑÖÚÑÞÑÖè^ èà é ýè! RèY [éý[ÚéýèL Rè ÛÑÞÑÖÚÑÞÑÖÚëÛèñ ÛÑÞÑÖÚÑÞÑÖè ès éÐü»é
»é SèM [QC/ÚÙÑÞÑÖÚKYC7éÿèç Rè# K^ÞVÚÑÞÑÖ^ÞVZéþüè RèÅ [QèÙ
Ysé 2À
Çyé °Té °F¢Ú éÐüQ è» º $ÂÐré Æ ðCþÍué* SÚÛÑÞÑÖSÛÑÞÑÖÛÑÞÑÖZÚÑÞÑÖÚ[ë¹YRèù
[Úérü Sè8 Ú [ÚKé[üè& ÂÖðKèa éÆû é ÚþÚÛÑÞÑÖÚÑÞÑÖÙÑÞÑÖïËéûQ þÀÐØÈè» 7CCSè [þÍuíѶ è
Yéiûè Â
Àté »¤é* è
ÚÑÞÑÖÚÑÞÑÖº¤è¹
sé ué éÚú é&ûèÜ
Âèo
ÚÛÑÞÑÖþÈuôJéûèÀ
QêèR
Æ
ÀÐØðÂÐØÐþÍuîYKékûè
è
éßúè
Ú éÓúè
Ú éÇúè}
éþès
»éùýèj
»éðýèa
»³
ÚÑÞÑÖÚÑÞÑÖC7»²
SÚÿãéùMyPySyVyå º éQ º éK º éE º é? º é9 º éB º é< º é6 º é0 º é* èo »Á
ÚÑÞÑÖÚÑÞÑÖ Ã ÚÑÞÑÖéÇS ÚÑÞÑÖZé èÂÿèÿ2À
ÂtéV KþèxÿKCCSè[èêè rÚÑÞÑÖÚÑÞÑÖÚ èÊÚ rÚ tèué ùréù»( èBpé½ø
?Memory Full
èCÿèÿRèÿ[èc¶sé%èÒ ëéè)ÿèðþÆ KÆ éÓøèÿèÞþèjéÇøè ÿèRèÎþKZé9ùèóé ÚRèíþèÀþëäèåþè¸þRÚ ÚKè$[ éøèÈþèþRSèÊK^ÞVKè[Zéêøè«þèrþBRèwþKZéÖøèþèRèlþZéCøèþè`þÖ¶ èë RèOþ[ÚÑÞÑÖèaþJ2À
Æyè²xè¨éøèVþè/þÖ¶ Rè!þ[ÚÑÞÑÖè3þèª RèþB[ÚÑÞÑÖÚë»éÞ÷ é Sèþèéý[ÚÑÞÑÖé èþè×ýÚKSè¼ý[ÛÑÞÑÖÚÑÞÑÖèÕè:é÷èÛýè®ýJRèý[ÛÑÞÑÖÚÑÞÑÖSèµ[éô÷èµýèýJRèoý[ÛÑÞÑÖÚÑÞÑÖSè[QC/Kè¢Yé¿÷èð ènCSèÏ»¢þ[uîYé#÷è× S ¢Ø· KÛÑÞÑÖÚè½ ÚÑÞÑÖZ ¢èè uè té þÍuï°=é ° ¢Yé×öò¬B:CÃèýèèüQε èÎüÚ vÙÑÞÑÖSèÂü[èré YèëÔèÈüè¡ü vÚÚÑÞÑÖÚÑÞÑÖSÑõè- ÚÑÞÑÖÚÑÞÑÖ CCÚ[éèÎéèÉYéIöèü[QSè]üÚÛÑÞÑÖSYèTüÆ¢¢è4üÚÙÑÞÑÖKKÃèÎè>uéöèSüèüJJÚ uèü» ÚÑÞÑÖ sÚè Ú qÚCèÚ o»oè¨ éÉõ èü è oéÒü
Àté èÑoèÜÆ<ué¢C èÀSÚ ÇèÔ Ð¶ » ÚÑÞÑÖ
À¢xé <þuéõ $?þÀ¢[CèSèåþÈuñ ÚèØ[C » *þÈ¢é õ ÿÿÿÿþþèG nÚ nèé÷ô n lè[è7
¶ Ð nÚÑÞÑÖ néÐô nKK lèl[è
öÐþÀ¶ÿëÍÆÐÀè ÐÀÃÐÈÐÈÐÈÐÈ$ÃèZéôèåèßÿþÀöÐжÿ ÚÑÞÑÖèS»¤ n péhôèiR QïËèaýÙÛÑÞÑÖÚY[SÚÑÞÑÖ^ÞVSº èé[ÚÑÞÑÖÇ
Ã[ té
ÐØré
Cé ÐØsöSèZ[7éôè¹Qè± nÚÑÞÑÖÚÑÞÑÖ lèZRè Yè;èZYéÒóQ» ¢ÆèÚëÛÑÞÑÖ Ú» ÚÑÞÑÖSèâ[ÆòÐè0KKKþÍuåèËU ¢ Yé~ó né è´Ú lèZèÆÐÀè¹þ lж BÚÑÞÑÖÚÑÞÑÖ lèéYèÜèãYèÖèÝYèÐé-óèjÚ lèÎYÆÐÀèrþж RR lÚÑÞÑÖÚÑÞÑÖ lè¦Yè lKK lZþÊué RëáZèyéÓòè»ÚÑÞÑÖÚÑÞÑÖèõÚÿã »Åþé«òèèÚC ËèÜÚ ÍéòèIè éòÚ Ú Ø Ð Ö°¢Ô»Òè½kÃ Ö þÀÐÈ$_<yé °ÄPÄþÀØ Ñø ÖÃ$?þÀþÀØ· ÔXÄÐÀQèº »Øè#YÚ ÚèCSè[èxènÿéÚñè øèk}éÑñè é è~ ÂÐÐÐÐÐÐré ÐÐÃré èý$é ÛÑÞÑÖÇ$ðÂé $ðÂ$"Ætè uè é|ñ:Æuè tè émñ°Té °F¢Ãè Âëßè òëÕ袡éFñèò@ ÛÑÞÑÖÇ$<
ué% < ðté ¡:ÆtÓAñ¬Ð 2À¢¡Ã ïËéïAñ¬ÐAñ¬ð
ÀuàÂ<
sÚè ÚÑÞÑÖÚÑÞÑÖÚÃC7Ãè KKK à ëáè7 C"ÂÈC"ÆèRèáÿ[ÃÆ:Çrùu÷Â:ÃÃÆ2ÇÐÐsëÆùÐÐrð2ÇÃèpÿÚë C7à CCC7K ÃAñ¬Ð¶ Ãèhgè(bél |Ç
Àté Ã
ÀuéG <té ° ¢¢Úèÿ Ú»BBµò¬<0té
Æ CBþÍëéò¬CBþÍuñèaèva»èùféëèjaèaéë
No Errors or Warnings
Å
ÆðÁ
ÂÐÃÅ"ÆðÁ"ÂÐÃò¬BCþÍuñÃÆÐÀÈ$è( è è ÁÐÀÂÐØè
ÂÐÀÐÀÈè ÁÐÀÐÀÐÀÈ$ 0CÃÆè Æè Âè Âé ÐÀÐÀÐÀÐÀ$<
sé 0Cõ» » ÚS è(þC [Rè ± 2ÀÚÑÞÑÖ
Çyé þÁëëSÁ 0 C [ZÚÑÞÑÖþÍuµ»Ã'èd
Ç
ÃtæÚÇ
ÃtÞïË» °ÛÑÞÑÖÚÛÑÞÑÖÚré
ÙÑÞÑÖr²þÈuÙÃè ÚÑÞÑÖÃè BÃÆöÐðÂöÐÐÃ^ÞVRQÄPÄSÃ[XÄYZ^ÞVÃèD`C<
uô°
è8`ð
è2`ëóÅ2ÆèÁ2ÂÈÃÅÐØÁÐØÈÅÐØèÃò¬:uøBCþÍuïÃBè t÷Jè
tïBBëèò¬CþÍà èWdâËèêþ È
ÀtéÄì &
ÀtéM þÀ¢&º »µ'èyýºE»¾µ ènýº¤n».¹ éè`ýºÆ»fµ èUýº¾»ZµèJýºÏ»}µè?ýé » è*»ÏèÍ É
Àué 2À¢Éè+ré °ÿ¢Èéj ÆC Æèò Û
CþÍuð2ÀðÃÚ»É<tôþé]ùºÊQ èò¬þÀúª:ÅYyé 2ÀúªSè »'è¢ý»|èýè«ý[éý»zþÀ<:uÆ0K< uì°0ëè»Òëá° µGKþÍué :tòCÆ
à Î"Àué ºÕ»ÌµH2À¢ÎúªÆ BCþÍuîõ»Õ Ì
Àué è(`ré 2À¢Ì Í¢Î2À¢ÍèS`ëªè1^rÎ<
uéa <
tÉ< uég ÈÅ<ré Á$ÈCþÅÅ
u÷
ÀÃèÀ_ré 2À¢Ì Í¢Î2À¢Íèë_<
uá
ÀÃÅÆ CþÀ
HH:MM:SS DD-MMM-YY PAGE 0
ééãéæã $ '$ '<'
' '<'' ' #' ('<-'2'<7'
#H#Lÿ"$ Já u#1@' HÙ HÛ HÝ ' $ RÀ 01RÀ u#1RÀ u#1CRÀ u#01v (T KZ VZ P I#'d#Ko U¾#b#J^ ' u#0vß 01J (P u#01R 1Av O T K 1Bv« 3J uø u#1RÔ uD.$ O j¤ HÄ#H\ HZ H#% H¢ *3J» AMNIBCc#H#u#0R c#H#xJ N 6sø uø N u#1RÇ u#01R 1Dvd 1Bv® 1dvK 1Ev 1fvé O TT K T K T K 3J u#FX JÇ \X Jf 3$ 01v Jà 01v 1bvµ 1_vË 1tvæ 1jv 0vÜ#JZ u#1iR° u#1RZ u#0RZ d
#]Z $&I¤ Jà 1J u#1RZ u#1cRZ \¢ Jà 3M5u#0RZ '%4 u#Jf 5u#0RZ O T
Kà JZ <7 <<
# u!u#0v`!1[Jð H
$&L #>]!3\$ s!3Jé 01R²!1Bv® 3Jé u#0RÎ O TÚ!]Î (T #VÎ aÜ! Jµ 1vþ!1TRõ!(T ]õ!sÞ!bÞ!bÞ!bÞ!sÞ!u#1R"u#1zR"u#1\R "u#1.vj"0Re"c#Re"G#Je"O#T#We"u#1TRe"u#1hRN"u#0Re" 0Re"0(ve"u!Jé 3J¨!u#1hRu"u#1KRe"N#JC"5u#1*R"3M'4u#1Rvµ 1RÎ '(T ]®"3\%J°"3]( Tb ]Î %4Jµ u#1kRÎ 5u#0RÎ S#S# '% M# H# Jµ 3\'Jc 3J øè ÿ ÿ 3 (T #KW#P #H #% 5(u#0RO# 7 7 Jµ 1v/#JÎ 3
4 '%4HÈ#4HÚ#LÂ#4sÚ$ '%4 '?%4HÊ#4sû$(PROCEDURE @WORKING-STORAGE FILE FD( LINKAGE 0 SECTION 8 DIVISION)ZERO)ZEROS )ZEROES1SPACE 1SPACES9(LOW-VALUE 9(LOW-VALUESA0HIGH-VALUES IQUOTESA(HIGH-VALUEIQUOTE R(REDEFINES ZOCCURSb PICTURE bPIC jVALUE VALUESrCOMPr8COMPUTATIONAL rCOMP-0r@COMPUTATIONAL-0 zBLANK TIMES SYNC0SYNCHRONIZEDJUST(JUSTIFIED USAGE xWHENLEFTRIGHT ¨IS±ALL ¸ LEADING ÀUNTIL ÈFIRST ÐBYØONàTOèFROMðINTOøAND ORNOT !NUMERIC BEFORE)ALPHABETICAFTER LESS EQUAL !GREATER ( AT()ADVANCING 0!SEPARATE8INPUT 8I-O 8OUTPUT@KEY T!INSPECT \READY \RESET XTRACE dCLOSE lWRITE h!INVALID tREADpEND |OPENxERROR ALTER !PROCEED !REWRITE IFACCEPT¤ADD ¨!TALLYING´!PERFORM °!VARYING ¾!DISPLAY ºACOMPUTATIONAL-3 ºCOMP-3¸UPONÄ GOÀ)DEPENDING ÌMOVEÔ!SUBTRACTÐGIVINGÜ!MULTIPLYØ!ROUNDED äDIVIDEàSIZEìEXITè)REPLACING ôSTOPðRUN :IDENTIFICATION2ENVIRONMENT DATA*PROGRAM-ID 2INPUT-OUTPUT(2FILE-CONTROL0SELECT8ASSIGNÐ%RESERVE HFOR `
NOpAREAx2ORGANIZATIONACCESSMODE*SEQUENTIALRANDOM RECORD "RECORDS ¨BLOCK °"CONTAINS¸*CHARACTERSÀLABEL È"STANDARDÐ"OMITTED ØRERUN àEVERY ø"PRINTER DISK;DECIMAL-POINT COMMA ;SPECIAL-NAMES (SAME03I-O-CONTROL 8OFF @ OF@ INHSIGNP#CURRENCYXSTATUS`ARE h#FILE-ID PLINEPLINES THANÈTHRUÈ!THROUGH üELSE¢ INDEXED RELATIVErINDEX ¸ TRAILINGH UPHDOWNCALL "COMPUTE DELETE SET $START P"DYNAMIC AREAS 4USE +EXCEPTION #CODE-SET ASCII -COLLATING %SEQUENCE¨3DECLARATIVES°WITHÀLOCK,"EXHIBIT Ð3RESTART-FILEØ+CHARACTER àPAGEèNAMED ðUSING ø#PROGRAM COPYNEXT $SENTENCE@&NEGATIVEH&POSITIVE0,STANDARD-10 NATIVE@ INITIAL DSORTØ-SORT-MERGEDMERGE L"RELEASE TRETURN¬SEARCH\STRING\"UNSTRING,DELIMITED $OVERFLOW¨$POINTER °,DELIMITER Ð COUNT 8,DEBUGGING @,PROCEDURESJLIN RCOL Z Q-RW-Q` ERASE ÀBEEPh PROMPTp.SPACE-FILLx.ZERO-FILL 6LEFT-JUSTIFY>RIGHT-JUSTIFY È UPDATE.AUTO-SKIP 6LENGTH-CHECK°>TRAILING-SIGN DSOURCE-COMPUTER >CONFIGURATION (FOBJECT-COMPUTER 8>DATE-COMPILED 8 AUTHOR86INSTALLATION86DATE-WRITTEN8&SECURITY8EXTENDØDATEàTIMEèDAY SD,ASCENDING ,DESCENDINGCHAIN $CHAININGèFULLð&REQUIREDø.UNDERLINE ?REVERSE-VIDEO GFOREGROUND-COLORGBACKGROUND-COLOR'NO-ECHO 7EMPTY-CHECK LINAGE¨%FOOTING °TOP ¸ BOTTOMÀ=LINAGE-COUNTERÈ5END-OF-PAGE ÈEOP ð ESCAPEø COLUMN BLINK (/HIGHLIGHT PLUS AUTO( SECURE0BELL8 SCREEN@ NUMBERHFILLER ( ' S.Jr.$ T.Kv.^
# $g.]r.b#U#% 4JR.H.$ sD. ð »aþ°¢àT°¢aÃxë
àTÀuéÿ 0À¢àTéÆ è»aþré Æ ¡
Àté N[
Àué ¢¡ J[
Àté ¢N[2À¢K[¢Fd¢L[¢M[ J[
Àté! èB Ã<té ³ éa2À¢J[ ÃþÀÐÈ$?ÐÀ躻 è&À <uéÛÑÞÑÖÇ$<té! xÇ
à ué ÀuéÐ K[<xé Sж »R[ÚÑÞÑÖÚÑÞÑÖZèÁ¾Ú lèÍèéBB lÚÑÞÑÖÚÑÞÑÖ lè©Æ$?è K[Ú»j[ÚÑÞÑÖ/»^[ÚÑÞÑÖÚÑÞÑÖÚ Úè]¾»K[þÂ$`té »FdÆ èî <té è= té °I¢§ $`téV »FdþèÁ ÛÑÞÑÖÇ$<ué! <té( é
ÿÇ
ÃØ L[þÈté M[
Àté
¹ð Úèø¼Ú èW¾Ãè¼ ÛÑÞÑÖÇ<ué »J[þëÝ CCCC 2À¢ ëº P[S lèÞèú [RÚÑÞÑÖÚÑÞÑÖ lè¿Æ
ÂuéÖ Ú l t[è¬èÈ Y l:Áué QëÁ¢O[ lS P[ lè l^ÞV lRèt l^ÞVè1»ué [ t[ l^ÞVévÿ»O[þ[^ÞVu½^ÞV t[S p[Ú»R[ÚÑÞÑÖÚÑÞÑÖZè»Ú lè è8 CBÚÑÞÑÖÚÑÞÑÖ lèüÆ$? p[Ú»j[ÚÑÞÑÖþÀ[ÃÆÐÈÐÈÐÈ$ж ðF¢§ »w[Æ »1[µÆ CþÍuöè»r[Æ< tó»1[µé- a
Àté °lè »1[è
À°oté °¢Ì» a
Àuéöùèéðùèàéêù a µ 2À»aCþÍu÷» » r[è < tò Æ è <Åtéa ¢a
Àtì» þëåèÖ¹ éÏè͹éÆè°K¢§ è½Å <Ø· Ú»`ÚÑÞÑÖ¢N[» $p ¢ ¹é »r[þèré ¹ a
Àué^ èeék ¢ »a
¹ té= »aþé¨þ»r[þèÐré ¹@ ëÆ ¢
Àué a
Àté ëлr[þè¨rÛ¹@ è°lè~é°lèvéÝý a
Àté» Å<*té# èzsé aºÕÚÑÞÑÖ<*té èü°K¢§ ¹éÄ a
Àtéz èBræÅ<.ué <,ué <0yé2 <:xé+ r[K r[ºÚÑÞÑÖ<-té ¢aéþ¢aéyþ¹èc°lèÏédèæ aré
Àté ézÿ
Àté@þë»aþ°lè¤é4°L¢§ Å¢a a
Àuâ <uéðü»r[þ»aþ r[
ÀuéS¢ r[ºÚÑÞÑÖÆ a
Àuéð a»a
»a
té"»r[þ r[ºÚÑÞÑÖ<-°muèè§
À éü»`ȵ:Áué KþÍyðÃÕ¶ »`ÚÑÞÑÖ :Áuç»`ÚÑÞÑÖ¢ étü ÈÉ"#
4 4èú è r[ ºÚÑÞÑÖÆ éþ a
Àué: <xé8 a<xé) ð¹ a
Æué ¹ a
Àué » è éXþ°méü< yé °nèú°¢è :Åx®Å¢ ë§ þÈuß¹ëÈ< uéD èrté·úè »r[þ»aþ< té£úèB r[þÈué »r[þ r[ 袺 $`uèCûaþè£rÛénú H Úèô³Ú ûaþ¶ »ÕÚÑÞÑÖð¢Ìaé a
Àté; v[
Àué è2À¢v[Å< °.uéÅ °,éÀ a
Àué a
ÀuéØ µ2À¢aÅèãµ¢a
ÀuéF yéÆ a
Àué ° ¢aé> c
Àué
Û<-ué ¹ r[
Àté è*ÿé ýÙ a°¢a a
Àué( è ÿ»a:ué^ÿ< té
a
Àué8ü°kèæ é0ü°¢a¢cèþ»r[þè a
Àté$ a<ué) Å< té » cþëÒ c
Àué »aþù° ¢c¢ cà Û<-uêÅ< ué »aþ
ÀëÞè7þè»r[þëä a
ÀtÑ»aþ[éðû¹ <.tÁ¹@ <,tº<;ûaþ2À¢a a
Àuîè÷ý»r[þ< tíèÏÿté Q» aè9ÿYré è¢ýûaÆ»aþÃÁ¢v[ÃÈ <töµ »ÒcÙÑÞÑÖ7»a"ÆuÞ
ÆÙ· éµ l謲 lè° n lèÆÐÈÐÈÐÈ$ ¢ l¹ è SRº èmC lZÆ
Âté1 Z nÚRº{gè °Zsé
lèAé è ° l n tèL²Ã[Ú lèÆÐÈÐÈÐÈ$ lж ÚÑÞÑÖÚÑÞÑÖ lèëÆ
ÂuÈÚJë lCC l lCC l lþÈ¢ lyé lè<¯ l
Àué ÂÖðè¨èê±ë¸2À¢ l³Qèê±þËuùZèÕ±µ »{eÙÑÞÑÖÙÑÞÑÖèù®Kà Q» » è& YÃQ» è YÃþÀÐÈ$¢Dd¢ l l Jd» Bd2À¢Hd¢Id t l¹ » lþè&ýÁ¢Ed LdÚ l þÈué"Ç
ÃtéV $p Ø· ûIdÆÐÈÐÈÐÈ$»Dd:uéA lþÀÐÀж ÚÑÞÑÖ l LdèÚÇ
Ãué
lè~Æ
Ày± Ld Bdë lS Ddè JdSèY[Æ:té CÂ:té} CþÍué SëÚ[ lè1RÚÛÑÞÑÖÛÑÞÑÖÛÑÞÑÖÛÑÞÑÖÛÑÞÑÖÇ¢ ZÂ$ж $p
ÂÐR l DdþÀж ÚÑÞÑÖÚÑÞÑÖ Bd[éýþ[ l Ddéÿ lé Ú lÇ
Ãué7è¥Æ
Àxé BdÇ
Ãté Ld BdÆÐÈÐÈÐÈ$ÈÆ
ÀxéS $4téJ Â
ÀtéA Fd
Àté7 lSµ ÙÑÞÑÖÙÑÞÑÖº ÚÑÞÑÖ lè-[ lÆ$>ué
Dd:Áué< µ lÙÑÞÑÖÙÑÞÑÖCC l Ldèî BdÇ
Ãté*ÿ°¢Idé"ÿ lS JdSèÉ[Æ:téD CÂ:té8 CþÉué SëÚ[ lè¡Æ
Àxédþ Hd
Àté l »Hdþé [ l DdÈé\ÿ · Ã$pØ Hd
Àué Ã Ø HdþÈuéýà ØévýºÚÑÞÑÖéhýQ t l Dd<té0 èÚ ÜkèÚ Þkè Ú àkµºÖk»Ükèh¬té 2À¢Dd EdÚ»{eÚÑÞÑÖÚÑÞÑÖè`©Æ
Âté KÚ Ld tÚ襩é< Bd l Id
Àué è¢ Ú Ld tÚè é è©Ú LdJ tÚèf© t Ddж ÚÑÞÑÖÚÑÞÑÖ l LdÚèZ º èT èQ DdÐÀÐÀÐÀðèC Æ lCC nÚ tÚ tÚ lð² è YÃIFLLRE è# lé¨è lRÚ rè¨ré ÚZéȨ lCC là »Á
èK¨ÚCCºÜkRè] ZèÏ
pKK pÚè¢ªÚ mÚ tÚÑÞÑÖº ÚÑÞÑÖÛÑÞÑÖÚRè( º »{eµè Y p/QRSèw
[ZÚÑÞÑÖYþÍuëñ »{eQè CCYþÉuñÃSè·§RKº è
¨KZ LdÆ
ÂuéI RÚè§CÆèÐÈÐÈ$ ж ÚÑÞÑÖZÅ
Àxé S mÚÑÞÑÖÚ Ld轧[ LdèU§ë®[à èèJ è søè8ÁÃ
ÀyÓCCCÚñ¬
ÀtÃCAëó 'nȺ(nò¬BCþÉuõÃLST OBJ !#$%&()+-NUL :u.9u ÿ ( P S2À¢(n» )n»+nè2À¢n¢!n¢ n[ðÿ¢ n
ÀÃ
ÀuùþÈCCCº£nµ uò¬BCþÍuõðÿ¢(nµºn»,nëå +n
Àté@úªB°:úªBÃÁ¢!n +n
Àu§ÅþÈu9ò¬è ø
Àtâ< rµS»,nèÿ[
ÀÃ !nPÁ¢!nX<.uè; tè¼ÿSµ»(n ,n< uþÍë n<.tµÿ/[ !nÈ n
Àùu¿ +n
Àu¸Å
ÀÃÅ
Àt<rµS»4nèÿ[Ã ¢tQR» Æ
Àèt$C< uþÍëóºQtÅKþÅúªBCþÍtëóQRë ¢tè^ºPt´
Í!°
è ZY Qt»RtSÃØ° ÇøÆ
C°
[ÃRP$ÐXZ
ÀÃPQRS $n
Àu绣nëÎSR2ÀC° ¶ è
2À¶è [ZÃCþÎuùÃP "n
Àué Rº£n´Í!ZXÃPR°
èf °
èa %n
Àué èý» C ÈnºQtÚZ<
té ¢ÉnëÇ<uè C ÈnºÉnÚZ[<ùt«
ÀúÊn»£n°QRSȵ Q´Í!YZ´'Í![þÈuè » Yú þÉyé ÚëõÆÃò¬@<@té ° éÈ ÌrÚ tnÚÚ vnÃP $n
ÀYZ[ÃÃ/È|;(},X}
>}=g}Dé|Fô|Pï|T}C} Source program Object program Source listing [ ]: z£z²z nPnxnénþmFile not found Can't create file Disk full Command error: ' ' Bad filename Bad switch: / Overlay not found z ¢z #n
Àuèìé¿z¹ 2ÀóªÆ¤n »à{2À¢ÌÙ¡ +Á= r¸ ±ÓàHH£zàSÃèúSQzKC?,uA?
uô¿ÿÿ,u zÆÿÿ
Æ
Y[Ã>z u
þz»è è½ÿè'ñrzè>ñsö¢7{»'{ëp zÐàP·èz¿Áz¹ üó¤¿Òz»¤n¹ >zu
>zt»n¹ < tèîðCªâó°.ª[·ôz¬ÀtèÚðªëõ¾äz¹ ó¤»ÁzÃ$
ÀuÃè¿ùCëñ»:{è Æz Ƥn Æ+n écÿè éàþ°?èùèËÿ°
èù°
éù»úzèèÿéQ» {ëÚ¢ {»{è×ÿé@¢^{»V{ëÆèáð¢T{è`ðÈøèðs»G{éÿèÊðÈéÿÆzÿÃþzÃè¶ð<0r
<5õr,0¢|Ãè r ¢ãyÃè r¢)yÃèðèð,@<r<õÃSè, >zs1èn÷è4 è ëîèK uè' è >zsNè¶þè^þøÃSè0 uè èb [øÃÆzÃ3À>zu>zt èm÷X À°ÿ¢(nÃu>z uéÜý zÀÃè^ èùè èøè è±ø zãÿ6z.zþÅÆ#n à z<s1þzÐàØP zÆz ÀtÆ(n îzSèúï[Sè×ö[_ôzèÒïù º ¤n ¦nùusuúeru¨nù:tù uÆ"nù º Tn Vnùusu
úeru$nù º |n ~nùnuuúl tÆ&nùcouún t ùusuúeru%n}ÃèáÚ ÜèiÚCèÐ2À:Âuéª ÞÚÑÞÑÖÚ Ú» Úèçsè? Ú ÞÚ ÞÚÛÑÞÑÖºàÚÑÞÑÖÚ ÜÚS ÚëË[è¶éè±è à Ø<ué: þÀ¢ØºÞ Öµ ò¬BCþÍuñ Ö ØºÞ<uè[ú» Þ ÚúÞèyúëì ÞÇ
Ãtè§ÿë¡Q Ù<ué4 þÀ¢ÙþÈè Ø:Åué) ºÞ Öµ úªBCþÍuñ Ö»ÞYúÞè+útó» Þëêèjì»- Ö Ø<uݺÞéáù Ø<uкÞéìù- R$NUBC0123456789ABCDEF -- ¥µ E ANSI COBOL6.50
C:RUN651
C:RUN6528 DGROUP _PCODEDSEGDATACODEIDATA OVERLAY_AREA 00 ` x h h ÿÿ AX QRÂ<xév< tèz<tèç<tèR»¢ÚÚC»^ÞVÚÿãZ¢YÃØÞÞÞÞ ( z × ì ÿ m¥¯ºØèö ~¼×èéÞè té è.KKèéÈèDè$tñÅÐÈÐÈ$?èé*»üÿÚÚèìté èþé èÿ$ü ÃèMRBîÊè
Å$ðÑè® ÚÚ CCYCCÆè
Âtè uîÃQRSèèC[ZY
4¢
IÅ
ÁÃèYèQèõ Òté » ^2À¢`»]± èx 5 G Ú èDó»1èU»:èO»CèIèèWñèßÃè ÚÚ éÊèÂþÀÐÈ$è~þÈuùÃè|S»áµ^ÞVCC^ÞV7CCQSè[YþÍuãèPèèJè[èè#°¢à bºÈèqº¾èk º ÚÚµèкêèU»çé»Á
èýÚCCSº¶è[Sºöè
[º(è± »²è»¼è{»Ïèu»Üèo»éèiQ2À¢0³2º RSÂ$ðÐÈÐÈÐÈÐÈȵ »íÙ¢.Â$È»íÙ¢/± »$è*» %[ZþÂþËu½ 0
Àté1 SþÀ¢0»(ÆCCÆOCÆBCÆOCÆLCÆOC[é}ÿYè²ñ Ú
Àué »
>»1è»»:èµ»C读 2 ; DèX»U± è»}èºMFè/éÛèþµK< tÃÆ_þÍuñÃèÐBBµé ÿéÿ ÿ°èó Úèèc éÞ裵CèÙþÍuöÃè Ú Ãè èèÆ»áèzè±è®°¢àÃèjèwè«è>ëì <té <ué Ú» ÐÀȵ Ùé è"Â"Àué » é ° ¢¢ é8 <u ¢ é <uâ°¢ ëÛ <uébüµ Úè`èÊÿéQüèRèZÆ ðð z
ÀuéÍ Ã<tûè < Åuð
ÀÅtçPµ è 2À¢
X<u× K Ã Ût÷RÃÐÈré K°¢
Ú Ú èj
Àué µ èQ » ZÃ< tûè <ÅuðèÿPRèÿZXúúÿ Ú CCúáµRCC^ÞV7CC^ÞVþÍuê[Ãè# C ú îèêè CC ð ¢R²3» QRCCSP»L Òté °¢T R< ué 2¢R± è
» M R<;yé 2þÀ¢R¢T[ZþÊu²Y°¢TÃQRQº, °ÄèÍ Y±PÅ<té ±Cué CÚ ~C ~ÚZCC º ~Ú ~è<ÿYÃÚè Ûté RèOZµè Ú C ÚCè é; º ÚCé0 PSè[ ³X¢²ÃS»àS»æ° :té
K^ÞVþ^ÞVëì[[ÃRº. °Ìè ÆVCZC º ~Ú ~ÃP ~èré è·è X
ÆCCÃR º èY èe Æ C àж Ú Zà ¡º è+ è7 CCÆ C àж ¡Ú ¡Ã àȵ Ùè sïé. àCèºáé °ºÄ èïré è»µÚ èÚÃRQ °ºÇ èÌré èë Y/C °C °ZÃRèwÚ áZ»áÚ ýèh Ûà ýè»áCCCC ÐÀÐÀÃCCáCCKKÃR SÚÚ rèPré 2À¢Ú Yè7 Zû
Àté£þè[ZëÄSº è½ÿZÙ CCCC ÃQ ÚÙè0ËZ Úè ËÚ ÃÅ
ÁtùKJúªIëðSR S Ú[èÃuéa CCSBBÚ$té [CCCëØ^ÞVCCSÚè¢ý[^ÞVK7KÐÈÐÈ$?èèýZB Rè«ZË»ûÿÚÚRè Ú [ë è_ýZ[ÃÅ
ÁtùúªCBIëðR
Àué <2té èF » [ S2À[ þÀ¢Ú CCCC C Ã
Àtè »éBì»è<ì»é6ì»± è= » ±è5 »¯±è- »}± è% » »¥ »µ » ³ÃC C ÒtóKµ ÚÙÚBCBBKKèÞéÅèCJ Òuñ CÅöÐþÀèÄéà »W±2ÀþÉyÃCëöS» S[°é » S» °¢VRèÇ èÐ ué, ÚCCCZSRCCZ VèÅ Rué Ú SÚþÉuç[^ÞVëÌ» ZÃZYð é °» ¢Uè{ è té Sº èI ZÚK/KÚÃÚ U:té Úè, ÚCC/ÚÃ/þº Ú<Åté ÀÀÀÅж ÚÃRSº2 è ý[ZQC/[°þÈCCCCCÃÛÛºWÚCCÃÂC
7KÃSRèò¬:té BCþÍuðZ[Ãèj Ç
Ãué¨ Ú ÍÚèûsé té è Ë
Àué þÈ:Åté{ YZRQ ¤ÚèÚÑÞÑÖÚ»uèÖ »C C CCÚèØ»¦ÚÑÞÑÖÇ
Ãté é C7»è¶ è èÀút µèX »þuèÆ» é§@LLLLLL W0=DDDD TPH
è/ºÁ
è ÚÑÞÑÖ± Ã
Áué þÁ,
uúÁ<
yé ,
³1é ³0 0ø Ï»ÔS Cè è è è [»Îèî è<Ú ÊÚCè.Ú ÌÇ
ÃuéV ÊÚ»òègµ»ûS ÊèC Ê[èCþÍuæ»ñè º èe ÌÚÑÞÑÖ ÌÇ
Ãué Ç
Àyªèe ÃCè¿Y^ÞVèFº ÚÑÞÑÖ^ÞVQà TXX N=XXXX L=XXXX M=XXXX G=XXXX
*XXXXXX* XXXX XXXX XXXX XXXX XXXÿ6è½úZ³Ã rºÿÚÑÞÑÖ rÚ tèkséÛy )Sè RCè[ÚÑÞÑÖÚÑÞÑÖºÿÚÑÞÑÖ +[º ÚÑÞÑÖ
Àué> )èÝ»ÿÚÑÞÑÖ 'Ú )è%Kº9 èöué º
ÚÑÞÑÖ )ë® +S 'Sº ÚÑÞÑÖZúª^ÞVè¾ué ^ÞVBCëã[ º ÚÑÞÑÖè`ÚRº@ ÚÑÞÑÖZÚKé© èy趲è_ºâèL¶²èRº.è?¶² èEºHè2¶² è8º\è%¶
² è+ºrè¶ ²è ºè ¶²!èºèþ ¶²èºxèñ ´Í!èè&¶²èí ºâèÚ ¶²
èà ºèÍ ¶²
èÓ ºÄèÀ ¶²èÆ ºè³ ¶
²è¹ º è¦ ¶ ²è¬ º0è ¶²
è ºBè ¶²
è º{è ¶²è ºxèr ´Í!è è§ ¶²èn ºâè[ ¶²
èa ºèN ¶²
èT ºÊèA ¶²
èG ºè4 ¶
²
è: º9è' ¶ ²
è- º[è ¶²è ºxè
´Í!è# èB èÀ ´ Í!´²N· Íô· Íô² · Íù ¶²O´° ·Í´±µ Í´² ¶ · ÍöèÐÿèI è* èI µþÍxõè¼ÿèA õè¤ÿè9 ëê¶ èªÿè è è ðMþÈx P°Íè7 XëóðÉè. ð»è( ðÈè" ð¼è ðºè ðMþÈx P° è XëóôÍ!ô³·Íôµ±Í¶²´Í¹ ¶$²y´° ·Íè@lé/k É$Í$»$º$È$¼$ÉÍ»ºÈ¼ANSI STANDARD COBOL VERSION 6.50$ Released into public domain Apr. 28 1990$ Copyright 1987,88,89,90 $ Robert Eric Noweck$ 115 Lynton Road $ Jesup, Georgia 31545$ If you find this software of use either in your profession$ or your school work then please send a donation of 25.00 to:$ Coastal Area Support Team$ 115 Lynton Road .$ Jesup, Ga. 31545$ C.A.S.T. is a non-profit group that supplies assistence$ to HIV+ and PWAs.$ This will most likely be the last version of this software$ if there are any errors or problems, I have left the source$ code in my will to be released to PD at my death$ Keep the faith and pray for us. $ Born 12/4/55 - Died / / $ PRESS ANY KEY TO CONTINUE...$ 1-912-427-0756$
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/