|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Names: »ROBOTARM.CML«
└─⟦960f61816⟧ Bits:30004222 Processstyring til ICL Comet
└─ ⟦this⟧ »ROBOTARM.CML«
0x0000…0020 30 30 31 30 20 2f 2f 20 50 52 4f 43 45 44 55 52 45 52 20 54 49 4c 20 53 54 59 52 2d 4c 45 47 4f ┆0010 // PROCEDURER TIL STYR-LEGO┆ 0x0020…0040 2e 0d 30 30 32 30 20 2f 2f 0d 30 30 33 30 20 2f 2f 0d 30 30 34 30 20 50 52 4f 43 20 53 54 41 52 ┆. 0020 // 0030 // 0040 PROC STAR┆ 0x0040…0060 54 0d 30 30 35 30 20 20 20 49 4e 44 50 4f 52 54 3a 3d 32 34 31 3b 20 55 44 50 4f 52 54 3a 3d 32 ┆T 0050 INDPORT:=241; UDPORT:=2┆ 0x0060…0080 34 30 0d 30 30 36 30 20 20 20 44 49 4d 20 42 49 54 54 28 30 3a 35 29 0d 30 30 37 30 20 20 20 4d ┆40 0060 DIM BITT(0:5) 0070 M┆ 0x0080…00a0 5c 4e 53 54 45 52 3a 3d 30 0d 30 30 38 30 20 20 20 4c 41 56 3a 3d 30 3b 20 48 5c 4a 3a 3d 31 3b ┆ØNSTER:=0 0080 LAV:=0; HØJ:=1;┆ 0x00a0…00c0 20 49 4e 44 47 41 4e 47 3a 3d 30 3b 20 4e 3a 3d 30 3b 20 54 3a 3d 30 0d 30 30 39 30 20 45 4e 44 ┆ INDGANG:=0; N:=0; T:=0 0090 END┆ 0x00c0…00e0 50 52 4f 43 20 53 54 41 52 54 0d 30 31 30 30 20 2f 2f 0d 30 31 31 30 20 50 52 4f 43 20 53 45 54 ┆PROC START 0100 // 0110 PROC SET┆ 0x00e0…0100 28 4e 29 20 2f 2f 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 45 52 20 4d 4f 54 4f 52 20 50 5d ┆(N) // STARTER MOTOR PÅ┆ 0x0100…0120 20 31 2f 32 20 2d 20 33 2f 34 20 45 4c 4c 45 52 20 35 2f 36 0d 30 31 32 30 20 20 20 49 46 20 28 ┆ 1/2 - 3/4 ELLER 5/6 0120 IF (┆ 0x0120…0140 31 3c 3d 4e 20 41 4e 44 20 4e 3c 3d 36 29 20 41 4e 44 20 49 4e 54 28 4e 29 3d 4e 20 54 48 45 4e ┆1<=N AND N<=6) AND INT(N)=N THEN┆ 0x0140…0160 20 2f 2f 20 44 56 53 2e 20 48 45 4c 54 20 54 41 4c 20 4d 45 4c 4c 45 4d 20 31 20 4f 47 20 36 0d ┆ // DVS. HELT TAL MELLEM 1 OG 6 ┆ 0x0160…0180 30 31 33 30 20 20 20 20 20 4e 3a 3d 4e 2d 31 0d 30 31 34 30 20 20 20 20 20 42 49 54 54 28 4e 29 ┆0130 N:=N-1 0140 BITT(N)┆ 0x0180…01a0 3a 3d 48 5c 4a 0d 30 31 35 30 20 20 20 20 20 4d 5c 4e 53 54 45 52 3a 3d 30 0d 30 31 36 30 20 20 ┆:=HØJ 0150 MØNSTER:=0 0160 ┆ 0x01a0…01c0 20 20 20 46 4f 52 20 54 3a 3d 30 20 54 4f 20 35 20 44 4f 20 2f 2f 20 46 49 4e 44 20 53 55 4d 4d ┆ FOR T:=0 TO 5 DO // FIND SUMM┆ 0x01c0…01e0 45 4e 20 41 46 20 42 49 54 56 5b 52 44 49 45 52 4e 45 2e 0d 30 31 37 30 20 20 20 20 20 20 20 4d ┆EN AF BITVÆRDIERNE. 0170 M┆ 0x01e0…0200 5c 4e 53 54 45 52 3a 3d 4d 5c 4e 53 54 45 52 2b 42 49 54 54 28 54 29 2a 32 5e 54 0d 30 31 38 30 ┆ØNSTER:=MØNSTER+BITT(T)*2^T 0180┆ 0x0200…0220 20 20 20 20 20 4e 45 58 54 20 54 0d 30 31 39 30 20 20 20 20 20 4f 55 54 20 55 44 50 4f 52 54 2c ┆ NEXT T 0190 OUT UDPORT,┆ 0x0220…0240 20 4d 5c 4e 53 54 45 52 0d 30 32 30 30 20 20 20 45 4c 53 45 20 0d 30 32 31 30 20 20 20 20 20 50 ┆ MØNSTER 0200 ELSE 0210 P┆ 0x0240…0260 52 49 4e 54 20 43 48 52 24 28 37 29 20 2f 2f 20 52 49 4e 47 20 4d 45 44 20 4b 4c 4f 4b 4b 45 4e ┆RINT CHR$(7) // RING MED KLOKKEN┆ 0x0260…0280 2e 0d 30 32 32 30 20 20 20 20 20 43 55 52 53 4f 52 20 31 2c 20 33 0d 30 32 33 30 20 20 20 20 20 ┆. 0220 CURSOR 1, 3 0230 ┆ 0x0280…02a0 50 52 49 4e 54 20 22 54 41 4c 4c 45 54 20 53 4b 41 4c 20 48 41 56 45 20 45 4e 20 41 46 20 56 5b ┆PRINT "TALLET SKAL HAVE EN AF VÆ┆ 0x02a0…02c0 52 44 49 45 52 4e 45 20 31 2c 32 2c 33 2c 34 2c 35 20 45 4c 4c 45 52 20 36 22 0d 30 32 34 30 20 ┆RDIERNE 1,2,3,4,5 ELLER 6" 0240 ┆ 0x02c0…02e0 20 20 45 4e 44 49 46 20 0d 30 32 35 30 20 45 4e 44 50 52 4f 43 20 53 45 54 0d 30 32 36 30 20 2f ┆ ENDIF 0250 ENDPROC SET 0260 /┆ 0x02e0…0300 2f 0d 30 32 37 30 20 50 52 4f 43 20 52 45 53 45 54 28 4e 29 20 2f 2f 20 20 20 20 20 20 20 20 20 ┆/ 0270 PROC RESET(N) // ┆ 0x0300…0320 53 54 4f 50 50 45 52 20 4d 4f 54 4f 52 20 50 5d 20 31 2f 32 20 2d 20 33 2f 34 20 45 4c 4c 45 52 ┆STOPPER MOTOR PÅ 1/2 - 3/4 ELLER┆ 0x0320…0340 20 35 2f 36 0d 30 32 38 30 20 20 20 49 46 20 28 31 3c 3d 4e 20 41 4e 44 20 4e 3c 3d 36 29 20 41 ┆ 5/6 0280 IF (1<=N AND N<=6) A┆ 0x0340…0360 4e 44 20 49 4e 54 28 4e 29 3d 4e 20 54 48 45 4e 20 0d 30 32 39 30 20 20 20 20 20 4e 3a 3d 4e 2d ┆ND INT(N)=N THEN 0290 N:=N-┆ 0x0360…0380 31 0d 30 33 30 30 20 20 20 20 20 42 49 54 54 28 4e 29 3a 3d 4c 41 56 0d 30 33 31 30 20 20 20 20 ┆1 0300 BITT(N):=LAV 0310 ┆ 0x0380…03a0 20 4d 5c 4e 53 54 45 52 3a 3d 30 0d 30 33 32 30 20 20 20 20 20 46 4f 52 20 54 3a 3d 30 20 54 4f ┆ MØNSTER:=0 0320 FOR T:=0 TO┆ 0x03a0…03c0 20 35 20 44 4f 20 2f 2f 20 46 49 4e 44 20 53 55 4d 4d 45 4e 20 41 46 20 42 49 54 56 5b 52 44 49 ┆ 5 DO // FIND SUMMEN AF BITVÆRDI┆ 0x03c0…03e0 45 52 4e 45 2e 0d 30 33 33 30 20 20 20 20 20 20 20 4d 5c 4e 53 54 45 52 3a 3d 4d 5c 4e 53 54 45 ┆ERNE. 0330 MØNSTER:=MØNSTE┆ 0x03e0…0400 52 2b 42 49 54 54 28 54 29 2a 32 5e 54 0d 30 33 34 30 20 20 20 20 20 4e 45 58 54 20 54 0d 30 33 ┆R+BITT(T)*2^T 0340 NEXT T 03┆ 0x0400…0420 35 30 20 20 20 20 20 4f 55 54 20 55 44 50 4f 52 54 2c 20 4d 5c 4e 53 54 45 52 0d 30 33 36 30 20 ┆50 OUT UDPORT, MØNSTER 0360 ┆ 0x0420…0440 20 20 45 4c 53 45 20 0d 30 33 37 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 20 2f ┆ ELSE 0370 PRINT CHR$(7) /┆ 0x0440…0460 2f 20 52 49 4e 47 20 4d 45 44 20 4b 4c 4f 4b 4b 45 4e 2e 0d 30 33 38 30 20 20 20 20 20 43 55 52 ┆/ RING MED KLOKKEN. 0380 CUR┆ 0x0460…0480 53 4f 52 20 31 2c 20 33 0d 30 33 39 30 20 20 20 20 20 50 52 49 4e 54 20 22 54 41 4c 4c 45 54 20 ┆SOR 1, 3 0390 PRINT "TALLET ┆ 0x0480…04a0 53 4b 41 4c 20 48 41 56 45 20 45 4e 20 41 46 20 56 5b 52 44 49 45 52 4e 45 20 31 2c 32 2c 33 2c ┆SKAL HAVE EN AF VÆRDIERNE 1,2,3,┆ 0x04a0…04c0 34 2c 35 20 45 4c 4c 45 52 20 36 22 0d 30 34 30 30 20 20 20 45 4e 44 49 46 20 0d 30 34 31 30 20 ┆4,5 ELLER 6" 0400 ENDIF 0410 ┆ 0x04c0…04e0 45 4e 44 50 52 4f 43 20 52 45 53 45 54 0d 30 34 32 30 20 2f 2f 0d 30 34 33 30 20 46 55 4e 43 20 ┆ENDPROC RESET 0420 // 0430 FUNC ┆ 0x04e0…0500 4c 4f 57 28 4e 29 20 43 4c 4f 53 45 44 0d 30 34 34 30 20 20 20 49 4d 50 4f 52 54 20 49 4e 44 50 ┆LOW(N) CLOSED 0440 IMPORT INDP┆ 0x0500…0520 4f 52 54 0d 30 34 35 30 20 20 20 44 49 4d 20 45 4e 5f 42 59 54 45 24 20 4f 46 20 38 0d 30 34 36 ┆ORT 0450 DIM EN_BYTE$ OF 8 046┆ 0x0520…0540 30 20 20 20 45 4e 5f 42 59 54 45 24 3a 3d 42 53 54 52 24 28 49 4e 50 28 49 4e 44 50 4f 52 54 29 ┆0 EN_BYTE$:=BSTR$(INP(INDPORT)┆ 0x0540…0560 29 0d 30 34 37 30 20 20 20 43 41 53 45 20 4e 20 4f 46 20 0d 30 34 38 30 20 20 20 57 48 45 4e 20 ┆) 0470 CASE N OF 0480 WHEN ┆ 0x0560…0580 31 31 0d 30 34 39 30 20 20 20 20 20 52 45 54 55 52 4e 20 45 4e 5f 42 59 54 45 24 28 34 29 3d 22 ┆11 0490 RETURN EN_BYTE$(4)="┆ 0x0580…05a0 31 22 0d 30 35 30 30 20 20 20 57 48 45 4e 20 31 32 0d 30 35 31 30 20 20 20 20 20 52 45 54 55 52 ┆1" 0500 WHEN 12 0510 RETUR┆ 0x05a0…05c0 4e 20 45 4e 5f 42 59 54 45 24 28 33 29 3d 22 31 22 0d 30 35 32 30 20 20 20 4f 54 48 45 52 57 49 ┆N EN_BYTE$(3)="1" 0520 OTHERWI┆ 0x05c0…05e0 53 45 20 0d 30 35 33 30 20 20 20 20 20 50 52 49 4e 54 20 22 54 41 4c 4c 45 54 20 53 4b 41 4c 20 ┆SE 0530 PRINT "TALLET SKAL ┆ 0x05e0…0600 56 5b 52 45 20 31 31 20 45 4c 4c 45 52 20 31 32 22 0d 30 35 34 30 20 20 20 20 20 52 45 54 55 52 ┆VÆRE 11 ELLER 12" 0540 RETUR┆ 0x0600…0620 4e 20 46 41 4c 53 45 0d 30 35 35 30 20 20 20 45 4e 44 43 41 53 45 20 0d 30 35 36 30 20 45 4e 44 ┆N FALSE 0550 ENDCASE 0560 END┆ 0x0620…0640 46 55 4e 43 20 4c 4f 57 0d 30 35 37 30 20 2f 2f 0d 30 35 38 30 20 46 55 4e 43 20 48 49 47 48 28 ┆FUNC LOW 0570 // 0580 FUNC HIGH(┆ 0x0640…0660 4e 29 0d 30 35 39 30 20 20 20 49 46 20 4c 4f 57 28 4e 29 20 54 48 45 4e 20 0d 30 36 30 30 20 20 ┆N) 0590 IF LOW(N) THEN 0600 ┆ 0x0660…0680 20 20 20 52 45 54 55 52 4e 20 46 41 4c 53 45 0d 30 36 31 30 20 20 20 45 4c 53 45 20 0d 30 36 32 ┆ RETURN FALSE 0610 ELSE 062┆ 0x0680…06a0 30 20 20 20 20 20 52 45 54 55 52 4e 20 54 52 55 45 0d 30 36 33 30 20 20 20 45 4e 44 49 46 20 0d ┆0 RETURN TRUE 0630 ENDIF ┆ 0x06a0…06c0 30 36 34 30 20 45 4e 44 46 55 4e 43 20 48 49 47 48 0d 30 36 35 30 20 2f 2f 0d 30 36 36 30 20 50 ┆0640 ENDFUNC HIGH 0650 // 0660 P┆ 0x06c0…06e0 52 4f 43 20 56 45 4e 54 28 54 49 44 29 0d 30 36 37 30 20 20 20 46 4f 52 20 44 45 4c 41 59 3a 3d ┆ROC VENT(TID) 0670 FOR DELAY:=┆ 0x06e0…0700 31 20 54 4f 20 54 49 44 2a 38 38 30 20 44 4f 20 0d 30 36 38 30 20 20 20 4e 45 58 54 20 44 45 4c ┆1 TO TID*880 DO 0680 NEXT DEL┆ 0x0700…0720 41 59 0d 30 36 39 30 20 45 4e 44 50 52 4f 43 20 56 45 4e 54 0d 30 37 30 30 20 2f 2f 0d 30 37 31 ┆AY 0690 ENDPROC VENT 0700 // 071┆ 0x0720…0740 30 20 50 52 4f 43 20 54 5b 4c 4c 45 53 4b 49 56 45 28 44 52 45 4a 45 29 0d 30 37 32 30 20 20 20 ┆0 PROC TÆLLESKIVE(DREJE) 0720 ┆ 0x0740…0760 54 5b 4c 3a 3d 30 0d 30 37 32 35 20 20 20 50 4f 4b 45 20 32 35 36 2c 20 30 0d 30 37 33 30 20 20 ┆TÆL:=0 0725 POKE 256, 0 0730 ┆ 0x0760…0780 20 52 45 50 45 41 54 20 0d 30 37 34 30 20 20 20 20 20 49 46 20 4c 4f 57 28 31 31 29 20 54 48 45 ┆ REPEAT 0740 IF LOW(11) THE┆ 0x0780…07a0 4e 20 0d 30 37 35 30 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 30 37 36 30 20 20 20 20 20 20 ┆N 0750 REPEAT 0760 ┆ 0x07a0…07c0 20 55 4e 54 49 4c 20 48 49 47 48 28 31 31 29 0d 30 37 37 30 20 20 20 20 20 20 20 54 5b 4c 3a 2b ┆ UNTIL HIGH(11) 0770 TÆL:+┆ 0x07c0…07e0 31 0d 30 37 38 30 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 32 30 2c 20 32 33 0d 30 37 39 30 20 ┆1 0780 CURSOR 20, 23 0790 ┆ 0x07e0…0800 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 22 3a 20 54 5b 4c 0d 30 38 30 ┆ PRINT USING "###": TÆL 080┆ 0x0800…0820 30 20 20 20 20 20 45 4c 53 45 20 2f 2f 20 53 54 41 52 54 54 49 4c 53 54 41 4e 44 20 45 52 20 48 ┆0 ELSE // STARTTILSTAND ER H┆ 0x0820…0840 49 47 48 21 21 0d 30 38 30 31 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 30 38 30 32 20 20 20 ┆IGH!! 0801 REPEAT 0802 ┆ 0x0840…0860 20 20 20 20 55 4e 54 49 4c 20 4c 4f 57 28 31 31 29 0d 30 38 30 33 20 20 20 20 20 20 20 54 5b 4c ┆ UNTIL LOW(11) 0803 TÆL┆ 0x0860…0880 3a 2b 31 0d 30 38 30 34 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 32 30 2c 20 32 33 0d 30 38 30 ┆:+1 0804 CURSOR 20, 23 080┆ 0x0880…08a0 35 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 22 3a 20 54 5b 4c 0d 30 ┆5 PRINT USING "###": TÆL 0┆ 0x08a0…08c0 38 30 36 20 20 20 20 20 45 4e 44 49 46 20 0d 30 38 31 30 20 20 20 55 4e 54 49 4c 20 54 5b 4c 3d ┆806 ENDIF 0810 UNTIL TÆL=┆ 0x08c0…08e0 44 52 45 4a 45 20 4f 52 20 50 45 45 4b 28 32 35 36 29 3c 3e 30 0d 30 38 32 30 20 45 4e 44 50 52 ┆DREJE OR PEEK(256)<>0 0820 ENDPR┆ 0x08e0…0900 4f 43 20 54 5b 4c 4c 45 53 4b 49 56 45 0d 30 38 33 30 20 2f 2f 0d 30 38 34 30 20 50 52 4f 43 20 ┆OC TÆLLESKIVE 0830 // 0840 PROC ┆ 0x0900…0920 56 45 4e 54 54 41 53 54 0d 30 38 35 30 20 20 20 50 4f 4b 45 20 32 35 36 2c 20 30 0d 30 38 36 30 ┆VENTTAST 0850 POKE 256, 0 0860┆ 0x0920…0940 20 20 20 43 55 52 53 4f 52 20 31 30 2c 20 31 34 0d 30 38 37 30 20 20 20 50 52 49 4e 54 20 22 54 ┆ CURSOR 10, 14 0870 PRINT "T┆ 0x0940…0960 52 59 4b 20 45 4e 20 54 41 53 54 20 20 22 3b 0d 30 38 38 30 20 20 20 52 45 50 45 41 54 20 0d 30 ┆RYK EN TAST "; 0880 REPEAT 0┆ 0x0960…0980 38 39 30 20 20 20 55 4e 54 49 4c 20 50 45 45 4b 28 32 35 36 29 3c 3e 30 0d 30 38 39 35 20 20 20 ┆890 UNTIL PEEK(256)<>0 0895 ┆ 0x0980…09a0 54 41 53 54 3a 3d 50 45 45 4b 28 32 35 36 29 0d 30 39 30 30 20 45 4e 44 50 52 4f 43 20 56 45 4e ┆TAST:=PEEK(256) 0900 ENDPROC VEN┆ 0x09a0…09c0 54 54 41 53 54 0d 30 39 31 30 20 2f 2f 0d 31 30 30 30 20 2f 2f 20 48 45 52 20 53 54 41 52 54 45 ┆TTAST 0910 // 1000 // HER STARTE┆ 0x09c0…09e0 52 20 50 52 4f 47 52 41 4d 4d 45 54 0d 31 30 31 30 20 43 4c 45 41 52 20 0d 31 30 32 30 20 50 52 ┆R PROGRAMMET 1010 CLEAR 1020 PR┆ 0x09e0…0a00 49 4e 54 20 54 41 42 28 31 30 29 3b 22 52 4f 42 4f 54 41 52 4d 45 4e 20 53 54 59 52 45 53 20 56 ┆INT TAB(10);"ROBOTARMEN STYRES V┆ 0x0a00…0a20 45 44 20 48 4a 5b 4c 50 20 41 46 20 54 41 53 54 45 52 4e 45 20 3c 20 20 20 3e 20 20 20 4c 20 20 ┆ED HJÆLP AF TASTERNE < > L ┆ 0x0a20…0a40 6f 67 20 5d 20 22 0d 31 30 33 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 50 52 4f 47 52 ┆og Å " 1030 PRINT TAB(10);"PROGR┆ 0x0a40…0a60 41 4d 4d 45 54 20 48 55 53 4b 45 52 21 20 44 45 20 46 4f 52 53 4b 45 4c 4c 49 47 45 20 4f 52 44 ┆AMMET HUSKER! DE FORSKELLIGE ORD┆ 0x0a60…0a80 52 45 52 2e 22 0d 31 30 34 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 3e 20 20 20 20 46 ┆RER." 1040 PRINT TAB(10);"> F┆ 0x0a80…0aa0 5d 52 20 41 52 4d 45 4e 20 54 49 4c 20 41 54 20 4b 5c 52 45 20 4d 4f 44 20 55 52 45 54 2e 22 0d ┆ÅR ARMEN TIL AT KØRE MOD URET." ┆ 0x0aa0…0ac0 31 30 35 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 3c 20 20 20 20 46 5d 52 20 41 52 4d ┆1050 PRINT TAB(10);"< FÅR ARM┆ 0x0ac0…0ae0 45 4e 20 54 49 4c 20 41 54 20 4b 5c 52 45 20 4d 45 44 20 55 52 45 54 2e 22 0d 31 30 36 30 20 50 ┆EN TIL AT KØRE MED URET." 1060 P┆ 0x0ae0…0b00 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 4c 20 20 20 20 4c 55 4b 4b 45 52 20 4b 4c 4f 45 4e 2e ┆RINT TAB(10);"L LUKKER KLOEN.┆ 0x0b00…0b20 22 0d 31 30 37 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 5d 20 20 20 20 5d 42 4e 45 52 ┆" 1070 PRINT TAB(10);"Å ÅBNER┆ 0x0b20…0b40 20 4b 4c 4f 45 4e 2e 22 0d 31 30 38 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 45 4e 20 ┆ KLOEN." 1080 PRINT TAB(10);"EN ┆ 0x0b40…0b60 56 49 4c 4b 5d 52 4c 49 47 20 54 41 53 54 20 53 54 4f 50 50 45 52 20 44 52 45 4a 4e 49 4e 47 45 ┆VILKÅRLIG TAST STOPPER DREJNINGE┆ 0x0b60…0b80 4e 20 41 46 20 41 52 4d 45 4e 2e 22 0d 31 30 39 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b ┆N AF ARMEN." 1090 PRINT TAB(10);┆ 0x0b80…0ba0 22 56 20 20 20 20 42 45 53 4b 45 44 20 4f 4d 20 50 41 55 53 45 2e 20 31 2d 39 20 53 45 43 2e 22 ┆"V BESKED OM PAUSE. 1-9 SEC."┆ 0x0ba0…0bc0 0d 31 31 30 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 53 20 20 20 20 20 41 46 53 4c 55 ┆ 1100 PRINT TAB(10);"S AFSLU┆ 0x0bc0…0be0 54 54 45 52 20 53 54 59 52 49 4e 47 20 56 2e 48 2e 41 2e 20 54 41 53 54 45 52 4e 45 2e 22 0d 31 ┆TTER STYRING V.H.A. TASTERNE." 1┆ 0x0be0…0c00 31 31 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 55 20 20 20 20 50 52 4f 47 52 41 4d 4d ┆110 PRINT TAB(10);"U PROGRAMM┆ 0x0c00…0c20 45 54 20 41 46 56 49 4b 4c 45 52 20 44 45 20 47 49 56 4e 45 20 4f 52 44 52 45 52 2e 22 0d 31 31 ┆ET AFVIKLER DE GIVNE ORDRER." 11┆ 0x0c20…0c40 31 35 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 49 20 20 20 20 50 52 4f 47 52 41 4d 4d 45 ┆15 PRINT TAB(10);"I PROGRAMME┆ 0x0c40…0c60 54 20 41 46 56 49 4b 4c 45 53 20 49 47 45 4e 2e 22 0d 31 31 31 36 20 50 52 49 4e 54 20 54 41 42 ┆T AFVIKLES IGEN." 1116 PRINT TAB┆ 0x0c60…0c80 28 31 30 29 3b 22 41 20 20 20 20 41 46 53 4c 55 54 54 45 52 20 48 45 4c 45 20 50 52 4f 47 52 41 ┆(10);"A AFSLUTTER HELE PROGRA┆ 0x0c80…0ca0 4d 4d 45 54 2e 22 0d 31 31 32 30 20 44 49 4d 20 4f 52 44 52 45 28 35 30 29 2c 20 41 4e 54 41 4c ┆MMET." 1120 DIM ORDRE(50), ANTAL┆ 0x0ca0…0cc0 44 52 45 4a 28 35 30 29 2c 20 50 41 55 53 45 28 35 30 29 0d 31 31 33 30 20 45 58 45 43 20 53 54 ┆DREJ(50), PAUSE(50) 1130 EXEC ST┆ 0x0cc0…0ce0 41 52 54 0d 31 31 34 30 20 49 41 4c 54 54 5b 4c 3a 3d 30 0d 31 31 35 30 20 4f 52 44 52 45 54 5b ┆ART 1140 IALTTÆL:=0 1150 ORDRETÆ┆ 0x0ce0…0d00 4c 4c 45 52 3a 3d 30 0d 31 31 36 30 20 52 45 50 45 41 54 20 0d 31 31 37 30 20 20 20 4f 52 44 52 ┆LLER:=0 1160 REPEAT 1170 ORDR┆ 0x0d00…0d20 45 54 5b 4c 4c 45 52 3a 2b 31 0d 31 31 37 35 20 20 20 43 55 52 53 4f 52 20 37 30 2c 20 32 32 0d ┆ETÆLLER:+1 1175 CURSOR 70, 22 ┆ 0x0d20…0d40 31 31 37 36 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 22 3a 20 49 41 4c 54 54 5b ┆1176 PRINT USING "###": IALTTÆ┆ 0x0d40…0d60 4c 0d 31 31 38 30 20 20 20 45 58 45 43 20 56 45 4e 54 54 41 53 54 0d 31 31 39 30 20 20 20 43 41 ┆L 1180 EXEC VENTTAST 1190 CA┆ 0x0d60…0d80 53 45 20 54 41 53 54 20 4f 46 20 0d 31 32 30 30 20 20 20 57 48 45 4e 20 34 36 0d 31 32 31 30 20 ┆SE TAST OF 1200 WHEN 46 1210 ┆ 0x0d80…0da0 20 20 20 20 45 58 45 43 20 44 52 45 4a 4d 4f 44 55 52 45 54 0d 31 32 32 30 20 20 20 20 20 49 41 ┆ EXEC DREJMODURET 1220 IA┆ 0x0da0…0dc0 4c 54 54 5b 4c 3a 3d 49 41 4c 54 54 5b 4c 2b 54 5b 4c 0d 31 32 33 30 20 20 20 20 20 41 4e 54 41 ┆LTTÆL:=IALTTÆL+TÆL 1230 ANTA┆ 0x0dc0…0de0 4c 44 52 45 4a 28 4f 52 44 52 45 54 5b 4c 4c 45 52 29 3a 3d 54 5b 4c 0d 31 32 34 30 20 20 20 57 ┆LDREJ(ORDRETÆLLER):=TÆL 1240 W┆ 0x0de0…0e00 48 45 4e 20 34 34 0d 31 32 35 30 20 20 20 20 20 45 58 45 43 20 44 52 45 4a 4d 45 44 55 52 45 54 ┆HEN 44 1250 EXEC DREJMEDURET┆ 0x0e00…0e20 0d 31 32 36 30 20 20 20 20 20 49 41 4c 54 54 5b 4c 3a 3d 49 41 4c 54 54 5b 4c 2d 54 5b 4c 0d 31 ┆ 1260 IALTTÆL:=IALTTÆL-TÆL 1┆ 0x0e20…0e40 32 37 30 20 20 20 20 20 41 4e 54 41 4c 44 52 45 4a 28 4f 52 44 52 45 54 5b 4c 4c 45 52 29 3a 3d ┆270 ANTALDREJ(ORDRETÆLLER):=┆ 0x0e40…0e60 54 5b 4c 0d 31 32 38 30 20 20 20 57 48 45 4e 20 37 36 0d 31 32 39 30 20 20 20 20 20 45 58 45 43 ┆TÆL 1280 WHEN 76 1290 EXEC┆ 0x0e60…0e80 20 4c 55 4b 4b 4c 4f 45 4e 0d 31 33 30 30 20 20 20 20 20 41 4e 54 41 4c 44 52 45 4a 28 4f 52 44 ┆ LUKKLOEN 1300 ANTALDREJ(ORD┆ 0x0e80…0ea0 52 45 54 5b 4c 4c 45 52 29 3a 3d 30 0d 31 33 31 30 20 20 20 57 48 45 4e 20 39 33 0d 31 33 32 30 ┆RETÆLLER):=0 1310 WHEN 93 1320┆ 0x0ea0…0ec0 20 20 20 20 20 45 58 45 43 20 5d 42 4e 45 4b 4c 4f 45 4e 0d 31 33 33 30 20 20 20 20 20 41 4e 54 ┆ EXEC ÅBNEKLOEN 1330 ANT┆ 0x0ec0…0ee0 41 4c 44 52 45 4a 28 4f 52 44 52 45 54 5b 4c 4c 45 52 29 3a 3d 30 0d 31 33 34 30 20 20 20 57 48 ┆ALDREJ(ORDRETÆLLER):=0 1340 WH┆ 0x0ee0…0f00 45 4e 20 38 36 0d 31 33 35 30 20 20 20 20 20 50 4f 4b 45 20 32 35 36 2c 20 30 0d 31 33 36 30 20 ┆EN 86 1350 POKE 256, 0 1360 ┆ 0x0f00…0f20 20 20 20 20 43 55 52 53 4f 52 20 36 30 2c 20 31 34 0d 31 33 37 30 20 20 20 20 20 50 52 49 4e 54 ┆ CURSOR 60, 14 1370 PRINT┆ 0x0f20…0f40 20 22 54 41 53 54 20 41 4e 54 41 4c 20 53 45 43 2e 20 31 2d 39 20 22 3b 0d 31 33 38 30 20 20 20 ┆ "TAST ANTAL SEC. 1-9 "; 1380 ┆ 0x0f40…0f60 20 20 52 45 50 45 41 54 20 0d 31 33 39 30 20 20 20 20 20 55 4e 54 49 4c 20 50 45 45 4b 28 32 35 ┆ REPEAT 1390 UNTIL PEEK(25┆ 0x0f60…0f80 36 29 3e 34 38 20 41 4e 44 20 50 45 45 4b 28 32 35 36 29 3c 3d 35 37 0d 31 33 39 32 20 20 20 20 ┆6)>48 AND PEEK(256)<=57 1392 ┆ 0x0f80…0fa0 20 43 55 52 53 4f 52 20 36 30 2c 20 31 34 0d 31 33 39 33 20 20 20 20 20 50 52 49 4e 54 20 22 20 ┆ CURSOR 60, 14 1393 PRINT " ┆ 0x0fa0…0fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 31 34 30 35 20 20 20 20 20 50 ┆ " 1405 P┆ 0x0fc0…0fe0 41 55 53 45 28 4f 52 44 52 45 54 5b 4c 4c 45 52 29 3a 3d 50 45 45 4b 28 32 35 36 29 2d 34 38 0d ┆AUSE(ORDRETÆLLER):=PEEK(256)-48 ┆ 0x0fe0…1000 31 34 31 30 20 20 20 4f 54 48 45 52 57 49 53 45 20 0d 31 34 32 30 20 20 20 45 4e 44 43 41 53 45 ┆1410 OTHERWISE 1420 ENDCASE┆ 0x1000…1020 20 0d 31 34 33 30 20 20 20 4f 52 44 52 45 28 4f 52 44 52 45 54 5b 4c 4c 45 52 29 3a 3d 54 41 53 ┆ 1430 ORDRE(ORDRETÆLLER):=TAS┆ 0x1020…1040 54 0d 31 34 34 30 20 55 4e 54 49 4c 20 54 41 53 54 3d 38 33 0d 31 34 34 35 20 2f 2f 2f 2f 2f 2f ┆T 1440 UNTIL TAST=83 1445 //////┆ 0x1040…1060 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 20 48 45 52 20 41 46 56 49 4b 4c 45 52 20 50 ┆///////////////// HER AFVIKLER P┆ 0x1060…1080 52 4f 47 52 41 4d 4d 45 54 20 46 4f 52 4c 5c 42 45 54 20 2f 2f 2f 2f 2f 2f 2f 2f 0d 31 34 34 37 ┆ROGRAMMET FORLØBET //////// 1447┆ 0x1080…10a0 20 52 45 50 45 41 54 20 0d 31 34 35 30 20 20 20 43 55 52 53 4f 52 20 31 2c 20 31 35 0d 31 34 36 ┆ REPEAT 1450 CURSOR 1, 15 146┆ 0x10a0…10c0 30 20 20 20 45 58 45 43 20 56 45 4e 54 54 41 53 54 0d 31 34 37 30 20 20 20 49 46 20 54 41 53 54 ┆0 EXEC VENTTAST 1470 IF TAST┆ 0x10c0…10e0 3d 38 35 20 4f 52 20 54 41 53 54 3d 37 33 20 54 48 45 4e 20 0d 31 34 38 30 20 20 20 20 20 2f 2f ┆=85 OR TAST=73 THEN 1480 //┆ 0x10e0…1100 20 41 52 4d 45 4e 20 46 5c 52 45 53 20 54 49 4c 20 55 44 47 41 4e 47 53 53 54 49 4c 4c 49 4e 47 ┆ ARMEN FØRES TIL UDGANGSSTILLING┆ 0x1100…1120 20 4d 45 44 20 5d 42 45 4e 20 4b 4c 4f 2e 0d 31 34 39 30 20 20 20 20 20 49 46 20 49 41 4c 54 54 ┆ MED ÅBEN KLO. 1490 IF IALTT┆ 0x1120…1140 5b 4c 3e 30 20 54 48 45 4e 20 0d 31 35 30 30 20 20 20 20 20 20 20 45 58 45 43 20 53 45 54 28 32 ┆ÆL>0 THEN 1500 EXEC SET(2┆ 0x1140…1160 29 0d 31 35 31 30 20 20 20 20 20 20 20 45 58 45 43 20 54 5b 4c 4c 45 53 4b 49 56 45 28 49 41 4c ┆) 1510 EXEC TÆLLESKIVE(IAL┆ 0x1160…1180 54 54 5b 4c 29 0d 31 35 32 30 20 20 20 20 20 20 20 45 58 45 43 20 52 45 53 45 54 28 32 29 0d 31 ┆TTÆL) 1520 EXEC RESET(2) 1┆ 0x1180…11a0 35 33 30 20 20 20 20 20 45 4e 44 49 46 20 0d 31 35 34 30 20 20 20 20 20 49 46 20 49 41 4c 54 54 ┆530 ENDIF 1540 IF IALTT┆ 0x11a0…11c0 5b 4c 3c 30 20 54 48 45 4e 20 0d 31 35 35 30 20 20 20 20 20 20 20 45 58 45 43 20 53 45 54 28 31 ┆ÆL<0 THEN 1550 EXEC SET(1┆ 0x11c0…11e0 29 0d 31 35 36 30 20 20 20 20 20 20 20 45 58 45 43 20 54 5b 4c 4c 45 53 4b 49 56 45 28 41 42 53 ┆) 1560 EXEC TÆLLESKIVE(ABS┆ 0x11e0…1200 28 49 41 4c 54 54 5b 4c 29 29 0d 31 35 37 30 20 20 20 20 20 20 20 45 58 45 43 20 52 45 53 45 54 ┆(IALTTÆL)) 1570 EXEC RESET┆ 0x1200…1220 28 31 29 0d 31 35 38 30 20 20 20 20 20 45 4e 44 49 46 20 0d 31 35 39 30 20 20 20 20 20 45 58 45 ┆(1) 1580 ENDIF 1590 EXE┆ 0x1220…1240 43 20 5d 42 4e 45 4b 4c 4f 45 4e 0d 31 36 30 30 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ┆C ÅBNEKLOEN 1600 ///////////┆ 0x1240…1260 2f 2f 2f 2f 2f 2f 2f 0d 31 36 31 30 20 20 20 20 20 46 4f 52 20 58 3a 3d 31 20 54 4f 20 4f 52 44 ┆/////// 1610 FOR X:=1 TO ORD┆ 0x1260…1280 52 45 54 5b 4c 4c 45 52 20 44 4f 20 0d 31 36 32 30 20 20 20 20 20 20 20 49 46 20 4f 52 44 52 45 ┆RETÆLLER DO 1620 IF ORDRE┆ 0x1280…12a0 28 58 29 3d 34 36 20 41 4e 44 20 41 4e 54 41 4c 44 52 45 4a 28 58 29 3c 3e 30 20 54 48 45 4e 20 ┆(X)=46 AND ANTALDREJ(X)<>0 THEN ┆ 0x12a0…12c0 0d 31 36 33 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 53 45 54 28 31 29 0d 31 36 34 30 20 20 ┆ 1630 EXEC SET(1) 1640 ┆ 0x12c0…12e0 20 20 20 20 20 20 20 45 58 45 43 20 54 5b 4c 4c 45 53 4b 49 56 45 28 41 4e 54 41 4c 44 52 45 4a ┆ EXEC TÆLLESKIVE(ANTALDREJ┆ 0x12e0…1300 28 58 29 29 0d 31 36 35 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 52 45 53 45 54 28 31 29 0d ┆(X)) 1650 EXEC RESET(1) ┆ 0x1300…1320 31 36 36 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 31 36 37 30 20 20 20 20 20 20 20 49 46 20 ┆1660 ENDIF 1670 IF ┆ 0x1320…1340 4f 52 44 52 45 28 58 29 3d 34 34 20 41 4e 44 20 41 4e 54 41 4c 44 52 45 4a 28 58 29 3c 3e 30 20 ┆ORDRE(X)=44 AND ANTALDREJ(X)<>0 ┆ 0x1340…1360 54 48 45 4e 20 0d 31 36 38 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 53 45 54 28 32 29 0d 31 ┆THEN 1680 EXEC SET(2) 1┆ 0x1360…1380 36 39 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 54 5b 4c 4c 45 53 4b 49 56 45 28 41 4e 54 41 ┆690 EXEC TÆLLESKIVE(ANTA┆ 0x1380…13a0 4c 44 52 45 4a 28 58 29 29 0d 31 37 30 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 52 45 53 45 ┆LDREJ(X)) 1700 EXEC RESE┆ 0x13a0…13c0 54 28 32 29 0d 31 37 31 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 31 37 31 31 20 20 20 20 20 ┆T(2) 1710 ENDIF 1711 ┆ 0x13c0…13e0 20 20 49 46 20 4f 52 44 52 45 28 58 29 3d 38 36 20 41 4e 44 20 50 41 55 53 45 28 58 29 3e 30 20 ┆ IF ORDRE(X)=86 AND PAUSE(X)>0 ┆ 0x13e0…1400 54 48 45 4e 20 45 58 45 43 20 56 45 4e 54 28 50 41 55 53 45 28 58 29 29 0d 31 37 32 30 20 20 20 ┆THEN EXEC VENT(PAUSE(X)) 1720 ┆ 0x1400…1420 20 20 20 20 49 46 20 4f 52 44 52 45 28 58 29 3d 37 36 20 54 48 45 4e 20 45 58 45 43 20 4c 55 4b ┆ IF ORDRE(X)=76 THEN EXEC LUK┆ 0x1420…1440 4b 4c 4f 45 4e 0d 31 37 33 30 20 20 20 20 20 20 20 49 46 20 4f 52 44 52 45 28 58 29 3d 39 33 20 ┆KLOEN 1730 IF ORDRE(X)=93 ┆ 0x1440…1460 54 48 45 4e 20 45 58 45 43 20 5d 42 4e 45 4b 4c 4f 45 4e 0d 31 37 34 30 20 20 20 20 20 4e 45 58 ┆THEN EXEC ÅBNEKLOEN 1740 NEX┆ 0x1460…1480 54 20 58 0d 31 37 35 30 20 20 20 45 4e 44 49 46 20 0d 31 37 35 35 20 55 4e 54 49 4c 20 54 41 53 ┆T X 1750 ENDIF 1755 UNTIL TAS┆ 0x1480…14a0 54 3d 36 35 0d 31 37 35 36 20 45 4e 44 20 0d 31 37 36 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ┆T=65 1756 END 1760 ////////////┆ 0x14a0…14c0 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 31 37 37 30 20 50 52 4f 43 20 44 52 45 4a ┆///////////////// 1770 PROC DREJ┆ 0x14c0…14e0 4d 4f 44 55 52 45 54 0d 31 37 38 30 20 20 20 45 58 45 43 20 53 45 54 28 31 29 0d 31 37 39 30 20 ┆MODURET 1780 EXEC SET(1) 1790 ┆ 0x14e0…1500 20 20 45 58 45 43 20 54 5b 4c 4c 45 53 4b 49 56 45 28 31 30 30 30 29 20 2f 2f 20 20 20 20 20 52 ┆ EXEC TÆLLESKIVE(1000) // R┆ 0x1500…1520 4f 42 4f 54 41 52 4d 45 4e 20 44 52 45 4a 45 53 20 36 30 20 53 54 52 45 47 45 52 20 50 5d 20 54 ┆OBOTARMEN DREJES 60 STREGER PÅ T┆ 0x1520…1540 5b 4c 4c 45 53 4b 49 56 45 4e 2e 0d 31 38 30 30 20 20 20 45 58 45 43 20 52 45 53 45 54 28 31 29 ┆ÆLLESKIVEN. 1800 EXEC RESET(1)┆ 0x1540…1560 0d 31 38 31 30 20 45 4e 44 50 52 4f 43 20 44 52 45 4a 4d 4f 44 55 52 45 54 0d 31 38 32 30 20 2f ┆ 1810 ENDPROC DREJMODURET 1820 /┆ 0x1560…1580 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ┆////////////////////////////////┆ 0x1580…15a0 2f 0d 31 38 33 30 20 50 52 4f 43 20 4c 55 4b 4b 4c 4f 45 4e 0d 31 38 34 30 20 20 20 45 58 45 43 ┆/ 1830 PROC LUKKLOEN 1840 EXEC┆ 0x15a0…15c0 20 53 45 54 28 34 29 0d 31 38 35 30 20 20 20 45 58 45 43 20 56 45 4e 54 28 30 2e 35 29 20 2f 2f ┆ SET(4) 1850 EXEC VENT(0.5) //┆ 0x15c0…15e0 20 20 20 20 20 20 22 4b 4c 4f 45 4e 22 20 4c 55 4b 4b 45 53 2e 0d 31 38 36 30 20 20 20 45 58 45 ┆ "KLOEN" LUKKES. 1860 EXE┆ 0x15e0…1600 43 20 52 45 53 45 54 28 34 29 0d 31 38 37 30 20 45 4e 44 50 52 4f 43 20 4c 55 4b 4b 4c 4f 45 4e ┆C RESET(4) 1870 ENDPROC LUKKLOEN┆ 0x1600…1620 0d 31 38 38 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ┆ 1880 //////////////////////////┆ 0x1620…1640 2f 2f 2f 2f 2f 2f 0d 31 38 39 30 20 50 52 4f 43 20 44 52 45 4a 4d 45 44 55 52 45 54 0d 31 39 30 ┆////// 1890 PROC DREJMEDURET 190┆ 0x1640…1660 30 20 20 20 45 58 45 43 20 53 45 54 28 32 29 0d 31 39 31 30 20 20 20 45 58 45 43 20 54 5b 4c 4c ┆0 EXEC SET(2) 1910 EXEC TÆLL┆ 0x1660…1680 45 53 4b 49 56 45 28 31 30 30 30 29 20 2f 2f 20 20 20 20 52 4f 42 4f 54 41 52 4d 45 4e 20 44 52 ┆ESKIVE(1000) // ROBOTARMEN DR┆ 0x1680…16a0 45 4a 45 53 20 54 49 4c 42 41 47 45 0d 31 39 32 30 20 20 20 45 58 45 43 20 52 45 53 45 54 28 32 ┆EJES TILBAGE 1920 EXEC RESET(2┆ 0x16a0…16c0 29 0d 31 39 33 30 20 45 4e 44 50 52 4f 43 20 44 52 45 4a 4d 45 44 55 52 45 54 0d 31 39 34 30 20 ┆) 1930 ENDPROC DREJMEDURET 1940 ┆ 0x16c0…16e0 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ┆////////////////////////////////┆ 0x16e0…1700 2f 2f 0d 31 39 35 30 20 50 52 4f 43 20 5d 42 4e 45 4b 4c 4f 45 4e 0d 31 39 36 30 20 20 20 45 58 ┆// 1950 PROC ÅBNEKLOEN 1960 EX┆ 0x1700…1720 45 43 20 53 45 54 28 33 29 0d 31 39 37 30 20 20 20 45 58 45 43 20 56 45 4e 54 28 30 2e 35 29 20 ┆EC SET(3) 1970 EXEC VENT(0.5) ┆ 0x1720…1740 2f 2f 20 20 20 20 20 20 22 4b 4c 4f 45 4e 22 20 5d 42 4e 45 53 2e 0d 31 39 38 30 20 20 20 45 58 ┆// "KLOEN" ÅBNES. 1980 EX┆ 0x1740…1760 45 43 20 52 45 53 45 54 28 33 29 0d 31 39 39 30 20 45 4e 44 50 52 4f 43 20 5d 42 4e 45 4b 4c 4f ┆EC RESET(3) 1990 ENDPROC ÅBNEKLO┆ 0x1760…1780 45 4e 0d 32 30 30 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ┆EN 2000 ////////////////////////┆ 0x1780…17a0 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 37 30 20 20 20 45 58 45 43 20 56 45 4e 54 28 30 2e 35 29 20 ┆/////////// 70 EXEC VENT(0.5) ┆ 0x17a0…17c0 2f 2f 20 20 20 20 20 20 22 4b 4c 4f 45 4e 22 20 5d 42 4e 45 53 2e 0d 31 39 38 30 20 20 20 45 58 ┆// "KLOEN" ÅBNES. 1980 EX┆ 0x17c0…17e0 45 43 20 52 45 53 45 54 28 33 29 0d 31 39 39 30 20 45 4e 44 50 52 4f 43 20 5d 42 4e 45 4b 4c 4f ┆EC RESET(3) 1990 ENDPROC ÅBNEKLO┆ 0x17e0…1800 45 4e 0d 32 30 30 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0c ┆EN 2000 /////////////////////// ┆