home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug044.ark / G_L000.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  1.0 KB  |  37 lines
  1. %CHAIN 100,8000,300,800
  2.     REMARK    **********************************************
  3.     REMARK    * * * * *   PROGRAM SELECTION MENU   * * * * *
  4.     REMARK    * * * * *   8/8/79        RT   * * * * *
  5.     REMARK    **********************************************
  6.  
  7.     DIM P1$(6)
  8. %INCLUDE CURSOR
  9.     GOTO 6100
  10. %INCLUDE SUBS1
  11.  
  12. 5100     DATA "G/L070","G/L010","G/L020","G/L040","G/L050","G/L080"
  13.  
  14. 6000    OPEN "CRT" RECL 1100 AS 19
  15.     RESTORE
  16.     PASSWORD$="PASS"
  17.     IF COMMAND$<>PASSWORD$ THEN \
  18.         PRINT CLEAR.SCREEN$;"            INVALID PASSWORD":\
  19.         STOP
  20. 6100    FOR I%=1 TO 6
  21.     READ P1$(I%)
  22.     NEXT I%
  23.     X0=1:GOSUB 260                            REMARK    LOAD CRT MASK
  24.     X2=2:X3=1:X4=7:X2$="CHOOSE PROGRAM BY NUMBER":GOSUB 665
  25.     IF X0=7 THEN \
  26.         PRINT CLEAR.SCREEN$:\
  27.         PRINT "GENERAL LEDGER MENU EXITING TO CP/M":\
  28.         STOP
  29.     PRINT:PRINT:PRINT"-->LOADING PROGRAM  ";X0;TAB(63)
  30.     CHAIN P1$(X0)
  31. G  $
  32. 1K VERIFIED$ü═τ
  33. ═δ═\═╔δ═\═╔σ╒═¥
  34. ╤ß╔╛└# x▒┬─
  35. ╔R═τ
  36. ═█╔█╔█╔╙╔    ═╔⌡═τ
  37. ±╔O:µ>╩