'********ACCOUNT PACKAGE**********8@ 0,5;((199),12);"ACCOUNTS PACKAGE";((199),12)@ 14,10;"PRIMARY MENU"+@ 10,14;"KEY 1...PROGRAM INFORMATION"+@ 10,16;"KEY 2...........NEW ACCOUNT"+@ 10,18;"KEY 3..........MAIN PROGRAM"+@ 10,20,"KEY 4...........END PROGRAM"@ 15,22,"PRESS 1 TO 4"W$~$:W~(W$) W 30,40,150,195CHN~C: 400: C 32 "PROLOGUE"/(:@ 10,10;"THIS IS A NEW ACCOUNT? (Y/N)";!2D$~$ : D$~"N" s 150 70>F:@ 0,5;((199),10);"NEW ACCOUNT CREATION";((199),10),Z@ 6,10;"ENTER THE NAME OF THE ACCOUNT" _@12,12; d FILE$ nL~(FILE$): L}8 s 90 115s 1x FILE$t".DAT",FD$,596 #FD$,O;NAME$$********ACCOUNT REGORD******** 0@@ 0,4;((180),7);"LIST OF ACCOUNTS ON RECORD";((180),7) @ 15,6; 1 "*.DAT"&@ 8,18;"DO YOU WISH TO CONTINUE"(@ 8,19;"OR TO END PROGRAM? (C/E)"; G$~$ G$~"E" s 195 196 0: @ 8,18;(21):@ 8,19;(21)E@ 0,18;((200),5);"ENTER NAME OF ACCOUNT REQUIRED";((200),5)@ 15,20; FILE$:FILE$~FILE$t".DAT" 0: 250%*********ACCOUNT MENU********** M$(20),N(200)4@ 0,6;((240),14);"ACCOUNT MENU";((240),14)(@ 7,10;"KEY 1.....CREATE NEW PAGE"(@ 7,12;"KEY 2.....READ/ALTER PAGE"("@ 7,14;"KEY 3......SCAN EACH PAGE"('@ 7,16;"KEY 4............DELETION"(,@ 7,18;"KEY 0.........END PROGRAM"6@ 14,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,395r "START"| "AMEND" "SEARCH" "ERASE""SCANNER" "DELETION" ~||~|