DataMuseum.dk

top - download

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

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

Hex Dump

0x000…020 (0,) 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 (1,) 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 (2,) 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 (3,) 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 (4,) 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 (5,) 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 (6,) 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┆