RS³‰ŸNAME¤ADDRESS¤CITY¤PHONE¤A¤FILENAME¤COUNÔTEMP¤CHECKFILENAMÅØSTRINGERROÒFILENOTFOUNÄ€€€€€€€ !!***************************›!!* BASIC TRAINING *›!!* ADDRESS BOOK 2 *›(!!* by Clayton Walnum *›2!!* *›<!!* Copyright 1989 *›F!!* by ANALOG Computing *›P!!***************************›Z›dGG€;@0,;@0,‚;@0,ƒ;@,„;@,…;@,e‡;@,f'6ˆ-A6Š-@'6‹-Apn›x!!***************************›‚!!* PRINT MENU *›Œ!!***************************›–› (>:A%,ª(´(| ÃREATE FILE |¾(| |È(| ÌOAD FILE |Ò(| |Ü(| ÖEIW FILE |æ(| |ð(| ÑUIT |ú(„„4C)„4cAp„4L)„4lAP"„4Q)„4q,„4V)„4vA€1$$(PLEASE CHOOSE Ã, Ì, Ö, OR Ñ.6 A`@›J!!***************************›T!!* CREATE FILE *›^!!***************************›h›r(FILENAME…s ˆ…4Apt* Ay*@@…u>@(:(#FILE ALREADY EXISTS! ERASE IT (Y/N)>„v„4Y)„4yA€w„4N)„4nApx( As{@| @@…† A ›š!!***************************›¤!!* LOAD FILE *›®!!***************************›¸›Â(FILENAME…à ˆ…4APÄ AhÌ @@ …Î A ÔD@F:A•,"‹:(NO SUCH FILE! TRY AGAIN.D APÕ0&(UNDETERMINED ERROR! TRY AGAIN.0 APÖ›à!!***************************›ê!!* GET ADDRESS *›ô!!***************************›þ›#((NAME:€#€4A &((ADDRESS:&4A 0((CITY, STATE & ZIP:!‚0‚4A &$((PHONE:ƒ$ƒ4A 0( (€((‚(ƒ:-()(IS THE ABOVE ENTRY OKAY (Y/N)-„D>„4N)„4n(4(PLEASE REENTER THE ADDRESS.> A N8„0Y*„0y(.(PLEASE ANSWER Ù OR Î.8 ApX7(@€(@*(@‚7(@ƒb A l@ A`v›€!!***************************›Š!!* VIEW FILE *›”!!***************************›ž›¨(FILENAME…© ˆ…4A€« Ar² @@…¼ A`Æ6†-(>:A%,Ð7@€@*@‚7@ƒÚ(€ ((‚(ƒäJ6†-†%@†"@ (<(PRESS [RETURN] FOR MORE@„J Aî( A ø4(( END OF FILE.4(PRESS [RETURN] FOR MENU.„@ A`D@F:A•,"‹:(NO SUCH FILE! TRY AGAIN.D A€0&(UNDETERMINED ERROR! TRY AGAIN.0 A€›!!***************************›!!* CHECK FILENAME *›!!***************************››!E A E…7@<@,2A)…7@<@,3ZA "E AE…7@<@,4:)…7@<@,4:A$! 6‡.D:6‡7@,.…!6….‡%(6‰-@…7‰<‰,0:(6‰-@&>;…7‰%@<‰%@,1A*…7‰%@<‰%@,/Z>$' A (F:A•,"ŠA)6)(!FILENAME ERROR! PLEASE TRY AGAIN.,(36….6$€D:ADDRESS2.BAS