DataMuseum.dk Presents historical artifacts from the history of: ICL Comet

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about ICL Comet Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦acfbce961⟧

    Length: 3200 (0xc80)
    Names: »PAKKE.CML«

Derivation

└─⟦960f61816⟧ Bits:30004222 Processstyring til ICL Comet
    └─ ⟦this⟧ »PAKKE.CML« 

Hex Dump

0x000…020 30 30 31 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 2f   ┆0010 ///////////////////////////┆
0x020…040 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 0d 30 30 32 30   ┆/////////////////////////// 0020┆
0x040…060 20 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 4b 4b 45 2e 43 53 42 20 20 20 20 20   ┆ //               PAKKE.CSB     ┆
0x060…080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 0d 30 30 33 30 20 2f 2f 20   ┆                     // 0030 // ┆
0x080…0a0 20 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 52 20 54 49 4c 20 50 52 4f 43 45 53 2d 53 54 59   ┆       PROCEDURER TIL PROCES-STY┆
0x0a0…0c0 52 49 4e 47 2e 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 0d 30 30 34 30 20 2f 2f 2f 2f 2f 2f 2f   ┆RING.            // 0040 ///////┆
0x0c0…0e0 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   ┆////////////////////////////////┆
0x0e0…100 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 30 30 35 30 20 2f 2f 0d 30 30 36 30 20 2f 2f 2f   ┆/////////////// 0050 // 0060 ///┆
0x100…120 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   ┆////////////////////////////////┆
0x120…140 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 30 30 37 30 20 50 52 4f 43 20 53   ┆//////////////////// 0070 PROC S┆
0x140…160 54 41 52 54 0d 30 30 38 30 20 20 20 43 4c 45 41 52 20 0d 30 30 39 30 20 20 20 49 4e 44 50 4f 52   ┆TART 0080   CLEAR  0090   INDPOR┆
0x160…180 54 3a 3d 32 34 31 3b 20 55 44 50 4f 52 54 3a 3d 32 34 30 0d 30 31 30 30 20 20 20 44 49 4d 20 42   ┆T:=241; UDPORT:=240 0100   DIM B┆
0x180…1a0 49 54 54 28 30 3a 35 29 0d 30 31 31 30 20 20 20 4d 5c 4e 53 54 45 52 3a 3d 30 0d 30 31 32 30 20   ┆ITT(0:5) 0110   MØNSTER:=0 0120 ┆
0x1a0…1c0 20 20 4c 41 56 3a 3d 30 3b 20 48 5c 4a 3a 3d 31 3b 20 49 4e 44 47 41 4e 47 3a 3d 30 3b 20 4e 3a   ┆  LAV:=0; HØJ:=1; INDGANG:=0; N:┆
0x1c0…1e0 3d 30 3b 20 54 3a 3d 30 0d 30 31 33 30 20 45 4e 44 50 52 4f 43 20 53 54 41 52 54 0d 30 31 34 30   ┆=0; T:=0 0130 ENDPROC START 0140┆
0x1e0…200 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 2f 2f 2f 2f 2f   ┆ ///////////////////////////////┆
0x200…220 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 30 31 35 30 20 50 52   ┆//////////////////////// 0150 PR┆
0x220…240 4f 43 20 53 45 54 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   ┆OC SET(N) //          STARTER MO┆
0x240…260 54 4f 52 20 50 5d 20 31 2f 32 20 2d 20 33 2f 34 20 45 4c 4c 45 52 20 35 2f 36 0d 30 31 36 30 20   ┆TOR PÅ 1/2 - 3/4 ELLER 5/6 0160 ┆
0x260…280 20 20 49 46 20 28 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   ┆  IF (1<=N AND N<=6) AND INT(N)=┆
0x280…2a0 4e 20 54 48 45 4e 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   ┆N THEN // DVS. HELT TAL MELLEM 1┆
0x2a0…2c0 20 4f 47 20 36 0d 30 31 37 30 20 20 20 20 20 4e 3a 3d 4e 2d 31 0d 30 31 38 30 20 20 20 20 20 42   ┆ OG 6 0170     N:=N-1 0180     B┆
0x2c0…2e0 49 54 54 28 4e 29 3a 3d 48 5c 4a 0d 30 31 39 30 20 20 20 20 20 4d 5c 4e 53 54 45 52 3a 3d 30 0d   ┆ITT(N):=HØJ 0190     MØNSTER:=0 ┆
0x2e0…300 30 32 30 30 20 20 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   ┆0200     FOR T:=0 TO 5 DO // FIN┆
0x300…320 44 20 53 55 4d 4d 45 4e 20 41 46 20 42 49 54 56 5b 52 44 49 45 52 4e 45 2e 0d 30 32 31 30 20 20   ┆D SUMMEN AF BITVÆRDIERNE. 0210  ┆
0x320…340 20 20 20 20 20 4d 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   ┆     MØNSTER:=MØNSTER+BITT(T)*2^┆
0x340…360 54 0d 30 32 32 30 20 20 20 20 20 4e 45 58 54 20 54 0d 30 32 33 30 20 20 20 20 20 4f 55 54 20 55   ┆T 0220     NEXT T 0230     OUT U┆
0x360…380 44 50 4f 52 54 2c 20 4d 5c 4e 53 54 45 52 0d 30 32 34 30 20 20 20 45 4c 53 45 20 0d 30 32 35 30   ┆DPORT, MØNSTER 0240   ELSE  0250┆
0x380…3a0 20 20 20 20 20 50 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   ┆     PRINT CHR$(7) // RING MED K┆
0x3a0…3c0 4c 4f 4b 4b 45 4e 2e 0d 30 32 36 30 20 20 20 20 20 43 55 52 53 4f 52 20 31 2c 20 33 0d 30 32 37   ┆LOKKEN. 0260     CURSOR 1, 3 027┆
0x3c0…3e0 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 48 41 56 45 20 45 4e   ┆0     PRINT "TALLET SKAL HAVE EN┆
0x3e0…400 20 41 46 20 56 5b 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   ┆ AF VÆRDIERNE 1,2,3,4,5 ELLER 6"┆
0x400…420 0d 30 32 38 30 20 20 20 45 4e 44 49 46 20 0d 30 32 39 30 20 45 4e 44 50 52 4f 43 20 53 45 54 0d   ┆ 0280   ENDIF  0290 ENDPROC SET ┆
0x420…440 30 33 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 2f 2f 2f   ┆0300 ///////////////////////////┆
0x440…460 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 0d 30 33 31 30 20 50   ┆///////////////////////// 0310 P┆
0x460…480 52 4f 43 20 52 45 53 45 54 28 4e 29 20 2f 2f 20 20 20 20 20 20 20 20 20 53 54 4f 50 50 45 52 20   ┆ROC RESET(N) //         STOPPER ┆
0x480…4a0 4d 4f 54 4f 52 20 50 5d 20 31 2f 32 20 2d 20 33 2f 34 20 45 4c 4c 45 52 20 35 2f 36 0d 30 33 32   ┆MOTOR PÅ 1/2 - 3/4 ELLER 5/6 032┆
0x4a0…4c0 30 20 20 20 49 46 20 28 31 3c 3d 4e 20 41 4e 44 20 4e 3c 3d 36 29 20 41 4e 44 20 49 4e 54 28 4e   ┆0   IF (1<=N AND N<=6) AND INT(N┆
0x4c0…4e0 29 3d 4e 20 54 48 45 4e 20 0d 30 33 33 30 20 20 20 20 20 4e 3a 3d 4e 2d 31 0d 30 33 34 30 20 20   ┆)=N THEN  0330     N:=N-1 0340  ┆
0x4e0…500 20 20 20 42 49 54 54 28 4e 29 3a 3d 4c 41 56 0d 30 33 35 30 20 20 20 20 20 4d 5c 4e 53 54 45 52   ┆   BITT(N):=LAV 0350     MØNSTER┆
0x500…520 3a 3d 30 0d 30 33 36 30 20 20 20 20 20 46 4f 52 20 54 3a 3d 30 20 54 4f 20 35 20 44 4f 20 2f 2f   ┆:=0 0360     FOR T:=0 TO 5 DO //┆
0x520…540 20 46 49 4e 44 20 53 55 4d 4d 45 4e 20 41 46 20 42 49 54 56 5b 52 44 49 45 52 4e 45 2e 0d 30 33   ┆ FIND SUMMEN AF BITVÆRDIERNE. 03┆
0x540…560 37 30 20 20 20 20 20 20 20 4d 5c 4e 53 54 45 52 3a 3d 4d 5c 4e 53 54 45 52 2b 42 49 54 54 28 54   ┆70       MØNSTER:=MØNSTER+BITT(T┆
0x560…580 29 2a 32 5e 54 0d 30 33 38 30 20 20 20 20 20 4e 45 58 54 20 54 0d 30 33 39 30 20 20 20 20 20 4f   ┆)*2^T 0380     NEXT T 0390     O┆
0x580…5a0 55 54 20 55 44 50 4f 52 54 2c 20 4d 5c 4e 53 54 45 52 0d 30 34 30 30 20 20 20 45 4c 53 45 20 0d   ┆UT UDPORT, MØNSTER 0400   ELSE  ┆
0x5a0…5c0 30 34 31 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 20 2f 2f 20 52 49 4e 47 20 4d   ┆0410     PRINT CHR$(7) // RING M┆
0x5c0…5e0 45 44 20 4b 4c 4f 4b 4b 45 4e 2e 0d 30 34 32 30 20 20 20 20 20 43 55 52 53 4f 52 20 31 2c 20 33   ┆ED KLOKKEN. 0420     CURSOR 1, 3┆
0x5e0…600 0d 30 34 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 48 41 56   ┆ 0430     PRINT "TALLET SKAL HAV┆
0x600…620 45 20 45 4e 20 41 46 20 56 5b 52 44 49 45 52 4e 45 20 31 2c 32 2c 33 2c 34 2c 35 20 45 4c 4c 45   ┆E EN AF VÆRDIERNE 1,2,3,4,5 ELLE┆
0x620…640 52 20 36 22 0d 30 34 34 30 20 20 20 45 4e 44 49 46 20 0d 30 34 35 30 20 45 4e 44 50 52 4f 43 20   ┆R 6" 0440   ENDIF  0450 ENDPROC ┆
0x640…660 52 45 53 45 54 0d 30 34 36 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f   ┆RESET 0460 /////////////////////┆
0x660…680 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   ┆////////////////////////////////┆
0x680…6a0 0d 30 34 37 30 20 46 55 4e 43 20 4c 4f 57 28 4e 29 20 43 4c 4f 53 45 44 0d 30 34 38 30 20 20 20   ┆ 0470 FUNC LOW(N) CLOSED 0480   ┆
0x6a0…6c0 49 4d 50 4f 52 54 20 49 4e 44 50 4f 52 54 0d 30 34 39 30 20 20 20 44 49 4d 20 45 4e 5f 42 59 54   ┆IMPORT INDPORT 0490   DIM EN_BYT┆
0x6c0…6e0 45 24 20 4f 46 20 38 0d 30 35 30 30 20 20 20 45 4e 5f 42 59 54 45 24 3a 3d 42 53 54 52 24 28 49   ┆E$ OF 8 0500   EN_BYTE$:=BSTR$(I┆
0x6e0…700 4e 50 28 49 4e 44 50 4f 52 54 29 29 0d 30 35 31 30 20 20 20 43 41 53 45 20 4e 20 4f 46 20 0d 30   ┆NP(INDPORT)) 0510   CASE N OF  0┆
0x700…720 35 32 30 20 20 20 57 48 45 4e 20 31 31 0d 30 35 33 30 20 20 20 20 20 52 45 54 55 52 4e 20 45 4e   ┆520   WHEN 11 0530     RETURN EN┆
0x720…740 5f 42 59 54 45 24 28 34 29 3d 22 31 22 0d 30 35 34 30 20 20 20 57 48 45 4e 20 31 32 0d 30 35 35   ┆_BYTE$(4)="1" 0540   WHEN 12 055┆
0x740…760 30 20 20 20 20 20 52 45 54 55 52 4e 20 45 4e 5f 42 59 54 45 24 28 33 29 3d 22 31 22 0d 30 35 36   ┆0     RETURN EN_BYTE$(3)="1" 056┆
0x760…780 30 20 20 20 4f 54 48 45 52 57 49 53 45 20 0d 30 35 37 30 20 20 20 20 20 50 52 49 4e 54 20 22 54   ┆0   OTHERWISE  0570     PRINT "T┆
0x780…7a0 41 4c 4c 45 54 20 53 4b 41 4c 20 56 5b 52 45 20 31 31 20 45 4c 4c 45 52 20 31 32 22 0d 30 35 38   ┆ALLET SKAL VÆRE 11 ELLER 12" 058┆
0x7a0…7c0 30 20 20 20 20 20 52 45 54 55 52 4e 20 46 41 4c 53 45 0d 30 35 39 30 20 20 20 45 4e 44 43 41 53   ┆0     RETURN FALSE 0590   ENDCAS┆
0x7c0…7e0 45 20 0d 30 36 30 30 20 45 4e 44 46 55 4e 43 20 4c 4f 57 0d 30 36 31 30 20 2f 2f 2f 2f 2f 2f 2f   ┆E  0600 ENDFUNC LOW 0610 ///////┆
0x7e0…800 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   ┆////////////////////////////////┆
0x800…820 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 30 36 32 30 20 46 55 4e 43 20 48 49 47 48 28 4e 29 0d   ┆///////////// 0620 FUNC HIGH(N) ┆
0x820…840 30 36 33 30 20 20 20 49 46 20 4c 4f 57 28 4e 29 20 54 48 45 4e 20 0d 30 36 34 30 20 20 20 20 20   ┆0630   IF LOW(N) THEN  0640     ┆
0x840…860 52 45 54 55 52 4e 20 46 41 4c 53 45 0d 30 36 35 30 20 20 20 45 4c 53 45 20 0d 30 36 36 30 20 20   ┆RETURN FALSE 0650   ELSE  0660  ┆
0x860…880 20 20 20 52 45 54 55 52 4e 20 54 52 55 45 0d 30 36 37 30 20 20 20 45 4e 44 49 46 20 0d 30 36 38   ┆   RETURN TRUE 0670   ENDIF  068┆
0x880…8a0 30 20 45 4e 44 46 55 4e 43 20 48 49 47 48 0d 30 36 39 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f   ┆0 ENDFUNC HIGH 0690 ////////////┆
0x8a0…8c0 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   ┆////////////////////////////////┆
0x8c0…8e0 2f 2f 2f 2f 2f 2f 2f 2f 0d 30 37 30 30 20 50 52 4f 43 20 56 45 4e 54 28 54 49 44 29 0d 30 37 31   ┆//////// 0700 PROC VENT(TID) 071┆
0x8e0…900 30 20 20 20 46 4f 52 20 44 45 4c 41 59 3a 3d 31 20 54 4f 20 54 49 44 2a 38 38 30 20 44 4f 20 0d   ┆0   FOR DELAY:=1 TO TID*880 DO  ┆
0x900…920 30 37 32 30 20 20 20 4e 45 58 54 20 44 45 4c 41 59 0d 30 37 33 30 20 45 4e 44 50 52 4f 43 20 56   ┆0720   NEXT DELAY 0730 ENDPROC V┆
0x920…940 45 4e 54 0d 30 37 34 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   ┆ENT 0740 ///////////////////////┆
0x940…960 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 0d 30 37   ┆///////////////////////////// 07┆
0x960…980 35 30 20 50 52 4f 43 20 54 5b 4c 4c 45 53 4b 49 56 45 28 49 4e 44 47 41 4e 47 2c 20 44 52 45 4a   ┆50 PROC TÆLLESKIVE(INDGANG, DREJ┆
0x980…9a0 45 29 0d 30 37 36 30 20 20 20 54 5b 4c 3a 3d 30 0d 30 37 37 30 20 20 20 52 45 50 45 41 54 20 0d   ┆E) 0760   TÆL:=0 0770   REPEAT  ┆
0x9a0…9c0 30 37 38 30 20 20 20 20 20 49 46 20 4c 4f 57 28 49 4e 44 47 41 4e 47 29 20 54 48 45 4e 20 0d 30   ┆0780     IF LOW(INDGANG) THEN  0┆
0x9c0…9e0 37 39 30 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 30 38 30 30 20 20 20 20 20 20 20 55 4e 54   ┆790       REPEAT  0800       UNT┆
0x9e0…a00 49 4c 20 48 49 47 48 28 49 4e 44 47 41 4e 47 29 0d 30 38 31 30 20 20 20 20 20 20 20 54 5b 4c 3a   ┆IL HIGH(INDGANG) 0810       TÆL:┆
0xa00…a20 2b 31 0d 30 38 32 30 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 32 30 2c 20 31 30 0d 30 38 33 30   ┆+1 0820       CURSOR 20, 10 0830┆
0xa20…a40 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 38   ┆       PRINT USING "###": TÆL 08┆
0xa40…a60 34 30 20 20 20 20 20 45 4c 53 45 20 2f 2f 20 48 56 49 53 20 53 54 41 52 54 54 49 4c 53 54 41 4e   ┆40     ELSE // HVIS STARTTILSTAN┆
0xa60…a80 44 20 45 52 20 48 49 47 48 0d 30 38 35 30 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 30 38 36   ┆D ER HIGH 0850       REPEAT  086┆
0xa80…aa0 30 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4c 4f 57 28 49 4e 44 47 41 4e 47 29 0d 30 38 37 30 20   ┆0       UNTIL LOW(INDGANG) 0870 ┆
0xaa0…ac0 20 20 20 20 20 20 54 5b 4c 3a 2b 31 0d 30 38 38 30 20 20 20 20 20 20 20 43 55 52 53 4f 52 20 32   ┆      TÆL:+1 0880       CURSOR 2┆
0xac0…ae0 30 2c 20 31 30 0d 30 38 39 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23   ┆0, 10 0890       PRINT USING "##┆
0xae0…b00 23 22 3a 20 54 5b 4c 0d 30 39 30 30 20 20 20 20 20 45 4e 44 49 46 20 0d 30 39 31 30 20 20 20 55   ┆#": TÆL 0900     ENDIF  0910   U┆
0xb00…b20 4e 54 49 4c 20 54 5b 4c 3d 44 52 45 4a 45 0d 30 39 32 30 20 45 4e 44 50 52 4f 43 20 54 5b 4c 4c   ┆NTIL TÆL=DREJE 0920 ENDPROC TÆLL┆
0xb20…b40 45 53 4b 49 56 45 0d 30 39 33 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f   ┆ESKIVE 0930 ////////////////////┆
0xb40…b60 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   ┆////////////////////////////////┆
0xb60…b80 0d 30 39 34 30 20 50 52 4f 43 20 56 45 4e 54 54 41 53 54 0d 30 39 35 30 20 20 20 50 4f 4b 45 20   ┆ 0940 PROC VENTTAST 0950   POKE ┆
0xb80…ba0 32 35 36 2c 20 30 0d 30 39 36 30 20 20 20 43 55 52 53 4f 52 20 34 30 2c 20 32 30 0d 30 39 37 30   ┆256, 0 0960   CURSOR 40, 20 0970┆
0xba0…bc0 20 20 20 50 52 49 4e 54 20 22 54 52 59 4b 20 45 4e 20 54 41 53 54 20 22 3b 0d 30 39 38 30 20 20   ┆   PRINT "TRYK EN TAST "; 0980  ┆
0xbc0…be0 20 52 45 50 45 41 54 20 0d 30 39 39 30 20 20 20 55 4e 54 49 4c 20 50 45 45 4b 28 32 35 36 29 3c   ┆ REPEAT  0990   UNTIL PEEK(256)<┆
0xbe0…c00 3e 30 0d 30 39 39 35 20 20 20 54 41 53 54 3a 3d 50 45 45 4b 28 32 35 36 29 0d 31 30 30 30 20 45   ┆>0 0995   TAST:=PEEK(256) 1000 E┆
0xc00…c20 4e 44 50 52 4f 43 20 56 45 4e 54 54 41 53 54 0d 31 30 31 30 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f   ┆NDPROC VENTTAST 1010 ///////////┆
0xc20…c40 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   ┆////////////////////////////////┆
0xc40…c60 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 39 39 30 20 20 20 55 4e 54 49 4c 20 50 45 45 4b 28 32 35 36 29 3c   ┆///////// 990   UNTIL PEEK(256)<┆
0xc60…c80 3e 30 0d 30 39 39 35 20 20 20 54 41 53 54 3a 3d 50 45 45 4b 28 32 35 36 29 0d 31 30 30 30 20 4a   ┆>0 0995   TAST:=PEEK(256) 1000 J┆