0:@ 4,0;"ACCOUNTS PROGRAM BY B.F.SURRIDGE"@ 15,1;"SEPT 1988"@ 0,2;((42),40)0 q5);"PLEASE READ THROUGH THESE PAGES"."CAREFULLY AND AT THE END OF EACH PAGE")"PRESS SPACE BAR FOR THE NEXT PAGE"2@ 3,20;"PRESS SPACE BAR TO GO TO NEXT PAGE";X$~$: X$~" " 450: q15)"DISCLAIMER" q15);((164),10)1 q5);"NO RESPONSIBILITY IS ACCEPTED BY THE"/"AUTHOR FOR ANY LOSS OF FILES OR OTHER"0"DATA THROUGH THE USE OF THIS PROGRAM."- q8);"ANY UNAUTHORISED COPYING OF THIS"W"PROGRAM, EITHER IN WHOLE OR IN PART,EXCEPT FOR THE PURPOSES OF MAKING A BACK-UP"/"COPY,WILL BE TREATED AS A BREACH OF THE"0"COPYRIGHT,UNLESS PRIOR SANCTION IS HELD."2 @ 0,15;"THIS PROGRAM NEEDS TWIN DISK DRIVES"2 @ 0,16;"IT MAY BE ALTERED TO SINGLE DISC BY"3 @ 0,17;"DELETING ALL REFERENCES TO DRIVES IN" "THE PROGRAM LISTING"+ @ 5,20;"PRESS SPACE BAR TO CONTINUE";X$~$: X$~" " s 560$0: q8);"LAYOUT OF THE PROGRAM": q8);((164),21)/D@ 5,4;"THE PROGRAM IS ARRANGED INTO FIVE"/I"OPTIONS CHAINED TO PROVIDE THE GREATEST"/N"POSSIBLE USE OF MEMORY.THE FIVE OPTIONS"S"ARE DETAILED BELOW."Xb'l q8);"1..................ACCOUNT"v' q8);"2.....................OPEN"' q8);"3....................ALTER"' q8);"4..................SCANNER"' q8);"5.................DELETION"*@ 6,21;"PRESS SPACE BAR TO CONTINUE"X$~$: X$~" " s 730: q5);"ACCOUNT SECTION" q5);((198),15)1 q5);"WHEN THE PROGRAM IS FIRST RUN A PAGE"/;"IS SHEWN SETTING OUT THE MAIN MENU"  q15);"PRIMARY MENU" q15)((164),12)(  q8);"KEY 1...........INFORMATION"%(* q8);"KEY 2...........NEW ACCOUNT"/(4 q8);"KEY 3..........MAIN PROGRAM"9(> q8);"KEY 4...........END PROGRAM"CH q15);"PRESS 1 TO 4"*I@ 7,21;"PRESS SPACE BAR TO CONTINUE"JX$~$: X$~" " s 8502R: q2);"SECOND OPTION IS FOR CREATING A NEW"S q2);((164),35)W q15);"ACCOUNT"X q15);((164),7)3p@ 2,6;"THIS IS PLACED HERE TO MAKE THE WHOLE".u"OPERATION EASIER WITHOUT HAVING TO"!z"REFER TO ANOTHER PROGRAM."-"YOU ARE ASKED TO NAME THE NEW PROGRAM"3 q2);"AFTER CREATING THE NEW ACCOUNT THE"9"SCREEN WILL CHANGE TO SHEW ALLTHE ACCOUNTS ON THE"/"DISC IN DRIVE 1, OR YOU MAY GO STRAIGHT"/"TO THE 'MAIN PROGRAM OPTION' WITHOUT"."CREATING A NEW ACCOUNT IF YOU SO WISH."-"ON THIS NEW PAGE YOU WILL BE ASKED IF"/"YOU WANT TO CONTINUE OR END THE PROGRAM"*@ 5,21;"PRESS SACE BAR TO CONTINUE";X$~$: X$~" " s 9370:"IF YOU PRESS THE TO CARRY ON, THEN"-"YOU WILL BE ASKED FOR THE NAME OF THE"&"ACCOUNT FILE THAT YOU REQUIRE."2 q3);"AFTER SELECTING YOUR ACCOUNT YOU WILL"."BE SHEWN A NEW MENU FROM WHICH YOU CAN"-"SELECT THE NEXT OPERATION ON THAT""ACCOUNT.+@ 5,21;"PRESS SPACE BAR TO CONTINUE";X$~$: X$~" " s 1010: q15);"ACCOUNT MENU" q15);((164),12)+ q4);"KEY 1..........CREATE NEW PAGE"+ q4);"KEY 2..........READ/ALTER PAGE" + q4);"KEY 3..........SCAN/PRINT PAGE"+ q4);"KEY 4.................DELETION"+$ q4);"KEY 0..............END PROGRAM"). q15);"ENTER 0 TO 4"345/8" AT THE END OF THIS INFORMATION SECTION".="A DUMMY PAGE WILL APPEAR ON THE SCREEN"&B"TO ILLUSTRATE HOW IT WILL LOOK"+G@ 5,21;"PRESS SPACE BAR TO CONTINUE";HX$~$: X$~" " s 1160+: q5);"1......... CREATE A NEW PAGE" q5);((164),28)1 q4);"IN ORDER TO START USING THE FILE,AND"/"WHEN EACH PAGE IS USED UP THIS FUNCTION"."MUST BE USED TO START A NEW PAGE IT"/"MAY BE NOTICED THAT THE PAGE No.WILL BE"/"INCREASED WITH USE. AS THE PAGE IS USED"."THE TOTAL DISPLAYED ON THE LEFTHAND"-"SIDE WILL BE ARUNNING TOTAL, AND THIS"."IS ALSO PRINTED AT THE BOTTOM RIGHT" "HAND CORNER OF THE PAGE."1 q4);"IF IT IS REQUIRED TO ADD,OR CORRECT,"/"ANY ENTRIES ON THIS PAGE AT ANY TIME"."THE NEXT SECTION WILL DEAL WITH THAT"1 q4);"AFTER USING THIS SECTION YOU WILL BE"."REFERRED BACK TO THE DIRECTORY PAGE"-"AGAIN. EACH SECTION FULLY PROMPTS YOU"'"FOR EVERY MOVE YOU WISH TO MAKE"+@ 4,21;"PRESS SPACE BAR TO CONTINUE";X$~$: X$~" " s 1263/"THAT IS CREATED AUTOMATICALLY PRINTS AT"/"THE TOP THE EMBLEM 'B/FWD' AND THEN YOU"/"ARE REFERRED STRAIGHT TO THE 'IN' COL."/"ENABLING YOU TO ENTER THE BALANCE FROM "/"THE PREVIOUS PAGE WITHOUT FURTHER ADO","AND THEREAFTER CARRYING ON AS USUAL."*@4,21;"PRESS SPACE BAR TO CONTINUE";X$~$: X$~" " s 1310&: q8);"2.......READ/ALTER PAGE"# q8);((164),23)$%/< q5);"YOU WILL FIRST BE ASKED WHICH PAGE".A"YOU REQUIRE AND ARE PROMPTED TO ENTER"/B"THAT PAGE NUMBER.AFTER WHICH THE SCREEN"/F"CLEARS AND YOU ARE SHEWN THE PAGE AS IT"/K"STANDS. AT THE FOOT OF WHICH, YOU WILL"/P"BE ASKED FOR THE LINE No. THAT YOU WISH"s"TO ALTER.".x"IN THIS SECTION YOU CAN ALTER ANY LINE"/}"IN ANY ORDER YOU NEED.IN ADDITION YOU"/"WILL FIND THAT THE TOTALS WILL ALTER"."AUTOMATICALLY WHEN A LINE IS ADJUSTED."+@ 5,21;"PRESS SPACE BAR TO CONTINUE";X$~$: X$~" " s 14201: q5);"FOR,INSTANCE SUPPOSE YOU WANTED TO"/"ALTER ANY ITEM ON A PARTICULAR LINE No."/"THEN ENTER THE LINE No. AND PRESS ENTER"/" AND YOU WILL THEN BE ASKED FOR EACH"."SECTION OF THE LINE IF THIS WAS TO BE"."ALTERED OR NOT AND THE PROMPT WILL"."GUIDE YOU ALONG.THEN ENTER EACH TIME A"/"NEW ENTRY. A LITTLE TRYOUT WIL SHEW HOW"#"SIMPLE IT WORKS IN PRACTICE"/ q5);"ON COMPLETION YOU WILL BE DIRECTED"."BACK TO THE DIRECTORY PAGE AGAIN AND"/"GIVEN THE OPTION OF CARRYING ON OR""ENDING THE PROGRAM"+@ 5,21;"PRESS SPACE BAR TO CONTINUE";X$~$: X$~" " s 1490(: q8)"3..........SCAN/PRINT PAGE" q8);((164),26). q5);"IT IS SOMETIMES NECESSARY TO HUNT"/"THROUGH THE PAGES OF A FILE TO FIND A"/"PARTICULAR ITEM TO CHECK IT.THIS OPTION"/"WILL DO JUST THAT. FIRST YOU ARE TOLD"/"THE TOTAL No. OF PAGES ON THAT ACCOUNT"/"AND YOU CAN SELCT IN ANY ORDER THE PAGE"/"YOU WISH TO SCAN. ON PRODUCING A PAGE"/"YOU ASKED FIRST IF YOU NEED TO PRINT"/ "IT OUT. IN THAT CASE THIS, OPTION WILL"/ "DO IT FOR YOU WITHOUT HAVING TO REFER"/"TO ANY OTHER PROGRAM. IF YOU DO NOT,"/"THEN ENTER AND YOU WILL BE ASKED IF"/"YOU HAVE ANY OTHER PAGES TO SCAN. IF"/""YOU DO NOT THEN ENTER AND YOU WILL"/'"BE REFERRED BACK AGAIN TO,THE DIRECTORY"/,"PAGE AGAIN. IF ON THE OTHER HAND YOU"-1"ENTER THEN YOU WILL BE TAKEN BACK"/2"TO THE PAGE ASKING FOR THE NEW PAGE No."+3@ 5,21;"PRESS SPACE BAR TO CONTINUE";@X$~$: X$~" " s 1610&J: q8);"4..............DELETION"O q8);((164),23). q5);"THIS OPTION WILL DELETE ANY PAGE"/"YOU REQUIRE.YOU SEE ALL THE OTHER PAGES"/"SHUFFLING DOWN TO FILL THE VACANT SPACE"/"IT REQUIRES NO FURTHER ACTION, FOR IT"/"WILL RETURN YOU TO THE DIRECTORY PAGE""AGAIN."0 q5);"THE LAST PAGE STILL REMAINS AND CAN"+"BE USED VIA THE READ/ALTER SECTION."4@ 0,18;"PRESS SPACE BAR TO SEE THE DUMMY PAGE"X$~$: X$~" " s 1740:@ 12,0;"ACCOUNT.DAT"@ 25,0;"PAGE No.1"@ 0,1;((164),40)@ 0,2;"DATE"@ 10,2;"REMARKS"@ 20,2;"IN"@ 27,2;"OUT"@ 34,2;"TOTAL"&@ 0,3;((164),40)N@ 0,5;"12/12/88"X@ 10,5;"400456"b@ 19,5;"234.56"l@ 27,5;"00.00"v@ 34,5;"234.56"@ 0,6;"14/12/88"@ 10,6;"BDG SCY"@ 21,6;"0.00"@ 27,6;"23.45@ 34,6;"211.11"@ 0,7;"15/12/88"@ 10,7;"SALARY"@ 19,7;"231.45"@ 28,7;"0.00"@ 34,7;"442.56"@ 34,20;"442.56"6@ 0,22;"(PRESS SPACE BAR TO RETURN TO PROGRAM)";X$~$: X$~" " s 2050  10PROGRAM)";X$~$: X$~" " s 2050  10><