|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3200 (0xc80)
Names: »PASTEMP.TOK«
└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
└─ ⟦this⟧ »PASTEMP.TOK«
0x000…020 3e 21 00 07 54 4f 4d 45 54 45 52 03 3e 1c 3e 00 04 58 54 41 4c 37 00 25 0a 08 97 80 00 00 00 00 ┆>! TOMETER > > XTAL7 % ┆ 0x020…040 00 00 00 03 3e 1e 3e 00 05 4b 41 4e 41 4c 01 00 08 4b 41 4e 41 4c 53 50 41 01 00 06 55 44 47 41 ┆ > > KANAL KANALSPA UDGA┆ 0x040…060 4e 47 01 00 05 53 50 41 43 45 01 00 01 41 02 00 07 49 4e 54 45 47 45 52 03 3e 00 08 46 52 45 4b ┆NG SPACE A INTEGER > FREK┆ 0x060…080 56 45 4e 53 01 00 04 4c 41 45 53 01 00 03 4d 49 58 01 00 08 44 45 4c 45 52 46 52 45 01 00 07 44 ┆VENS LAES MIX DELERFRE D┆ 0x080…0a0 45 4c 45 54 41 4c 02 00 04 52 45 41 4c 03 3e 00 01 58 02 00 04 43 48 41 52 03 3e 00 04 46 4c 49 ┆ELETAL REAL > X CHAR > FLI┆ 0x0a0…0c0 50 01 00 02 4f 4b 02 00 07 42 4f 4f 4c 45 41 4e 03 3e 3e 20 00 08 49 4e 44 4c 41 45 53 49 04 1e ┆P OK BOOLEAN >> INDLAESI ┆ 0x0c0…0e0 00 03 49 4e 54 02 00 07 49 4e 54 45 47 45 52 05 02 00 07 42 4f 4f 4c 45 41 4e 03 3e 1e 00 05 49 ┆ INT INTEGER BOOLEAN > I┆ 0x0e0…100 4e 53 54 52 02 00 06 53 54 52 49 4e 47 0f 24 02 32 30 10 03 3e 00 02 43 48 02 00 04 43 48 41 52 ┆NSTR STRING $ 20 > CH CHAR┆ 0x100…120 03 3e 00 01 50 02 00 07 49 4e 54 45 47 45 52 03 3e 00 02 4f 4b 01 00 07 4e 45 47 41 54 49 56 02 ┆ > P INTEGER > OK NEGATIV ┆ 0x120…140 00 07 42 4f 4f 4c 45 41 4e 03 3e 3e 1f 00 06 4e 45 58 54 43 48 03 3e 13 3e 14 00 01 50 37 02 00 ┆ BOOLEAN >> NEXTCH > > P7 ┆ 0x140…160 03 4c 45 4e 04 00 05 49 4e 53 54 52 05 0c 00 02 43 48 0e 00 02 40 30 3e 0d 13 3e 00 02 43 48 0e ┆ LEN INSTR CH @0> > CH ┆ 0x160…180 00 05 49 4e 53 54 52 0f 00 01 50 10 03 3e 00 01 50 0e 00 04 53 55 43 43 04 00 01 50 05 03 3e 09 ┆ INSTR P > P SUCC P > ┆ 0x180…1a0 03 3e 09 03 3e 3e 1f 00 08 53 4b 49 50 42 4c 41 4e 03 3e 13 3e 17 00 02 43 48 37 00 27 01 20 06 ┆ > >> SKIPBLAN > > CH7 ' ┆ 0x1a0…1c0 00 06 4e 45 58 54 43 48 03 3e 09 03 3e 13 3e 00 06 52 45 41 44 4c 4e 04 00 05 49 4e 53 54 52 05 ┆ NEXTCH > > > READLN INSTR ┆ 0x1c0…1e0 03 3e 00 01 50 0e 24 01 31 03 00 03 49 4e 54 0e 24 01 30 03 00 02 4f 4b 0e 00 04 54 52 55 45 03 ┆ > P $ 1 INT $ 0 OK TRUE ┆ 0x1e0…200 00 06 4e 45 58 54 43 48 03 00 08 53 4b 49 50 42 4c 41 4e 03 3e 00 07 4e 45 47 41 54 49 56 0e 00 ┆ NEXTCH SKIPBLAN > NEGATIV ┆ 0x200…220 02 43 48 37 00 27 01 2d 03 3e 14 00 07 4e 45 47 41 54 49 56 0c 00 06 4e 45 58 54 43 48 03 3e 17 ┆ CH7 ' - > NEGATIV NEXTCH > ┆ 0x220…240 00 02 43 48 33 0f 27 01 30 02 27 01 39 10 06 13 3e 00 03 49 4e 54 0e 00 03 49 4e 54 29 24 02 31 ┆ CH3 ' 0 ' 9 > INT INT)$ 1┆ 0x240…260 30 2c 00 03 4f 52 44 04 00 02 43 48 05 2e 00 03 4f 52 44 04 27 01 30 05 03 3e 00 06 4e 45 58 54 ┆0, ORD CH . ORD ' 0 > NEXT┆ 0x260…280 43 48 03 3e 09 03 3e 14 00 07 4e 45 47 41 54 49 56 0c 00 03 49 4e 54 0e 2e 00 03 49 4e 54 03 3e ┆CH > > NEGATIV INT . INT >┆ 0x280…2a0 00 02 4f 4b 0e 00 02 43 48 37 00 00 02 40 30 03 3e 00 08 49 4e 44 4c 41 45 53 49 0e 00 02 4f 4b ┆ OK CH7 @0 > INDLAESI OK┆ 0x2a0…2c0 03 3e 09 03 3e 3e 1f 00 07 49 4e 44 4c 41 45 53 03 3e 13 3e 00 05 57 52 49 54 45 04 00 06 43 4c ┆ > >> INDLAES > > WRITE CL┆ 0x2c0…2e0 52 48 4f 4d 05 03 3e 16 3e 00 04 46 4c 49 50 0e 00 04 54 52 55 45 03 3e 00 04 4c 41 45 53 0e 24 ┆RHOM > > FLIP TRUE > LAES $┆ 0x2e0…300 01 30 03 3e 00 05 4b 41 4e 41 4c 0e 24 01 30 03 3e 00 08 46 52 45 4b 56 45 4e 53 0e 24 01 30 03 ┆ 0 > KANAL $ 0 > FREKVENS $ 0 ┆ 0x300…320 3e 00 06 55 44 47 41 4e 47 0e 24 01 30 03 3e 00 03 4d 49 58 0e 24 01 30 03 3e 00 08 44 45 4c 45 ┆> UDGANG $ 0 > MIX $ 0 > DELE┆ 0x320…340 52 46 52 45 0e 24 01 30 03 3e 00 07 44 45 4c 45 54 41 4c 0e 24 01 30 03 3e 00 05 53 50 41 43 45 ┆RFRE $ 0 > DELETAL $ 0 > SPACE┆ 0x340…360 0e 24 01 30 03 3e 00 06 47 4f 54 4f 58 59 04 24 02 31 35 01 24 02 32 33 05 03 3e 00 05 57 52 49 ┆ $ 0 > GOTOXY $ 15 $ 23 > WRI┆ 0x360…380 54 45 04 27 2a 69 6e 64 6c 61 65 73 20 66 72 65 6b 76 65 6e 73 20 65 6c 6c 65 72 20 6b 61 6e 61 ┆TE '*indlaes frekvens eller kana┆ 0x380…3a0 6c 6e 75 6d 6d 65 72 20 78 78 78 2e 78 78 78 05 03 00 04 52 45 41 44 04 00 04 4c 41 45 53 05 03 ┆lnummer xxx.xxx READ LAES ┆ 0x3a0…3c0 3e 00 07 57 52 49 54 45 4c 4e 03 3e 0a 04 00 04 4c 41 45 53 37 04 24 01 30 05 30 04 00 04 4c 41 ┆> WRITELN > LAES7 $ 0 0 LA┆ 0x3c0…3e0 45 53 37 03 24 02 38 31 05 2f 04 00 04 4c 41 45 53 37 04 25 0a 08 90 00 00 00 00 00 00 00 00 05 ┆ES7 $ 81 / LAES7 % ┆ 0x3e0…400 30 04 00 04 4c 41 45 53 37 05 24 03 31 34 36 05 03 3e 09 03 3e 3e 1f 00 07 53 50 41 43 49 4e 47 ┆0 LAES7 $ 146 > >> SPACING┆ 0x400…420 03 3e 13 3e 14 00 04 46 4c 49 50 0c 00 08 4b 41 4e 41 4c 53 50 41 0e 00 05 4b 41 4e 41 4c 0d 00 ┆ > > FLIP KANALSPA KANAL ┆ 0x420…440 08 4b 41 4e 41 4c 53 50 41 0e 00 05 4b 41 4e 41 4c 2e 00 05 53 50 41 43 45 03 3e 09 03 3e 3e 1f ┆ KANALSPA KANAL. SPACE > >> ┆ 0x440…460 00 08 46 52 45 4b 56 45 4e 53 03 3e 13 3e 14 00 04 4c 41 45 53 37 03 24 02 38 31 0c 00 05 4b 41 ┆ FREKVENS > > LAES7 $ 81 KA┆ 0x460…480 4e 41 4c 0e 00 05 54 52 55 4e 43 04 00 04 4c 41 45 53 2c 25 0a 00 80 00 00 00 00 00 00 00 00 05 ┆NAL TRUNC LAES,% ┆ 0x480…4a0 3e 0d 00 05 4b 41 4e 41 4c 0e 00 05 54 52 55 4e 43 04 04 04 00 04 4c 41 45 53 2e 24 03 31 34 34 ┆> KANAL TRUNC LAES.$ 144┆ 0x4a0…4c0 05 29 24 02 34 30 05 2c 25 0a 00 80 00 00 00 00 00 00 00 00 05 03 3e 00 07 53 50 41 43 49 4e 47 ┆ )$ 40 ,% > SPACING┆ 0x4c0…4e0 03 3e 00 08 46 52 45 4b 56 45 4e 53 0e 00 08 4b 41 4e 41 4c 53 50 41 29 25 0a 7b cc cc cd 00 00 ┆ > FREKVENS KANALSPA)% æ ┆ 0x4e0…500 00 00 00 00 2c 24 03 31 34 34 03 3e 00 03 4d 49 58 0e 04 00 08 46 52 45 4b 56 45 4e 53 2c 25 0a ┆ ,$ 144 > MIX FREKVENS,% ┆ 0x500…520 04 ab 33 33 00 00 00 00 00 00 05 03 3e 00 08 44 45 4c 45 52 46 52 45 0e 00 03 4d 49 58 2e 00 04 ┆ 33 > DELERFRE MIX. ┆ 0x520…540 58 54 41 4c 03 3e 00 07 44 45 4c 45 54 41 4c 0e 00 08 44 45 4c 45 52 46 52 45 2b 25 0a 7b cc cc ┆XTAL > DELETAL DELERFRE+% æ ┆ 0x540…560 cd 00 00 00 00 00 00 03 3e 00 06 55 44 47 41 4e 47 0e 00 05 52 4f 55 4e 44 04 00 07 44 45 4c 45 ┆ > UDGANG ROUND DELE┆ 0x560…580 54 41 4c 05 03 3e 00 04 50 4f 52 54 0f 24 03 24 30 43 10 0e 28 00 06 55 44 47 41 4e 47 03 3e 09 ┆TAL > PORT $ $0C ( UDGANG > ┆ 0x580…5a0 03 3e 3e 1f 00 08 4b 41 4e 41 4c 46 52 45 03 3e 13 3e 00 05 4b 41 4e 41 4c 0e 00 05 54 52 55 4e ┆ >> KANALFRE > > KANAL TRUN┆ 0x5a0…5c0 43 04 04 04 00 04 4c 41 45 53 2e 24 03 31 34 34 05 29 24 02 34 30 05 2c 25 0a 00 80 00 00 00 00 ┆C LAES.$ 144 )$ 40 ,% ┆ 0x5c0…5e0 00 00 00 00 05 03 3e 00 07 53 50 41 43 49 4e 47 03 3e 00 08 46 52 45 4b 56 45 4e 53 0e 04 00 05 ┆ > SPACING > FREKVENS ┆ 0x5e0…600 52 4f 55 4e 44 04 00 08 4b 41 4e 41 4c 53 50 41 29 24 02 34 30 05 2b 24 02 34 30 05 03 3e 00 03 ┆ROUND KANALSPA)$ 40 +$ 40 > ┆ 0x600…620 4d 49 58 0e 04 00 08 46 52 45 4b 56 45 4e 53 2c 25 0a 04 ab 33 33 00 00 00 00 00 00 05 03 3e 00 ┆MIX FREKVENS,% 33 > ┆ 0x620…640 08 44 45 4c 45 52 46 52 45 0e 00 03 4d 49 58 2e 00 04 58 54 41 4c 03 3e 00 07 44 45 4c 45 54 41 ┆ DELERFRE MIX. XTAL > DELETA┆ 0x640…660 4c 0e 00 08 44 45 4c 45 52 46 52 45 2b 25 0a 7b cc cc cd 00 00 00 00 00 00 03 3e 00 06 55 44 47 ┆L DELERFRE+% æ > UDG┆ 0x660…680 41 4e 47 0e 00 05 52 4f 55 4e 44 04 00 07 44 45 4c 45 54 41 4c 05 03 3e 00 04 50 4f 52 54 0f 24 ┆ANG ROUND DELETAL > PORT $┆ 0x680…6a0 03 24 30 43 10 0e 28 00 06 55 44 47 41 4e 47 03 3e 09 03 3e 3e 1f 00 06 55 44 50 4f 52 54 03 3e ┆ $0C ( UDGANG > >> UDPORT >┆ 0x6a0…6c0 13 3e 14 00 04 46 4c 49 50 0c 00 06 55 44 47 41 4e 47 0e 00 05 4b 41 4e 41 4c 0d 00 06 55 44 47 ┆ > FLIP UDGANG KANAL UDG┆ 0x6c0…6e0 41 4e 47 0e 00 08 4b 41 4e 41 4c 53 50 41 03 3e 00 04 50 4f 52 54 0f 24 03 24 30 43 10 0e 28 00 ┆ANG KANALSPA > PORT $ $0C ( ┆ 0x6e0…700 06 55 44 47 41 4e 47 03 3e 09 03 3e 3e 1f 00 06 4f 55 54 50 55 54 03 3e 13 3e 00 08 46 52 45 4b ┆ UDGANG > >> OUTPUT > > FREK┆ 0x700…720 56 45 4e 53 03 3e 00 06 47 4f 54 4f 58 59 04 24 02 32 36 01 24 01 30 05 03 3e 00 05 57 52 49 54 ┆VENS > GOTOXY $ 26 $ 0 > WRIT┆ 0x720…740 45 04 27 07 6b 61 6e 61 6c 20 20 01 00 08 4b 41 4e 41 4c 53 50 41 01 27 10 20 73 76 61 72 65 6e ┆E ' kanal KANALSPA ' svaren┆ 0x740…760 64 65 20 74 69 6c 20 20 20 01 00 08 46 52 45 4b 56 45 4e 53 02 24 01 36 02 24 01 33 05 03 3e 00 ┆de til FREKVENS $ 6 $ 3 > ┆ 0x760…780 07 57 52 49 54 45 4c 4e 03 3e 00 06 47 4f 54 4f 58 59 04 24 02 32 36 01 24 01 32 05 03 3e 00 05 ┆ WRITELN > GOTOXY $ 26 $ 2 > ┆ 0x780…7a0 57 52 49 54 45 04 27 10 4f 73 63 66 72 65 6b 76 65 6e 73 20 65 72 20 20 01 00 03 4d 49 58 02 24 ┆WRITE ' Oscfrekvens er MIX $┆ 0x7a0…7c0 01 36 02 24 01 33 01 27 03 4d 68 7a 05 03 3e 00 06 47 4f 54 4f 58 59 04 24 02 32 36 01 24 01 33 ┆ 6 $ 3 ' Mhz > GOTOXY $ 26 $ 3┆ 0x7c0…7e0 05 03 3e 00 05 57 52 49 54 45 04 27 11 44 65 6c 65 72 66 72 65 6b 76 65 6e 73 20 65 72 20 01 00 ┆ > WRITE ' Delerfrekvens er ┆ 0x7e0…800 08 44 45 4c 45 52 46 52 45 02 24 01 36 02 24 01 33 01 27 03 4d 68 7a 05 03 3e 00 06 47 4f 54 4f ┆ DELERFRE $ 6 $ 3 ' Mhz > GOTO┆ 0x800…820 58 59 04 24 02 32 36 01 24 01 34 05 03 3e 00 05 57 52 49 54 45 04 27 0b 44 65 6c 65 74 61 6c 20 ┆XY $ 26 $ 4 > WRITE ' Deletal ┆ 0x820…840 65 72 20 01 00 07 44 45 4c 45 54 41 4c 02 24 01 36 02 24 01 30 05 03 3e 00 06 47 4f 54 4f 58 59 ┆er DELETAL $ 6 $ 0 > GOTOXY┆ 0x840…860 04 24 02 32 36 01 24 01 35 05 03 3e 14 00 04 46 4c 49 50 37 00 00 04 54 52 55 45 0c 00 05 57 52 ┆ $ 26 $ 5 > FLIP7 TRUE WR┆ 0x860…880 49 54 45 04 27 08 4d 4f 44 54 41 47 45 52 05 0d 00 05 57 52 49 54 45 04 27 08 53 45 4e 44 45 52 ┆ITE ' MODTAGER WRITE ' SENDER┆ 0x880…8a0 20 20 05 03 3e 00 07 57 52 49 54 45 4c 4e 03 3e 09 03 3e 3e 1f 00 08 4b 41 4e 41 4c 53 50 41 03 ┆ > WRITELN > >> KANALSPA ┆ 0x8a0…8c0 3e 13 3e 00 02 4f 4b 0e 00 04 54 52 55 45 03 3e 16 3e 00 06 47 4f 54 4f 58 59 04 24 01 31 01 24 ┆> > OK TRUE > > GOTOXY $ 1 $┆ 0x8c0…8e0 01 38 05 03 00 05 57 52 49 54 45 04 00 06 43 4c 52 45 4f 4c 05 03 3e 14 28 00 02 4f 4b 0c 13 3e ┆ 8 WRITE CLREOL > ( OK >┆ 0x8e0…900 00 06 47 4f 54 4f 58 59 04 24 02 35 35 01 24 01 38 05 03 00 05 57 52 49 54 45 04 27 10 66 65 6a ┆ GOTOXY $ 55 $ 8 WRITE ' fej┆ 0x900…920 6c 2c 20 74 61 73 74 20 6f 6d 21 20 20 05 03 3e 09 03 3e 00 06 47 4f 54 4f 58 59 04 24 01 31 01 ┆l, tast om! > > GOTOXY $ 1 ┆ 0x920…940 24 01 38 05 03 3e 00 05 57 52 49 54 45 04 27 22 56 69 6c 20 64 75 20 73 70 61 63 65 20 3f 20 74 ┆$ 8 > WRITE '"Vil du space ? t┆ 0x940…960 61 73 74 20 61 6e 74 61 6c 20 6b 61 6e 61 6c 65 72 20 05 03 3e 00 02 4f 4b 0e 00 08 49 4e 44 4c ┆ast antal kanaler > OK INDL┆ 0x960…980 41 45 53 49 04 00 05 53 50 41 43 45 05 03 3e 00 02 4f 4b 0e 00 02 4f 4b 30 04 04 00 05 53 50 41 ┆AESI SPACE > OK OK0 SPA┆ 0x980…9a0 43 45 37 04 24 01 30 05 30 04 00 05 53 50 41 43 45 37 03 24 03 31 30 30 05 30 04 00 08 4b 41 4e ┆CE7 $ 0 0 SPACE7 $ 100 0 KAN┆ 0x9a0…9c0 41 4c 53 50 41 37 04 24 01 30 05 05 3e 0a 00 02 4f 4b 03 3e 00 06 47 4f 54 4f 58 59 04 24 02 33 ┆ALSPA7 $ 0 > OK > GOTOXY $ 3┆ 0x9c0…9e0 34 01 24 01 38 05 03 00 05 57 52 49 54 45 04 00 06 43 4c 52 45 4f 4c 01 00 05 53 50 41 43 45 02 ┆4 $ 8 WRITE CLREOL SPACE ┆ 0x9e0…a00 24 01 33 05 03 3e 09 03 3e 3e 1f 00 08 53 45 4e 44 45 4d 4f 44 03 3e 13 3e 00 06 47 4f 54 4f 58 ┆$ 3 > >> SENDEMOD > > GOTOX┆ 0xa00…a20 59 04 24 01 31 01 24 02 31 31 05 03 3e 00 04 46 4c 49 50 0e 28 00 04 46 4c 49 50 03 3e 16 3e 13 ┆Y $ 1 $ 11 > FLIP ( FLIP > > ┆ 0xa20…a40 3e 00 04 46 4c 49 50 0e 28 00 04 46 4c 49 50 03 3e 00 07 53 50 41 43 49 4e 47 03 3e 00 05 57 52 ┆> FLIP ( FLIP > SPACING > WR┆ 0xa40…a60 49 54 45 04 27 14 44 75 20 65 72 20 6e 75 20 70 61 61 20 6b 61 6e 61 6c 20 3f 01 00 08 4b 41 4e ┆ITE ' Du er nu paa kanal ? KAN┆ 0xa60…a80 41 4c 53 50 41 05 03 3e 09 03 3e 00 06 4f 55 54 50 55 54 03 3e 00 06 55 44 50 4f 52 54 03 3e 16 ┆ALSPA > > OUTPUT > UDPORT > ┆ 0xa80…aa0 3e 00 04 52 45 41 44 04 00 03 4b 42 44 01 00 01 58 05 03 3e 0a 04 00 01 58 37 00 27 00 05 2f 04 ┆> READ KBD X > X7 ' / ┆ 0xaa0…ac0 00 01 58 37 00 27 01 71 05 03 3e 00 06 47 4f 54 4f 58 59 04 24 01 31 01 24 02 31 31 05 03 3e 0a ┆ X7 ' q > GOTOXY $ 1 $ 11 > ┆ 0xac0…ae0 00 01 58 37 00 27 01 71 03 3e 09 03 3e 3e 1f 00 04 56 41 4c 47 03 3e 13 3e 00 06 47 4f 54 4f 58 ┆ X7 ' q > >> VALG > > GOTOX┆ 0xae0…b00 59 04 24 01 32 01 24 02 32 31 05 03 3e 00 05 57 52 49 54 45 04 27 41 56 69 6c 20 64 75 20 66 6f ┆Y $ 2 $ 21 > WRITE 'AVil du fo┆ 0xb00…b20 72 74 73 7b 74 74 65 20 65 6c 6c 65 72 20 73 6c 75 74 74 65 20 5b 20 71 28 75 69 74 29 20 2f 20 ┆rtsætte eller slutte Æ q(uit) / ┆ 0xb20…b40 6b 3f 28 61 6e 61 6c 29 20 2f 20 66 28 72 65 6b 76 65 6e 73 29 20 5d 20 05 03 3e 16 3e 00 04 52 ┆k?(anal) / f(rekvens) Å > > R┆ 0xb40…b60 45 41 44 04 00 03 4b 42 44 01 00 01 58 05 03 3e 0a 00 01 58 33 0f 27 01 71 01 27 01 6b 01 27 01 ┆EAD KBD X > X3 ' q ' k ' ┆ 0xb60…b80 66 10 03 3e 00 06 47 4f 54 4f 58 59 04 24 01 31 01 24 02 32 32 05 03 3e 14 00 01 58 37 00 27 01 ┆f > GOTOXY $ 1 $ 22 > X7 ' ┆ 0xb80…ba0 66 0c 00 07 49 4e 44 4c 41 45 53 03 3e 09 03 3e 3e 3e 13 3e 00 07 49 4e 44 4c 41 45 53 03 3e 16 ┆f INDLAES > >>> > INDLAES > ┆ 0xba0…bc0 3e 00 06 4f 55 54 50 55 54 03 3e 00 08 4b 41 4e 41 4c 53 50 41 03 3e 00 08 53 45 4e 44 45 4d 4f ┆> OUTPUT > KANALSPA > SENDEMO┆ 0xbc0…be0 44 03 3e 00 04 56 41 4c 47 03 3e 0a 00 01 58 37 00 27 01 71 03 3e 09 12 ff ff ff ff ff ff ff ff ┆D > VALG > X7 ' q > ┆ 0xbe0…c00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆ 0xc00…c20 00 74 0d 40 3a 50 41 53 54 45 4d 50 2e 54 4f 4b 53 74 68 61 74 cd f1 17 cd 1e 1e cd d0 14 cd de ┆ t @:PASTEMP.TOKSthat ┆ 0xc20…c40 17 41 64 65 66 69 6e 65 20 20 61 20 73 70 65 63 69 66 69 63 20 63 6f 6d 70 75 74 65 72 20 73 79 ┆ Adefine a specific computer sy┆ 0xc40…c60 73 74 65 6d 2e 20 20 49 66 20 79 6f 75 72 20 63 6f 6d 70 75 65 3a 33 29 3b 0d 0a 20 20 20 20 65 ┆stem. If your compue:3); e┆ 0xc60…c80 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 65 6d 6f 64 74 61 67 65 3b 0d 0a ┆nd; procedure sendemodtage; ┆