?¤**** ACCOUNT PACKAGE BY B.SURRIDGE SEP 1988:::::::::::::: „:Œ 0F¤****************ACCOUNT PACKAGE*********************************:„:¢@ 0,5;æ(Ç(223),32);"ACCOUNTS PACKAGE";æ(Ç(223),32)¢@ 35,10;"PRIMARY MENU"?¢@ 15,14;"KEY 1.......................PROGRAM INFORMATION"?¢@ 15,16;"KEY 2...............................NEW ACCOUNT"@¢@ 15,18;"KEY 3...............................MAIN PROGRAM"?¢@ 15,20;"KEY 4...............................END PROGRAM"¢@ 35,22;"PRESS 1 TO 4";W$~ä$:W~Ü(W$) W ‘ 31,40,150,194CHN~C:’ 400: C ‘ 32 "INFORM"0(„: ¢@ 25,10;"THIS IS A NEW ACCOUNT? (Y/N)"; 2N$~ä$ <“ N$~"N" s ‘ 150 70F„KŒ 1=P¢ @ 0,5;æ(Ç(148),30);"NEW ACCOUNT CREATION";æ(Ç(148),30),Z¢@25,10;"ENTER THE NAME OF THE ACCOUNT"_¢@ 30,12; d” FILE$ nL~Ï(FILE$):“ L}8 s 90 120x† FILE$t".DAT",FD$,1148‚¢ #FD$,0;NAME$Œƒ‘Œ 0C–¤*****************ACCOUNT RECORD******************************›Œ0œ‚ „Bª¢@ 0,4;æ(Ç(148),27);"LIST OF ACCOUNTS ON RECORD";æ(Ç(148),27) ´¢@ 25,6;¾Œ 1: ²"*.DAT"A¿¢@ 20,22;"DO YOU WISH TO CONTINUE OR TO END PROGRAM? (C/E)"; ÀG$~ä$Á“ G$~"E" s ‘ 194 195 ÂŒ 0: Žâ@ 20,22;Ç(21)GÈ¢@ 0,22;æ(Ç(136),25);"ENTER NAME OF ACCOUNT REQUIRED";æ(Ç(136),25)Ò¢@ 30,23;Ü” FILE$:FILE$~FILE$t".DAT" á‘ 250Mð¤***********************ACCOUNT MENU************************************ ú„:Œ 0ÿŠ M$(20),N(200)5¢ @ 0,6;æ(Ç(136),32);"ACCOUNT MENU";æ(Ç(136),32)B¢@ 17,10;"KEY 1..............................CREATE NEW PAGE"B¢@ 17,12;"KEY 2..............................READ/ALTER PAGE"B"¢@ 17,14;"KEY 3..............................SCAN/PRINT PAGE";'¢@17,16;"KEY 4...............................DELETION">,¢@ 17,18;"KEY 0..............................END PROGRAM"6¢@ 30,20;"ENTER 0 TO 4"!@C~ä:“ C48 { C}52 s ÿ’:‘ 310'JC~Cu48:“ C~0 s Ž: “ CHN~0 s ‘ 350"T“ CHN4 z C4 { CHN~C s ‘ 400^CHN~C:’ 400h C ‘ 370,380,390,395 r "OPEN"| "ALTER"† "SCANNER"‹"DELETION"ÿETION"ELETION"