500 GOSUB 450:CL = K:MAX = C(K): HOME : FOR KK = 1 TO MAX: PRINT OPTN$(CL,KK): NEXT
510 GOSUB 120: REM GET CHOICE
520 TEXT : HOME : PRINT OPTN$(CL,K): VTAB 23: PRINT "IN A REAL APPLICATION,": PRINT "YOU WOULD NOW BE": PRINT "RUNNING '";OPTN$(CL,K);"'": PRINT : PRINT "PRESS RETURN TO RESTART/ESCAPE TO QUIT ";: POKE -16368,0: GET A$
530 IF A$ < > CHR$(27) THEN RUN
540 END
550 REM INITIALIZATION
560 PRINT CHR$(21): TEXT : HOME
570 D$ = CHR$(4)
580 L1$ = "MONTHLY FINANCIAL STATEMENTS"
590 L2$ = "FOR"
600 L3$ = "ABC COMPANY, INC."
610 REM CHANGE NEXT LINE FOR YOUR MENU
620 NC = 5:NR = 20: REM NUMBER OF COLUMNS AND ROWS
630 LET KYBD = -16384: LET STROBE = -16368:HT = 3
640 DIM OPTN$(NC,NR)
650 DIM C(NC)
660 FOR J = 0 TO NC
670 READ C(J)
680 FOR K = 1 TO C(J)
690 READ OPTN$(J,K)
700 NEXT K: NEXT J
710 LET MAX = C(0)
720 RETURN
730 REM DATA STATEMENTS FOR FILES ON DISK
740 DATA 5: REM COLUMN ZERO
750 DATA "PREPARE.ENTRIES"
760 DATA "POST.ENTRIES "
770 DATA "PRINT.STMTS "
780 DATA "UTILITIES "
790 DATA "EXIT "
800 DATA 2: REM COLUMN.ONE
810 DATA "STANDARD.ENTRIES"
820 DATA "SPECIAL.ENTRIES "
830 DATA 2: REM REM COLUMN.TWO
840 DATA "INITIAL.POSTING "
850 DATA "ADD'L.POSTING "
860 DATA 4: REM COLUMN.THREE
870 DATA "ONE.PAGE.STMT "
880 DATA "PRINT.LEDGER "
890 DATA "PRINT.ENTRIES "
900 DATA "DIVISION.ANALYSIS"
910 DATA 13: REM COLUMN.FOUR
920 DATA "ADD.ACCOUNTS "
930 DATA "NEW.ENTRIES "
940 DATA "CLEAR.ACCOUNTS "
950 DATA "DIRECTORY.ADJUST"
960 DATA "RESTART "
970 DATA "GENERAL.LEDGER "
980 DATA "MERGE.ENTRIES "
990 DATA "TRANSFER.DATA "
1000 DATA "COPY.FILES "
1010 DATA "COPY.DISK "
1020 DATA "DOS.UP "
1030 DATA "INITIALIZE.DISK "
1040 DATA "INSTRUCTIONS "
1050 DATA 1: REM COLUMN.FIVE
1060 DATA "EXIT.TO.BASIC": REM REQUIRED LAST STATEMENT