|
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: »HJERTER_.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HJERTER_.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HJERTER_.K«
0100 // ----------------------- hjerter-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$:="H J E R T E R - T E S T . "
0170 TESTNAVN2$:="H j e r t e r - t e s t"
0180 TXTFIL$:="SYSTIME:HJERTTXT"
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…0048 Line {l1=0x46, l2=»0100 // ----------------------- hjerter-test -------------------------«, l3=0x46}
0x0048…0052 Line {l1=0x08, l2=»0110 // «, l3=0x08}
0x0052…0099 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}
0x0099…00c4 Line {l1=0x29, l2=»0130 DIM RETUR$ OF 2,FA$ OF 1,F$(10) OF 1«, l3=0x29}
0x00c4…010e Line {l1=0x48, l2=»0140 DIM TESTNAVN1$ OF 40,TESTNAVN2$ OF 40,QUESTFIL$ OF 17,TXTFIL$ OF 17«, l3=0x48}
0x010e…013c Line {l1=0x2c, l2=»0150 INTEGER SUM,TALNR,M,NUMMER,A,J,I,SPRING«, l3=0x2c}
0x013c…016b Line {l1=0x2d, l2=»0160 TESTNAVN1$:="H J E R T E R - T E S T . "«, l3=0x2d}
0x016b…0197 Line {l1=0x2a, l2=»0170 TESTNAVN2$:="H j e r t e r - t e s t"«, l3=0x2a}
0x0197…01b9 Line {l1=0x20, l2=»0180 TXTFIL$:="SYSTIME:HJERTTXT"«, l3=0x20}
0x01b9…0205 Line {l1=0x4a, l2=»0190 // ------------------------------------------------------------------«, l3=0x4a}
0x0205…0216 Line {l1=0x0f, l2=»0200 EXEC HOVED«, l3=0x0f}
0x0216…022a Line {l1=0x12, l2=»0210 EXEC FORSIDEN«, l3=0x12}
0x022a…023a Line {l1=0x0e, l2=»0220 EXEC VALG«, l3=0x0e}
0x023a…0286 Line {l1=0x4a, l2=»0230 // ------------------------------------------------------------------«, l3=0x4a}
0x0286…0297 Line {l1=0x0f, l2=»0240 PROC HOVED«, l3=0x0f}
0x0297…02a4 Line {l1=0x0b, l2=»0250 CLEAR «, l3=0x0b}
0x02a4…02b6 Line {l1=0x10, l2=»0260 CURSOR 13,4«, l3=0x10}
0x02b6…02ed Line {l1=0x35, l2=»0270 PRINT " V E L K O M M E N T I L ";TESTNAVN1$«, l3=0x35}
0x02ed…02ff Line {l1=0x10, l2=»0280 CURSOR 13,5«, l3=0x10}
0x02ff…0344 Line {l1=0x43, l2=»0290 PRINT "------------------------------------------------------"«, l3=0x43}
0x0344…0356 Line {l1=0x10, l2=»0300 CURSOR 15,8«, l3=0x10}
0x0356…0382 Line {l1=0x2a, l2=»0310 INPUT "Skriv dit navn her: ":NAVN$«, l3=0x2a}
0x0382…0395 Line {l1=0x11, l2=»0320 CURSOR 20,12«, l3=0x11}
0x0395…03a9 Line {l1=0x12, l2=»0330 ENDPROC HOVED«, l3=0x12}
0x03a9…03f5 Line {l1=0x4a, l2=»0340 // ------------------------------------------------------------------«, l3=0x4a}
0x03f5…0405 Line {l1=0x0e, l2=»0350 PROC VALG«, l3=0x0e}
0x0405…0426 Line {l1=0x1f, l2=»0360 SUM:=0;M:=1;A:=0;NUMMER:=0«, l3=0x1f}
0x0426…0433 Line {l1=0x0b, l2=»0370 CLEAR «, l3=0x0b}
0x0433…0446 Line {l1=0x11, l2=»0380 CURSOR 30,12«, l3=0x11}
0x0446…0466 Line {l1=0x1e, l2=»0390 PRINT " Lige et øjeblik!"«, l3=0x1e}
0x0466…0478 Line {l1=0x10, l2=»0400 EXEC FILLÆS«, l3=0x10}
0x0478…048a Line {l1=0x10, l2=»0410 EXEC FRÅGAN«, l3=0x10}
0x048a…0497 Line {l1=0x0b, l2=»0420 CLEAR «, l3=0x0b}
0x0497…04a9 Line {l1=0x10, l2=»0430 CURSOR 10,3«, l3=0x10}
0x04a9…04e6 Line {l1=0x3b, l2=»0440 PRINT "Du har fået ";SUM;" rigtige svar af 10 mulige."«, l3=0x3b}
0x04e6…04f8 Line {l1=0x10, l2=»0450 CURSOR 10,8«, l3=0x10}
0x04f8…052a Line {l1=0x30, l2=»0460 PRINT "Du kan vælge mellem tre muligheder:"«, l3=0x30}
0x052a…053d Line {l1=0x11, l2=»0470 CURSOR 10,12«, l3=0x11}
0x053d…058a Line {l1=0x4b, l2=»0480 PRINT "1. Ønsker du at forbedre dit resultat ved at begynde forfra?"«, l3=0x4b}
0x058a…059d Line {l1=0x11, l2=»0490 CURSOR 10,14«, l3=0x11}
0x059d…05e5 Line {l1=0x46, l2=»0500 PRINT "2. Ønsker du dit resultat sammenlignet med det rigtige "«, l3=0x46}
0x05e5…05f8 Line {l1=0x11, l2=»0510 CURSOR 10,15«, l3=0x11}
0x05f8…0622 Line {l1=0x28, l2=»0520 PRINT " Skrevet ud på printer?"«, l3=0x28}
0x0622…0635 Line {l1=0x11, l2=»0530 CURSOR 10,17«, l3=0x11}
0x0635…067c Line {l1=0x45, l2=»0540 PRINT "3. Ønsker du dit resultat sammenlignet med det rigtige"«, l3=0x45}
0x067c…068f Line {l1=0x11, l2=»0550 CURSOR 10,18«, l3=0x11}
0x068f…06b9 Line {l1=0x28, l2=»0560 PRINT " Skrevet ud på skærmen?"«, l3=0x28}
0x06b9…06c6 Line {l1=0x0b, l2=»0570 PRINT «, l3=0x0b}
0x06c6…06d3 Line {l1=0x0b, l2=»0580 PRINT «, l3=0x0b}
0x06d3…06e6 Line {l1=0x11, l2=»0590 CURSOR 10,21«, l3=0x11}
0x06e6…0713 Line {l1=0x2b, l2=»0600 INPUT "Skriv det ønskede tal: ":TALNR«, l3=0x2b}
0x0713…0721 Line {l1=0x0c, l2=»0610 REPEAT «, l3=0x0c}
0x0721…0734 Line {l1=0x11, l2=»0620 CURSOR 33,21«, l3=0x11}
0x0734…074b Line {l1=0x15, l2=»0630 IF TALNR=1 THEN «, l3=0x15}
0x074b…075b Line {l1=0x0e, l2=»0640 EXEC VALG«, l3=0x0e}
0x075b…0768 Line {l1=0x0b, l2=»0650 CLEAR «, l3=0x0b}
0x0768…0775 Line {l1=0x0b, l2=»0660 PRINT «, l3=0x0b}
0x0775…0781 Line {l1=0x0a, l2=»0670 ELSE «, l3=0x0a}
0x0781…0798 Line {l1=0x15, l2=»0680 IF TALNR=2 THEN «, l3=0x15}
0x0798…07a8 Line {l1=0x0e, l2=»0690 SPRING:=0«, l3=0x0e}
0x07a8…07be Line {l1=0x14, l2=»0700 EXEC PRINTERRES«, l3=0x14}
0x07be…07cf Line {l1=0x0f, l2=»0710 EXEC SKRIV«, l3=0x0f}
0x07cf…07e7 Line {l1=0x16, l2=»0720 SELECT OUTPUT "T"«, l3=0x16}
0x07e7…07fb Line {l1=0x12, l2=»0730 EXEC ELECTION«, l3=0x12}
0x07fb…0807 Line {l1=0x0a, l2=»0740 ELSE «, l3=0x0a}
0x0807…081e Line {l1=0x15, l2=»0750 IF TALNR=3 THEN «, l3=0x15}
0x081e…082e Line {l1=0x0e, l2=»0760 SPRING:=1«, l3=0x0e}
0x082e…083f Line {l1=0x0f, l2=»0770 EXEC SKRIV«, l3=0x0f}
0x083f…0853 Line {l1=0x12, l2=»0780 EXEC ELECTION«, l3=0x12}
0x0853…0860 Line {l1=0x0b, l2=»0790 ENDIF «, l3=0x0b}
0x0860…086d Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x086d…087a Line {l1=0x0b, l2=»0810 ENDIF «, l3=0x0b}
0x087a…08a4 Line {l1=0x28, l2=»0820 UNTIL TALNR=0 OR TALNR=1 OR TALNR=2«, l3=0x28}
0x08a4…08b7 Line {l1=0x11, l2=»0830 ENDPROC VALG«, l3=0x11}
0x08b7…0901 Line {l1=0x48, l2=»0840 // ----------------------------------------------------------------«, l3=0x48}
0x0901…0912 Line {l1=0x0f, l2=»0850 PROC SKRIV«, l3=0x0f}
0x0912…0930 Line {l1=0x1c, l2=»0860 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x0930…093d Line {l1=0x0b, l2=»0868 PRINT «, l3=0x0b}
0x093d…095f Line {l1=0x20, l2=»0869 IF SPRING=1 THEN CURSOR 1,1«, l3=0x20}
0x095f…09a7 Line {l1=0x46, l2=»0870 PRINT " *****************************************"«, l3=0x46}
0x09a7…09e6 Line {l1=0x3d, l2=»0880 PRINT " * ";TESTNAVN2$;" *"«, l3=0x3d}
0x09e6…0a2e Line {l1=0x46, l2=»0890 PRINT " *****************************************"«, l3=0x46}
0x0a2e…0a6c Line {l1=0x3c, l2=»0900 PRINT " * ";NAVN$;TAB(57);"*"«, l3=0x3c}
0x0a6c…0ab4 Line {l1=0x46, l2=»0910 PRINT " *****************************************"«, l3=0x46}
0x0ab4…0ad6 Line {l1=0x20, l2=»0920 IF SPRING=1 THEN CURSOR 1,7«, l3=0x20}
0x0ad6…0ae3 Line {l1=0x0b, l2=»0930 PRINT «, l3=0x0b}
0x0ae3…0b2b Line {l1=0x46, l2=»0940 PRINT "Spørgsmål nr.";TAB(35);"Dit bud:";TAB(50);"Rigtige facit:"«, l3=0x46}
0x0b2b…0b7a Line {l1=0x4d, l2=»0950 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0b7a…0b87 Line {l1=0x0b, l2=»0960 PRINT «, l3=0x0b}
0x0b87…0ba0 Line {l1=0x17, l2=»0970 FOR A:=1 TO 10 DO «, l3=0x17}
0x0ba0…0bbe Line {l1=0x1c, l2=»0980 IF TRU$(A)<>F$(A) THEN «, l3=0x1c}
0x0bbe…0c09 Line {l1=0x49, l2=»0990 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)," ***"«, l3=0x49}
0x0c09…0c15 Line {l1=0x0a, l2=»1000 ELSE «, l3=0x0a}
0x0c15…0c52 Line {l1=0x3b, l2=»1010 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)«, l3=0x3b}
0x0c52…0c5f Line {l1=0x0b, l2=»1020 ENDIF «, l3=0x0b}
0x0c5f…0c6c Line {l1=0x0b, l2=»1030 NEXT A«, l3=0x0b}
0x0c6c…0c79 Line {l1=0x0b, l2=»1040 PRINT «, l3=0x0b}
0x0c79…0cc8 Line {l1=0x4d, l2=»1050 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0cc8…0cd5 Line {l1=0x0b, l2=»1060 PRINT «, l3=0x0b}
0x0cd5…0ced Line {l1=0x16, l2=»1070 IF SPRING=1 THEN «, l3=0x16}
0x0ced…0d00 Line {l1=0x11, l2=»1080 CURSOR 67,24«, l3=0x11}
0x0d00…0d1e Line {l1=0x1c, l2=»1090 INPUT "Return! ":RETUR$«, l3=0x1c}
0x0d1e…0d2b Line {l1=0x0b, l2=»1100 ENDIF «, l3=0x0b}
0x0d2b…0d3f Line {l1=0x12, l2=»1110 ENDPROC SKRIV«, l3=0x12}
0x0d3f…0d87 Line {l1=0x46, l2=»1120 // --------------------------------------------------------------«, l3=0x46}
0x0d87…0d99 Line {l1=0x10, l2=»1130 PROC FILLÆS«, l3=0x10}
0x0d99…0dae Line {l1=0x13, l2=»1140 OPEN TXTFIL$,R«, l3=0x13}
0x0dae…0dc7 Line {l1=0x17, l2=»1150 FOR I:=1 TO 10 DO «, l3=0x17}
0x0dc7…0ddf Line {l1=0x16, l2=»1160 FOR J:=1 TO 4 DO «, l3=0x16}
0x0ddf…0e02 Line {l1=0x21, l2=»1170 GET TXTFIL$:SPØR$((I-1)*4+J)«, l3=0x21}
0x0e02…0e0f Line {l1=0x0b, l2=»1180 NEXT J«, l3=0x0b}
0x0e0f…0e27 Line {l1=0x16, l2=»1190 GET TXTFIL$:F$(I)«, l3=0x16}
0x0e27…0e34 Line {l1=0x0b, l2=»1200 NEXT I«, l3=0x0b}
0x0e34…0e48 Line {l1=0x12, l2=»1210 CLOSE TXTFIL$«, l3=0x12}
0x0e48…0e5d Line {l1=0x13, l2=»1220 ENDPROC FILLÆS«, l3=0x13}
0x0e5d…0ea9 Line {l1=0x4a, l2=»1230 // ------------------------------------------------------------------«, l3=0x4a}
0x0ea9…0ebd Line {l1=0x12, l2=»1240 PROC ELECTION«, l3=0x12}
0x0ebd…0ecb Line {l1=0x0c, l2=»1250 REPEAT «, l3=0x0c}
0x0ecb…0edd Line {l1=0x10, l2=»1260 CURSOR 1,22«, l3=0x10}
0x0edd…0eea Line {l1=0x0b, l2=»1270 CLEAR «, l3=0x0b}
0x0eea…0efc Line {l1=0x10, l2=»1280 CURSOR 10,7«, l3=0x10}
0x0efc…0f40 Line {l1=0x42, l2=»1290 PRINT "Du får nu mulighed for at vælge mellem følgende ting."«, l3=0x42}
0x0f40…0f4d Line {l1=0x0b, l2=»1300 PRINT «, l3=0x0b}
0x0f4d…0f60 Line {l1=0x11, l2=»1310 CURSOR 10,12«, l3=0x11}
0x0f60…0f90 Line {l1=0x2e, l2=»1320 PRINT "1. Ønsker du at begynde forfra?"«, l3=0x2e}
0x0f90…0fa3 Line {l1=0x11, l2=»1330 CURSOR 10,14«, l3=0x11}
0x0fa3…0fe6 Line {l1=0x41, l2=»1340 PRINT "2. Ønsker du at se alle spørgsmålene på printeren?"«, l3=0x41}
0x0fe6…0ff9 Line {l1=0x11, l2=»1350 CURSOR 10,16«, l3=0x11}
0x0ff9…103a Line {l1=0x3f, l2=»1360 PRINT "3. Ønsker du at se alle spørgsmålene på skærmen?"«, l3=0x3f}
0x103a…104d Line {l1=0x11, l2=»1370 CURSOR 10,18«, l3=0x11}
0x104d…1078 Line {l1=0x29, l2=»1380 PRINT "4. Ønsker du at slutte nu?"«, l3=0x29}
0x1078…108b Line {l1=0x11, l2=»1390 CURSOR 10,22«, l3=0x11}
0x108b…10ba Line {l1=0x2d, l2=»1400 INPUT "Skriv det ønskede nummer: ":SV$«, l3=0x2d}
0x10ba…10d5 Line {l1=0x19, l2=»1410 CASE ORD(SV$(1)) OF «, l3=0x19}
0x10d5…10e3 Line {l1=0x0c, l2=»1420 WHEN 49«, l3=0x0c}
0x10e3…10f3 Line {l1=0x0e, l2=»1430 EXEC VALG«, l3=0x0e}
0x10f3…1101 Line {l1=0x0c, l2=»1440 WHEN 50«, l3=0x0c}
0x1101…1114 Line {l1=0x11, l2=»1450 EXEC PRINTER«, l3=0x11}
0x1114…1122 Line {l1=0x0c, l2=»1460 WHEN 51«, l3=0x0c}
0x1122…1133 Line {l1=0x0f, l2=»1470 EXEC SKÆRM«, l3=0x0f}
0x1133…1141 Line {l1=0x0c, l2=»1480 WHEN 52«, l3=0x0c}
0x1141…1151 Line {l1=0x0e, l2=»1490 EXEC SLUT«, l3=0x0e}
0x1151…1160 Line {l1=0x0d, l2=»1500 ENDCASE «, l3=0x0d}
0x1160…116e Line {l1=0x0c, l2=»1510 UNTIL 0«, l3=0x0c}
0x116e…1185 Line {l1=0x15, l2=»1520 ENDPROC ELECTION«, l3=0x15}
0x1185…11ca Line {l1=0x43, l2=»1530 // -----------------------------------------------------------«, l3=0x43}
0x11ca…11da Line {l1=0x0e, l2=»1540 PROC SLUT«, l3=0x0e}
0x11da…11ec Line {l1=0x10, l2=»1550 CURSOR 1,24«, l3=0x10}
0x11ec…1225 Line {l1=0x37, l2=»1560 PRINT " Så går vi videre til næste afsnit."«, l3=0x37}
0x1225…1230 Line {l1=0x09, l2=»1570 END «, l3=0x09}
0x1230…1243 Line {l1=0x11, l2=»1580 ENDPROC SLUT«, l3=0x11}
0x1243…1287 Line {l1=0x42, l2=»1590 // ----------------------------------------------------------«, l3=0x42}
0x1287…1298 Line {l1=0x0f, l2=»1600 PROC SKÆRM«, l3=0x0f}
0x1298…12a8 Line {l1=0x0e, l2=»1610 SPRING:=1«, l3=0x0e}
0x12a8…12b7 Line {l1=0x0d, l2=»1620 EXEC LÆS«, l3=0x0d}
0x12b7…12cb Line {l1=0x12, l2=»1630 ENDPROC SKÆRM«, l3=0x12}
0x12cb…1310 Line {l1=0x43, l2=»1640 // -----------------------------------------------------------«, l3=0x43}
0x1310…131f Line {l1=0x0d, l2=»1650 PROC LÆS«, l3=0x0d}
0x131f…1338 Line {l1=0x17, l2=»1660 FOR A:=1 TO 10 DO «, l3=0x17}
0x1338…1356 Line {l1=0x1c, l2=»1670 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x1356…1361 Line {l1=0x09, l2=»1680 K:=8«, l3=0x09}
0x1361…1379 Line {l1=0x16, l2=»1690 FOR J:=1 TO 4 DO «, l3=0x16}
0x1379…139e Line {l1=0x23, l2=»1700 IF SPRING=1 THEN CURSOR 12,K+J«, l3=0x23}
0x139e…13c3 Line {l1=0x23, l2=»1710 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x13c3…13d6 Line {l1=0x11, l2=»1720 IF J=1 THEN «, l3=0x11}
0x13d6…13e3 Line {l1=0x0b, l2=»1730 K:=K+4«, l3=0x0b}
0x13e3…13f0 Line {l1=0x0b, l2=»1740 ENDIF «, l3=0x0b}
0x13f0…13fd Line {l1=0x0b, l2=»1750 NEXT J«, l3=0x0b}
0x13fd…140a Line {l1=0x0b, l2=»1760 PRINT «, l3=0x0b}
0x140a…1422 Line {l1=0x16, l2=»1770 IF SPRING=1 THEN «, l3=0x16}
0x1422…1435 Line {l1=0x11, l2=»1780 CURSOR 70,20«, l3=0x11}
0x1435…1452 Line {l1=0x1b, l2=»1790 INPUT "Return!":RETUR$«, l3=0x1b}
0x1452…145f Line {l1=0x0b, l2=»1800 ENDIF «, l3=0x0b}
0x145f…146c Line {l1=0x0b, l2=»1810 NEXT A«, l3=0x0b}
0x146c…147e Line {l1=0x10, l2=»1820 ENDPROC LÆS«, l3=0x10}
0x147e…14c6 Line {l1=0x46, l2=»1830 // --------------------------------------------------------------«, l3=0x46}
0x14c6…14dc Line {l1=0x14, l2=»1840 PROC PRINTERRES«, l3=0x14}
0x14dc…14f4 Line {l1=0x16, l2=»1850 SELECT OUTPUT "P"«, l3=0x16}
0x14f4…1511 Line {l1=0x1b, l2=»1860 IF STATUS("P")=1 THEN «, l3=0x1b}
0x1511…1523 Line {l1=0x10, l2=»1870 CURSOR 1,23«, l3=0x10}
0x1523…155d Line {l1=0x38, l2=»1880 PRINT "<Z>Printeren er reserveret af anden bruger,"«, l3=0x38}
0x155d…15a2 Line {l1=0x43, l2=»1890 INPUT "<S>skal der ventes på at den bliver ledig? (j/n) ":SV$«, l3=0x43}
0x15a2…15c4 Line {l1=0x20, l2=»1900 IF SV$="J" OR SV$="j" THEN «, l3=0x20}
0x15c4…15d6 Line {l1=0x10, l2=»1910 CURSOR 1,23«, l3=0x10}
0x15d6…15e8 Line {l1=0x10, l2=»1920 PRINT "<Z>"«, l3=0x10}
0x15e8…1628 Line {l1=0x3e, l2=»1930 PRINT "<S>Der ventes på at printeren bliver ledig......."«, l3=0x3e}
0x1628…1657 Line {l1=0x2d, l2=»1940 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x1657…1664 Line {l1=0x0b, l2=»1950 ENDIF «, l3=0x0b}
0x1664…1671 Line {l1=0x0b, l2=»1960 ENDIF «, l3=0x0b}
0x1671…168a Line {l1=0x17, l2=»1970 ENDPROC PRINTERRES«, l3=0x17}
0x168a…169d Line {l1=0x11, l2=»1980 PROC PRINTER«, l3=0x11}
0x169d…16b3 Line {l1=0x14, l2=»1990 EXEC PRINTERRES«, l3=0x14}
0x16b3…16c3 Line {l1=0x0e, l2=»2000 SPRING:=0«, l3=0x0e}
0x16c3…16d2 Line {l1=0x0d, l2=»2010 EXEC LÆS«, l3=0x0d}
0x16d2…16ea Line {l1=0x16, l2=»2020 SELECT OUTPUT "T"«, l3=0x16}
0x16ea…1700 Line {l1=0x14, l2=»2030 ENDPROC PRINTER«, l3=0x14}
0x1700…1745 Line {l1=0x43, l2=»2040 // -----------------------------------------------------------«, l3=0x43}
0x1745…1757 Line {l1=0x10, l2=»2050 PROC FRÅGAN«, l3=0x10}
0x1757…1770 Line {l1=0x17, l2=»2060 FOR A:=1 TO 10 DO «, l3=0x17}
0x1770…177d Line {l1=0x0b, l2=»2070 CLEAR «, l3=0x0b}
0x177d…1795 Line {l1=0x16, l2=»2080 FOR J:=1 TO 4 DO «, l3=0x16}
0x1795…17ba Line {l1=0x23, l2=»2090 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x17ba…17ce Line {l1=0x12, l2=»2100 CURSOR 12,J+4«, l3=0x12}
0x17ce…17db Line {l1=0x0b, l2=»2110 NEXT J«, l3=0x0b}
0x17db…17ed Line {l1=0x10, l2=»2120 EXEC RESTEN«, l3=0x10}
0x17ed…17fa Line {l1=0x0b, l2=»2130 NEXT A«, l3=0x0b}
0x17fa…180f Line {l1=0x13, l2=»2140 ENDPROC FRÅGAN«, l3=0x13}
0x180f…185c Line {l1=0x4b, l2=»2150 // -------------------------------------------------------------------«, l3=0x4b}
0x185c…186e Line {l1=0x10, l2=»2160 PROC RESTEN«, l3=0x10}
0x186e…1881 Line {l1=0x11, l2=»2170 CURSOR 12,16«, l3=0x11}
0x1881…18bd Line {l1=0x3a, l2=»2180 PRINT "Er det spørgsmål A,B eller C, der er rigtigt?"«, l3=0x3a}
0x18bd…18d0 Line {l1=0x11, l2=»2190 CURSOR 12,18«, l3=0x11}
0x18d0…1902 Line {l1=0x30, l2=»2200 INPUT "Tast A, B eller C: ":TRU$(A)«, l3=0x30}
0x1902…192f Line {l1=0x2b, l2=»2210 IF "a"<=TRU$(A) AND "å"=>TRU$(A) THEN «, l3=0x2b}
0x192f…1954 Line {l1=0x23, l2=»2220 TRU$(A):=CHR$(ORD(TRU$(A))-32)«, l3=0x23}
0x1954…1961 Line {l1=0x0b, l2=»2230 ENDIF «, l3=0x0b}
0x1961…198c Line {l1=0x29, l2=»2240 IF TRU$(A)=F$(A) THEN PRINT CHR$(42)«, l3=0x29}
0x198c…19b3 Line {l1=0x25, l2=»2250 IF TRU$(A)=F$(A) THEN SUM:=SUM+1«, l3=0x25}
0x19b3…19c8 Line {l1=0x13, l2=»2260 ENDPROC RESTEN«, l3=0x13}
0x19c8…1a17 Line {l1=0x4d, l2=»2270 // ---------------------------------------------------------------------«, l3=0x4d}
0x1a17…1a21 Line {l1=0x08, l2=»2280 // «, l3=0x08}
0x1a21…1a2b Line {l1=0x08, l2=»2290 // «, l3=0x08}
0x1a2b…1a35 Line {l1=0x08, l2=»2300 // «, l3=0x08}
0x1a35…1a49 Line {l1=0x12, l2=»2310 PROC FORSIDEN«, l3=0x12}
0x1a49…1a56 Line {l1=0x0b, l2=»2320 CLEAR «, l3=0x0b}
0x1a56…1a67 Line {l1=0x0f, l2=»2330 CURSOR 5,2«, l3=0x0f}
0x1a67…1a7a Line {l1=0x11, l2=»2340 PRINT "<S>*"«, l3=0x11}
0x1a7a…1a93 Line {l1=0x17, l2=»2350 FOR X:=6 TO 74 DO «, l3=0x17}
0x1a93…1aa6 Line {l1=0x11, l2=»2360 PRINT "<S>-"«, l3=0x11}
0x1aa6…1ab3 Line {l1=0x0b, l2=»2370 NEXT X«, l3=0x0b}
0x1ab3…1ac6 Line {l1=0x11, l2=»2380 PRINT "<S>*"«, l3=0x11}
0x1ac6…1ad8 Line {l1=0x10, l2=»2390 CURSOR 10,5«, l3=0x10}
0x1ad8…1aeb Line {l1=0x11, l2=»2400 PRINT "<S>*"«, l3=0x11}
0x1aeb…1b05 Line {l1=0x18, l2=»2410 FOR X:=11 TO 69 DO «, l3=0x18}
0x1b05…1b18 Line {l1=0x11, l2=»2420 PRINT "<S>-"«, l3=0x11}
0x1b18…1b25 Line {l1=0x0b, l2=»2430 NEXT X«, l3=0x0b}
0x1b25…1b38 Line {l1=0x11, l2=»2440 PRINT "<S>*"«, l3=0x11}
0x1b38…1b4a Line {l1=0x10, l2=»2450 CURSOR 5,15«, l3=0x10}
0x1b4a…1b5d Line {l1=0x11, l2=»2460 PRINT "<S>*"«, l3=0x11}
0x1b5d…1b76 Line {l1=0x17, l2=»2470 FOR X:=6 TO 74 DO «, l3=0x17}
0x1b76…1b89 Line {l1=0x11, l2=»2480 PRINT "<S>-"«, l3=0x11}
0x1b89…1b96 Line {l1=0x0b, l2=»2490 NEXT X«, l3=0x0b}
0x1b96…1ba9 Line {l1=0x11, l2=»2500 PRINT "<S>*"«, l3=0x11}
0x1ba9…1bbc Line {l1=0x11, l2=»2510 CURSOR 10,12«, l3=0x11}
0x1bbc…1bcf Line {l1=0x11, l2=»2520 PRINT "<S>*"«, l3=0x11}
0x1bcf…1be9 Line {l1=0x18, l2=»2530 FOR X:=11 TO 69 DO «, l3=0x18}
0x1be9…1bfc Line {l1=0x11, l2=»2540 PRINT "<S>-"«, l3=0x11}
0x1bfc…1c09 Line {l1=0x0b, l2=»2550 NEXT X«, l3=0x0b}
0x1c09…1c1c Line {l1=0x11, l2=»2560 PRINT "<S>*"«, l3=0x11}
0x1c1c…1c35 Line {l1=0x17, l2=»2570 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1c35…1c47 Line {l1=0x10, l2=»2580 CURSOR 10,Y«, l3=0x10}
0x1c47…1c57 Line {l1=0x0e, l2=»2590 PRINT "!"«, l3=0x0e}
0x1c57…1c64 Line {l1=0x0b, l2=»2600 NEXT Y«, l3=0x0b}
0x1c64…1c85 Line {l1=0x1f, l2=»2610 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1c85…1c96 Line {l1=0x0f, l2=»2620 CURSOR 5,Y«, l3=0x0f}
0x1c96…1ca6 Line {l1=0x0e, l2=»2630 PRINT "!"«, l3=0x0e}
0x1ca6…1cb3 Line {l1=0x0b, l2=»2640 NEXT Y«, l3=0x0b}
0x1cb3…1ccc Line {l1=0x17, l2=»2650 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1ccc…1cde Line {l1=0x10, l2=»2660 CURSOR 70,Y«, l3=0x10}
0x1cde…1cee Line {l1=0x0e, l2=»2670 PRINT "!"«, l3=0x0e}
0x1cee…1cfb Line {l1=0x0b, l2=»2680 NEXT Y«, l3=0x0b}
0x1cfb…1d1c Line {l1=0x1f, l2=»2690 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1d1c…1d2e Line {l1=0x10, l2=»2700 CURSOR 75,Y«, l3=0x10}
0x1d2e…1d3e Line {l1=0x0e, l2=»2710 PRINT "!"«, l3=0x0e}
0x1d3e…1d4b Line {l1=0x0b, l2=»2720 NEXT Y«, l3=0x0b}
0x1d4b…1d5d Line {l1=0x10, l2=»2730 CURSOR 25,9«, l3=0x10}
0x1d5d…1d74 Line {l1=0x15, l2=»2740 PRINT TESTNAVN1$«, l3=0x15}
0x1d74…1d86 Line {l1=0x10, l2=»2750 CURSOR 5,20«, l3=0x10}
0x1d86…1dcb Line {l1=0x43, l2=»2760 PRINT "På de næste sider vil du få 10 spørgsmål med tre svar."«, l3=0x43}
0x1dcb…1ddd Line {l1=0x10, l2=»2770 CURSOR 5,21«, l3=0x10}
0x1ddd…1e29 Line {l1=0x4a, l2=»2780 PRINT "Kun et af svarene er rigtigt,så du skal enten indtaste A, B ";«, l3=0x4a}
0x1e29…1e40 Line {l1=0x15, l2=»2790 PRINT "eller C."«, l3=0x15}
0x1e40…1e53 Line {l1=0x11, l2=»2800 CURSOR 70,23«, l3=0x11}
0x1e53…1e6d Line {l1=0x18, l2=»2810 INPUT "Return!":SV$«, l3=0x18}
0x1e6d…1e84 Line {l1=0x15, l2=»2820 ENDPROC FORSIDEN«, l3=0x15}
0x1e84…1ea0 00 00 06 c6 05 bc 10 10 8c 00 b7 08 a5 8b 2c 02 9b be 4e cb 84 a1 f4 d5 85 2a d5 85 ┆ , N * ┆
0x1ea0…1ec0 2b c6 15 00 cc 81 da c6 81 da a5 8a d6 14 d2 17 c6 81 da a6 04 3a 31 3a 54 18 d2 17 c6 81 da 00 ┆+ :1:T ┆
0x1ec0…1ee0 01 d2 05 d5 85 2e a6 0d 22 4f 70 6c 79 73 6e 69 6e 67 65 72 22 cd 00 2e d5 85 32 ce 0a d5 85 34 ┆ . "Oplysninger" . 2 4┆
0x1ee0…1f00 c6 15 a5 8a fb 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 35 c6 15 a5 8b 2c 18 d2 13 9e 00 c6 15 ca ┆ 5 , ┆
0x1f00…1f20 81 ae 04 d2 0d 9e 00 c6 15 d2 16 9e 00 d5 85 38 c6 15 a5 8b 2c cd 56 d5 85 39 c6 15 a5 8b 2c 00 ┆ 8 , V 9 , ┆
0x1f20…1f40 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 3c c6 81 85 be 28 c4 a1 15 d5 85 3d c6 15 c6 81 85 28 d2 13 ┆ < ( = ( ┆
0x1f40…1f60 9e 00 c6 15 d2 16 9e 00 b9 21 d5 85 3f c6 15 c6 81 85 00 d2 13 9e 00 c6 15 a5 18 28 c6 81 85 be ┆ ! ? ( ┆
0x1f60…1f80 95 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 40 c6 15 a5 8b 3b 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 ┆ @ ; ┆
0x1f80…1fa0 42 c6 15 01 d2 06 d5 85 43 a6 0d 22 4f 70 6c 79 73 6e 69 6e 67 65 72 22 cd 00 2e d5 85 46 d5 85 ┆B C "Oplysninger" . F ┆
0x1fa0…1fc0 4a c6 15 00 cc 81 da c6 81 da a6 02 24 24 02 d2 17 c6 81 da a5 8b 25 03 d2 17 c6 81 da a6 0c 50 ┆J $$ % P┆
0x1fc0…1fe0 41 52 41 4d 3a 50 31 3a 31 3a 54 0f d2 17 c6 81 da 00 01 d2 05 d5 85 4c a6 16 22 54 65 72 6d 69 ┆ARAM:P1:1:T L "Termi┆
0x1fe0…2000 6e 61 6c 20 6f 70 6c 79 73 6e 69 6e 67 65 72 22 cd 00 2e d5 85 50 c6 15 a5 8a fb 00 d2 13 9e 00 ┆nal oplysninger" . P ┆
0x2000…2020 c6 15 d2 16 9e 00 d5 85 51 c6 15 a5 8b 2c 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 53 c6 15 a5 18 ┆ Q , S ┆
0x2020…2040 28 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 54 c6 15 a5 8b 3b 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 ┆( T ; ┆
0x2040…2060 56 c6 15 01 d2 06 d5 85 57 a6 16 22 54 65 72 6d 69 6e 61 6c 20 6f 70 6c 79 73 6e 69 6e 67 65 72 ┆V W "Terminal oplysninger┆
0x2060…2080 22 cd 00 2e d5 85 5b d5 85 5d d8 93 a1 08 d5 85 5e c7 90 01 9e 26 d5 85 5f d8 a1 f0 d5 85 61 b3 ┆" . Æ Å ^ & _ a ┆
0x2080…20a0 06 a5 40 00 00 20 00 00 00 00 00 00 00 00 06 c6 05 bc 10 10 8c 00 b7 08 a1 2f d5 85 62 d5 85 63 ┆ @ / b c┆
0x20a0…20c0 a7 45 a1 1b d5 85 64 d5 85 65 a7 46 01 c5 a1 0a d5 85 66 a7 46 01 95 cd 00 11 d5 85 67 b9 07 d5 ┆ E d e F f F g ┆
0x20c0…20e0 85 69 18 cd 00 11 d5 85 6a d5 85 6c 55 c6 05 bc 10 10 8b a1 e4 d5 85 6d d5 85 6e 01 14 d2 1d d5 ┆ i j lU m n ┆
0x20e0…2100 85 6f cd 00 2b d5 85 70 a7 45 93 a1 ec d5 85 71 d5 85 73 e9 a6 27 3c 5a 3e 20 20 20 20 20 56 65 ┆ o + p E q s '<Z> Ve┆
0x2100…2120 6e 74 20 20 2d 20 20 61 72 62 65 6a 64 73 74 65 6b 73 74 65 6e 20 66 6c 79 74 74 65 73 00 d2 13 ┆nt - arbejdsteksten flyttes ┆
0x2120…2140 9e 00 e9 0d 00 d2 11 9e 00 e9 d2 04 9e 00 d5 85 7f 18 cd 00 11 d5 85 80 a5 89 78 a5 87 f2 cd 56 ┆ x V┆
0x2140…2160 d5 85 81 9e 22 0c cb a1 31 d5 85 82 d5 85 83 a5 88 1a a5 87 f2 00 d2 13 9e 00 a5 88 1a d2 16 9e ┆ " 1 ┆
0x2160…2180 00 d5 85 84 a7 47 01 82 ab 47 d5 85 85 a5 89 78 a5 87 f2 cd 56 d5 85 86 b9 ee d5 85 87 b9 0a d5 ┆ G G x V ┆
0x2180…21a0 85 89 a7 46 01 95 cd 00 11 d5 85 8b 00 00 00 00 ce 04 a1 4a d5 85 8c d5 85 8d 04 ab 8b 26 d5 85 ┆ F J & ┆
0x21a0…21c0 8f e9 a6 2b 3c 5a 3e 20 20 20 20 20 56 65 6e 74 20 20 2d 20 20 74 65 6b 73 74 65 6e 20 73 6b 72 ┆ +<Z> Vent - teksten skr┆
0x21c0…21e0 69 76 65 73 20 70 7d 20 73 6b 72 69 76 65 72 00 d2 13 9e 00 e9 d2 16 9e 00 d5 85 97 b9 e6 d5 85 ┆ives på skriver ┆
0x21e0…2200 9a d5 85 9c e9 a6 2c 3c 5a 3e 46 6f 72 73 7b 74 20 72 65 64 69 67 65 72 69 6e 67 20 20 20 2d 20 ┆ ,<Z>Forsæt redigering - ┆
0x2200…2220 20 20 74 72 79 6b 20 70 7d 20 52 45 54 55 52 4e 20 3a 20 00 d2 13 9e 00 e9 d2 04 9e 00 d5 85 a4 ┆ tryk på RETURN : ┆
0x2220…2240 a5 8b 25 a6 00 aa 01 d5 85 a5 a5 8b 25 01 00 00 00 00 cd 00 18 a1 03 d5 85 a5 d5 85 a6 00 ab 45 ┆ % % E┆
0x2240…2260 d5 85 a7 01 ab 8b 26 d5 85 a8 a7 47 18 c9 a1 54 d5 85 a9 d5 85 aa 01 ab 45 d5 85 ab a7 47 01 82 ┆ & G T E G ┆
0x2260…2280 ab 46 d5 85 ac a7 47 cd 00 10 d5 85 ad a7 46 01 82 00 18 88 ab 44 18 00 18 88 cc 81 da a7 44 ca ┆ F G F D D ┆
0x2280…22a0 81 da c8 a1 1a d5 85 ae a5 4a a7 44 01 18 88 01 95 a4 28 a6 00 aa 4f a7 44 01 82 ab 44 b9 ea d5 ┆ J D ( O D D ┆
0x22a0…22c0 85 af b9 56 d5 85 b1 d5 85 b2 a7 47 ab 49 18 01 82 cc 81 da a7 49 ca 81 da c4 a1 2e d5 85 b3 d5 ┆ V G I I . ┆
0x22c0…22e0 85 b4 a5 88 1a a5 87 f2 cd 56 d5 85 b5 a5 89 78 a5 87 f2 00 d2 13 9e 00 a5 89 78 d2 16 9e 00 d5 ┆ V x x ┆
0x22e0…2300 85 b6 a7 49 01 95 ab 49 b9 e8 d5 85 b7 18 cd 00 10 d5 85 b8 00 ab 47 d5 85 b9 d5 85 ba 01 00 18 ┆ I I G ┆
0x2300…2320 88 ab 42 d5 85 bb 01 00 4f 88 ab 41 d5 85 bc d5 85 bd b9 d6 d5 85 bf 56 c6 05 bc 10 10 8b a1 5e ┆ B O A V ^┆
0x2320…2340 d5 85 c0 d5 85 c1 a6 0a 57 57 20 20 20 20 20 20 2a 31 a6 01 20 c6 81 7e d2 1e d5 85 c3 a6 30 20 ┆ WW *1 ü 0 ┆
0x2340…2360 76 65 64 20 72 65 74 75 72 6e 65 72 69 6e 67 20 74 69 6c 20 6f 76 65 72 6f 72 64 6e 65 74 20 6b ┆ved returnering til overordnet k┆
0x2360…2380 6f 6d 6d 61 6e 64 6f 20 6e 69 76 65 61 75 2e cd 00 2e d5 85 cb 03 ab 8b 26 d5 85 cc b9 d8 d5 85 ┆ommando niveau. . & ┆
0x2380…23a0 ce 52 c6 05 bc 10 10 8b a1 09 d5 85 cf 00 ab 8b 26 b9 da d5 85 d1 4d c6 05 bc 10 10 8b a1 dc d5 ┆ R & M ┆
0x23a0…23c0 85 d2 d5 85 d3 02 ab 8b 26 d5 85 d4 eb 01 01 28 88 01 95 82 be 2a c3 a1 de d5 85 d5 d5 85 d6 eb ┆ & ( * ┆
0x23c0…23e0 01 01 28 88 01 95 82 20 bf d5 85 d7 c6 15 a6 07 57 57 50 41 52 41 4d 01 01 d2 05 d5 85 d8 9e 22 ┆ ( WWPARAM "┆
0x23e0…2400 05 c3 a1 20 d5 85 d9 d5 85 da c7 90 01 9e 26 d5 85 db c6 15 a6 07 57 57 50 41 52 41 4d 01 01 d2 ┆ & WWPARAM ┆
0x2400…2420 05 d5 85 dc d5 85 de 9e 22 00 c3 a1 e0 d5 85 df d5 85 e0 c6 15 c6 81 af 50 d2 12 9e 00 c6 15 d2 ┆ " P ┆
0x2420…2440 15 9e 00 d5 85 e1 a6 06 43 48 41 49 4e 3a c6 81 af d2 1b 01 c3 a1 4f d5 85 e2 d5 85 e3 c6 81 af ┆ CHAIN: O ┆
0x2440…2460 c6 81 da 07 0a d2 19 c6 81 da a6 01 20 c6 81 7e d2 1e d5 85 e5 a6 29 20 76 65 64 20 72 65 74 75 ┆ ü ) ved retu┆
0x2460…2480 72 6e 65 72 69 6e 67 20 74 69 6c 20 61 6e 76 65 6e 64 65 6c 73 65 73 20 70 72 6f 67 72 61 6d 2e ┆rnering til anvendelses program.┆
0x2480…24a0 cd 00 2e d5 85 ed d5 85 ee c6 15 01 00 d2 0a a1 e2 b9 6d d5 85 f0 d5 85 f1 9e 22 cc 81 7f d5 85 ┆ . m " ┆
0x24a0…24c0 f2 cd 00 16 d5 85 f4 e9 a6 13 41 64 76 61 72 73 65 6c 20 2d 20 46 65 6a 6c 20 6e 72 2e 00 d2 13 ┆ Advarsel - Fejl nr. ┆
0x24c0…24e0 9e 00 e9 ca 81 7f 00 d2 0d 9e 00 e9 a6 17 20 76 65 64 20 7d 62 6e 69 6e 67 20 61 66 20 57 57 50 ┆ ved åbning af WWP┆
0x24e0…2500 41 52 41 4d 2e 00 d2 13 9e 00 e9 d2 16 9e 00 d5 85 ff cd 00 16 d5 86 00 c7 2c 01 9e 26 d5 86 01 ┆ARAM. , & ┆
0x2500…2520 d5 86 03 c6 15 01 d2 06 d5 86 05 d5 86 06 b9 07 d5 86 08 01 ab 8b 26 d5 86 0a d5 86 0b c6 15 01 ┆ & ┆
0x2520…2540 d2 06 ad 00 0a 00 0f 00 11 00 13 00 1c 00 23 00 9d 00 22 01 20 02 27 02 84 02 bd 02 bd 03 fb 03 ┆ # " ' ┆
0x2540…2560 46 07 db 04 a6 05 95 07 04 04 00 00 2f 00 ec 07 01 01 40 0e 68 0e 62 15 b0 15 10 1a 48 1b fe 07 ┆F / @ h b H ┆
0x2560…2580 2a 1f 1c 1d 98 26 9c 1f 4e 21 c8 23 1c 00 06 0e 85 ff cd 00 16 d5 86 00 c7 2c 01 9e 26 d5 86 01 ┆* & N! # , & ┆
0x2580…25a0 d5 86 03 c6 15 01 d2 06 d5 86 05 d5 86 06 b9 07 d5 86 08 01 ab 8b 26 d5 86 0a d5 86 0b c6 15 01 ┆ & ┆
0x25a0…25c0 d5 81 19 dd dc c5 a1 08 d5 81 1a dc cc 01 b9 06 d5 81 1c dd cc 01 d5 81 1d ad 01 05 00 00 0c 00 ┆ ┆
0x25c0…25e0 07 00 22 00 0d 01 d5 81 21 dd dc c5 a1 08 d5 81 22 dd cc 01 b9 06 d5 81 24 dc cc 01 d5 81 25 ad ┆ " ! " $ % ┆
0x25e0…2600 01 05 00 00 0c 00 07 00 22 00 0e 01 d5 81 30 d9 be 01 82 cc 03 d8 cc 04 da db c8 a1 0f d5 81 31 ┆ " 0 1┆
0x2600…2620 d9 da 82 20 bf da 01 82 cc 03 b9 f6 d5 81 32 d9 00 82 d8 bf d5 81 34 ad 00 ad 22 00 04 00 04 00 ┆ 2 4 " ┆
0x2620…2640 09 00 36 00 0f 01 d5 81 3b d8 00 18 88 cc 02 01 00 18 88 cc 03 d9 da c4 a1 19 d5 81 3c a5 88 1a ┆ 6 ; < ┆
0x2640…2660 a5 4a d9 01 18 88 01 95 a4 28 cd 56 d9 01 95 cc 02 b9 f6 d5 81 3d a7 47 d8 95 ab 47 d5 81 3e ad ┆ J ( V = G G > ┆
0x2660…2680 00 01 2d 00 04 00 02 00 09 00 44 00 10 01 d5 81 44 d8 00 18 88 cc 02 d5 81 45 a7 45 a7 46 01 d8 ┆ - D D E E F ┆
0x2680…26a0 94 8b 84 a1 18 d5 81 46 d5 81 47 a7 46 01 95 00 18 88 cc 02 d5 81 48 01 ab 46 d5 81 49 d5 81 4a ┆ F G F H F I J┆
0x26a0…26c0 a7 47 d9 82 ab 47 d5 81 4b 01 00 18 88 cc 03 d9 00 18 88 cc 04 da db c8 a1 23 d5 81 4c a5 88 1a ┆ G G K # L ┆
0x26c0…26e0 a5 4a da 01 18 88 01 95 a4 28 00 d2 13 9e 00 a5 88 1a d2 16 9e 00 da 01 82 cc 03 b9 f6 d5 81 4d ┆ J ( M┆
0x26e0…2700 ad 00 2d 00 06 00 02 00 08 00 7c 00 11 01 d5 81 54 d8 00 c3 a1 07 d5 81 55 00 12 9e 04 d5 81 56 ┆ - ø T U V┆
0x2700…2720 a7 45 93 a1 f2 d5 81 58 d5 81 59 18 d8 95 01 82 00 18 88 cc 02 d5 81 5a a5 89 78 a5 4a d9 01 18 ┆ E X Y Z x J ┆
0x2720…2740 88 01 95 a4 28 cd 56 d5 81 5b 9e 22 0c cb d9 18 c9 84 a1 25 d5 81 5c d5 81 5d d9 01 82 00 18 88 ┆ ( V Æ " % Ø Å ┆
0x2740…2760 cc 02 d5 81 5e a5 89 78 a5 4a d9 01 18 88 01 95 a4 28 cd 56 d5 81 5f b9 f6 d5 81 60 9e 22 0c c3 ┆ ^ x J ( V _ ` " ┆
0x2760…2780 a1 3f d5 81 62 d5 81 63 01 ab 45 d5 81 64 d9 ab 46 d5 81 65 a7 46 00 18 88 cc 02 18 00 18 88 63 ┆ ? b c E d F e F c┆