home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug044.ark / ACCTFILE.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  2.0 KB  |  25 lines
  1. %NOLIST
  2.  
  3. 3500    REMARK    LOAD ACCOUNT FILE
  4.     READ #FILE.NO%,RECORD.NO%;L1,L2,L3%,L1$,L4%,L5%,L6%,L7%,L8%,L9%,D(1),\
  5.     D(2),D(3),D(4),D(5),D(6),D(7)
  6.     RETURN
  7.  
  8.  
  9. 3550    REMARK    SAVE ACCOUNT FILE
  10.     PRINT #FILE.NO%,RECORD.NO%;L1,L2,L3%,L1$,L4%,L5%,L6%,L7%,L8%,L9%,\
  11.     D(1),D(2),D(3),D(4),D(5),D(6),D(7)
  12.     RETURN
  13.  
  14. %LIST
  15. G  $
  16. 1K VERIFIED$ü═τ
  17. ═δ═\═╔δ═\═╔σ╒═¥
  18. ╤ß╔╛└# x▒┬─
  19. ╔R═τ
  20. ═█╔█╔█╔╙╔    ═╔⌡═τ
  21. ±╔O:µ>╩%NOLIST
  22.  
  23. 3500    REMARK    LOAD ACCOUNT FILE
  24.     READ #FILE.NO%,RECORD.NO%;L1,L2,L3%,L1$,L4%,L5%,L6%,L7%,L8%,L9%,D(1),\
  25.     D(2),D(3),D(