|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »VAREKART.K«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─⟦this⟧ »VAREKART.K«
@ TELEVIDEO TERMINALER
SPC/1 MICROCOMPUTER @
` SMÅ BLÅ SØM 2X2 $ æ
KURSUS MAPPE
PAPIR I LANGE BANER ü
T EPSON EDB-PRINTER @
OVERHEAD PROJEKTER
SMÅ GRØNNE STOLE MED SVAJ <
TAVLEKRIDT - HVIDT æ
0x000…023 Line {l1=0x21, l2=» @ TELEVIDEO TERMINALER «, l3=0x21}
0x023…046 Line {l1=0x21, l2=» SPC/1 MICROCOMPUTER @ «, l3=0x21}
0x046…066 Line {l1=0x1e, l2=» ` SMÅ BLÅ SØM 2X2 $ æ «, l3=0x1e}
0x066…081 Line {l1=0x19, l2=» KURSUS MAPPE «, l3=0x19}
0x081…0a3 Line {l1=0x20, l2=» PAPIR I LANGE BANER ü «, l3=0x20}
0x0a3…0c3 Line {l1=0x1e, l2=» T EPSON EDB-PRINTER @ «, l3=0x1e}
0x0c3…0e4 Line {l1=0x1f, l2=» OVERHEAD PROJEKTER «, l3=0x1f}
0x0e4…10c Line {l1=0x26, l2=» SMÅ GRØNNE STOLE MED SVAJ <«, l3=0x26}
0x10c…12f Line {l1=0x21, l2=» TAVLEKRIDT - HVIDT æ «, l3=0x21}
0x12f…140 00 00 00 00 00 00 00 00 00 00 00 0d 0d 00 00 00 00 ┆ ┆
0x140…160 00 00 00 00 00 00 00 00 00 0d 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 0d 00 00 00 00 00 00 ┆ ┆
0x160…180 00 00 00 00 00 00 00 0d 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 0d 00 00 00 00 00 00 00 00 ┆ ┆
0x180…1a0 00 00 00 00 00 0d 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 0d 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a0…1c0 00 00 00 0d 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 0d 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1c0…1e0 00 0d 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 0d ┆ ┆
0x1e0…200 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 20 54 45 53 54 41 4e 44 4c 4f 47 3b 15 05 42 45 47 ┆ TESTANDLOG; BEG┆
0x200…220 49 4e 05 0d 20 20 44 55 4d 4d 59 3a 3d 27 20 27 3b 0d 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e ┆IN DUMMY:=' '; CLEARSCREEN┆
0x220…240 3b 0e 15 20 20 57 52 49 54 45 28 50 52 4f 47 52 41 4d 4e 41 56 4e 29 3b 15 2d 20 20 57 52 49 54 ┆; WRITE(PROGRAMNAVN); - WRIT┆
0x240…260 45 28 27 20 20 20 20 2a 20 2a 20 2a 20 20 20 43 20 4f 20 4e 20 56 20 45 20 52 20 54 20 20 20 2a ┆E(' * * * C O N V E R T *┆
0x260…280 20 2a 20 2a 27 29 3b 2d 0f 20 20 47 4f 54 4f 58 59 28 37 31 2c 31 29 3b 0f 14 20 20 57 52 49 54 ┆ * *');- GOTOXY(71,1); WRIT┆
0x280…2a0 45 28 27 53 43 52 45 45 4e 2d 31 27 29 3b 14 1e 20 20 52 45 53 45 54 28 52 42 43 46 49 4c 45 2c ┆E('SCREEN-1'); RESET(RBCFILE,┆
0x2a0…2c0 27 4b 4f 4d 46 49 4c 45 3a 50 32 27 29 3b 1e 28 20 20 57 48 49 4c 45 20 28 49 4f 52 45 53 55 4c ┆'KOMFILE:P2'); ( WHILE (IORESUL┆
0x2c0…2e0 54 3d 31 29 20 4f 52 20 28 49 4f 52 45 53 55 4c 54 3d 34 30 29 20 44 4f 28 09 20 20 20 20 42 45 ┆T=1) OR (IORESULT=40) DO( BE┆
0x2e0…300 47 49 4e 09 12 20 20 20 20 20 20 47 4f 54 4f 58 59 28 35 2c 34 29 3b 12 3c 20 20 20 20 20 20 57 ┆GIN GOTOXY(5,4); < W┆
0x300…320 52 49 54 45 28 27 69 6e 73 65 72 74 20 44 41 54 41 2d 44 49 53 43 20 28 43 4f 4e 54 41 49 4e 49 ┆RITE('insert DATA-DISC (CONTAINI┆
0x320…340 4e 47 20 52 42 43 2d 46 49 4c 45 29 20 49 4e 20 50 32 27 29 3b 3c 13 20 20 20 20 20 20 47 4f 54 ┆NG RBC-FILE) IN P2');< GOT┆
0x340…360 4f 58 59 28 36 31 2c 34 29 3b 13 1e 20 20 20 20 20 20 57 52 49 54 45 28 27 50 52 45 53 53 20 3e ┆OXY(61,4); WRITE('PRESS >┆
0x360…380 52 45 54 55 52 4e 3c 27 29 3b 1e 13 20 20 20 20 20 20 47 4f 54 4f 58 59 28 37 36 2c 34 29 3b 13 ┆RETURN<'); GOTOXY(76,4); ┆
0x380…3a0 14 20 20 20 20 20 20 45 44 49 54 28 44 55 4d 4d 59 3a 31 29 3b 14 22 20 20 20 20 20 20 52 45 53 ┆ EDIT(DUMMY:1); " RES┆
0x3a0…3c0 45 54 28 52 42 43 46 49 4c 45 2c 27 4b 4f 4d 46 49 4c 45 3a 50 32 27 29 3b 22 08 20 20 20 20 45 ┆ET(RBCFILE,'KOMFILE:P2');" E┆
0x3c0…3e0 4e 44 3b 08 15 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 15 09 20 20 20 20 ┆ND; IF IORESULT<>0 THEN ┆
0x3e0…400 42 45 47 49 4e 09 18 20 20 20 20 20 20 49 4f 56 5b 52 44 49 3a 3d 49 4f 52 45 53 55 4c 54 3b 18 ┆BEGIN IOVÆRDI:=IORESULT; ┆
0x400…420 12 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 37 29 3b 12 35 20 20 20 20 20 20 57 52 49 54 45 ┆ GOTOXY(1,7); 5 WRITE┆
0x420…440 4c 4e 28 27 45 52 52 4f 52 20 4e 4f 2e 20 27 2c 49 4f 56 5b 52 44 49 2c 27 20 49 4e 20 3e 52 42 ┆LN('ERROR NO. ',IOVÆRDI,' IN >RB┆
0x440…460 43 2d 46 49 4c 45 3c 27 29 3b 35 21 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 50 52 4f 47 52 ┆C-FILE<');5! WRITELN('PROGR┆
0x460…480 41 4d 20 41 42 4f 52 54 45 44 27 29 3b 21 15 20 20 20 20 20 20 43 4c 4f 53 45 28 52 42 43 46 49 ┆AM ABORTED');! CLOSE(RBCFI┆
0x480…4a0 4c 45 29 3b 15 14 20 20 20 20 20 20 45 58 49 54 28 50 52 4f 47 52 41 4d 29 3b 14 08 20 20 20 20 ┆LE); EXIT(PROGRAM); ┆
0x4a0…4c0 45 4e 44 3b 08 0e 20 20 47 4f 54 4f 58 59 28 35 2c 34 29 3b 0e 39 20 20 57 52 49 54 45 28 27 44 ┆END; GOTOXY(5,4); 9 WRITE('D┆
0x4c0…4e0 41 54 41 2d 44 49 53 43 20 28 43 4f 4e 54 41 49 4e 49 4e 47 20 52 42 43 2d 46 49 4c 45 29 20 49 ┆ATA-DISC (CONTAINING RBC-FILE) I┆
0x4e0…500 00 4f 4e 56 45 52 54 20 4b 4a 09 0a 00 cc 00 1d cc 00 09 cc 00 1d 41 ca 00 20 00 00 00 00 00 00 ┆ ONVERT KJ A ┆
0x500…520 4e 20 50 32 20 20 20 20 20 20 20 20 27 29 3b 39 0f 20 20 47 4f 54 4f 58 59 28 36 31 2c 34 29 3b ┆N P2 ');9 GOTOXY(61,4);┆
0x520…540 0f 1a 20 20 57 52 49 54 45 28 27 4f 4b 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 1a 13 20 20 ┆ WRITE('OK '); ┆
0x540…560 43 48 45 43 4b 31 4c 45 47 4f 48 45 41 44 45 52 3b 13 0f 20 20 47 4f 54 4f 58 59 28 37 2c 31 35 ┆CHECK1LEGOHEADER; GOTOXY(7,15┆
0x560…580 29 3b 0f 32 20 20 57 52 49 54 45 4c 4e 28 27 4e 55 4d 42 45 52 20 4f 46 20 52 45 43 4f 52 44 53 ┆); 2 WRITELN('NUMBER OF RECORDS┆
0x580…5a0 20 49 53 27 2c 54 4f 54 41 4c 41 4e 54 41 4c 3a 35 3a 2d 32 29 3b 32 11 20 20 43 4c 4f 53 45 28 ┆ IS',TOTALANTAL:5:-2);2 CLOSE(┆
0x5a0…5c0 52 42 43 46 49 4c 45 29 3b 11 04 45 4e 44 3b 04 01 20 01 06 28 2a 24 50 2a 29 06 13 50 52 4f 43 ┆RBCFILE); END; (*$P*) PROC┆
0x5c0…5e0 45 44 55 52 45 20 50 47 42 41 43 4b 41 4c 3b 13 05 42 45 47 49 4e 05 0c 20 20 47 45 54 28 57 46 ┆EDURE PGBACKAL; BEGIN GET(WF┆
0x5e0…600 41 4c 29 3b 0c 18 20 20 49 46 20 57 46 41 4c 5e 2e 49 4e 58 4e 52 3d 30 20 54 48 45 4e 20 18 0a ┆AL); IF WFAL^.INXNR=0 THEN ┆
0x600…620 20 20 20 20 20 42 45 47 49 4e 0a 0f 20 20 20 20 20 20 20 49 58 41 4c 3a 3d 31 3b 0f 12 20 20 20 ┆ BEGIN IXAL:=1; ┆
0x620…640 20 20 20 20 49 4e 58 4e 4f 41 4c 3a 3d 30 3b 12 08 20 20 20 20 20 45 4e 44 08 06 20 20 45 4c 53 ┆ INXNOAL:=0; END ELS┆
0x640…660 45 06 0a 20 20 20 20 20 42 45 47 49 4e 0a 19 20 20 20 20 20 20 20 49 58 41 4c 3a 3d 57 46 41 4c ┆E BEGIN IXAL:=WFAL┆
0x660…680 5e 2e 49 4e 58 4e 52 3b 19 17 20 20 20 20 20 20 20 53 45 45 4b 28 57 46 41 4c 2c 49 58 41 4c 29 ┆^.INXNR; SEEK(WFAL,IXAL)┆
0x680…6a0 3b 17 11 20 20 20 20 20 20 20 47 45 54 28 57 46 41 4c 29 3b 11 1c 20 20 20 20 20 20 20 49 4e 58 ┆; GET(WFAL); INX┆
0x6a0…6c0 4e 4f 41 4c 3a 3d 57 46 41 4c 5e 2e 49 4e 58 4e 52 3b 1c 1d 20 20 20 20 20 20 20 53 45 45 4b 28 ┆NOAL:=WFAL^.INXNR; SEEK(┆
0x6c0…6e0 44 46 35 37 32 41 4c 2c 49 4e 58 4e 4f 41 4c 29 3b 1d 17 20 20 20 20 20 20 20 53 45 45 4b 28 57 ┆DF572AL,INXNOAL); SEEK(W┆
0x6e0…700 46 41 4c 2c 49 58 41 4c 29 3b 17 1a 20 20 20 20 20 20 20 49 4e 58 4e 4f 41 4c 3a 3d 49 4e 58 4e ┆FAL,IXAL); INXNOAL:=INXN┆
0x700…720 4f 41 4c 2d 31 3b 1a 1a 20 20 20 20 20 20 20 49 58 41 4c 20 20 20 3a 3d 49 58 41 4c 20 20 20 2d ┆OAL-1; IXAL :=IXAL -┆
0x720…740 31 3b 1a 09 20 20 20 20 20 45 4e 44 3b 09 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 13 50 52 4f ┆1; END; END; (*$P*) PRO┆
0x740…760 43 45 44 55 52 45 20 50 47 42 41 43 4b 48 41 3b 13 05 42 45 47 49 4e 05 0c 20 20 47 45 54 28 57 ┆CEDURE PGBACKHA; BEGIN GET(W┆
0x760…780 46 48 41 29 3b 0c 18 20 20 49 46 20 57 46 48 41 5e 2e 49 4e 58 4e 52 3d 30 20 54 48 45 4e 20 18 ┆FHA); IF WFHA^.INXNR=0 THEN ┆
0x780…7a0 0a 20 20 20 20 20 42 45 47 49 4e 0a 0f 20 20 20 20 20 20 20 49 58 48 41 3a 3d 31 3b 0f 12 20 20 ┆ BEGIN IXHA:=1; ┆
0x7a0…7c0 20 20 20 20 20 49 4e 58 4e 4f 48 41 3a 3d 30 3b 12 08 20 20 20 20 20 45 4e 44 08 06 20 20 45 4c ┆ INXNOHA:=0; END EL┆
0x7c0…7e0 53 45 06 0a 20 20 20 20 20 42 45 47 49 4e 0a 19 20 20 20 20 20 20 20 49 58 48 41 3a 3d 57 46 48 ┆SE BEGIN IXHA:=WFH┆
0x7e0…800 41 5e 2e 49 4e 58 4e 52 3b 19 17 20 20 20 20 20 20 20 53 45 45 4b 28 57 46 48 41 2c 49 58 48 41 ┆A^.INXNR; SEEK(WFHA,IXHA┆
0x800…820 29 3b 17 11 20 20 20 20 20 20 20 47 45 54 28 57 46 48 41 29 3b 11 1c 20 20 20 20 20 20 20 49 4e ┆); GET(WFHA); IN┆
0x820…840 58 4e 4f 48 41 3a 3d 57 46 48 41 5e 2e 49 4e 58 4e 52 3b 1c 1d 20 20 20 20 20 20 20 53 45 45 4b ┆XNOHA:=WFHA^.INXNR; SEEK┆
0x840…860 28 44 46 35 37 32 48 41 2c 49 4e 58 4e 4f 48 41 29 3b 1d 17 20 20 20 20 20 20 20 53 45 45 4b 28 ┆(DF572HA,INXNOHA); SEEK(┆
0x860…880 57 46 48 41 2c 49 58 48 41 29 3b 17 1a 20 20 20 20 20 20 20 49 4e 58 4e 4f 48 41 3a 3d 49 4e 58 ┆WFHA,IXHA); INXNOHA:=INX┆
0x880…8a0 4e 4f 48 41 2d 31 3b 1a 1a 20 20 20 20 20 20 20 49 58 48 41 20 20 20 3a 3d 49 58 48 41 20 20 20 ┆NOHA-1; IXHA :=IXHA ┆
0x8a0…8c0 2d 31 3b 1a 09 20 20 20 20 20 45 4e 44 3b 09 04 45 4e 44 3b 04 47 20 20 20 20 20 20 20 20 20 20 ┆-1; END; END; G ┆
0x8c0…8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e0…900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 50 2a 29 47 12 50 ┆ (*$P*)G P┆
0x900…920 52 4f 43 45 44 55 52 45 20 50 41 43 4b 4f 55 54 3b 12 05 42 45 47 49 4e 05 0f 20 20 47 4f 54 4f ┆ROCEDURE PACKOUT; BEGIN GOTO┆
0x920…940 58 59 28 35 2c 31 37 29 3b 0f 27 20 20 57 52 49 54 45 4c 4e 28 27 55 4e 50 41 43 4b 49 4e 47 20 ┆XY(5,17); ' WRITELN('UNPACKING ┆
0x940…960 4f 46 20 27 27 52 42 43 2d 46 49 4c 45 27 27 27 29 3b 27 0d 20 20 48 45 41 44 32 50 52 49 4e 54 ┆OF ''RBC-FILE''');' HEAD2PRINT┆
0x960…980 3b 0d 0d 20 20 48 45 41 44 33 50 52 49 4e 54 3b 0d 1e 20 20 52 45 53 45 54 28 52 42 43 46 49 4c ┆; HEAD3PRINT; RESET(RBCFIL┆
0x980…9a0 45 2c 27 4b 4f 4d 46 49 4c 45 3a 50 32 27 29 3b 1e 2a 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c ┆E,'KOMFILE:P2'); * IF IORESULT<┆
0x9a0…9c0 3e 30 20 54 48 45 4e 20 4f 50 45 4e 46 45 4a 4c 28 27 52 42 43 46 49 4c 45 27 29 3b 2a 19 20 20 ┆>0 THEN OPENFEJL('RBCFILE');* ┆
0x9c0…9e0 52 45 53 45 54 20 28 57 46 41 4c 2c 27 57 46 41 4c 3a 50 32 27 29 3b 19 3b 20 20 49 46 20 28 00 ┆RESET (WFAL,'WFAL:P2'); ; IF ( ┆