|
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: »SPAR_TES.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SPAR_TES.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SPAR_TES.K«
0100 // ----------------------- spar-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$:="S P A R - T E S T ."
0170 TESTNAVN2$:=" s p a r - t e s t "
0180 TXTFIL$:="SYSTIME:SPARTXT"
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 // ----------------------- spar-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…0161 Line {l1=0x26, l2=»0160 TESTNAVN1$:="S P A R - T E S T ."«, l3=0x26}
0x0161…018d Line {l1=0x2a, l2=»0170 TESTNAVN2$:=" s p a r - t e s t "«, l3=0x2a}
0x018d…01ae Line {l1=0x1f, l2=»0180 TXTFIL$:="SYSTIME:SPARTXT"«, l3=0x1f}
0x01ae…01fa Line {l1=0x4a, l2=»0190 // ------------------------------------------------------------------«, l3=0x4a}
0x01fa…020b Line {l1=0x0f, l2=»0200 EXEC HOVED«, l3=0x0f}
0x020b…021f Line {l1=0x12, l2=»0210 EXEC FORSIDEN«, l3=0x12}
0x021f…022f Line {l1=0x0e, l2=»0220 EXEC VALG«, l3=0x0e}
0x022f…027b Line {l1=0x4a, l2=»0230 // ------------------------------------------------------------------«, l3=0x4a}
0x027b…028c Line {l1=0x0f, l2=»0240 PROC HOVED«, l3=0x0f}
0x028c…0299 Line {l1=0x0b, l2=»0250 CLEAR «, l3=0x0b}
0x0299…02ab Line {l1=0x10, l2=»0260 CURSOR 13,4«, l3=0x10}
0x02ab…02e2 Line {l1=0x35, l2=»0270 PRINT " V E L K O M M E N T I L ";TESTNAVN1$«, l3=0x35}
0x02e2…02f4 Line {l1=0x10, l2=»0280 CURSOR 13,5«, l3=0x10}
0x02f4…0339 Line {l1=0x43, l2=»0290 PRINT "------------------------------------------------------"«, l3=0x43}
0x0339…034b Line {l1=0x10, l2=»0300 CURSOR 15,8«, l3=0x10}
0x034b…0377 Line {l1=0x2a, l2=»0310 INPUT "Skriv dit navn her: ":NAVN$«, l3=0x2a}
0x0377…038a Line {l1=0x11, l2=»0320 CURSOR 20,12«, l3=0x11}
0x038a…039e Line {l1=0x12, l2=»0330 ENDPROC HOVED«, l3=0x12}
0x039e…03ea Line {l1=0x4a, l2=»0340 // ------------------------------------------------------------------«, l3=0x4a}
0x03ea…03fa Line {l1=0x0e, l2=»0350 PROC VALG«, l3=0x0e}
0x03fa…041b Line {l1=0x1f, l2=»0360 SUM:=0;M:=1;A:=0;NUMMER:=0«, l3=0x1f}
0x041b…0428 Line {l1=0x0b, l2=»0370 CLEAR «, l3=0x0b}
0x0428…043b Line {l1=0x11, l2=»0380 CURSOR 30,12«, l3=0x11}
0x043b…045b Line {l1=0x1e, l2=»0390 PRINT " Lige et øjeblik!"«, l3=0x1e}
0x045b…046d Line {l1=0x10, l2=»0400 EXEC FILLÆS«, l3=0x10}
0x046d…047f Line {l1=0x10, l2=»0410 EXEC FRÅGAN«, l3=0x10}
0x047f…048c Line {l1=0x0b, l2=»0420 CLEAR «, l3=0x0b}
0x048c…049e Line {l1=0x10, l2=»0430 CURSOR 10,3«, l3=0x10}
0x049e…04db Line {l1=0x3b, l2=»0440 PRINT "Du har fået ";SUM;" rigtige svar af 10 mulige."«, l3=0x3b}
0x04db…04ed Line {l1=0x10, l2=»0450 CURSOR 10,8«, l3=0x10}
0x04ed…051f Line {l1=0x30, l2=»0460 PRINT "Du kan vælge mellem tre muligheder:"«, l3=0x30}
0x051f…0532 Line {l1=0x11, l2=»0470 CURSOR 10,12«, l3=0x11}
0x0532…057f Line {l1=0x4b, l2=»0480 PRINT "1. Ønsker du at forbedre dit resultat ved at begynde forfra?"«, l3=0x4b}
0x057f…0592 Line {l1=0x11, l2=»0490 CURSOR 10,14«, l3=0x11}
0x0592…05da Line {l1=0x46, l2=»0500 PRINT "2. Ønsker du dit resultat sammenlignet med det rigtige "«, l3=0x46}
0x05da…05ed Line {l1=0x11, l2=»0510 CURSOR 10,15«, l3=0x11}
0x05ed…0617 Line {l1=0x28, l2=»0520 PRINT " Skrevet ud på printer?"«, l3=0x28}
0x0617…062a Line {l1=0x11, l2=»0530 CURSOR 10,17«, l3=0x11}
0x062a…0671 Line {l1=0x45, l2=»0540 PRINT "3. Ønsker du dit resultat sammenlignet med det rigtige"«, l3=0x45}
0x0671…0684 Line {l1=0x11, l2=»0550 CURSOR 10,18«, l3=0x11}
0x0684…06ae Line {l1=0x28, l2=»0560 PRINT " Skrevet ud på skærmen?"«, l3=0x28}
0x06ae…06bb Line {l1=0x0b, l2=»0570 PRINT «, l3=0x0b}
0x06bb…06c8 Line {l1=0x0b, l2=»0580 PRINT «, l3=0x0b}
0x06c8…06db Line {l1=0x11, l2=»0590 CURSOR 10,21«, l3=0x11}
0x06db…0708 Line {l1=0x2b, l2=»0600 INPUT "Skriv det ønskede tal: ":TALNR«, l3=0x2b}
0x0708…0716 Line {l1=0x0c, l2=»0610 REPEAT «, l3=0x0c}
0x0716…0729 Line {l1=0x11, l2=»0620 CURSOR 33,21«, l3=0x11}
0x0729…0740 Line {l1=0x15, l2=»0630 IF TALNR=1 THEN «, l3=0x15}
0x0740…0750 Line {l1=0x0e, l2=»0640 EXEC VALG«, l3=0x0e}
0x0750…075d Line {l1=0x0b, l2=»0650 CLEAR «, l3=0x0b}
0x075d…076a Line {l1=0x0b, l2=»0660 PRINT «, l3=0x0b}
0x076a…0776 Line {l1=0x0a, l2=»0670 ELSE «, l3=0x0a}
0x0776…078d Line {l1=0x15, l2=»0680 IF TALNR=2 THEN «, l3=0x15}
0x078d…079d Line {l1=0x0e, l2=»0690 SPRING:=0«, l3=0x0e}
0x079d…07b3 Line {l1=0x14, l2=»0700 EXEC PRINTERRES«, l3=0x14}
0x07b3…07c4 Line {l1=0x0f, l2=»0710 EXEC SKRIV«, l3=0x0f}
0x07c4…07dc Line {l1=0x16, l2=»0720 SELECT OUTPUT "T"«, l3=0x16}
0x07dc…07f0 Line {l1=0x12, l2=»0730 EXEC ELECTION«, l3=0x12}
0x07f0…07fc Line {l1=0x0a, l2=»0740 ELSE «, l3=0x0a}
0x07fc…0813 Line {l1=0x15, l2=»0750 IF TALNR=3 THEN «, l3=0x15}
0x0813…0823 Line {l1=0x0e, l2=»0760 SPRING:=1«, l3=0x0e}
0x0823…0834 Line {l1=0x0f, l2=»0770 EXEC SKRIV«, l3=0x0f}
0x0834…0848 Line {l1=0x12, l2=»0780 EXEC ELECTION«, l3=0x12}
0x0848…0855 Line {l1=0x0b, l2=»0790 ENDIF «, l3=0x0b}
0x0855…0862 Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x0862…086f Line {l1=0x0b, l2=»0810 ENDIF «, l3=0x0b}
0x086f…0899 Line {l1=0x28, l2=»0820 UNTIL TALNR=0 OR TALNR=1 OR TALNR=2«, l3=0x28}
0x0899…08ac Line {l1=0x11, l2=»0830 ENDPROC VALG«, l3=0x11}
0x08ac…08f6 Line {l1=0x48, l2=»0840 // ----------------------------------------------------------------«, l3=0x48}
0x08f6…0907 Line {l1=0x0f, l2=»0850 PROC SKRIV«, l3=0x0f}
0x0907…0925 Line {l1=0x1c, l2=»0860 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x0925…0932 Line {l1=0x0b, l2=»0868 PRINT «, l3=0x0b}
0x0932…0954 Line {l1=0x20, l2=»0869 IF SPRING=1 THEN CURSOR 1,1«, l3=0x20}
0x0954…099c Line {l1=0x46, l2=»0870 PRINT " *****************************************"«, l3=0x46}
0x099c…09db Line {l1=0x3d, l2=»0880 PRINT " * ";TESTNAVN2$;" *"«, l3=0x3d}
0x09db…0a23 Line {l1=0x46, l2=»0890 PRINT " *****************************************"«, l3=0x46}
0x0a23…0a61 Line {l1=0x3c, l2=»0900 PRINT " * ";NAVN$;TAB(57);"*"«, l3=0x3c}
0x0a61…0aa9 Line {l1=0x46, l2=»0910 PRINT " *****************************************"«, l3=0x46}
0x0aa9…0acb Line {l1=0x20, l2=»0920 IF SPRING=1 THEN CURSOR 1,7«, l3=0x20}
0x0acb…0ad8 Line {l1=0x0b, l2=»0930 PRINT «, l3=0x0b}
0x0ad8…0b20 Line {l1=0x46, l2=»0940 PRINT "Spørgsmål nr.";TAB(35);"Dit bud:";TAB(50);"Rigtige facit:"«, l3=0x46}
0x0b20…0b6f Line {l1=0x4d, l2=»0950 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0b6f…0b7c Line {l1=0x0b, l2=»0960 PRINT «, l3=0x0b}
0x0b7c…0b95 Line {l1=0x17, l2=»0970 FOR A:=1 TO 10 DO «, l3=0x17}
0x0b95…0bb3 Line {l1=0x1c, l2=»0980 IF TRU$(A)<>F$(A) THEN «, l3=0x1c}
0x0bb3…0bfe Line {l1=0x49, l2=»0990 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)," ***"«, l3=0x49}
0x0bfe…0c0a Line {l1=0x0a, l2=»1000 ELSE «, l3=0x0a}
0x0c0a…0c47 Line {l1=0x3b, l2=»1010 PRINT "Spørgsmål nr. ";A;TAB(38);TRU$(A);TAB(57);F$(A)«, l3=0x3b}
0x0c47…0c54 Line {l1=0x0b, l2=»1020 ENDIF «, l3=0x0b}
0x0c54…0c61 Line {l1=0x0b, l2=»1030 NEXT A«, l3=0x0b}
0x0c61…0c6e Line {l1=0x0b, l2=»1040 PRINT «, l3=0x0b}
0x0c6e…0cbd Line {l1=0x4d, l2=»1050 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x0cbd…0cca Line {l1=0x0b, l2=»1060 PRINT «, l3=0x0b}
0x0cca…0ce2 Line {l1=0x16, l2=»1070 IF SPRING=1 THEN «, l3=0x16}
0x0ce2…0cf5 Line {l1=0x11, l2=»1080 CURSOR 67,24«, l3=0x11}
0x0cf5…0d13 Line {l1=0x1c, l2=»1090 INPUT "Return! ":RETUR$«, l3=0x1c}
0x0d13…0d20 Line {l1=0x0b, l2=»1100 ENDIF «, l3=0x0b}
0x0d20…0d34 Line {l1=0x12, l2=»1110 ENDPROC SKRIV«, l3=0x12}
0x0d34…0d7c Line {l1=0x46, l2=»1120 // --------------------------------------------------------------«, l3=0x46}
0x0d7c…0d8e Line {l1=0x10, l2=»1130 PROC FILLÆS«, l3=0x10}
0x0d8e…0da3 Line {l1=0x13, l2=»1140 OPEN TXTFIL$,R«, l3=0x13}
0x0da3…0dbc Line {l1=0x17, l2=»1150 FOR I:=1 TO 10 DO «, l3=0x17}
0x0dbc…0dd4 Line {l1=0x16, l2=»1160 FOR J:=1 TO 4 DO «, l3=0x16}
0x0dd4…0df7 Line {l1=0x21, l2=»1170 GET TXTFIL$:SPØR$((I-1)*4+J)«, l3=0x21}
0x0df7…0e04 Line {l1=0x0b, l2=»1180 NEXT J«, l3=0x0b}
0x0e04…0e1c Line {l1=0x16, l2=»1190 GET TXTFIL$:F$(I)«, l3=0x16}
0x0e1c…0e29 Line {l1=0x0b, l2=»1200 NEXT I«, l3=0x0b}
0x0e29…0e3d Line {l1=0x12, l2=»1210 CLOSE TXTFIL$«, l3=0x12}
0x0e3d…0e52 Line {l1=0x13, l2=»1220 ENDPROC FILLÆS«, l3=0x13}
0x0e52…0e9e Line {l1=0x4a, l2=»1230 // ------------------------------------------------------------------«, l3=0x4a}
0x0e9e…0eb2 Line {l1=0x12, l2=»1240 PROC ELECTION«, l3=0x12}
0x0eb2…0ec0 Line {l1=0x0c, l2=»1250 REPEAT «, l3=0x0c}
0x0ec0…0ed2 Line {l1=0x10, l2=»1260 CURSOR 1,22«, l3=0x10}
0x0ed2…0edf Line {l1=0x0b, l2=»1270 CLEAR «, l3=0x0b}
0x0edf…0ef1 Line {l1=0x10, l2=»1280 CURSOR 10,7«, l3=0x10}
0x0ef1…0f35 Line {l1=0x42, l2=»1290 PRINT "Du får nu mulighed for at vælge mellem følgende ting."«, l3=0x42}
0x0f35…0f42 Line {l1=0x0b, l2=»1300 PRINT «, l3=0x0b}
0x0f42…0f55 Line {l1=0x11, l2=»1310 CURSOR 10,12«, l3=0x11}
0x0f55…0f85 Line {l1=0x2e, l2=»1320 PRINT "1. Ønsker du at begynde forfra?"«, l3=0x2e}
0x0f85…0f98 Line {l1=0x11, l2=»1330 CURSOR 10,14«, l3=0x11}
0x0f98…0fdb Line {l1=0x41, l2=»1340 PRINT "2. Ønsker du at se alle spørgsmålene på printeren?"«, l3=0x41}
0x0fdb…0fee Line {l1=0x11, l2=»1350 CURSOR 10,16«, l3=0x11}
0x0fee…102f Line {l1=0x3f, l2=»1360 PRINT "3. Ønsker du at se alle spørgsmålene på skærmen?"«, l3=0x3f}
0x102f…1042 Line {l1=0x11, l2=»1370 CURSOR 10,18«, l3=0x11}
0x1042…106d Line {l1=0x29, l2=»1380 PRINT "4. Ønsker du at slutte nu?"«, l3=0x29}
0x106d…1080 Line {l1=0x11, l2=»1390 CURSOR 10,22«, l3=0x11}
0x1080…10af Line {l1=0x2d, l2=»1400 INPUT "Skriv det ønskede nummer: ":SV$«, l3=0x2d}
0x10af…10ca Line {l1=0x19, l2=»1410 CASE ORD(SV$(1)) OF «, l3=0x19}
0x10ca…10d8 Line {l1=0x0c, l2=»1420 WHEN 49«, l3=0x0c}
0x10d8…10e8 Line {l1=0x0e, l2=»1430 EXEC VALG«, l3=0x0e}
0x10e8…10f6 Line {l1=0x0c, l2=»1440 WHEN 50«, l3=0x0c}
0x10f6…1109 Line {l1=0x11, l2=»1450 EXEC PRINTER«, l3=0x11}
0x1109…1117 Line {l1=0x0c, l2=»1460 WHEN 51«, l3=0x0c}
0x1117…1128 Line {l1=0x0f, l2=»1470 EXEC SKÆRM«, l3=0x0f}
0x1128…1136 Line {l1=0x0c, l2=»1480 WHEN 52«, l3=0x0c}
0x1136…1146 Line {l1=0x0e, l2=»1490 EXEC SLUT«, l3=0x0e}
0x1146…1155 Line {l1=0x0d, l2=»1500 ENDCASE «, l3=0x0d}
0x1155…1163 Line {l1=0x0c, l2=»1510 UNTIL 0«, l3=0x0c}
0x1163…117a Line {l1=0x15, l2=»1520 ENDPROC ELECTION«, l3=0x15}
0x117a…11bf Line {l1=0x43, l2=»1530 // -----------------------------------------------------------«, l3=0x43}
0x11bf…11cf Line {l1=0x0e, l2=»1540 PROC SLUT«, l3=0x0e}
0x11cf…11e1 Line {l1=0x10, l2=»1550 CURSOR 1,24«, l3=0x10}
0x11e1…121a Line {l1=0x37, l2=»1560 PRINT " Så går vi videre til næste afsnit."«, l3=0x37}
0x121a…1225 Line {l1=0x09, l2=»1570 END «, l3=0x09}
0x1225…1238 Line {l1=0x11, l2=»1580 ENDPROC SLUT«, l3=0x11}
0x1238…127c Line {l1=0x42, l2=»1590 // ----------------------------------------------------------«, l3=0x42}
0x127c…128d Line {l1=0x0f, l2=»1600 PROC SKÆRM«, l3=0x0f}
0x128d…129d Line {l1=0x0e, l2=»1610 SPRING:=1«, l3=0x0e}
0x129d…12ac Line {l1=0x0d, l2=»1620 EXEC LÆS«, l3=0x0d}
0x12ac…12c0 Line {l1=0x12, l2=»1630 ENDPROC SKÆRM«, l3=0x12}
0x12c0…1305 Line {l1=0x43, l2=»1640 // -----------------------------------------------------------«, l3=0x43}
0x1305…1314 Line {l1=0x0d, l2=»1650 PROC LÆS«, l3=0x0d}
0x1314…132d Line {l1=0x17, l2=»1660 FOR A:=1 TO 10 DO «, l3=0x17}
0x132d…134b Line {l1=0x1c, l2=»1670 IF SPRING=1 THEN CLEAR «, l3=0x1c}
0x134b…1356 Line {l1=0x09, l2=»1680 K:=8«, l3=0x09}
0x1356…136e Line {l1=0x16, l2=»1690 FOR J:=1 TO 4 DO «, l3=0x16}
0x136e…1393 Line {l1=0x23, l2=»1700 IF SPRING=1 THEN CURSOR 12,K+J«, l3=0x23}
0x1393…13b8 Line {l1=0x23, l2=»1710 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x13b8…13cb Line {l1=0x11, l2=»1720 IF J=1 THEN «, l3=0x11}
0x13cb…13d8 Line {l1=0x0b, l2=»1730 K:=K+4«, l3=0x0b}
0x13d8…13e5 Line {l1=0x0b, l2=»1740 ENDIF «, l3=0x0b}
0x13e5…13f2 Line {l1=0x0b, l2=»1750 NEXT J«, l3=0x0b}
0x13f2…13ff Line {l1=0x0b, l2=»1760 PRINT «, l3=0x0b}
0x13ff…1417 Line {l1=0x16, l2=»1770 IF SPRING=1 THEN «, l3=0x16}
0x1417…142a Line {l1=0x11, l2=»1780 CURSOR 70,20«, l3=0x11}
0x142a…1447 Line {l1=0x1b, l2=»1790 INPUT "Return!":RETUR$«, l3=0x1b}
0x1447…1454 Line {l1=0x0b, l2=»1800 ENDIF «, l3=0x0b}
0x1454…1461 Line {l1=0x0b, l2=»1810 NEXT A«, l3=0x0b}
0x1461…1473 Line {l1=0x10, l2=»1820 ENDPROC LÆS«, l3=0x10}
0x1473…14bb Line {l1=0x46, l2=»1830 // --------------------------------------------------------------«, l3=0x46}
0x14bb…14d1 Line {l1=0x14, l2=»1840 PROC PRINTERRES«, l3=0x14}
0x14d1…14e9 Line {l1=0x16, l2=»1850 SELECT OUTPUT "P"«, l3=0x16}
0x14e9…1506 Line {l1=0x1b, l2=»1860 IF STATUS("P")=1 THEN «, l3=0x1b}
0x1506…1518 Line {l1=0x10, l2=»1870 CURSOR 1,23«, l3=0x10}
0x1518…1552 Line {l1=0x38, l2=»1880 PRINT "<Z>Printeren er reserveret af anden bruger,"«, l3=0x38}
0x1552…1597 Line {l1=0x43, l2=»1890 INPUT "<S>skal der ventes på at den bliver ledig? (j/n) ":SV$«, l3=0x43}
0x1597…15b9 Line {l1=0x20, l2=»1900 IF SV$="J" OR SV$="j" THEN «, l3=0x20}
0x15b9…15cb Line {l1=0x10, l2=»1910 CURSOR 1,23«, l3=0x10}
0x15cb…15dd Line {l1=0x10, l2=»1920 PRINT "<Z>"«, l3=0x10}
0x15dd…161d Line {l1=0x3e, l2=»1930 PRINT "<S>Der ventes på at printeren bliver ledig......."«, l3=0x3e}
0x161d…164c Line {l1=0x2d, l2=»1940 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x164c…1659 Line {l1=0x0b, l2=»1950 ENDIF «, l3=0x0b}
0x1659…1666 Line {l1=0x0b, l2=»1960 ENDIF «, l3=0x0b}
0x1666…167f Line {l1=0x17, l2=»1970 ENDPROC PRINTERRES«, l3=0x17}
0x167f…1692 Line {l1=0x11, l2=»1980 PROC PRINTER«, l3=0x11}
0x1692…16a8 Line {l1=0x14, l2=»1990 EXEC PRINTERRES«, l3=0x14}
0x16a8…16b8 Line {l1=0x0e, l2=»2000 SPRING:=0«, l3=0x0e}
0x16b8…16c7 Line {l1=0x0d, l2=»2010 EXEC LÆS«, l3=0x0d}
0x16c7…16df Line {l1=0x16, l2=»2020 SELECT OUTPUT "T"«, l3=0x16}
0x16df…16f5 Line {l1=0x14, l2=»2030 ENDPROC PRINTER«, l3=0x14}
0x16f5…173a Line {l1=0x43, l2=»2040 // -----------------------------------------------------------«, l3=0x43}
0x173a…174c Line {l1=0x10, l2=»2050 PROC FRÅGAN«, l3=0x10}
0x174c…1765 Line {l1=0x17, l2=»2060 FOR A:=1 TO 10 DO «, l3=0x17}
0x1765…1772 Line {l1=0x0b, l2=»2070 CLEAR «, l3=0x0b}
0x1772…178a Line {l1=0x16, l2=»2080 FOR J:=1 TO 4 DO «, l3=0x16}
0x178a…17af Line {l1=0x23, l2=»2090 PRINT TAB(12);SPØR$((A-1)*4+J)«, l3=0x23}
0x17af…17c3 Line {l1=0x12, l2=»2100 CURSOR 12,J+4«, l3=0x12}
0x17c3…17d0 Line {l1=0x0b, l2=»2110 NEXT J«, l3=0x0b}
0x17d0…17e2 Line {l1=0x10, l2=»2120 EXEC RESTEN«, l3=0x10}
0x17e2…17ef Line {l1=0x0b, l2=»2130 NEXT A«, l3=0x0b}
0x17ef…1804 Line {l1=0x13, l2=»2140 ENDPROC FRÅGAN«, l3=0x13}
0x1804…1851 Line {l1=0x4b, l2=»2150 // -------------------------------------------------------------------«, l3=0x4b}
0x1851…1863 Line {l1=0x10, l2=»2160 PROC RESTEN«, l3=0x10}
0x1863…1876 Line {l1=0x11, l2=»2170 CURSOR 12,16«, l3=0x11}
0x1876…18b2 Line {l1=0x3a, l2=»2180 PRINT "Er det spørgsmål A,B eller C, der er rigtigt?"«, l3=0x3a}
0x18b2…18c5 Line {l1=0x11, l2=»2190 CURSOR 12,18«, l3=0x11}
0x18c5…18f7 Line {l1=0x30, l2=»2200 INPUT "Tast A, B eller C: ":TRU$(A)«, l3=0x30}
0x18f7…1924 Line {l1=0x2b, l2=»2210 IF "a"<=TRU$(A) AND "å"=>TRU$(A) THEN «, l3=0x2b}
0x1924…1949 Line {l1=0x23, l2=»2220 TRU$(A):=CHR$(ORD(TRU$(A))-32)«, l3=0x23}
0x1949…1956 Line {l1=0x0b, l2=»2230 ENDIF «, l3=0x0b}
0x1956…1981 Line {l1=0x29, l2=»2240 IF TRU$(A)=F$(A) THEN PRINT CHR$(42)«, l3=0x29}
0x1981…19a8 Line {l1=0x25, l2=»2250 IF TRU$(A)=F$(A) THEN SUM:=SUM+1«, l3=0x25}
0x19a8…19bd Line {l1=0x13, l2=»2260 ENDPROC RESTEN«, l3=0x13}
0x19bd…1a0c Line {l1=0x4d, l2=»2270 // ---------------------------------------------------------------------«, l3=0x4d}
0x1a0c…1a16 Line {l1=0x08, l2=»2280 // «, l3=0x08}
0x1a16…1a20 Line {l1=0x08, l2=»2290 // «, l3=0x08}
0x1a20…1a2a Line {l1=0x08, l2=»2300 // «, l3=0x08}
0x1a2a…1a3e Line {l1=0x12, l2=»2310 PROC FORSIDEN«, l3=0x12}
0x1a3e…1a4b Line {l1=0x0b, l2=»2320 CLEAR «, l3=0x0b}
0x1a4b…1a5c Line {l1=0x0f, l2=»2330 CURSOR 5,2«, l3=0x0f}
0x1a5c…1a6f Line {l1=0x11, l2=»2340 PRINT "<S>*"«, l3=0x11}
0x1a6f…1a88 Line {l1=0x17, l2=»2350 FOR X:=6 TO 74 DO «, l3=0x17}
0x1a88…1a9b Line {l1=0x11, l2=»2360 PRINT "<S>-"«, l3=0x11}
0x1a9b…1aa8 Line {l1=0x0b, l2=»2370 NEXT X«, l3=0x0b}
0x1aa8…1abb Line {l1=0x11, l2=»2380 PRINT "<S>*"«, l3=0x11}
0x1abb…1acd Line {l1=0x10, l2=»2390 CURSOR 10,5«, l3=0x10}
0x1acd…1ae0 Line {l1=0x11, l2=»2400 PRINT "<S>*"«, l3=0x11}
0x1ae0…1afa Line {l1=0x18, l2=»2410 FOR X:=11 TO 69 DO «, l3=0x18}
0x1afa…1b0d Line {l1=0x11, l2=»2420 PRINT "<S>-"«, l3=0x11}
0x1b0d…1b1a Line {l1=0x0b, l2=»2430 NEXT X«, l3=0x0b}
0x1b1a…1b2d Line {l1=0x11, l2=»2440 PRINT "<S>*"«, l3=0x11}
0x1b2d…1b3f Line {l1=0x10, l2=»2450 CURSOR 5,15«, l3=0x10}
0x1b3f…1b52 Line {l1=0x11, l2=»2460 PRINT "<S>*"«, l3=0x11}
0x1b52…1b6b Line {l1=0x17, l2=»2470 FOR X:=6 TO 74 DO «, l3=0x17}
0x1b6b…1b7e Line {l1=0x11, l2=»2480 PRINT "<S>-"«, l3=0x11}
0x1b7e…1b8b Line {l1=0x0b, l2=»2490 NEXT X«, l3=0x0b}
0x1b8b…1b9e Line {l1=0x11, l2=»2500 PRINT "<S>*"«, l3=0x11}
0x1b9e…1bb1 Line {l1=0x11, l2=»2510 CURSOR 10,12«, l3=0x11}
0x1bb1…1bc4 Line {l1=0x11, l2=»2520 PRINT "<S>*"«, l3=0x11}
0x1bc4…1bde Line {l1=0x18, l2=»2530 FOR X:=11 TO 69 DO «, l3=0x18}
0x1bde…1bf1 Line {l1=0x11, l2=»2540 PRINT "<S>-"«, l3=0x11}
0x1bf1…1bfe Line {l1=0x0b, l2=»2550 NEXT X«, l3=0x0b}
0x1bfe…1c11 Line {l1=0x11, l2=»2560 PRINT "<S>*"«, l3=0x11}
0x1c11…1c2a Line {l1=0x17, l2=»2570 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1c2a…1c3c Line {l1=0x10, l2=»2580 CURSOR 10,Y«, l3=0x10}
0x1c3c…1c4c Line {l1=0x0e, l2=»2590 PRINT "!"«, l3=0x0e}
0x1c4c…1c59 Line {l1=0x0b, l2=»2600 NEXT Y«, l3=0x0b}
0x1c59…1c7a Line {l1=0x1f, l2=»2610 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1c7a…1c8b Line {l1=0x0f, l2=»2620 CURSOR 5,Y«, l3=0x0f}
0x1c8b…1c9b Line {l1=0x0e, l2=»2630 PRINT "!"«, l3=0x0e}
0x1c9b…1ca8 Line {l1=0x0b, l2=»2640 NEXT Y«, l3=0x0b}
0x1ca8…1cc1 Line {l1=0x17, l2=»2650 FOR Y:=6 TO 11 DO «, l3=0x17}
0x1cc1…1cd3 Line {l1=0x10, l2=»2660 CURSOR 70,Y«, l3=0x10}
0x1cd3…1ce3 Line {l1=0x0e, l2=»2670 PRINT "!"«, l3=0x0e}
0x1ce3…1cf0 Line {l1=0x0b, l2=»2680 NEXT Y«, l3=0x0b}
0x1cf0…1d11 Line {l1=0x1f, l2=»2690 FOR Y:=14 TO 3 STEP -1 DO «, l3=0x1f}
0x1d11…1d23 Line {l1=0x10, l2=»2700 CURSOR 75,Y«, l3=0x10}
0x1d23…1d33 Line {l1=0x0e, l2=»2710 PRINT "!"«, l3=0x0e}
0x1d33…1d40 Line {l1=0x0b, l2=»2720 NEXT Y«, l3=0x0b}
0x1d40…1d52 Line {l1=0x10, l2=»2730 CURSOR 25,9«, l3=0x10}
0x1d52…1d69 Line {l1=0x15, l2=»2740 PRINT TESTNAVN1$«, l3=0x15}
0x1d69…1d7b Line {l1=0x10, l2=»2750 CURSOR 5,20«, l3=0x10}
0x1d7b…1dc0 Line {l1=0x43, l2=»2760 PRINT "På de næste sider vil du få 10 spørgsmål med tre svar."«, l3=0x43}
0x1dc0…1dd2 Line {l1=0x10, l2=»2770 CURSOR 5,21«, l3=0x10}
0x1dd2…1e1e Line {l1=0x4a, l2=»2780 PRINT "Kun et af svarene er rigtigt,så du skal enten indtaste A, B ";«, l3=0x4a}
0x1e1e…1e35 Line {l1=0x15, l2=»2790 PRINT "eller C."«, l3=0x15}
0x1e35…1e48 Line {l1=0x11, l2=»2800 CURSOR 70,23«, l3=0x11}
0x1e48…1e62 Line {l1=0x18, l2=»2810 INPUT "Return!":SV$«, l3=0x18}
0x1e62…1e79 Line {l1=0x15, l2=»2820 ENDPROC FORSIDEN«, l3=0x15}
0x1e79…1e80 00 00 2c 54 45 53 54 ┆ ,TEST┆
0x1e80…1ea0 1a 00 08 02 d5 81 a5 a5 4a a7 42 01 18 88 01 95 a4 28 be 4f c3 a1 16 d5 81 a6 a5 4a a7 42 01 18 ┆ J B ( O J B ┆
0x1ea0…1ec0 88 01 95 a4 28 be 00 4f 88 ab 41 b9 16 d5 81 a7 a5 4a a7 42 01 18 88 01 95 a4 28 be 01 82 00 4f ┆ ( O A J B ( O┆
0x1ec0…1ee0 88 ab 41 d5 81 a8 cd 00 22 d5 81 a9 ad 00 00 00 00 00 06 00 50 00 09 02 d5 81 ad a7 8b 19 00 4f ┆ A " P O┆
0x1ee0…1f00 88 ab 41 d5 81 ae cd 00 22 d5 81 af d8 ae 06 d5 81 b0 ad 00 00 00 02 00 06 00 22 00 0a 02 d5 81 ┆ A " " ┆
0x1f00…1f20 b4 a7 41 4f c9 a1 3d d5 81 b6 d5 81 b7 d5 81 b8 a7 41 01 82 00 4f 88 ab 41 d5 81 b9 a5 8a f1 a7 ┆ AO = A O A ┆
0x1f20…1f40 41 9b be b3 06 b9 54 00 00 11 00 00 00 00 00 00 00 00 06 8b a7 41 4f c3 8d a1 f6 d5 81 ba cd 00 ┆A T AO ┆
0x1f40…1f60 22 d5 81 bb d5 81 bc ad 00 00 3d 00 00 00 00 00 09 00 54 00 0b 02 d5 81 c0 d8 01 c5 a1 0f d5 81 ┆" = T ┆
0x1f60…1f80 c2 06 a6 06 57 61 72 74 65 6e cd 00 1a d5 81 c3 d8 00 c5 a7 45 93 84 a1 1e d5 81 c4 d5 81 c5 18 ┆ Warten E ┆
0x1f80…1fa0 cd 00 11 d5 81 c6 18 cd 00 12 d5 81 c7 d8 01 95 cc 01 d5 81 c8 b9 f6 d5 81 c9 cd 00 21 d5 81 ca ┆ ! ┆
0x1fa0…1fc0 cd 00 22 d5 81 cb ad 00 38 00 00 00 02 00 08 00 5a 00 0c 02 d5 81 cf d8 01 c5 a1 0f d5 81 d1 06 ┆ " 8 Z ┆
0x1fc0…1fe0 a6 06 57 61 72 74 65 6e cd 00 1a d5 81 d2 d8 00 c5 a7 47 18 c4 84 a1 1e d5 81 d3 d5 81 d4 18 cd ┆ Warten G ┆
0x1fe0…2000 00 13 d5 81 d5 18 cd 00 10 d5 81 d6 d8 01 95 cc 01 d5 81 d7 b9 f6 d5 81 d8 d8 00 c5 a7 47 00 c5 ┆ G ┆
0x2000…2020 84 a1 1e d5 81 da d5 81 db a7 47 cd 00 13 d5 81 dc a7 47 cd 00 15 d5 81 dd a7 47 cd 00 10 d5 81 ┆ G G G ┆
0x2020…2040 de d5 81 df cd 00 21 d5 81 e0 cd 00 22 d5 81 e1 ad 00 64 00 00 00 02 00 08 00 86 00 0d 02 d5 81 ┆ ! " d ┆
0x2040…2060 e5 a7 47 00 c5 a1 f0 d5 81 e7 d5 81 e8 06 a6 06 57 61 72 74 65 6e cd 00 1a d5 81 e9 a7 47 18 c9 ┆ G Warten G ┆
0x2060…2080 a1 20 d5 81 eb d5 81 ec a7 47 cd 00 13 d5 81 ed a7 47 cd 00 15 d5 81 ee a7 47 cd 00 10 d5 81 ef ┆ G G G ┆
0x2080…20a0 b9 f2 d5 81 f1 d5 81 f2 18 cd 00 13 d5 81 f3 a7 47 ab 49 18 01 82 cc 01 a7 49 d8 c4 a1 2e d5 81 ┆ G I I . ┆
0x20a0…20c0 f4 d5 81 f5 a5 88 1a a5 87 f2 cd 56 d5 81 f6 a5 89 78 a5 87 f2 00 d2 13 9e 00 a5 89 78 d2 16 9e ┆ V x x ┆
0x20c0…20e0 00 d5 81 f7 a7 49 01 95 ab 49 b9 f6 d5 81 f8 18 00 18 88 ab 42 01 00 18 88 cc 01 a7 42 d8 c4 a1 ┆ I I B B ┆
0x20e0…2100 1b d5 81 f9 a5 88 1a a5 4a a7 42 01 18 88 01 95 a4 28 cd 56 a7 42 01 95 ab 42 b9 f4 d5 81 fa 00 ┆ J B ( V B B ┆
0x2100…2120 ab 47 d5 81 fb d5 81 fc 01 00 18 88 ab 42 d5 81 fd 01 00 4f 88 ab 41 d5 81 fe cd 00 21 d5 81 ff ┆ G B O A ! ┆
0x2120…2140 cd 00 22 d5 82 00 b9 05 d5 82 02 ae 07 d5 82 03 ad 00 0a 00 2f 00 5b 00 a0 00 02 00 00 00 0e 00 ┆ " / Æ ┆
0x2140…2160 02 01 0e 02 d5 82 07 a7 45 93 a1 f4 d5 82 09 d5 82 0a 06 a6 06 57 61 72 74 65 6e cd 00 1a d5 82 ┆ E Warten ┆
0x2160…2180 0b 18 cd 00 11 d5 82 0c a5 89 78 a5 87 f2 cd 56 d5 82 0d 9e 22 0c cb a1 31 d5 82 0e d5 82 0f a5 ┆ x V " 1 ┆
0x2180…21a0 88 1a a5 87 f2 00 d2 13 9e 00 a5 88 1a d2 16 9e 00 d5 82 10 a7 47 01 82 ab 47 d5 82 11 a5 89 78 ┆ G G x┆
0x21a0…21c0 a5 87 f2 cd 56 d5 82 12 b9 f6 d5 82 13 18 01 95 cd 00 10 d5 82 14 a5 4a 18 01 18 88 01 95 a4 28 ┆ V J (┆
0x21c0…21e0 a6 00 aa 4f d5 82 15 01 ab 45 d5 82 16 18 ab 46 d5 82 17 18 00 18 88 ab 42 d5 82 18 01 00 4f 63 ┆ O E F B Oc┆
0x21e0…2200 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┆
[…0x1b…]
0x2560…2580 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 b6 ┆ccccccccccccccccccccccccccccccc ┆
0x2580…25a0 4c 4f 41 44 32 20 20 20 30 41 00 08 00 00 00 00 00 00 00 44 00 1c 00 00 00 01 00 00 00 00 00 00 ┆LOAD2 0A D ┆
0x25a0…25c0 4f 41 44 20 20 20 20 20 53 30 20 20 50 41 50 31 e9 05 b2 11 8f 11 0f 00 e9 05 61 04 61 04 50 20 ┆OAD S0 PAP1 a a P ┆
0x25c0…25e0 00 ba 00 ba ff bf 20 20 20 02 a7 01 08 0d 01 ff 02 00 00 13 76 76 76 76 76 76 76 76 76 76 76 76 ┆ vvvvvvvvvvvv┆
0x25e0…2600 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x2600…2620 76 76 76 76 76 76 76 76 76 76 4d 4c 4f 41 44 20 20 20 30 41 00 08 00 00 00 00 00 00 00 13 00 0d ┆vvvvvvvvvvMLOAD 0A ┆
0x2620…2640 02 02 83 13 00 0d 01 00 20 00 a4 03 e0 00 14 00 05 00 00 b2 13 00 0d 76 76 76 4d 4c 4f 41 44 20 ┆ vvvMLOAD ┆
0x2640…2660 20 20 30 41 00 08 00 00 00 00 00 00 00 14 00 05 00 00 00 01 00 00 00 00 00 00 4f 41 44 20 20 20 ┆ 0A OAD ┆
0x2660…2680 20 20 53 30 20 20 50 41 50 31 e9 05 b2 11 8f 11 0f 00 e9 05 61 04 61 04 50 20 00 ba 00 ba ff bf ┆ S0 PAP1 a a P ┆
0x2680…26a0 00 00 00 31 a0 bf 21 dd ba cd 8a bb 21 8f ba cd 8a bb 11 df ba 0e 03 cd e3 ba 21 24 00 36 c3 23 ┆ 1 ! ! !$ 6 #┆
0x26a0…26c0 36 00 23 36 f0 3a df ba fe 2a c2 36 ba 21 67 ba cd 8a bb c3 a7 bb 21 a1 ba cd 8a bb 21 72 be 11 ┆6 #6 : * 6 !g ! !r ┆
0x26c0…26e0 bf ba 1a fe 0a ca 4e ba 77 13 23 c3 42 ba 3a df ba 77 23 36 0a 23 36 0d 21 72 be cd 8a bb 21 cc ┆ N w # B : w#6 #6 !r ! ┆
0x26e0…2700 ba cd 8a bb c3 64 ba 4e 4f 20 45 52 52 4f 52 53 20 46 4f 55 4e 44 20 49 4e 20 53 59 53 54 45 4d ┆ d NO ERRORS FOUND IN SYSTEM┆
0x2700…2720 20 42 41 4e 4b 20 28 30 2d 31 36 4b 29 0a 0d 53 59 53 54 45 4d 20 42 41 4e 4b 20 54 45 53 54 0a ┆ BANK (0-16K) SYSTEM BANK TEST ┆
0x2720…2740 0d 45 52 52 4f 52 20 49 4e 20 53 59 53 54 45 4d 20 42 41 4e 4b 20 28 30 2d 31 36 4b 29 0a 0d 53 ┆ ERROR IN SYSTEM BANK (0-16K) S┆
0x2740…2760 54 41 54 55 53 20 49 53 3a 20 0a 0d 4c 4f 41 44 49 4e 47 20 53 54 4f 50 50 45 44 0a 0d 0a 0d 76 ┆TATUS IS: LOADING STOPPED v┆
0x2760…2780 76 76 76 e5 d5 c5 3e 03 21 00 00 11 00 40 b9 ca f7 ba 3d 19 c3 ee ba 22 e0 ba 3e 00 cd 46 bb 63 ┆vvv > ! @ = " > F c┆