DataMuseum.dk

top - metrics - download

    Length: 10650 (0x299a)
    Types: SPC/1-COMAL-80
    Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_01, UNKNOWN_TOKEN_08, UNKNOWN_TOKEN_11, UNKNOWN_TOKEN_1f, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd, UNKNOWN_TOKEN_d4
    Names: »SYSUS«

└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
    └─⟦this⟧ »SYSUS« 

SPC/1 COMAL-80

00100 // **************************************************
00110 // *………………………………………………………………………………………………………………………………*
00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
00130 // *………………………………………………vers.…1.0………………………………………………………*
00140 // *………………………………………………………………………………………………………………………………*
00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
00170 // *………………………………………………………………………………………………………………………………*
00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
00190 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
00200 // *………………………………………………………………………………………………………………………………*
00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
00230 // *………………………………………7400……Herning……………………………………………………*
00240 // **************************************************
00250 EXEC DIMENSIONER
00260 EXEC INITIER
00270 EXEC UDSKRIV
00280 CHAIN PROGRAM $
00290 // ===========…Procedurer…starter…==============
00300 PROC DIMENSIONER
00310 // Standard…variable
00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00330 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
00340 REAL RESRV , PPAR
00350 INTEGER OK , TRUE , FALSE , I , J
00360 // Hj{lpevariable
00370 DIM A_KTONR $ OF 8
00380 REAL TOT ( 2 ) , TOTAL ( 4 )
00390 INTEGER IDXPOS , HIGH , LOW , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL , F_IDX
00400 INTEGER SIDENR
00410 // Variable…til…filen…SYSPARA
00420 DIM SYSPARA $ OF 17
00430 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00440 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00450 // Variable…til…filen…@@PARAM
00460 DIM PARAM $ OF 17
00470 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00480 REAL MOMS
00490 // Variable…til…filen…@@KONTO
00500 DIM KONTO $ OF 17
00510 DIM ST_DATO $ OF 6
00520 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00530 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00540 REAL KTO_PRIMO , KTO_ULTIMO
00550 INTEGER KTO_FP , KTO_SP
00560 // Variable…til…filen…@@KTOIDX
00570 DIM KTOIDX $ OF 17
00580 INTEGER I_H\JREC , I_MAXREC
00590 DIM KTONR $ OF 8
00600 INTEGER RECNR
00610 // Variable…til…filen…@@ST_KTO
00620 DIM ST_KTO $ OF 17
00630 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
00640 DIM K_DIFF_KTO $ OF 8 , INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
00650 // Variable…til…filen…@@TRANS
00660 DIM TRANS $ OF 17
00670 INTEGER T_H\JREC , T_MAXREC
00680 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
00690 REAL BMOMS , BBEL\B
00700 INTEGER DK , NTRANS
00710 ENDPROC DIMENSIONER
00720
00730 PROC INITIER
00740 LET PRGFL $ := "DP2"
00750 LET PROGRAM $ := PRGFL $ + ":SYSU"
00760 LET TAL $ := "0123456789" ; NULR := 0 ; MAX_LIN := 51
00770 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00780 LET SPC $ := "………………………………………………………………………………………………………………………"
00790 LET SPC $ := SPC $ + SPC $
00800 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00810 LET KREDIT := - 1 ; DEBET := 1
00820 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00830 EXEC OPENFIL ( SYSPARA $ , "R" )
00840 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00850 EXEC TERMINAL_IDX
00860 CLOSE SYSPARA $
00870 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00880 EXEC OPENFIL ( PARAM $ , "R" )
00890 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00900 CLOSE PARAM $
00910 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00920 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00930 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
00940 EXEC OPENFIL ( KTOIDX $ , "R" )
00950 EXEC OPENFIL ( KONTO $ , "R" )
00960 EXEC OPENFIL ( TRANS $ , "R" )
00970 ENDPROC INITIER
00980
00990 PROC TERMINAL_IDX
01000 LET PPAR := 5 ; RESRV := 0
01010 CALL :PRES"
01020 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01030 ENDPROC TERMINAL_IDX
01040
01050 PROC OPENFIL ( FNAVN $ , WAY $ )
01060 REPEAT
01070 IF AY $ = "W" OR WAY $ = "w" THEN
01080 OPEN FNAVN $ , W
01090 ELSE
01100 OPEN FNAVN $ , R
01110 ENDIF
01120 IF ( FNAVN $ ) THEN
01130 PRINT "<SC0123>" ; CHR$ ( 7 )
01140 IF ( FNAVN $ ) = 6 THEN
01150 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…RETURN…***"
01160 INPUT "" : SVAR $
01170 ELSE
01180 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01190 PRINT "<S>" ; FNAVN $ ; "…***"
01200 INPUT "" : SVAR $
01210 PRINT "<C0102>" ; SPC $
01220 ENDIF
01230 ENDIF
01240 UNTIL NOT ╱cd╱ ( FNAVN $ )
01250 ENDPROC OPENFIL
01260
01270 PROC TAL_CONTROL ( REF RST $ )
01280 LET J := 0 ; OK := TRUE
01290 FOR I := 1 TO ( RST $ ) DO
01300 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
01310 NEXT I
01320 IF = 0 THEN
01330 LET OK := FALSE
01340 ELSE
01350 LET RST $ := RST $ ( 1 : J )
01360 ENDIF
01370 ENDPROC TAL_CONTROL
01380
01390 PROC OVERSKRIFT ( ST $ , L )
01400 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01410 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01420 PRINT SYST_DAT $ ( 5 : 2 )
01430 CURSOR 36 - ╱cb╱ ( ST $ ) DIV 2 , L
01440 PRINT "***…" ; ST $ ; "…***"
01450 ENDPROC OVERSKRIFT
01460
01470 PROC SL_FEJLLINIE
01480 LET OK := TRUE
01490 PRINT "<C0102>" ; SPC $
01500 ENDPROC SL_FEJLLINIE
01510
01520 PROC FEJL ( ST $ )
01530 LET OK := FALSE
01540 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01550 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01560 ENDPROC FEJL
01570
01580 PROC L[S_KONTO ( P )
01590 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01600 ENDPROC L[S_KONTO
01610
01620 PROC SKRIV_KONTO ( P )
01630 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01640 ENDPROC SKRIV_KONTO
01650
01660 PROC L[S_TRANS ( P )
01670 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
01680 ENDPROC L[S_TRANS
01690
01700 PROC ST_BGST ( REF RST $ )
01710 FOR I := 1 TO ( RST $ ) DO
01720 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
01730 NEXT I
01740 ENDPROC ST_BGST
01750
01760 PROC FIND_KTO ( REF R_KTONR $ )
01770 LET OK := FALSE
01780 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
01790 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
01800 IF IGH > 1 THEN
01810 REPEAT
01820 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
01830 GET KTOIDX $ , POS : KTONR $ , RECNR
01840 IF TONR $ > R_KTONR $ THEN
01850 LET HIGH := POS
01860 ELSE
01870 IF TONR $ < R_KTONR $ THEN
01880 LET LOW := POS
01890 ENDIF
01900 ENDIF
01910 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
01920 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
01930 ENDIF
01940 LET FIND_KTO := POS
01950 ENDPROC FIND_KTO
01960
02230 PROC UDSKRIV
02240 REPEAT
02250 EXEC OVERSKRIFT ( "Udskrivning…af…saldobalance" , 8 )
02260 EXEC PRINTRES ( "bred…EDB-liste" , 12 )
02270 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
02280 LET LIN_T := 100 ; SIDENR := 0 ; TOTAL ( 1 ) , TOTAL ( 2 ) , TOTAL ( 3 ) , TOTAL ( 4 ) := 0
02290 FOR IDXPOS := 2 TO _H\JREC DO
02300 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
02050 EXEC L[S_KONTO ( RECNR )
02060 IF TO_TYPE $ = "A" THEN
02070 EXEC SAMMENT[L
02080 EXEC SKRIV_LIN
02090 ENDIF
02100 NEXT IDXPOS
02110 IF LIN_T >< 100 THEN EXEC AFSLUT
02120 EXEC PRINTREL
02130 LET SVAR $ := "n"
02140 EDIT "<C2618>Flere…udskrifter…(j/n)?…" : SVAR $ ( 1 )
02150 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
02160 ENDPROC UDSKRIV
02170
02180 PROC SIDESKIFT
02190 IF IN_T >< 100 THEN
02200 EXEC SKRIV_STREG
02210 PRINT "<S>" ; TAB ( 15 ) ; "TRANSPORT" ; TAB ( 54 )
02220 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
02230 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
02240 LET LIN_T := LIN_T + 2
02250 EXEC NYSIDE
02260 PRINT "<S>" ; TAB ( 15 ) ; "TRANSPORT" ; TAB ( 54 )
02270 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
02280 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
02290 LET LIN_T := LIN_T + 1
02300 ELSE
02310 EXEC NYSIDE
02320 ENDIF
02330 ENDPROC SIDESKIFT
02340
02350 PROC NYSIDE
02360 FOR I := LIN_T TO AX_LIN DO PRINT
02630 LET LIN_T := 8 ; SIDENR := SIDENR + 1
02640 PRINT "<S>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
02650 PRINT TAB ( 27 ) ; "SIDE:…" ; SIDENR
02660 PRINT
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 46 )
02680 PRINT "<S>***…BALANCE…***" ; TAB ( 24 ) ; "***…UDSKREVET…PR.…"
02690 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
02700 PRINT
02710 PRINT "<S>" ; TAB ( 54 )
02460 PRINT TAB ( 7 ) ; "R…]…B…A…L…A…N…C…E" ; TAB ( 30 ) ; "S…A…L…D…O…B…A…L…A…N…C…E"
02470 PRINT "<S>KONTONR.………KONTONAVN" ; TAB ( 54 )
02480 PRINT "…………DEBET………………………KREDIT……………………DEBET………………………KREDIT"
02490 EXEC SKRIV_STREG
02500 ENDPROC NYSIDE
02510
02520 PROC SKRIV_LIN
02530 IF LIN_T + 5 > MAX_LIN THEN EXEC SIDESKIFT
02540 LET LIN_T := LIN_T + 1
02550 PRINT "<S>" ; KTONR $ ; TAB ( 15 ) ; KTO_NAVN $ ; TAB ( 54 )
02560 PRINT "<S>" ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOT ( 2 ) , 9 , 2 )
02570 LET TOTAL ( 1 ) := TOTAL ( 1 ) + TOT ( 1 ) ; TOTAL ( 2 ) := TOTAL ( 2 ) + TOT ( 2 )
02580 IF OT ( 1 ) > TOT ( 2 ) THEN
02590 PRINT "……" ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
02600 LET TOTAL ( 3 ) := TOTAL ( 3 ) + TOT ( 1 ) - TOT ( 2 )
02610 ELSE
02620 IF OT ( 2 ) > TOT ( 1 ) THEN
02630 PRINT TAB ( 17 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
02640 LET TOTAL ( 4 ) := TOTAL ( 4 ) + TOT ( 2 ) - TOT ( 1 )
02650 ELSE
02660 PRINT
02670 ENDIF
02680 ENDIF
02690 ENDPROC SKRIV_LIN
02700
02710 PROC AFSLUT
02720 EXEC SKRIV_STREG
02730 PRINT "<S>" ; TAB ( 15 ) ; "BALANCE" ; TAB ( 54 )
02740 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
03010 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
02770 LET LIN_T := LIN_T + 2
02780 FOR I := LIN_T TO AX_LIN DO PRINT
02790 ENDPROC AFSLUT
02800
02810 PROC SAMMENT[L
02820 LET TOT ( 1 ) , TOT ( 2 ) := 0
02830 LET NTRANS := KTO_FP
02840 WHILE NTRANS > 0 DO
02850 EXEC L[S_TRANS ( NTRANS )
02860 IF K = DEBET THEN
02870 LET TOT ( 1 ) := TOT ( 1 ) + BBEL\B
02880 ELSE
02890 LET TOT ( 2 ) := TOT ( 2 ) + BBEL\B
02900 ENDIF
02910 ENDWHILE
02920 IF TO_PRIMO > 0 THEN
02930 LET TOT ( 1 ) := TOT ( 1 ) + KTO_PRIMO
02940 ELSE
02950 LET TOT ( 2 ) := TOT ( 2 ) + ABS ( KTO_PRIMO )
02960 ENDIF
02970 ENDPROC SAMMENT[L
02980
02990 PROC SKRIV_STREG
03000 PRINT "<S>----------------------------------------"
03010 PRINT "<S>----------------------------------------"
03020 PRINT "------------------------"
03030 ENDPROC SKRIV_STREG
09900 //
09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
09902 LET PRTNR $ := "1" ; OK := TRUE
09903 REPEAT
09904 CURSOR 21 , LINE
09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
09907 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
09908 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
09909 INPUT "" : SVAR $
09910 SELECT OUTPUT "P" + PRTNR $
09911 IF ( "P" ) THEN
09912 CURSOR 12 , LINE
09913 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
09914 CURSOR 12 , LINE + 1
09915 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
09916 IF VAR $ = "J" OR SVAR $ = "j" THEN
09917 CURSOR 12 , LINE
09918 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
09919 PRINT "<SZ>"
09920 WHILE ╱cd╱ ( "P" ) DO
09921 LET SEK := ╱ca╱ ( 5 )
09922 SELECT OUTPUT "P" + PRTNR $
09923 ENDWHILE
09924 ELSE
09925 LET OK := FALSE
09926 ENDIF
09927 ENDIF
09928 CURSOR 1 , LINE
09929 PRINT "<Z>"
09930 PRINT "<SZ>"
09931 ENDPROC PRINTRES
03040 //
03050 PROC PRINTREL // RELEASE…PRINTER
03060 SELECT OUTPUT "T"
03070 ENDPROC PRINTREL
02640 PRINT "<S>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
02640 PRINT "<SK>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
02750 PRINT "<S>……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
03011 PRINT "<L>"
07967 ╱1f╱ ╱1f╱ MARAPDY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ CHAIN GET ╱d4╱ ╱08╱ EXEC PRINTRES ( "smal…EDB-liste" , 12 )
02260 EXEC PRINTRES ( "EDB-liste" , 12 )
00760 LET TAL $ := "0123456789" ; NULR := 0 ; MAX_LIN := 72
02640 PRINT "<LS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 68 )
02650 PRINT "SIDE:…" ; SIDENR
02660 PRINT
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 30 )
02680 PRINT "<S>***…BALANCE…***" ; TAB ( 16 ) ; "***…UDSKREVET…PR.…"
02430 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
02440 PRINT
02450 PRINT "<KS>" ; TAB ( 54 )
02370 LET LIN_T := 8 ; SIDENR := SIDENR + 1
02640 PRINT "<LIS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 68 )
01970 PROC UDSKRIV
01980 REPEAT
01990 EXEC OVERSKRIFT ( "Udskrivning…af…saldobalance" , 8 )
02260 EXEC PRINTRES ( "EDB-liste" , 12 )
02010 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
02020 LET LIN_T := 100 ; SIDENR := 0 ; TOTAL ( 1 ) , TOTAL ( 2 ) , TOTAL ( 3 ) , TOTAL ( 4 ) := 0
02030 FOR IDXPOS := 2 TO _H\JREC DO
02040 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
02420 PRINT "<S>***…BALANCE…PR.…"
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
02380 PRINT "<LIS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 62 )
02390 PRINT "SIDE:…" ; SIDENR
02400 PRINT
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
02410 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 38 )
02760 PRINT "<LI>"
02000 EXEC PRINTRES ( "papir" , 12 )
09900 //
09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
09902 LET PRTNR $ := "1" ; OK := TRUE
09903 REPEAT
09904 CURSOR 15 , LINE
09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
09907 CURSOR 1 , LINE
09908 PRINT "<Z>"
09909 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
09910 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
09911 INPUT "" : SVAR $
09912 SELECT OUTPUT "P" + PRTNR $
09913 IF ( "P" ) THEN
09914 CURSOR 12 , LINE
09915 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
09916 CURSOR 12 , LINE + 1
09917 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
09918 IF VAR $ = "J" OR SVAR $ = "j" THEN
09919 CURSOR 12 , LINE
09920 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
09921 PRINT "<SZ>"
09922 WHILE ╱cd╱ ( "P" ) DO
09923 LET SEK := ╱ca╱ ( 5 )
09924 SELECT OUTPUT "P" + PRTNR $
09925 ENDWHILE
09926 ELSE
09927 LET OK := FALSE
09928 ENDIF
09929 ENDIF
09930 CURSOR 1 , LINE
09931 PRINT "<Z>"
09932 PRINT "<SZ>"
09933 ENDPROC PRINTRES
38382 ╱00╱ ╱00╱