10 REM -MENY PROGRAM-
20 REM       -F\R KASSABOK-        
30 REM      VER 1.0 JULI-1983      
40 REM      =================      
50 REM -COPYRIGHTS HAR MEDLEM 1674-
60 REM -----Lars-Olof Gustavsson---
70 REM      Albrogatan 1 a         
80 REM      252 31  Helsingborg    
90 REM 
100 REM    RUTIN F\R UPPS\KNING     
110 REM    AV \NSKAT K\RS[TT        
120 REM 
130 ; CHR$(12%)
140 ; CUR(1%,6%)CHR$(151%)STRING$(20%,35%)
150 ; CUR(2%,7%)'KASSA BOKF\RING MENY'
160 ; CUR(3%,6%)CHR$(151%)STRING$(20%,35%)
170 ; CUR(5%,10%)'RUTIN NUMMER'
180 ; CUR(6%,9%)CHR$(151%)STRING$(12%,112%)
190 ; CUR(8%,2%)'NR:<1>','SKAPAR EN NY FIL I DR1:'
200 ; CUR(10%,2%)'NR:<2>','MERA TRANSAKTIONER:'
210 ; CUR(12%,2%)'NR:<3>','VISA KONTOST[LLNING:'
220 ; CUR(14%,2%)'NR:<4>','SKRIVNING P] PRINTER:'
230 ; CUR(16%,2%)'NR:<5>','[R EJ AKTUELL F\RN..:'
240 ; CUR(18%,2%)'NR:<6>','AVSLUTA K\RNING:'
250 ; CUR(20%,2%)'VILKEN RUTIN <1-6>';
260 GET X$ : ; X$
270 IF X$<'1' OR X$>'6' THEN 250
280 REM -RUTIN NUMMER S\KES-
290 ; CUR(2%*VAL(X$)+6%,6%)'';
300 ON VAL(X$) GOTO 310,330,350,370,390,410
310 ; CUR(20%,2%)'RUTIN NUMMER       <'X$'>   S\KES'
320 CHAIN 'DR0:KASSABOK.FIL' : END 
330 ; CUR(20%,2%)'RUTIN NUMMER       <'X$'>   S\KES'
340 CHAIN 'DR0:TRANSAKT.FIL' : END 
350 ; CUR(20%,2%)'RUTIN NUMMER       <'X$'>   S\KES'
360 CHAIN 'DR0:L[SKONTO.FIL' : END 
370 ; CUR(20%,2%)'RUTIN NUMMER       <'X$'>   S\KES'
380 CHAIN 'DR0:PRINTDAT.FIL' : END 
390 ; CUR(20%,2%)'RUTIN NUMMER     <'X$'>   S\KES'
400 STOP 
410 ; CUR(20%,2%)'                         'CUR(18%,14%)'AVSLUTNING              '
420 FOR X=1 TO 4000 : NEXT X : ; CHR$(12%) : END