10 REM -<BOKSLUT+PRINTER>
20 REM -      VER 1.0-AUG -83       
30 REM - All Copyrights Reserved    
40 REM - For Lars-Olof Gustavsson   
50 REM -     Albrogatan 1 a <1674>  
60 REM -     252 31  Helsingborg    
70 REM - Tel.042-14 12 32           
80 REM - Samt ABC KLUBBEN V[LLINGBY 
90 REM - [ga r{tt att Publicera pro.
100 REM -
110 ; CHR$(12%)
120 ; CUR(2%,1%)CHR$(151%)STRING$(36%,35%)
130 ; CUR(3%,2%)' BOKSLUTS PROGRAM + PRINTER UTSKRIFT   '
140 ; CUR(4%,1%)CHR$(151%)STRING$(36%,35%)
150 ; CUR(8%,4%)'INKOMST SUMMA  : ';'  'I$
160 ; CUR(10%,4%)'INKOMST   KR  : ';' '; : INPUT A$
170 ; CUR(12%,4%)'INKOMST   KR  : ';' '; : INPUT B$
180 A$=ADD$(A$,B$,2%)
190 ; CUR(13%,4%)'INKOMST SUMMA  : ';'  'A$
200 I$=A$
210 ; CUR(20%,4%)'MERA INMATNING <J/N>';
220 GET G$ : IF G$='J' OR G$='j' THEN 110 ELSE 230
230 ; CHR$(12%)
240 ; CUR(2%,1%)CHR$(151%)STRING$(36%,35%)
250 ; CUR(3%,2%)'BOKSLUTS PROGRAM+PRINTER UTSKRIFT      '
260 ; CUR(4%,1%)CHR$(151%)STRING$(36%,35%)
270 ; CUR(10%,4%)'   INKOMST ]R  :                       '
280 ; CUR(10%,23%); : INPUT ]$
290 ; CUR(12%,4%)'M]NADS PERIOD  :                              '
300 ; CUR(12%,24%); : INPUT M$
310 ; CUR(12%,31%); : INPUT M1$
320 OPEN 'PR:' ASFILE 1%
330 ; #1%,CHR$(13%,13%)
340 ; #1%,TAB(10%)CHR$(14%)'  INKOMST UNDER ]RET        '
350 ; #1%,CHR$(10%)
360 ; #1%,TAB(6%)CHR$(14%)'M]NADS PERIOD  : 'M$;'  'M1$
370 ; #1%,CHR$(13%)
380 ; #1%,TAB(6%)CHR$(14%)'   INKOMST ]R  : ']$
390 ; #1%,CHR$(13%)
400 ; #1%,TAB(6%)CHR$(14%)'INKOMNA MEDEL  : 'A$
410 CLOSE 1%
420 FOR X=1 TO 2000 : NEXT X
430 ; CHR$(12%)
440 ; CUR(2%,1%)CHR$(151%)STRING$(36%,35%)
450 ; CUR(3%,2%)' BOKSLUTS PROGRAM + PRINTER UTSKRIFT   '
460 ; CUR(4%,1%)CHR$(151%)STRING$(36%,35%)
470 ; CUR(6%,1%)' ]R:']$,'PERIOD:'M$;'  'M1$
480 ; CUR(8%,21%)'/SUMMA UT:'T$
490 ; CUR(8%,1%)'INKOMST KR:';''A$
500 ; CUR(10%,4%)'UTGIFTER KR :';' '; : INPUT U$
510 ; CUR(12%,4%)'UTGIFTER KR :';' '; : INPUT U1$
520 U$=ADD$(U$,U1$,2%)
530 ; CUR(13%,4%)'SUMMA UT KR :';'  'U$
540 T$=U$
550 ; CUR(20%,4%)'MERA INMATNING <J/N>';
560 GET G$ : IF G$='J' OR G$='j' THEN 430 ELSE 570
570 OPEN 'PR:' ASFILE 2%
580 ; #2%,CHR$(13%,13%)
590 ; #2%,TAB(10%)CHR$(14%)'UTGIFTER UNDER ]RET         '
600 ; #2%,CHR$(10%)
610 ; #2%,TAB(6%)CHR$(14%)'M]NADS PERIOD  :  'M$;'  'M1$
620 ; #2%,CHR$(13%)
630 ; #2%,TAB(6%)CHR$(14%)' AKTUELLT  ]R  :  ']$
640 ; #2%,CHR$(13%)
650 ; #2%,TAB(6%)CHR$(14%)'INKOMSTER  KR  :  'A$
660 ; #2%,CHR$(13%)
670 ; #2%,TAB(6%)CHR$(14%)' UTGIFTER  KR  : 'U1$
680 IF U1$<U$ THEN 690
690 IF U1$>U$ THEN 740 ELSE 700
700 IF U1$=U1$ THEN ; #2%,CHR$(13%)
710 ; #2%,TAB(6%)CHR$(14%)'RESTERANDE KR  :  'U$
720 GOTO 750
730 REM 
740 ; #2%,TAB(6%)CHR$(14%)'UNDERSKOTT KR  :  'U$
750 CLOSE 2%
760 FOR X=1 TO 5000 : NEXT X
770 CHAIN 'DR0:PRINTER.S\K' : END