|
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: »RUDER_TE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUDER_TE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUDER_TE.K«
0100 // ----------------------- ruder-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$:="R U D E R - T E S T . "
0170 TESTNAVN2$:=" R u d e r - t e s t "
0180 TXTFIL$:="SYSTIME:RUDERTXT"
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…0046 Line {l1=0x44, l2=»0100 // ----------------------- ruder-test -------------------------«, l3=0x44}
0x0046…0050 Line {l1=0x08, l2=»0110 // «, l3=0x08}
0x0050…0097 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}
0x0097…00c2 Line {l1=0x29, l2=»0130 DIM RETUR$ OF 2,FA$ OF 1,F$(10) OF 1«, l3=0x29}
0x00c2…010c Line {l1=0x48, l2=»0140 DIM TESTNAVN1$ OF 40,TESTNAVN2$ OF 40,QUESTFIL$ OF 17,TXTFIL$ OF 17«, l3=0x48}
0x010c…013a Line {l1=0x2c, l2=»0150 INTEGER SUM,TALNR,M,NUMMER,A,J,I,SPRING«, l3=0x2c}
0x013a…0165 Line {l1=0x29, l2=»0160 TESTNAVN1$:="R U D E R - T E S T . "«, l3=0x29}
0x0165…0191 Line {l1=0x2a, l2=»0170 TESTNAVN2$:=" R u d e r - t e s t "«, l3=0x2a}
0x0191…01b3 Line {l1=0x20, l2=»0180 TXTFIL$:="SYSTIME:RUDERTXT"«, l3=0x20}
0x01b3…01ff Line {l1=0x4a, l2=»0190 // ------------------------------------------------------------------«, l3=0x4a}
0x01ff…0210 Line {l1=0x0f, l2=»0200 EXEC HOVED«, l3=0x0f}
0x0210…0224 Line {l1=0x12, l2=»0210 EXEC FORSIDEN«, l3=0x12}
0x0224…0234 Line {l1=0x0e, l2=»0220 EXEC VALG«, l3=0x0e}
0x0234…0280 Line {l1=0x4a, l2=»0230 // ------------------------------------------------------------------«, l3=0x4a}
0x0280…0291 Line {l1=0x0f, l2=»0240 PROC HOVED«, l3=0x0f}
0x0291…029e Line {l1=0x0b, l2=»0250 CLEAR «, l3=0x0b}
0x029e…02b0 Line {l1=0x10, l2=»0260 CURSOR 13,4«, l3=0x10}
0x02b0…02e7 Line {l1=0x35, l2=»0270 PRINT " V E L K O M M E N T I L ";TESTNAVN1$«, l3=0x35}
0x02e7…02f9 Line {l1=0x10, l2=»0280 CURSOR 13,5«, l3=0x10}
0x02f9…033e Line {l1=0x43, l2=»0290 PRINT "------------------------------------------------------"«, l3=0x43}
0x033e…0350 Line {l1=0x10, l2=»0300 CURSOR 15,8«, l3=0x10}
0x0350…037c Line {l1=0x2a, l2=»0310 INPUT "Skriv dit navn her: ":NAVN$«, l3=0x2a}
0x037c…038f Line {l1=0x11, l2=»0320 CURSOR 20,12«, l3=0x11}
0x038f…03a3 Line {l1=0x12, l2=»0330 ENDPROC HOVED«, l3=0x12}
0x03a3…03ef Line {l1=0x4a, l2=»0340 // ------------------------------------------------------------------«, l3=0x4a}
0x03ef…03ff Line {l1=0x0e, l2=»0350 PROC VALG«, l3=0x0e}
0x03ff…0420 Line {l1=0x1f, l2=»0360 SUM:=0;M:=1;A:=0;NUMMER:=0«, l3=0x1f}
0x0420…042d Line {l1=0x0b, l2=»0370 CLEAR «, l3=0x0b}
0x042d…0440 Line {l1=0x11, l2=»0380 CURSOR 30,12«, l3=0x11}
0x0440…0460 Line {l1=0x1e, l2=»0390 PRINT " Lige et øjeblik!"«, l3=0x1e}
0x0460…0472 Line {l1=0x10, l2=»0400 EXEC FILLÆS«, l3=0x10}
0x0472…0484 Line {l1=0x10, l2=»0410 EXEC FRÅGAN«, l3=0x10}
0x0484…0491 Line {l1=0x0b, l2=»0420 CLEAR «, l3=0x0b}
0x0491…04a3 Line {l1=0x10, l2=»0430 CURSOR 10,3«, l3=0x10}
0x04a3…04e0 Line {l1=0x3b, l2=»0440 PRINT "Du har fået ";SUM;" rigtige svar af 10 mulige."«, l3=0x3b}
0x04e0…04f2 Line {l1=0x10, l2=»0450 CURSOR 10,8«, l3=0x10}
0x04f2…0524 Line {l1=0x30, l2=»0460 PRINT "Du kan vælge mellem tre muligheder:"«, l3=0x30}
0x0524…0537 Line {l1=0x11, l2=»0470 CURSOR 10,12«, l3=0x11}
0x0537…0584 Line {l1=0x4b, l2=»0480 PRINT "1. Ønsker du at forbedre dit resultat ved at begynde forfra?"«, l3=0x4b}
0x0584…0597 Line {l1=0x11, l2=»0490 CURSOR 10,14«, l3=0x11}
0x0597…05df Line {l1=0x46, l2=»0500 PRINT "2. Ønsker du dit resultat sammenlignet med det rigtige "«, l3=0x46}
0x05df…05f2 Line {l1=0x11, l2=»0510 CURSOR 10,15«, l3=0x11}
0x05f2…061c Line {l1=0x28, l2=»0520 PRINT " Skrevet ud på printer?"«, l3=0x28}
0x061c…062f Line {l1=0x11, l2=»0530 CURSOR 10,17«, l3=0x11}
0x062f…0676 Line {l1=0x45, l2=»0540 PRINT "3. Ønsker du dit resultat sammenlignet med det rigtige"«, l3=0x45}
0x0676…0689 Line {l1=0x11, l2=»0550 CURSOR 10,18«, l3=0x11}
0x0689…06b3 Line {l1=0x28, l2=»0560 PRINT " Skrevet ud på skærmen?"«, l3=0x28}
0x06b3…06c0 Line {l1=0x0b, l2=»0570 PRINT «, l3=0x0b}
0x06c0…06cd Line {l1=0x0b, l2=»0580 PRINT «, l3=0x0b}
0x06cd…06e0 Line {l1=0x11, l2=»0590 CURSOR 10,21«, l3=0x11}
0x06e0…070d Line {l1=0x2b, l2=»0600 INPUT "Skriv det ønskede tal: ":TALNR«, l3=0x2b}
0x070d…071b Line {l1=0x0c, l2=»0610 REPEAT «, l3=0x0c}
0x071b…072e Line {l1=0x11, l2=»0620 CURSOR 33,21«, l3=0x11}
0x072e…0745 Line {l1=0x15, l2=»0630 IF TALNR=1 THEN «, l3=0x15}
0x0745…0755 Line {l1=0x0e, l2=»0640 EXEC VALG«, l3=0x0e}
0x0755…0762 Line {l1=0x0b, l2=»0650 CLEAR «, l3=0x0b}
0x0762…076f Line {l1=0x0b, l2=»0660 PRINT «, l3=0x0b}
0x076f…077b Line {l1=0x0a, l2=»0670 ELSE «, l3=0x0a}
0x077b…0792 Line {l1=0x15, l2=»0680 IF TALNR=2 THEN «, l3=0x15}
0x0792…07a2 Line {l1=0x0e, l2=»0690 SPRING:=0«, l3=0x0e}
0x07a2…07b8 Line {l1=0x14, l2=»0700 EXEC PRINTERRES«, l3=0x14}
0x07b8…07c9 Line {l1=0x0f, l2=»0710 EXEC SKRIV«, l3=0x0f}
0x07c9…07e1 Line {l1=0x16, l2=»0720 SELECT OUTPUT "T"«, l3=0x16}
0x07e1…07f5 Line {l1=0x12, l2=»0730 EXEC ELECTION«, l3=0x12}
0x07f5…0801 Line {l1=0x0a, l2=»0740 ELSE «, l3=0x0a}
0x0801…0818 Line {l1=0x15, l2=»0750 IF TALNR=3 THEN «, l3=0x15}
0x0818…0828 Line {l1=0x0e, l2=»0760 SPRING:=1«, l3=0x0e}
0x0828…0839 Line {l1=0x0f, l2=»0770 EXEC SKRIV«, l3=0x0f}
0x0839…084d Line {l1=0x12, l2=»0780 EXEC ELECTION«, l3=0x12}
0x084d…085a Line {l1=0x0b, l2=»0790 ENDIF «, l3=0x0b}
0x085a…0867 Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x0867…0874 Line {l1=0x0b, l2=»0810 ENDIF «, l3=0x0b}
0x0874…089e Line {l1=0x28, l2=»0820 UNTIL TALNR=0 OR TALNR=1 OR TALNR=2«, l3=0x28}
0x089e…08b1 Line {l1=0x11, l2=»0830 ENDPROC VALG«, l3=0x11}
0x08b1…08fb Line {l1=0x48, l2=»0840 // ----------------------------------------------------------------«, l3=0x48}
0x08fb…090c Line {l1=0x0f, l2=»0850 PROC SKRIV«, l3=0x0f}
0x090c…092a Line {l1=0x1c, l2=»0860 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x092a…0937 Line {l1=0x0b, l2=»0868 PRINT «, l3=0x0b}
0x0937…0959 Line {l1=0x20, l2=»0869 IF SPRING=1 THEN CURSOR 1,1«, l3=0x20}
0x0959…09a1 Line {l1=0x46, l2=»0870 PRINT " *****************************************"«, l3=0x46}
0x09a1…09e0 Line {l1=0x3d, l2=»0880 PRINT " * ";TESTNAVN2$;" *"«, l3=0x3d}
0x09e0…0a28 Line {l1=0x46, l2=»0890 PRINT " *****************************************"«, l3=0x46}
0x0a28…0a66 Line {l1=0x3c, l2=»0900 PRINT " * ";NAVN$;TAB(57);"*"«, l3=0x3c}
0x0a66…0aae Line {l1=0x46, l2=»0910 PRINT " *****************************************"«, l3=0x46}
0x0aae…0ad0 Line {l1=0x20, l2=»0920 IF SPRING=1 THEN CURSOR 1,7«, l3=0x20}
0x0ad0…0add Line {l1=0x0b, l2=»0930 PRINT «, l3=0x0b}
0x0add…0b25 Line {l1=0x46, l2=»0940 PRINT "Spørgsmål nr.";TAB(35);"Dit bud:";TAB(50);"Rigtige facit:"«, l3=0x46}
0x0b25…0b74 Line {l1=0x4d, l2=»0950 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0b74…0b81 Line {l1=0x0b, l2=»0960 PRINT «, l3=0x0b}
0x0b81…0b9a Line {l1=0x17, l2=»0970 FOR A:=1 TO 10 DO «, l3=0x17}
0x0b9a…0bb8 Line {l1=0x1c, l2=»0980 IF TRU$(A)<>F$(A) THEN «, l3=0x1c}
0x0bb8…0c03 Line {l1=0x49, l2=»0990 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)," ***"«, l3=0x49}
0x0c03…0c0f Line {l1=0x0a, l2=»1000 ELSE «, l3=0x0a}
0x0c0f…0c4c Line {l1=0x3b, l2=»1010 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)«, l3=0x3b}
0x0c4c…0c59 Line {l1=0x0b, l2=»1020 ENDIF «, l3=0x0b}
0x0c59…0c66 Line {l1=0x0b, l2=»1030 NEXT A«, l3=0x0b}
0x0c66…0c73 Line {l1=0x0b, l2=»1040 PRINT «, l3=0x0b}
0x0c73…0cc2 Line {l1=0x4d, l2=»1050 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0cc2…0ccf Line {l1=0x0b, l2=»1060 PRINT «, l3=0x0b}
0x0ccf…0ce7 Line {l1=0x16, l2=»1070 IF SPRING=1 THEN «, l3=0x16}
0x0ce7…0cfa Line {l1=0x11, l2=»1080 CURSOR 67,24«, l3=0x11}
0x0cfa…0d18 Line {l1=0x1c, l2=»1090 INPUT "Return! ":RETUR$«, l3=0x1c}
0x0d18…0d25 Line {l1=0x0b, l2=»1100 ENDIF «, l3=0x0b}
0x0d25…0d39 Line {l1=0x12, l2=»1110 ENDPROC SKRIV«, l3=0x12}
0x0d39…0d81 Line {l1=0x46, l2=»1120 // --------------------------------------------------------------«, l3=0x46}
0x0d81…0d93 Line {l1=0x10, l2=»1130 PROC FILLÆS«, l3=0x10}
0x0d93…0da8 Line {l1=0x13, l2=»1140 OPEN TXTFIL$,R«, l3=0x13}
0x0da8…0dc1 Line {l1=0x17, l2=»1150 FOR I:=1 TO 10 DO «, l3=0x17}
0x0dc1…0dd9 Line {l1=0x16, l2=»1160 FOR J:=1 TO 4 DO «, l3=0x16}
0x0dd9…0dfc Line {l1=0x21, l2=»1170 GET TXTFIL$:SPØR$((I-1)*4+J)«, l3=0x21}
0x0dfc…0e09 Line {l1=0x0b, l2=»1180 NEXT J«, l3=0x0b}
0x0e09…0e21 Line {l1=0x16, l2=»1190 GET TXTFIL$:F$(I)«, l3=0x16}
0x0e21…0e2e Line {l1=0x0b, l2=»1200 NEXT I«, l3=0x0b}
0x0e2e…0e42 Line {l1=0x12, l2=»1210 CLOSE TXTFIL$«, l3=0x12}
0x0e42…0e57 Line {l1=0x13, l2=»1220 ENDPROC FILLÆS«, l3=0x13}
0x0e57…0ea3 Line {l1=0x4a, l2=»1230 // ------------------------------------------------------------------«, l3=0x4a}
0x0ea3…0eb7 Line {l1=0x12, l2=»1240 PROC ELECTION«, l3=0x12}
0x0eb7…0ec5 Line {l1=0x0c, l2=»1250 REPEAT «, l3=0x0c}
0x0ec5…0ed7 Line {l1=0x10, l2=»1260 CURSOR 1,22«, l3=0x10}
0x0ed7…0ee4 Line {l1=0x0b, l2=»1270 CLEAR «, l3=0x0b}
0x0ee4…0ef6 Line {l1=0x10, l2=»1280 CURSOR 10,7«, l3=0x10}
0x0ef6…0f3a Line {l1=0x42, l2=»1290 PRINT "Du får nu mulighed for at vælge mellem følgende ting."«, l3=0x42}
0x0f3a…0f47 Line {l1=0x0b, l2=»1300 PRINT «, l3=0x0b}
0x0f47…0f5a Line {l1=0x11, l2=»1310 CURSOR 10,12«, l3=0x11}
0x0f5a…0f8a Line {l1=0x2e, l2=»1320 PRINT "1. Ønsker du at begynde forfra?"«, l3=0x2e}
0x0f8a…0f9d Line {l1=0x11, l2=»1330 CURSOR 10,14«, l3=0x11}
0x0f9d…0fe0 Line {l1=0x41, l2=»1340 PRINT "2. Ønsker du at se alle spørgsmålene på printeren?"«, l3=0x41}
0x0fe0…0ff3 Line {l1=0x11, l2=»1350 CURSOR 10,16«, l3=0x11}
0x0ff3…1034 Line {l1=0x3f, l2=»1360 PRINT "3. Ønsker du at se alle spørgsmålene på skærmen?"«, l3=0x3f}
0x1034…1047 Line {l1=0x11, l2=»1370 CURSOR 10,18«, l3=0x11}
0x1047…1072 Line {l1=0x29, l2=»1380 PRINT "4. Ønsker du at slutte nu?"«, l3=0x29}
0x1072…1085 Line {l1=0x11, l2=»1390 CURSOR 10,22«, l3=0x11}
0x1085…10b4 Line {l1=0x2d, l2=»1400 INPUT "Skriv det ønskede nummer: ":SV$«, l3=0x2d}
0x10b4…10cf Line {l1=0x19, l2=»1410 CASE ORD(SV$(1)) OF «, l3=0x19}
0x10cf…10dd Line {l1=0x0c, l2=»1420 WHEN 49«, l3=0x0c}
0x10dd…10ed Line {l1=0x0e, l2=»1430 EXEC VALG«, l3=0x0e}
0x10ed…10fb Line {l1=0x0c, l2=»1440 WHEN 50«, l3=0x0c}
0x10fb…110e Line {l1=0x11, l2=»1450 EXEC PRINTER«, l3=0x11}
0x110e…111c Line {l1=0x0c, l2=»1460 WHEN 51«, l3=0x0c}
0x111c…112d Line {l1=0x0f, l2=»1470 EXEC SKÆRM«, l3=0x0f}
0x112d…113b Line {l1=0x0c, l2=»1480 WHEN 52«, l3=0x0c}
0x113b…114b Line {l1=0x0e, l2=»1490 EXEC SLUT«, l3=0x0e}
0x114b…115a Line {l1=0x0d, l2=»1500 ENDCASE «, l3=0x0d}
0x115a…1168 Line {l1=0x0c, l2=»1510 UNTIL 0«, l3=0x0c}
0x1168…117f Line {l1=0x15, l2=»1520 ENDPROC ELECTION«, l3=0x15}
0x117f…11c4 Line {l1=0x43, l2=»1530 // -----------------------------------------------------------«, l3=0x43}
0x11c4…11d4 Line {l1=0x0e, l2=»1540 PROC SLUT«, l3=0x0e}
0x11d4…11e6 Line {l1=0x10, l2=»1550 CURSOR 1,24«, l3=0x10}
0x11e6…121f Line {l1=0x37, l2=»1560 PRINT " Så går vi videre til næste afsnit."«, l3=0x37}
0x121f…122a Line {l1=0x09, l2=»1570 END «, l3=0x09}
0x122a…123d Line {l1=0x11, l2=»1580 ENDPROC SLUT«, l3=0x11}
0x123d…1281 Line {l1=0x42, l2=»1590 // ----------------------------------------------------------«, l3=0x42}
0x1281…1292 Line {l1=0x0f, l2=»1600 PROC SKÆRM«, l3=0x0f}
0x1292…12a2 Line {l1=0x0e, l2=»1610 SPRING:=1«, l3=0x0e}
0x12a2…12b1 Line {l1=0x0d, l2=»1620 EXEC LÆS«, l3=0x0d}
0x12b1…12c5 Line {l1=0x12, l2=»1630 ENDPROC SKÆRM«, l3=0x12}
0x12c5…130a Line {l1=0x43, l2=»1640 // -----------------------------------------------------------«, l3=0x43}
0x130a…1319 Line {l1=0x0d, l2=»1650 PROC LÆS«, l3=0x0d}
0x1319…1332 Line {l1=0x17, l2=»1660 FOR A:=1 TO 10 DO «, l3=0x17}
0x1332…1350 Line {l1=0x1c, l2=»1670 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x1350…135b Line {l1=0x09, l2=»1680 K:=8«, l3=0x09}
0x135b…1373 Line {l1=0x16, l2=»1690 FOR J:=1 TO 4 DO «, l3=0x16}
0x1373…1398 Line {l1=0x23, l2=»1700 IF SPRING=1 THEN CURSOR 12,K+J«, l3=0x23}
0x1398…13bd Line {l1=0x23, l2=»1710 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x13bd…13d0 Line {l1=0x11, l2=»1720 IF J=1 THEN «, l3=0x11}
0x13d0…13dd Line {l1=0x0b, l2=»1730 K:=K+4«, l3=0x0b}
0x13dd…13ea Line {l1=0x0b, l2=»1740 ENDIF «, l3=0x0b}
0x13ea…13f7 Line {l1=0x0b, l2=»1750 NEXT J«, l3=0x0b}
0x13f7…1404 Line {l1=0x0b, l2=»1760 PRINT «, l3=0x0b}
0x1404…141c Line {l1=0x16, l2=»1770 IF SPRING=1 THEN «, l3=0x16}
0x141c…142f Line {l1=0x11, l2=»1780 CURSOR 70,20«, l3=0x11}
0x142f…144c Line {l1=0x1b, l2=»1790 INPUT "Return!":RETUR$«, l3=0x1b}
0x144c…1459 Line {l1=0x0b, l2=»1800 ENDIF «, l3=0x0b}
0x1459…1466 Line {l1=0x0b, l2=»1810 NEXT A«, l3=0x0b}
0x1466…1478 Line {l1=0x10, l2=»1820 ENDPROC LÆS«, l3=0x10}
0x1478…14c0 Line {l1=0x46, l2=»1830 // --------------------------------------------------------------«, l3=0x46}
0x14c0…14d6 Line {l1=0x14, l2=»1840 PROC PRINTERRES«, l3=0x14}
0x14d6…14ee Line {l1=0x16, l2=»1850 SELECT OUTPUT "P"«, l3=0x16}
0x14ee…150b Line {l1=0x1b, l2=»1860 IF STATUS("P")=1 THEN «, l3=0x1b}
0x150b…151d Line {l1=0x10, l2=»1870 CURSOR 1,23«, l3=0x10}
0x151d…1557 Line {l1=0x38, l2=»1880 PRINT "<Z>Printeren er reserveret af anden bruger,"«, l3=0x38}
0x1557…159c Line {l1=0x43, l2=»1890 INPUT "<S>skal der ventes på at den bliver ledig? (j/n) ":SV$«, l3=0x43}
0x159c…15be Line {l1=0x20, l2=»1900 IF SV$="J" OR SV$="j" THEN «, l3=0x20}
0x15be…15d0 Line {l1=0x10, l2=»1910 CURSOR 1,23«, l3=0x10}
0x15d0…15e2 Line {l1=0x10, l2=»1920 PRINT "<Z>"«, l3=0x10}
0x15e2…1622 Line {l1=0x3e, l2=»1930 PRINT "<S>Der ventes på at printeren bliver ledig......."«, l3=0x3e}
0x1622…1651 Line {l1=0x2d, l2=»1940 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x1651…165e Line {l1=0x0b, l2=»1950 ENDIF «, l3=0x0b}
0x165e…166b Line {l1=0x0b, l2=»1960 ENDIF «, l3=0x0b}
0x166b…1684 Line {l1=0x17, l2=»1970 ENDPROC PRINTERRES«, l3=0x17}
0x1684…1697 Line {l1=0x11, l2=»1980 PROC PRINTER«, l3=0x11}
0x1697…16ad Line {l1=0x14, l2=»1990 EXEC PRINTERRES«, l3=0x14}
0x16ad…16bd Line {l1=0x0e, l2=»2000 SPRING:=0«, l3=0x0e}
0x16bd…16cc Line {l1=0x0d, l2=»2010 EXEC LÆS«, l3=0x0d}
0x16cc…16e4 Line {l1=0x16, l2=»2020 SELECT OUTPUT "T"«, l3=0x16}
0x16e4…16fa Line {l1=0x14, l2=»2030 ENDPROC PRINTER«, l3=0x14}
0x16fa…173f Line {l1=0x43, l2=»2040 // -----------------------------------------------------------«, l3=0x43}
0x173f…1751 Line {l1=0x10, l2=»2050 PROC FRÅGAN«, l3=0x10}
0x1751…176a Line {l1=0x17, l2=»2060 FOR A:=1 TO 10 DO «, l3=0x17}
0x176a…1777 Line {l1=0x0b, l2=»2070 CLEAR «, l3=0x0b}
0x1777…178f Line {l1=0x16, l2=»2080 FOR J:=1 TO 4 DO «, l3=0x16}
0x178f…17b4 Line {l1=0x23, l2=»2090 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x17b4…17c8 Line {l1=0x12, l2=»2100 CURSOR 12,J+4«, l3=0x12}
0x17c8…17d5 Line {l1=0x0b, l2=»2110 NEXT J«, l3=0x0b}
0x17d5…17e7 Line {l1=0x10, l2=»2120 EXEC RESTEN«, l3=0x10}
0x17e7…17f4 Line {l1=0x0b, l2=»2130 NEXT A«, l3=0x0b}
0x17f4…1809 Line {l1=0x13, l2=»2140 ENDPROC FRÅGAN«, l3=0x13}
0x1809…1856 Line {l1=0x4b, l2=»2150 // -------------------------------------------------------------------«, l3=0x4b}
0x1856…1868 Line {l1=0x10, l2=»2160 PROC RESTEN«, l3=0x10}
0x1868…187b Line {l1=0x11, l2=»2170 CURSOR 12,16«, l3=0x11}
0x187b…18b7 Line {l1=0x3a, l2=»2180 PRINT "Er det spørgsmål A,B eller C, der er rigtigt?"«, l3=0x3a}
0x18b7…18ca Line {l1=0x11, l2=»2190 CURSOR 12,18«, l3=0x11}
0x18ca…18fc Line {l1=0x30, l2=»2200 INPUT "Tast A, B eller C: ":TRU$(A)«, l3=0x30}
0x18fc…1929 Line {l1=0x2b, l2=»2210 IF "a"<=TRU$(A) AND "å"=>TRU$(A) THEN «, l3=0x2b}
0x1929…194e Line {l1=0x23, l2=»2220 TRU$(A):=CHR$(ORD(TRU$(A))-32)«, l3=0x23}
0x194e…195b Line {l1=0x0b, l2=»2230 ENDIF «, l3=0x0b}
0x195b…1986 Line {l1=0x29, l2=»2240 IF TRU$(A)=F$(A) THEN PRINT CHR$(42)«, l3=0x29}
0x1986…19ad Line {l1=0x25, l2=»2250 IF TRU$(A)=F$(A) THEN SUM:=SUM+1«, l3=0x25}
0x19ad…19c2 Line {l1=0x13, l2=»2260 ENDPROC RESTEN«, l3=0x13}
0x19c2…1a11 Line {l1=0x4d, l2=»2270 // ---------------------------------------------------------------------«, l3=0x4d}
0x1a11…1a1b Line {l1=0x08, l2=»2280 // «, l3=0x08}
0x1a1b…1a25 Line {l1=0x08, l2=»2290 // «, l3=0x08}
0x1a25…1a2f Line {l1=0x08, l2=»2300 // «, l3=0x08}
0x1a2f…1a43 Line {l1=0x12, l2=»2310 PROC FORSIDEN«, l3=0x12}
0x1a43…1a50 Line {l1=0x0b, l2=»2320 CLEAR «, l3=0x0b}
0x1a50…1a61 Line {l1=0x0f, l2=»2330 CURSOR 5,2«, l3=0x0f}
0x1a61…1a74 Line {l1=0x11, l2=»2340 PRINT "<S>*"«, l3=0x11}
0x1a74…1a8d Line {l1=0x17, l2=»2350 FOR X:=6 TO 74 DO «, l3=0x17}
0x1a8d…1aa0 Line {l1=0x11, l2=»2360 PRINT "<S>-"«, l3=0x11}
0x1aa0…1aad Line {l1=0x0b, l2=»2370 NEXT X«, l3=0x0b}
0x1aad…1ac0 Line {l1=0x11, l2=»2380 PRINT "<S>*"«, l3=0x11}
0x1ac0…1ad2 Line {l1=0x10, l2=»2390 CURSOR 10,5«, l3=0x10}
0x1ad2…1ae5 Line {l1=0x11, l2=»2400 PRINT "<S>*"«, l3=0x11}
0x1ae5…1aff Line {l1=0x18, l2=»2410 FOR X:=11 TO 69 DO «, l3=0x18}
0x1aff…1b12 Line {l1=0x11, l2=»2420 PRINT "<S>-"«, l3=0x11}
0x1b12…1b1f Line {l1=0x0b, l2=»2430 NEXT X«, l3=0x0b}
0x1b1f…1b32 Line {l1=0x11, l2=»2440 PRINT "<S>*"«, l3=0x11}
0x1b32…1b44 Line {l1=0x10, l2=»2450 CURSOR 5,15«, l3=0x10}
0x1b44…1b57 Line {l1=0x11, l2=»2460 PRINT "<S>*"«, l3=0x11}
0x1b57…1b70 Line {l1=0x17, l2=»2470 FOR X:=6 TO 74 DO «, l3=0x17}
0x1b70…1b83 Line {l1=0x11, l2=»2480 PRINT "<S>-"«, l3=0x11}
0x1b83…1b90 Line {l1=0x0b, l2=»2490 NEXT X«, l3=0x0b}
0x1b90…1ba3 Line {l1=0x11, l2=»2500 PRINT "<S>*"«, l3=0x11}
0x1ba3…1bb6 Line {l1=0x11, l2=»2510 CURSOR 10,12«, l3=0x11}
0x1bb6…1bc9 Line {l1=0x11, l2=»2520 PRINT "<S>*"«, l3=0x11}
0x1bc9…1be3 Line {l1=0x18, l2=»2530 FOR X:=11 TO 69 DO «, l3=0x18}
0x1be3…1bf6 Line {l1=0x11, l2=»2540 PRINT "<S>-"«, l3=0x11}
0x1bf6…1c03 Line {l1=0x0b, l2=»2550 NEXT X«, l3=0x0b}
0x1c03…1c16 Line {l1=0x11, l2=»2560 PRINT "<S>*"«, l3=0x11}
0x1c16…1c2f Line {l1=0x17, l2=»2570 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1c2f…1c41 Line {l1=0x10, l2=»2580 CURSOR 10,Y«, l3=0x10}
0x1c41…1c51 Line {l1=0x0e, l2=»2590 PRINT "!"«, l3=0x0e}
0x1c51…1c5e Line {l1=0x0b, l2=»2600 NEXT Y«, l3=0x0b}
0x1c5e…1c7f Line {l1=0x1f, l2=»2610 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1c7f…1c90 Line {l1=0x0f, l2=»2620 CURSOR 5,Y«, l3=0x0f}
0x1c90…1ca0 Line {l1=0x0e, l2=»2630 PRINT "!"«, l3=0x0e}
0x1ca0…1cad Line {l1=0x0b, l2=»2640 NEXT Y«, l3=0x0b}
0x1cad…1cc6 Line {l1=0x17, l2=»2650 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1cc6…1cd8 Line {l1=0x10, l2=»2660 CURSOR 70,Y«, l3=0x10}
0x1cd8…1ce8 Line {l1=0x0e, l2=»2670 PRINT "!"«, l3=0x0e}
0x1ce8…1cf5 Line {l1=0x0b, l2=»2680 NEXT Y«, l3=0x0b}
0x1cf5…1d16 Line {l1=0x1f, l2=»2690 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1d16…1d28 Line {l1=0x10, l2=»2700 CURSOR 75,Y«, l3=0x10}
0x1d28…1d38 Line {l1=0x0e, l2=»2710 PRINT "!"«, l3=0x0e}
0x1d38…1d45 Line {l1=0x0b, l2=»2720 NEXT Y«, l3=0x0b}
0x1d45…1d57 Line {l1=0x10, l2=»2730 CURSOR 25,9«, l3=0x10}
0x1d57…1d6e Line {l1=0x15, l2=»2740 PRINT TESTNAVN1$«, l3=0x15}
0x1d6e…1d80 Line {l1=0x10, l2=»2750 CURSOR 5,20«, l3=0x10}
0x1d80…1dc5 Line {l1=0x43, l2=»2760 PRINT "På de næste sider vil du få 10 spørgsmål med tre svar."«, l3=0x43}
0x1dc5…1dd7 Line {l1=0x10, l2=»2770 CURSOR 5,21«, l3=0x10}
0x1dd7…1e23 Line {l1=0x4a, l2=»2780 PRINT "Kun et af svarene er rigtigt,så du skal enten indtaste A, B ";«, l3=0x4a}
0x1e23…1e3a Line {l1=0x15, l2=»2790 PRINT "eller C."«, l3=0x15}
0x1e3a…1e4d Line {l1=0x11, l2=»2800 CURSOR 70,23«, l3=0x11}
0x1e4d…1e67 Line {l1=0x18, l2=»2810 INPUT "Return!":SV$«, l3=0x18}
0x1e67…1e7e Line {l1=0x15, l2=»2820 ENDPROC FORSIDEN«, l3=0x15}
0x1e7e…1e80 00 00 ┆ ┆
0x1e80…1ea0 65 20 73 76 61 72 2e 22 43 10 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 38 30 ┆e svar."C 2770 CURSOR 5,21 J2780┆
0x1ea0…1ec0 20 50 52 49 4e 54 20 22 4b 75 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 69 67 ┆ PRINT "Kun et af svarene er rig┆
0x1ec0…1ee0 74 69 67 74 2c 73 7d 20 64 75 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 20 41 ┆tigt,så du skal enten indtaste A┆
0x1ee0…1f00 2c 20 42 20 22 3b 4a 15 32 37 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 11 32 ┆, B ";J 2790 PRINT "eller C." 2┆
0x1f00…1f20 38 30 30 20 43 55 52 53 4f 52 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 52 65 ┆800 CURSOR 70,23 2810 INPUT "Re┆
0x1f20…1f40 74 75 72 6e 21 22 3a 53 56 24 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 44 45 ┆turn!":SV$ 2820 ENDPROC FORSIDE┆
0x1f40…1f60 4e 15 00 00 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 ┆N cccccccccccccccccccccccccccc┆
0x1f60…1f80 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┆
[…0x40…]