10 REM ++++++++++++++++++++++++++++++++
20 REM ! Program 0010   BOKF\R
30 REM ! Utg}va  4.21    83-12-31
32 REM ! Mod. 80/tkn printer 84-10-01
40 REM ! av (c) K.J[RBIN
50 REM ! Minne 32 Kbytes f|r flexskiva
60 REM ++++++++++++++++++++++++++++++++
72 L%=150% : REM ANT. KONTON
80 G$='1983' : REM AKTUELLT ]RTAL
90 FOR I%=1% TO 4%
100 POKE I%+65410%,ASC(RIGHT$(G$,I%))
110 NEXT I%
120 G$='ABC-STOCKHOLM' : REM FIRMANAMN
130 G$=G$+CHR$(13%)
140 FOR I%=1% TO LEN(G$)
150 POKE I%+65415,ASC(RIGHT$(G$,I%))
160 NEXT I%
170 ONERRORGOTO 430
180 OPEN "DR1:PERIOD.DAT" ASFILE 3%
190 CLOSE 3%
200 ONERRORGOTO 0
210 POKE 65408%,255%
220 ; CHR$(12),"BOKF\RING"
230 ; : ; : ; ,"1-KONTOV]RD"
240 ; : ; ,"2-DAGBOKF\RING"
250 ; : ; ,"3-NYTT ]R"
260 ; : ; ,"4-UTSKRIFT DAGBOK"
270 ; : ; ,"5-UTSKRIFT KONTOUTDRAG"
280 ; : ; ,"6-HUVUDBOK"
290 ; : ; ,"7-BOKSLUT"
300 ; : ; ,"8-AVSLUT"
310 ; : ; ,;
320 GET X$
330 IF X$<"1" OR X$>"8" GOTO 320
340 ON VAL(X$) GOTO 350,360,370,380,390,400,410,420
350 CHAIN "KTOV]RD"
360 CHAIN "DAGBOK"
370 CHAIN "INBALANS"
380 CHAIN "R]BALANS"
390 CHAIN "TKONTO"
400 CHAIN "HUVUDBOK"
410 CHAIN "BOKSLUT"
420 ; : ; TAB(5%)'GL\M INTE TA S[KERHETSKOPIA' : END 
430 ; CHR$(12%)"AKTIV DATASKIVA SAKNAS !"
440 ; : ; "SKA DATASKIVA SKAPAS (J/N)?"
450 GET X$ : ; X$
460 IF NOT (X$="J" OR X$="j") GOTO 170
470 ; CHR$(12%)
480 ; "F\LJANDE FILER L[GGES UPP P] DR1:" : ; : ; 
490 PREPARE "DR1:PERIOD.DAT" ASFILE 3%
500 ; "PERIOD.DAT";
510 FOR I%=1% TO L%
520 ; #3%,"0"
530 ; #3%,"0"
540 ; #3%,"0"
550 ; #3%,"0"
560 NEXT I%
570 ; #3%,"0"
580 ; #3%,"00-00"
590 CLOSE 3%
600 ; ,"BILDAD"
610 PREPARE "DR1:TOTAL.DAT" ASFILE 2%
620 ; "TOTAL.DAT";
630 FOR I%=1% TO L%
640 ; #2%,"0"
650 ; #2%,"0"
660 NEXT I%
670 ; #2%,"0"
680 ; #2%,"00-00"
690 CLOSE 2%
700 ; ,"BILDAD"
780 PREPARE "DR1:DAGBOK.DAT" ASFILE 4%
790 ; "DAGBOK.DAT";
800 ; #4%,"00-00"
810 ; #4%,"0"
820 CLOSE 4%
830 ; ,"BILDAD" : ; 
840 ; "SAMTLIGA FILER BILDADE"
850 FOR I%=1% TO 3000% : NEXT I%
860 GOTO 170