|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »KLØR_TES.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KLØR_TES.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KLØR_TES.K«
0100 // ----------------------- klør-test -------------------------
0110 //
0120 DIM TAL$ OF 3,SV$ OF 2,NAVN$ OF 20,TRU$(10) OF 1,SPØR$(40) OF 80
0130 DIM RETUR$ OF 2,FA$ OF 1,F$(10) OF 1
0140 DIM TESTNAVN1$ OF 40,TESTNAVN2$ OF 40,QUESTFIL$ OF 17,TXTFIL$ OF 17
0150 INTEGER SUM,TALNR,M,NUMMER,A,J,I,SPRING
0160 TESTNAVN1$:="K L Ø R - T E S T . "
0170 TESTNAVN2$:=" k l ø r - t e s t "
0180 TXTFIL$:="SYSTIME:KLØRTXT"
0190 // ------------------------------------------------------------------
0200 EXEC HOVED
0210 EXEC FORSIDEN
0220 EXEC VALG
0230 // ------------------------------------------------------------------
0240 PROC HOVED
0250 CLEAR
0260 CURSOR 13,4
0270 PRINT " V E L K O M M E N T I L ";TESTNAVN1$
0280 CURSOR 13,5
0290 PRINT "------------------------------------------------------"
0300 CURSOR 15,8
0310 INPUT "Skriv dit navn her: ":NAVN$
0320 CURSOR 20,12
0330 ENDPROC HOVED
0340 // ------------------------------------------------------------------
0350 PROC VALG
0360 SUM:=0;M:=1;A:=0;NUMMER:=0
0370 CLEAR
0380 CURSOR 30,12
0390 PRINT " Lige et øjeblik!"
0400 EXEC FILLÆS
0410 EXEC FRÅGAN
0420 CLEAR
0430 CURSOR 10,3
0440 PRINT "Du har fået ";SUM;" rigtige svar af 10 mulige."
0450 CURSOR 10,8
0460 PRINT "Du kan vælge mellem tre muligheder:"
0470 CURSOR 10,12
0480 PRINT "1. Ønsker du at forbedre dit resultat ved at begynde forfra?"
0490 CURSOR 10,14
0500 PRINT "2. Ønsker du dit resultat sammenlignet med det rigtige "
0510 CURSOR 10,15
0520 PRINT " Skrevet ud på printer?"
0530 CURSOR 10,17
0540 PRINT "3. Ønsker du dit resultat sammenlignet med det rigtige"
0550 CURSOR 10,18
0560 PRINT " Skrevet ud på skærmen?"
0570 PRINT
0580 PRINT
0590 CURSOR 10,21
0600 INPUT "Skriv det ønskede tal: ":TALNR
0610 REPEAT
0620 CURSOR 33,21
0630 IF TALNR=1 THEN
0640 EXEC VALG
0650 CLEAR
0660 PRINT
0670 ELSE
0680 IF TALNR=2 THEN
0690 SPRING:=0
0700 EXEC PRINTERRES
0710 EXEC SKRIV
0720 SELECT OUTPUT "T"
0730 EXEC ELECTION
0740 ELSE
0750 IF TALNR=3 THEN
0760 SPRING:=1
0770 EXEC SKRIV
0780 EXEC ELECTION
0790 ENDIF
0800 ENDIF
0810 ENDIF
0820 UNTIL TALNR=0 OR TALNR=1 OR TALNR=2
0830 ENDPROC VALG
0840 // ----------------------------------------------------------------
0850 PROC SKRIV
0860 IF SPRING=1 THEN CLEAR
0868 PRINT
0869 IF SPRING=1 THEN CURSOR 1,1
0870 PRINT " *****************************************"
0880 PRINT " * ";TESTNAVN2$;" *"
0890 PRINT " *****************************************"
0900 PRINT " * ";NAVN$;TAB(57);"*"
0910 PRINT " *****************************************"
0920 IF SPRING=1 THEN CURSOR 1,7
0930 PRINT
0940 PRINT "Spørgsmål nr.";TAB(35);"Dit bud:";TAB(50);"Rigtige facit:"
0950 PRINT "----------------------------------------------------------------"
0960 PRINT
0970 FOR A:=1 TO 10 DO
0980 IF TRU$(A)<>F$(A) THEN
0990 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)," ***"
1000 ELSE
1010 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)
1020 ENDIF
1030 NEXT A
1040 PRINT
1050 PRINT "----------------------------------------------------------------"
1060 PRINT
1070 IF SPRING=1 THEN
1080 CURSOR 67,24
1090 INPUT "Return! ":RETUR$
1100 ENDIF
1110 ENDPROC SKRIV
1120 // --------------------------------------------------------------
1130 PROC FILLÆS
1140 OPEN TXTFIL$,R
1150 FOR I:=1 TO 10 DO
1160 FOR J:=1 TO 4 DO
1170 GET TXTFIL$:SPØR$((I-1)*4+J)
1180 NEXT J
1190 GET TXTFIL$:F$(I)
1200 NEXT I
1210 CLOSE TXTFIL$
1220 ENDPROC FILLÆS
1230 // ------------------------------------------------------------------
1240 PROC ELECTION
1250 REPEAT
1260 CURSOR 1,22
1270 CLEAR
1280 CURSOR 10,7
1290 PRINT "Du får nu mulighed for at vælge mellem følgende ting."
1300 PRINT
1310 CURSOR 10,12
1320 PRINT "1. Ønsker du at begynde forfra?"
1330 CURSOR 10,14
1340 PRINT "2. Ønsker du at se alle spørgsmålene på printeren?"
1350 CURSOR 10,16
1360 PRINT "3. Ønsker du at se alle spørgsmålene på skærmen?"
1370 CURSOR 10,18
1380 PRINT "4. Ønsker du at slutte nu?"
1390 CURSOR 10,22
1400 INPUT "Skriv det ønskede nummer: ":SV$
1410 CASE ORD(SV$(1)) OF
1420 WHEN 49
1430 EXEC VALG
1440 WHEN 50
1450 EXEC PRINTER
1460 WHEN 51
1470 EXEC SKÆRM
1480 WHEN 52
1490 EXEC SLUT
1500 ENDCASE
1510 UNTIL 0
1520 ENDPROC ELECTION
1530 // -----------------------------------------------------------
1540 PROC SLUT
1550 CURSOR 1,24
1560 PRINT " Så går vi videre til næste afsnit."
1570 END
1580 ENDPROC SLUT
1590 // ----------------------------------------------------------
1600 PROC SKÆRM
1610 SPRING:=1
1620 EXEC LÆS
1630 ENDPROC SKÆRM
1640 // -----------------------------------------------------------
1650 PROC LÆS
1660 FOR A:=1 TO 10 DO
1670 IF SPRING=1 THEN CLEAR
1680 K:=8
1690 FOR J:=1 TO 4 DO
1700 IF SPRING=1 THEN CURSOR 12,K+J
1710 PRINT TAB(12);SPØR$((A-1)*4+J)
1720 IF J=1 THEN
1730 K:=K+4
1740 ENDIF
1750 NEXT J
1760 PRINT
1770 IF SPRING=1 THEN
1780 CURSOR 70,20
1790 INPUT "Return!":RETUR$
1800 ENDIF
1810 NEXT A
1820 ENDPROC LÆS
1830 // --------------------------------------------------------------
1840 PROC PRINTERRES
1850 SELECT OUTPUT "P"
1860 IF STATUS("P")=1 THEN
1870 CURSOR 1,23
1880 PRINT "<Z>Printeren er reserveret af anden bruger,"
1890 INPUT "<S>skal der ventes på at den bliver ledig? (j/n) ":SV$
1900 IF SV$="J" OR SV$="j" THEN
1910 CURSOR 1,23
1920 PRINT "<Z>"
1930 PRINT "<S>Der ventes på at printeren bliver ledig......."
1940 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
1950 ENDIF
1960 ENDIF
1970 ENDPROC PRINTERRES
1980 PROC PRINTER
1990 EXEC PRINTERRES
2000 SPRING:=0
2010 EXEC LÆS
2020 SELECT OUTPUT "T"
2030 ENDPROC PRINTER
2040 // -----------------------------------------------------------
2050 PROC FRÅGAN
2060 FOR A:=1 TO 10 DO
2070 CLEAR
2080 FOR J:=1 TO 4 DO
2090 PRINT TAB(12);SPØR$((A-1)*4+J)
2100 CURSOR 12,J+4
2110 NEXT J
2120 EXEC RESTEN
2130 NEXT A
2140 ENDPROC FRÅGAN
2150 // -------------------------------------------------------------------
2160 PROC RESTEN
2170 CURSOR 12,16
2180 PRINT "Er det spørgsmål A,B eller C, der er rigtigt?"
2190 CURSOR 12,18
2200 INPUT "Tast A, B eller C: ":TRU$(A)
2210 IF "a"<=TRU$(A) AND "å"=>TRU$(A) THEN
2220 TRU$(A):=CHR$(ORD(TRU$(A))-32)
2230 ENDIF
2240 IF TRU$(A)=F$(A) THEN PRINT CHR$(42)
2250 IF TRU$(A)=F$(A) THEN SUM:=SUM+1
2260 ENDPROC RESTEN
2270 // ---------------------------------------------------------------------
2280 //
2290 //
2300 //
2310 PROC FORSIDEN
2320 CLEAR
2330 CURSOR 5,2
2340 PRINT "<S>*"
2350 FOR X:=6 TO 74 DO
2360 PRINT "<S>-"
2370 NEXT X
2380 PRINT "<S>*"
2390 CURSOR 10,5
2400 PRINT "<S>*"
2410 FOR X:=11 TO 69 DO
2420 PRINT "<S>-"
2430 NEXT X
2440 PRINT "<S>*"
2450 CURSOR 5,15
2460 PRINT "<S>*"
2470 FOR X:=6 TO 74 DO
2480 PRINT "<S>-"
2490 NEXT X
2500 PRINT "<S>*"
2510 CURSOR 10,12
2520 PRINT "<S>*"
2530 FOR X:=11 TO 69 DO
2540 PRINT "<S>-"
2550 NEXT X
2560 PRINT "<S>*"
2570 FOR Y:=6 TO 11 DO
2580 CURSOR 10,Y
2590 PRINT "!"
2600 NEXT Y
2610 FOR Y:=14 TO 3 STEP -1 DO
2620 CURSOR 5,Y
2630 PRINT "!"
2640 NEXT Y
2650 FOR Y:=6 TO 11 DO
2660 CURSOR 70,Y
2670 PRINT "!"
2680 NEXT Y
2690 FOR Y:=14 TO 3 STEP -1 DO
2700 CURSOR 75,Y
2710 PRINT "!"
2720 NEXT Y
2730 CURSOR 25,9
2740 PRINT TESTNAVN1$
2750 CURSOR 5,20
2760 PRINT "På de næste sider vil du få 10 spørgsmål med tre svar."
2770 CURSOR 5,21
2780 PRINT "Kun et af svarene er rigtigt,så du skal enten indtaste A, B ";
2790 PRINT "eller C."
2800 CURSOR 70,23
2810 INPUT "Return!":SV$
2820 ENDPROC FORSIDEN
0x0000…0045 Line {l1=0x43, l2=»0100 // ----------------------- klør-test -------------------------«, l3=0x43}
0x0045…004f Line {l1=0x08, l2=»0110 // «, l3=0x08}
0x004f…0096 Line {l1=0x45, l2=»0120 DIM TAL$ OF 3,SV$ OF 2,NAVN$ OF 20,TRU$(10) OF 1,SPØR$(40) OF 80«, l3=0x45}
0x0096…00c1 Line {l1=0x29, l2=»0130 DIM RETUR$ OF 2,FA$ OF 1,F$(10) OF 1«, l3=0x29}
0x00c1…010b Line {l1=0x48, l2=»0140 DIM TESTNAVN1$ OF 40,TESTNAVN2$ OF 40,QUESTFIL$ OF 17,TXTFIL$ OF 17«, l3=0x48}
0x010b…0139 Line {l1=0x2c, l2=»0150 INTEGER SUM,TALNR,M,NUMMER,A,J,I,SPRING«, l3=0x2c}
0x0139…0162 Line {l1=0x27, l2=»0160 TESTNAVN1$:="K L Ø R - T E S T . "«, l3=0x27}
0x0162…018e Line {l1=0x2a, l2=»0170 TESTNAVN2$:=" k l ø r - t e s t "«, l3=0x2a}
0x018e…01af Line {l1=0x1f, l2=»0180 TXTFIL$:="SYSTIME:KLØRTXT"«, l3=0x1f}
0x01af…01fb Line {l1=0x4a, l2=»0190 // ------------------------------------------------------------------«, l3=0x4a}
0x01fb…020c Line {l1=0x0f, l2=»0200 EXEC HOVED«, l3=0x0f}
0x020c…0220 Line {l1=0x12, l2=»0210 EXEC FORSIDEN«, l3=0x12}
0x0220…0230 Line {l1=0x0e, l2=»0220 EXEC VALG«, l3=0x0e}
0x0230…027c Line {l1=0x4a, l2=»0230 // ------------------------------------------------------------------«, l3=0x4a}
0x027c…028d Line {l1=0x0f, l2=»0240 PROC HOVED«, l3=0x0f}
0x028d…029a Line {l1=0x0b, l2=»0250 CLEAR «, l3=0x0b}
0x029a…02ac Line {l1=0x10, l2=»0260 CURSOR 13,4«, l3=0x10}
0x02ac…02e3 Line {l1=0x35, l2=»0270 PRINT " V E L K O M M E N T I L ";TESTNAVN1$«, l3=0x35}
0x02e3…02f5 Line {l1=0x10, l2=»0280 CURSOR 13,5«, l3=0x10}
0x02f5…033a Line {l1=0x43, l2=»0290 PRINT "------------------------------------------------------"«, l3=0x43}
0x033a…034c Line {l1=0x10, l2=»0300 CURSOR 15,8«, l3=0x10}
0x034c…0378 Line {l1=0x2a, l2=»0310 INPUT "Skriv dit navn her: ":NAVN$«, l3=0x2a}
0x0378…038b Line {l1=0x11, l2=»0320 CURSOR 20,12«, l3=0x11}
0x038b…039f Line {l1=0x12, l2=»0330 ENDPROC HOVED«, l3=0x12}
0x039f…03eb Line {l1=0x4a, l2=»0340 // ------------------------------------------------------------------«, l3=0x4a}
0x03eb…03fb Line {l1=0x0e, l2=»0350 PROC VALG«, l3=0x0e}
0x03fb…041c Line {l1=0x1f, l2=»0360 SUM:=0;M:=1;A:=0;NUMMER:=0«, l3=0x1f}
0x041c…0429 Line {l1=0x0b, l2=»0370 CLEAR «, l3=0x0b}
0x0429…043c Line {l1=0x11, l2=»0380 CURSOR 30,12«, l3=0x11}
0x043c…045c Line {l1=0x1e, l2=»0390 PRINT " Lige et øjeblik!"«, l3=0x1e}
0x045c…046e Line {l1=0x10, l2=»0400 EXEC FILLÆS«, l3=0x10}
0x046e…0480 Line {l1=0x10, l2=»0410 EXEC FRÅGAN«, l3=0x10}
0x0480…048d Line {l1=0x0b, l2=»0420 CLEAR «, l3=0x0b}
0x048d…049f Line {l1=0x10, l2=»0430 CURSOR 10,3«, l3=0x10}
0x049f…04dc Line {l1=0x3b, l2=»0440 PRINT "Du har fået ";SUM;" rigtige svar af 10 mulige."«, l3=0x3b}
0x04dc…04ee Line {l1=0x10, l2=»0450 CURSOR 10,8«, l3=0x10}
0x04ee…0520 Line {l1=0x30, l2=»0460 PRINT "Du kan vælge mellem tre muligheder:"«, l3=0x30}
0x0520…0533 Line {l1=0x11, l2=»0470 CURSOR 10,12«, l3=0x11}
0x0533…0580 Line {l1=0x4b, l2=»0480 PRINT "1. Ønsker du at forbedre dit resultat ved at begynde forfra?"«, l3=0x4b}
0x0580…0593 Line {l1=0x11, l2=»0490 CURSOR 10,14«, l3=0x11}
0x0593…05db Line {l1=0x46, l2=»0500 PRINT "2. Ønsker du dit resultat sammenlignet med det rigtige "«, l3=0x46}
0x05db…05ee Line {l1=0x11, l2=»0510 CURSOR 10,15«, l3=0x11}
0x05ee…0618 Line {l1=0x28, l2=»0520 PRINT " Skrevet ud på printer?"«, l3=0x28}
0x0618…062b Line {l1=0x11, l2=»0530 CURSOR 10,17«, l3=0x11}
0x062b…0672 Line {l1=0x45, l2=»0540 PRINT "3. Ønsker du dit resultat sammenlignet med det rigtige"«, l3=0x45}
0x0672…0685 Line {l1=0x11, l2=»0550 CURSOR 10,18«, l3=0x11}
0x0685…06af Line {l1=0x28, l2=»0560 PRINT " Skrevet ud på skærmen?"«, l3=0x28}
0x06af…06bc Line {l1=0x0b, l2=»0570 PRINT «, l3=0x0b}
0x06bc…06c9 Line {l1=0x0b, l2=»0580 PRINT «, l3=0x0b}
0x06c9…06dc Line {l1=0x11, l2=»0590 CURSOR 10,21«, l3=0x11}
0x06dc…0709 Line {l1=0x2b, l2=»0600 INPUT "Skriv det ønskede tal: ":TALNR«, l3=0x2b}
0x0709…0717 Line {l1=0x0c, l2=»0610 REPEAT «, l3=0x0c}
0x0717…072a Line {l1=0x11, l2=»0620 CURSOR 33,21«, l3=0x11}
0x072a…0741 Line {l1=0x15, l2=»0630 IF TALNR=1 THEN «, l3=0x15}
0x0741…0751 Line {l1=0x0e, l2=»0640 EXEC VALG«, l3=0x0e}
0x0751…075e Line {l1=0x0b, l2=»0650 CLEAR «, l3=0x0b}
0x075e…076b Line {l1=0x0b, l2=»0660 PRINT «, l3=0x0b}
0x076b…0777 Line {l1=0x0a, l2=»0670 ELSE «, l3=0x0a}
0x0777…078e Line {l1=0x15, l2=»0680 IF TALNR=2 THEN «, l3=0x15}
0x078e…079e Line {l1=0x0e, l2=»0690 SPRING:=0«, l3=0x0e}
0x079e…07b4 Line {l1=0x14, l2=»0700 EXEC PRINTERRES«, l3=0x14}
0x07b4…07c5 Line {l1=0x0f, l2=»0710 EXEC SKRIV«, l3=0x0f}
0x07c5…07dd Line {l1=0x16, l2=»0720 SELECT OUTPUT "T"«, l3=0x16}
0x07dd…07f1 Line {l1=0x12, l2=»0730 EXEC ELECTION«, l3=0x12}
0x07f1…07fd Line {l1=0x0a, l2=»0740 ELSE «, l3=0x0a}
0x07fd…0814 Line {l1=0x15, l2=»0750 IF TALNR=3 THEN «, l3=0x15}
0x0814…0824 Line {l1=0x0e, l2=»0760 SPRING:=1«, l3=0x0e}
0x0824…0835 Line {l1=0x0f, l2=»0770 EXEC SKRIV«, l3=0x0f}
0x0835…0849 Line {l1=0x12, l2=»0780 EXEC ELECTION«, l3=0x12}
0x0849…0856 Line {l1=0x0b, l2=»0790 ENDIF «, l3=0x0b}
0x0856…0863 Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x0863…0870 Line {l1=0x0b, l2=»0810 ENDIF «, l3=0x0b}
0x0870…089a Line {l1=0x28, l2=»0820 UNTIL TALNR=0 OR TALNR=1 OR TALNR=2«, l3=0x28}
0x089a…08ad Line {l1=0x11, l2=»0830 ENDPROC VALG«, l3=0x11}
0x08ad…08f7 Line {l1=0x48, l2=»0840 // ----------------------------------------------------------------«, l3=0x48}
0x08f7…0908 Line {l1=0x0f, l2=»0850 PROC SKRIV«, l3=0x0f}
0x0908…0926 Line {l1=0x1c, l2=»0860 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x0926…0933 Line {l1=0x0b, l2=»0868 PRINT «, l3=0x0b}
0x0933…0955 Line {l1=0x20, l2=»0869 IF SPRING=1 THEN CURSOR 1,1«, l3=0x20}
0x0955…099d Line {l1=0x46, l2=»0870 PRINT " *****************************************"«, l3=0x46}
0x099d…09dc Line {l1=0x3d, l2=»0880 PRINT " * ";TESTNAVN2$;" *"«, l3=0x3d}
0x09dc…0a24 Line {l1=0x46, l2=»0890 PRINT " *****************************************"«, l3=0x46}
0x0a24…0a62 Line {l1=0x3c, l2=»0900 PRINT " * ";NAVN$;TAB(57);"*"«, l3=0x3c}
0x0a62…0aaa Line {l1=0x46, l2=»0910 PRINT " *****************************************"«, l3=0x46}
0x0aaa…0acc Line {l1=0x20, l2=»0920 IF SPRING=1 THEN CURSOR 1,7«, l3=0x20}
0x0acc…0ad9 Line {l1=0x0b, l2=»0930 PRINT «, l3=0x0b}
0x0ad9…0b21 Line {l1=0x46, l2=»0940 PRINT "Spørgsmål nr.";TAB(35);"Dit bud:";TAB(50);"Rigtige facit:"«, l3=0x46}
0x0b21…0b70 Line {l1=0x4d, l2=»0950 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0b70…0b7d Line {l1=0x0b, l2=»0960 PRINT «, l3=0x0b}
0x0b7d…0b96 Line {l1=0x17, l2=»0970 FOR A:=1 TO 10 DO «, l3=0x17}
0x0b96…0bb4 Line {l1=0x1c, l2=»0980 IF TRU$(A)<>F$(A) THEN «, l3=0x1c}
0x0bb4…0bff Line {l1=0x49, l2=»0990 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)," ***"«, l3=0x49}
0x0bff…0c0b Line {l1=0x0a, l2=»1000 ELSE «, l3=0x0a}
0x0c0b…0c48 Line {l1=0x3b, l2=»1010 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)«, l3=0x3b}
0x0c48…0c55 Line {l1=0x0b, l2=»1020 ENDIF «, l3=0x0b}
0x0c55…0c62 Line {l1=0x0b, l2=»1030 NEXT A«, l3=0x0b}
0x0c62…0c6f Line {l1=0x0b, l2=»1040 PRINT «, l3=0x0b}
0x0c6f…0cbe Line {l1=0x4d, l2=»1050 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0cbe…0ccb Line {l1=0x0b, l2=»1060 PRINT «, l3=0x0b}
0x0ccb…0ce3 Line {l1=0x16, l2=»1070 IF SPRING=1 THEN «, l3=0x16}
0x0ce3…0cf6 Line {l1=0x11, l2=»1080 CURSOR 67,24«, l3=0x11}
0x0cf6…0d14 Line {l1=0x1c, l2=»1090 INPUT "Return! ":RETUR$«, l3=0x1c}
0x0d14…0d21 Line {l1=0x0b, l2=»1100 ENDIF «, l3=0x0b}
0x0d21…0d35 Line {l1=0x12, l2=»1110 ENDPROC SKRIV«, l3=0x12}
0x0d35…0d7d Line {l1=0x46, l2=»1120 // --------------------------------------------------------------«, l3=0x46}
0x0d7d…0d8f Line {l1=0x10, l2=»1130 PROC FILLÆS«, l3=0x10}
0x0d8f…0da4 Line {l1=0x13, l2=»1140 OPEN TXTFIL$,R«, l3=0x13}
0x0da4…0dbd Line {l1=0x17, l2=»1150 FOR I:=1 TO 10 DO «, l3=0x17}
0x0dbd…0dd5 Line {l1=0x16, l2=»1160 FOR J:=1 TO 4 DO «, l3=0x16}
0x0dd5…0df8 Line {l1=0x21, l2=»1170 GET TXTFIL$:SPØR$((I-1)*4+J)«, l3=0x21}
0x0df8…0e05 Line {l1=0x0b, l2=»1180 NEXT J«, l3=0x0b}
0x0e05…0e1d Line {l1=0x16, l2=»1190 GET TXTFIL$:F$(I)«, l3=0x16}
0x0e1d…0e2a Line {l1=0x0b, l2=»1200 NEXT I«, l3=0x0b}
0x0e2a…0e3e Line {l1=0x12, l2=»1210 CLOSE TXTFIL$«, l3=0x12}
0x0e3e…0e53 Line {l1=0x13, l2=»1220 ENDPROC FILLÆS«, l3=0x13}
0x0e53…0e9f Line {l1=0x4a, l2=»1230 // ------------------------------------------------------------------«, l3=0x4a}
0x0e9f…0eb3 Line {l1=0x12, l2=»1240 PROC ELECTION«, l3=0x12}
0x0eb3…0ec1 Line {l1=0x0c, l2=»1250 REPEAT «, l3=0x0c}
0x0ec1…0ed3 Line {l1=0x10, l2=»1260 CURSOR 1,22«, l3=0x10}
0x0ed3…0ee0 Line {l1=0x0b, l2=»1270 CLEAR «, l3=0x0b}
0x0ee0…0ef2 Line {l1=0x10, l2=»1280 CURSOR 10,7«, l3=0x10}
0x0ef2…0f36 Line {l1=0x42, l2=»1290 PRINT "Du får nu mulighed for at vælge mellem følgende ting."«, l3=0x42}
0x0f36…0f43 Line {l1=0x0b, l2=»1300 PRINT «, l3=0x0b}
0x0f43…0f56 Line {l1=0x11, l2=»1310 CURSOR 10,12«, l3=0x11}
0x0f56…0f86 Line {l1=0x2e, l2=»1320 PRINT "1. Ønsker du at begynde forfra?"«, l3=0x2e}
0x0f86…0f99 Line {l1=0x11, l2=»1330 CURSOR 10,14«, l3=0x11}
0x0f99…0fdc Line {l1=0x41, l2=»1340 PRINT "2. Ønsker du at se alle spørgsmålene på printeren?"«, l3=0x41}
0x0fdc…0fef Line {l1=0x11, l2=»1350 CURSOR 10,16«, l3=0x11}
0x0fef…1030 Line {l1=0x3f, l2=»1360 PRINT "3. Ønsker du at se alle spørgsmålene på skærmen?"«, l3=0x3f}
0x1030…1043 Line {l1=0x11, l2=»1370 CURSOR 10,18«, l3=0x11}
0x1043…106e Line {l1=0x29, l2=»1380 PRINT "4. Ønsker du at slutte nu?"«, l3=0x29}
0x106e…1081 Line {l1=0x11, l2=»1390 CURSOR 10,22«, l3=0x11}
0x1081…10b0 Line {l1=0x2d, l2=»1400 INPUT "Skriv det ønskede nummer: ":SV$«, l3=0x2d}
0x10b0…10cb Line {l1=0x19, l2=»1410 CASE ORD(SV$(1)) OF «, l3=0x19}
0x10cb…10d9 Line {l1=0x0c, l2=»1420 WHEN 49«, l3=0x0c}
0x10d9…10e9 Line {l1=0x0e, l2=»1430 EXEC VALG«, l3=0x0e}
0x10e9…10f7 Line {l1=0x0c, l2=»1440 WHEN 50«, l3=0x0c}
0x10f7…110a Line {l1=0x11, l2=»1450 EXEC PRINTER«, l3=0x11}
0x110a…1118 Line {l1=0x0c, l2=»1460 WHEN 51«, l3=0x0c}
0x1118…1129 Line {l1=0x0f, l2=»1470 EXEC SKÆRM«, l3=0x0f}
0x1129…1137 Line {l1=0x0c, l2=»1480 WHEN 52«, l3=0x0c}
0x1137…1147 Line {l1=0x0e, l2=»1490 EXEC SLUT«, l3=0x0e}
0x1147…1156 Line {l1=0x0d, l2=»1500 ENDCASE «, l3=0x0d}
0x1156…1164 Line {l1=0x0c, l2=»1510 UNTIL 0«, l3=0x0c}
0x1164…117b Line {l1=0x15, l2=»1520 ENDPROC ELECTION«, l3=0x15}
0x117b…11c0 Line {l1=0x43, l2=»1530 // -----------------------------------------------------------«, l3=0x43}
0x11c0…11d0 Line {l1=0x0e, l2=»1540 PROC SLUT«, l3=0x0e}
0x11d0…11e2 Line {l1=0x10, l2=»1550 CURSOR 1,24«, l3=0x10}
0x11e2…121b Line {l1=0x37, l2=»1560 PRINT " Så går vi videre til næste afsnit."«, l3=0x37}
0x121b…1226 Line {l1=0x09, l2=»1570 END «, l3=0x09}
0x1226…1239 Line {l1=0x11, l2=»1580 ENDPROC SLUT«, l3=0x11}
0x1239…127d Line {l1=0x42, l2=»1590 // ----------------------------------------------------------«, l3=0x42}
0x127d…128e Line {l1=0x0f, l2=»1600 PROC SKÆRM«, l3=0x0f}
0x128e…129e Line {l1=0x0e, l2=»1610 SPRING:=1«, l3=0x0e}
0x129e…12ad Line {l1=0x0d, l2=»1620 EXEC LÆS«, l3=0x0d}
0x12ad…12c1 Line {l1=0x12, l2=»1630 ENDPROC SKÆRM«, l3=0x12}
0x12c1…1306 Line {l1=0x43, l2=»1640 // -----------------------------------------------------------«, l3=0x43}
0x1306…1315 Line {l1=0x0d, l2=»1650 PROC LÆS«, l3=0x0d}
0x1315…132e Line {l1=0x17, l2=»1660 FOR A:=1 TO 10 DO «, l3=0x17}
0x132e…134c Line {l1=0x1c, l2=»1670 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x134c…1357 Line {l1=0x09, l2=»1680 K:=8«, l3=0x09}
0x1357…136f Line {l1=0x16, l2=»1690 FOR J:=1 TO 4 DO «, l3=0x16}
0x136f…1394 Line {l1=0x23, l2=»1700 IF SPRING=1 THEN CURSOR 12,K+J«, l3=0x23}
0x1394…13b9 Line {l1=0x23, l2=»1710 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x13b9…13cc Line {l1=0x11, l2=»1720 IF J=1 THEN «, l3=0x11}
0x13cc…13d9 Line {l1=0x0b, l2=»1730 K:=K+4«, l3=0x0b}
0x13d9…13e6 Line {l1=0x0b, l2=»1740 ENDIF «, l3=0x0b}
0x13e6…13f3 Line {l1=0x0b, l2=»1750 NEXT J«, l3=0x0b}
0x13f3…1400 Line {l1=0x0b, l2=»1760 PRINT «, l3=0x0b}
0x1400…1418 Line {l1=0x16, l2=»1770 IF SPRING=1 THEN «, l3=0x16}
0x1418…142b Line {l1=0x11, l2=»1780 CURSOR 70,20«, l3=0x11}
0x142b…1448 Line {l1=0x1b, l2=»1790 INPUT "Return!":RETUR$«, l3=0x1b}
0x1448…1455 Line {l1=0x0b, l2=»1800 ENDIF «, l3=0x0b}
0x1455…1462 Line {l1=0x0b, l2=»1810 NEXT A«, l3=0x0b}
0x1462…1474 Line {l1=0x10, l2=»1820 ENDPROC LÆS«, l3=0x10}
0x1474…14bc Line {l1=0x46, l2=»1830 // --------------------------------------------------------------«, l3=0x46}
0x14bc…14d2 Line {l1=0x14, l2=»1840 PROC PRINTERRES«, l3=0x14}
0x14d2…14ea Line {l1=0x16, l2=»1850 SELECT OUTPUT "P"«, l3=0x16}
0x14ea…1507 Line {l1=0x1b, l2=»1860 IF STATUS("P")=1 THEN «, l3=0x1b}
0x1507…1519 Line {l1=0x10, l2=»1870 CURSOR 1,23«, l3=0x10}
0x1519…1553 Line {l1=0x38, l2=»1880 PRINT "<Z>Printeren er reserveret af anden bruger,"«, l3=0x38}
0x1553…1598 Line {l1=0x43, l2=»1890 INPUT "<S>skal der ventes på at den bliver ledig? (j/n) ":SV$«, l3=0x43}
0x1598…15ba Line {l1=0x20, l2=»1900 IF SV$="J" OR SV$="j" THEN «, l3=0x20}
0x15ba…15cc Line {l1=0x10, l2=»1910 CURSOR 1,23«, l3=0x10}
0x15cc…15de Line {l1=0x10, l2=»1920 PRINT "<Z>"«, l3=0x10}
0x15de…161e Line {l1=0x3e, l2=»1930 PRINT "<S>Der ventes på at printeren bliver ledig......."«, l3=0x3e}
0x161e…164d Line {l1=0x2d, l2=»1940 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x164d…165a Line {l1=0x0b, l2=»1950 ENDIF «, l3=0x0b}
0x165a…1667 Line {l1=0x0b, l2=»1960 ENDIF «, l3=0x0b}
0x1667…1680 Line {l1=0x17, l2=»1970 ENDPROC PRINTERRES«, l3=0x17}
0x1680…1693 Line {l1=0x11, l2=»1980 PROC PRINTER«, l3=0x11}
0x1693…16a9 Line {l1=0x14, l2=»1990 EXEC PRINTERRES«, l3=0x14}
0x16a9…16b9 Line {l1=0x0e, l2=»2000 SPRING:=0«, l3=0x0e}
0x16b9…16c8 Line {l1=0x0d, l2=»2010 EXEC LÆS«, l3=0x0d}
0x16c8…16e0 Line {l1=0x16, l2=»2020 SELECT OUTPUT "T"«, l3=0x16}
0x16e0…16f6 Line {l1=0x14, l2=»2030 ENDPROC PRINTER«, l3=0x14}
0x16f6…173b Line {l1=0x43, l2=»2040 // -----------------------------------------------------------«, l3=0x43}
0x173b…174d Line {l1=0x10, l2=»2050 PROC FRÅGAN«, l3=0x10}
0x174d…1766 Line {l1=0x17, l2=»2060 FOR A:=1 TO 10 DO «, l3=0x17}
0x1766…1773 Line {l1=0x0b, l2=»2070 CLEAR «, l3=0x0b}
0x1773…178b Line {l1=0x16, l2=»2080 FOR J:=1 TO 4 DO «, l3=0x16}
0x178b…17b0 Line {l1=0x23, l2=»2090 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x17b0…17c4 Line {l1=0x12, l2=»2100 CURSOR 12,J+4«, l3=0x12}
0x17c4…17d1 Line {l1=0x0b, l2=»2110 NEXT J«, l3=0x0b}
0x17d1…17e3 Line {l1=0x10, l2=»2120 EXEC RESTEN«, l3=0x10}
0x17e3…17f0 Line {l1=0x0b, l2=»2130 NEXT A«, l3=0x0b}
0x17f0…1805 Line {l1=0x13, l2=»2140 ENDPROC FRÅGAN«, l3=0x13}
0x1805…1852 Line {l1=0x4b, l2=»2150 // -------------------------------------------------------------------«, l3=0x4b}
0x1852…1864 Line {l1=0x10, l2=»2160 PROC RESTEN«, l3=0x10}
0x1864…1877 Line {l1=0x11, l2=»2170 CURSOR 12,16«, l3=0x11}
0x1877…18b3 Line {l1=0x3a, l2=»2180 PRINT "Er det spørgsmål A,B eller C, der er rigtigt?"«, l3=0x3a}
0x18b3…18c6 Line {l1=0x11, l2=»2190 CURSOR 12,18«, l3=0x11}
0x18c6…18f8 Line {l1=0x30, l2=»2200 INPUT "Tast A, B eller C: ":TRU$(A)«, l3=0x30}
0x18f8…1925 Line {l1=0x2b, l2=»2210 IF "a"<=TRU$(A) AND "å"=>TRU$(A) THEN «, l3=0x2b}
0x1925…194a Line {l1=0x23, l2=»2220 TRU$(A):=CHR$(ORD(TRU$(A))-32)«, l3=0x23}
0x194a…1957 Line {l1=0x0b, l2=»2230 ENDIF «, l3=0x0b}
0x1957…1982 Line {l1=0x29, l2=»2240 IF TRU$(A)=F$(A) THEN PRINT CHR$(42)«, l3=0x29}
0x1982…19a9 Line {l1=0x25, l2=»2250 IF TRU$(A)=F$(A) THEN SUM:=SUM+1«, l3=0x25}
0x19a9…19be Line {l1=0x13, l2=»2260 ENDPROC RESTEN«, l3=0x13}
0x19be…1a0d Line {l1=0x4d, l2=»2270 // ---------------------------------------------------------------------«, l3=0x4d}
0x1a0d…1a17 Line {l1=0x08, l2=»2280 // «, l3=0x08}
0x1a17…1a21 Line {l1=0x08, l2=»2290 // «, l3=0x08}
0x1a21…1a2b Line {l1=0x08, l2=»2300 // «, l3=0x08}
0x1a2b…1a3f Line {l1=0x12, l2=»2310 PROC FORSIDEN«, l3=0x12}
0x1a3f…1a4c Line {l1=0x0b, l2=»2320 CLEAR «, l3=0x0b}
0x1a4c…1a5d Line {l1=0x0f, l2=»2330 CURSOR 5,2«, l3=0x0f}
0x1a5d…1a70 Line {l1=0x11, l2=»2340 PRINT "<S>*"«, l3=0x11}
0x1a70…1a89 Line {l1=0x17, l2=»2350 FOR X:=6 TO 74 DO «, l3=0x17}
0x1a89…1a9c Line {l1=0x11, l2=»2360 PRINT "<S>-"«, l3=0x11}
0x1a9c…1aa9 Line {l1=0x0b, l2=»2370 NEXT X«, l3=0x0b}
0x1aa9…1abc Line {l1=0x11, l2=»2380 PRINT "<S>*"«, l3=0x11}
0x1abc…1ace Line {l1=0x10, l2=»2390 CURSOR 10,5«, l3=0x10}
0x1ace…1ae1 Line {l1=0x11, l2=»2400 PRINT "<S>*"«, l3=0x11}
0x1ae1…1afb Line {l1=0x18, l2=»2410 FOR X:=11 TO 69 DO «, l3=0x18}
0x1afb…1b0e Line {l1=0x11, l2=»2420 PRINT "<S>-"«, l3=0x11}
0x1b0e…1b1b Line {l1=0x0b, l2=»2430 NEXT X«, l3=0x0b}
0x1b1b…1b2e Line {l1=0x11, l2=»2440 PRINT "<S>*"«, l3=0x11}
0x1b2e…1b40 Line {l1=0x10, l2=»2450 CURSOR 5,15«, l3=0x10}
0x1b40…1b53 Line {l1=0x11, l2=»2460 PRINT "<S>*"«, l3=0x11}
0x1b53…1b6c Line {l1=0x17, l2=»2470 FOR X:=6 TO 74 DO «, l3=0x17}
0x1b6c…1b7f Line {l1=0x11, l2=»2480 PRINT "<S>-"«, l3=0x11}
0x1b7f…1b8c Line {l1=0x0b, l2=»2490 NEXT X«, l3=0x0b}
0x1b8c…1b9f Line {l1=0x11, l2=»2500 PRINT "<S>*"«, l3=0x11}
0x1b9f…1bb2 Line {l1=0x11, l2=»2510 CURSOR 10,12«, l3=0x11}
0x1bb2…1bc5 Line {l1=0x11, l2=»2520 PRINT "<S>*"«, l3=0x11}
0x1bc5…1bdf Line {l1=0x18, l2=»2530 FOR X:=11 TO 69 DO «, l3=0x18}
0x1bdf…1bf2 Line {l1=0x11, l2=»2540 PRINT "<S>-"«, l3=0x11}
0x1bf2…1bff Line {l1=0x0b, l2=»2550 NEXT X«, l3=0x0b}
0x1bff…1c12 Line {l1=0x11, l2=»2560 PRINT "<S>*"«, l3=0x11}
0x1c12…1c2b Line {l1=0x17, l2=»2570 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1c2b…1c3d Line {l1=0x10, l2=»2580 CURSOR 10,Y«, l3=0x10}
0x1c3d…1c4d Line {l1=0x0e, l2=»2590 PRINT "!"«, l3=0x0e}
0x1c4d…1c5a Line {l1=0x0b, l2=»2600 NEXT Y«, l3=0x0b}
0x1c5a…1c7b Line {l1=0x1f, l2=»2610 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1c7b…1c8c Line {l1=0x0f, l2=»2620 CURSOR 5,Y«, l3=0x0f}
0x1c8c…1c9c Line {l1=0x0e, l2=»2630 PRINT "!"«, l3=0x0e}
0x1c9c…1ca9 Line {l1=0x0b, l2=»2640 NEXT Y«, l3=0x0b}
0x1ca9…1cc2 Line {l1=0x17, l2=»2650 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1cc2…1cd4 Line {l1=0x10, l2=»2660 CURSOR 70,Y«, l3=0x10}
0x1cd4…1ce4 Line {l1=0x0e, l2=»2670 PRINT "!"«, l3=0x0e}
0x1ce4…1cf1 Line {l1=0x0b, l2=»2680 NEXT Y«, l3=0x0b}
0x1cf1…1d12 Line {l1=0x1f, l2=»2690 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1d12…1d24 Line {l1=0x10, l2=»2700 CURSOR 75,Y«, l3=0x10}
0x1d24…1d34 Line {l1=0x0e, l2=»2710 PRINT "!"«, l3=0x0e}
0x1d34…1d41 Line {l1=0x0b, l2=»2720 NEXT Y«, l3=0x0b}
0x1d41…1d53 Line {l1=0x10, l2=»2730 CURSOR 25,9«, l3=0x10}
0x1d53…1d6a Line {l1=0x15, l2=»2740 PRINT TESTNAVN1$«, l3=0x15}
0x1d6a…1d7c Line {l1=0x10, l2=»2750 CURSOR 5,20«, l3=0x10}
0x1d7c…1dc1 Line {l1=0x43, l2=»2760 PRINT "På de næste sider vil du få 10 spørgsmål med tre svar."«, l3=0x43}
0x1dc1…1dd3 Line {l1=0x10, l2=»2770 CURSOR 5,21«, l3=0x10}
0x1dd3…1e1f Line {l1=0x4a, l2=»2780 PRINT "Kun et af svarene er rigtigt,så du skal enten indtaste A, B ";«, l3=0x4a}
0x1e1f…1e36 Line {l1=0x15, l2=»2790 PRINT "eller C."«, l3=0x15}
0x1e36…1e49 Line {l1=0x11, l2=»2800 CURSOR 70,23«, l3=0x11}
0x1e49…1e63 Line {l1=0x18, l2=»2810 INPUT "Return!":SV$«, l3=0x18}
0x1e63…1e7a Line {l1=0x15, l2=»2820 ENDPROC FORSIDEN«, l3=0x15}
0x1e7a…1e80 00 00 2e 22 43 10 ┆ ."C ┆
0x1e80…1ea0 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 38 30 20 50 52 49 4e 54 20 22 4b 75 ┆2770 CURSOR 5,21 J2780 PRINT "Ku┆
0x1ea0…1ec0 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 69 67 74 69 67 74 2c 73 7d 20 64 75 ┆n et af svarene er rigtigt,så du┆
0x1ec0…1ee0 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 20 41 2c 20 42 20 22 3b 4a 15 32 37 ┆ skal enten indtaste A, B ";J 27┆
0x1ee0…1f00 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 11 32 38 30 30 20 43 55 52 53 4f 52 ┆90 PRINT "eller C." 2800 CURSOR┆
0x1f00…1f20 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 56 24 ┆ 70,23 2810 INPUT "Return!":SV$┆
0x1f20…1f40 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 44 45 4e 15 00 00 63 63 63 63 63 63 ┆ 2820 ENDPROC FORSIDEN cccccc┆
0x1f40…1f60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x41…]