A¤*******************READ/ALTER******************************š„ ¤° 4,2®Œ 1¸ FILE$,FD$,1148”#FD$,0;N:” #08ÌEN~N:¢ "TOTAL Nos. OF RECORDS ON THIS FILE ARE:-";N Ö¢ "ENTER RECORD No.:";:” N$!àN~Ü(N$):“ N}EN s ‘ 485 490Då„:¢@ 0,10;"NUMBER ENTERED TOO LARGE. TRY AGAIN OR END? (Y/N)";!æX$~ä$:“ X$~"Y" s ‘ 487 150çN~Nu1:„:‘ 460ê„ô¢@ 20,0;FILE$ş¢@ 50,0;"PAGE No.:";N¢@ 0,1;æ(Ç(148),80)¢@ 0,2;"DATE"¢@ 20,2;"REMARKS"&¢@ 42,2;"IN"0¢@ 57,2;"OUT":¢@ 70,2;"TOTAL"D¢@ 0,3;æ(Ç(148),80) N” #FD$,NX A ~ 1 r 14: ” M$(A):›$b B ~ 1 r 14 :¢ M$(B);Ç(11):› B g 1420l K~ 1 r 14v¢@ 0,Kt4;Ç(Kt64)":" :›€Z$~Ş(Ö(5),4,8)Š¢@ 0,0;Z$”ƒŒ 0:¨¢ @ 20,20;"ARE YOU CHECKING BANK STATEMENTS? (Y/N)"; ²P$~ä$¼“ P$~"N" s ‘ 810 710^Æ¢@ 0,20;"PRESS LINE LETTER FOR TICKING OFF AND A '*' WILL APPEAR TO SHOW LINE IS TICKED";ĞW$ ~ ä$: 1580Ú¢@ 0,20;Ç(21)ä¢@ 19,At4;"*"î¢@ 0,20;Ç(21)tÇ(21)9ø¢@ 0,20;"ARE THERE ANY MORE FOR TICKING OFF (Y/N)";"R$~ä$:“ R$ ~ "N" s ‘ 780 710 ¢@ 0,20;Ç(21)b¢@ 0,20;"DO YOU WISH TO CONTINUE OR TO GO BACK TO CHOOSE A NEW FILE AND/OR FINISH? (C OR R)" V$~ä$:“ V$~"C" s ‘ 810 1320 *¢@ 0,20;Ç(21):¢@ 0,21;Ç(21)14¢@ 20,20;"ARE THERE ANY ALTERATIONS? (Y/N)"; >P$~ä$H“ P$~"N" s ‘ 1320 870R¢@ 20,20;Ç(21) \‘ 150f¢@ 20,20;Ç(21)2p¢@ 20,20;"ENTER LINE LETTER FOR CORRECTION:";z” W$: 15801„¢@ 20,20;"ENTER CORRECTION LINE:";W$; ° 4,2 ˜” A$¢“ A$~"" s ‘ 950 940¬¢@ 3,At4;A$¶¢@ 20,20;Ç(21)5À¢@ 20,20;"ENTER CORRECTION LINE:";W$; Ê” B$Ô“ B$~"" s ‘ 1000Ş¢@ 20,At4;B$è¢@ 20,20;Ç(21)òC$~Ş(Ö(At4),39,10)üD$~Ş(Ö(At4),55,10)E$~Ş(Ö(At4),70,10)S$~Ş(Ö(At3),70,10) C~ Ü(C$) $D~Ü(D$) .E~Ü(E$) 8S~Ü(S$) BE~EuCtDL¢@ 20,20;Ç(21)3V¢@ 20,20;"ENTER CORRECTI0N FOR LINE:";W$;%`” C$:“ C$~"" s C$~Ş(Ö(At4),41,8)jC~Ü(C$):¢@ 40,(At4);Ct¢@ 20,20;Ç(21)4~¢@ 20,20;"ENTER CORRECTION FOR LINE:";W$;%ˆ” D$:“ D$~"" s D$~Ş(Ö(At4),56,8)’D~Ü(D$):¢@ 55,(At4);Dœ¢@ 20,20;Ç(21)¦C~ Ü(C$):D~Ü(D$):E~Ü(E$)°S$~ß(Ö(At3),10):S~Ü(S$)º“ C}~D s ‘ 1230 1220Ä“ D}~C s ‘ 12508Γ A2 s E1~EuE: E1~E1tC:¢@ 70,(At4);E1:‘ 1270 1240*Ø“ A}1 s E1~E1tC:¢@ 70,(At4);E1:‘ 12707â“ A2 s E1~EuE:E1~E1uD:¢@ 70,(At4);E1:‘ 1270 1260*ì“ A}1 s E1~E1uD:¢@ 70,(At4);E1:‘ 1270 ö 1420,¢@ 20,20;"ANY MORE ALTERATIONS? (Y/N)"; X$~ä$“ X$~"Y" s ‘ 1310 1320 ‘ 880(Œ 1: FILE$,FD$,11482¢ #FD$, N< A~ 1 r 14FM$(A)~Ö(At4) P¢ M$(A)Z› AdƒnŒ 0 x° 4,2 ‚‘ 150Œ B~ 1 r 14–C$~Ş(Ö(Bt4),40,10) D$~Ş(Ö(Bt4),55,10)ªE$~Ş(Ö(Bt4),70,10)´S$~ß(Ö(Bt3),10)$¾C~Ü(C$):D~Ü(D$):E~Ü(E$):S~Ü(S$)È“ C~0 z D~0 s ‘ 1560 1490Ò“ S1 s ‘ 1520 1500Ü“ B2 s ‘ 1530 1510æ“ B}1 s ‘ 1540 1550$ğE~CtSt(uD):¢@ 70,(Bt4);E:‘ 1550úE~CuD:¢@ 70,(Bt4);E:‘ 1550$E~StCt(uD):¢@ 70,(Bt4);E:‘ 1550T~E:¢@ 70,19;E¢@ 58,19;"PAGE TOTAL:-"› B¨7"¤*******************LINE LETTER*******************,¢@ 20,20;Ç(21)%1“ W$"A" { W$}"N" s ‘ 810 1590 6“ W$~"A" s A~1:‘ 1730 1600 @“ W$~"B" s A~2:‘ 1730 1610 J“ W$~"C" s A~3:‘ 1730 1620!T“ W$~"D" s A~4: ‘ 1730 1630 ^“ W$~"E" s A~5:‘ 1730 1640 h“ W$~"F" s A~6:‘ 1730 1650 r“ W$~"G" s A~7:‘ 1730 1660 |“ W$~"H" s A~8:‘ 1730 1670!†“ W$~"I" s A~9: ‘ 1730 1680!“ W$~"J" s A~10:‘ 1730 1690!š“ W$~"K" s A~11:‘ 1730 1700!¤“ W$~"L" s A~12:‘ 1730 1710!®“ W$~"M" s A~13:‘ 1730 1720¸“ W$~"N" s A~14:‘ 1730¨)h‚ ‚iÔâ