DataMuseum.dk Presents historical artifacts from the history of: RegneCentralen RC700 "Piccolo"

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

top - download

⟦69cd63633⟧

    Length: 768 (0x300)
    Names: »PRINT.CML«

Derivation

└─⟦f4454744f⟧ Bits:30003901 CP/M 2.2 diskette med to COMAL80 fortolkere (RC702)
    └─ ⟦this⟧ »PRINT.CML« 

Hex Dump

0x000…020 35 39 39 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 0d 36 30 30 30 20 20 20 2f 2f 50 4f 4b 45 20   ┆5990 PROC PRINTER 6000   //POKE ┆
0x020…040 31 33 37 39 2c 20 31 33 32 0d 36 30 31 30 20 20 20 52 50 4f 53 3a 3d 36 33 34 38 37 2e 30 3b 20   ┆1379, 132 6010   RPOS:=63487.0; ┆
0x040…060 47 52 41 46 3a 3d 46 41 4c 53 45 3b 20 53 4b 49 46 54 3a 3d 54 52 55 45 0d 36 30 32 30 20 20 20   ┆GRAF:=FALSE; SKIFT:=TRUE 6020   ┆
0x060…080 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 52 49 4e 54 45 52 22 0d 36 30 33 30 20 20 20 50   ┆SELECT OUTPUT "PRINTER" 6030   P┆
0x080…0a0 52 49 4e 54 20 43 48 52 24 28 32 39 29 3b 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 36 36 29 0d   ┆RINT CHR$(29);CHR$(27);CHR$(66) ┆
0x0a0…0c0 36 30 34 30 20 20 20 46 4f 52 20 4c 49 4e 4a 45 3a 3d 31 20 54 4f 20 32 34 20 44 4f 20 0d 36 30   ┆6040   FOR LINJE:=1 TO 24 DO  60┆
0x0c0…0e0 35 30 20 20 20 20 20 46 4f 52 20 58 50 3a 3d 31 20 54 4f 20 38 30 20 44 4f 20 0d 36 30 36 30 20   ┆50     FOR XP:=1 TO 80 DO  6060 ┆
0x0e0…100 20 20 20 20 20 20 52 50 4f 53 3a 2b 31 0d 36 30 37 30 20 20 20 20 20 20 20 2f 2f 4b 23 3a 3d 50   ┆      RPOS:+1 6070       //K#:=P┆
0x100…120 45 45 4b 28 52 50 4f 53 29 0d 36 30 38 30 20 20 20 20 20 20 20 49 46 20 4b 3e 31 32 37 20 54 48   ┆EEK(RPOS) 6080       IF K>127 TH┆
0x120…140 45 4e 20 0d 36 30 39 30 20 20 20 20 20 20 20 20 20 4b 3a 3d 31 34 2b 28 4b 3d 31 32 38 29 3b 20   ┆EN  6090         K:=14+(K=128); ┆
0x140…160 47 52 41 46 3a 3d 28 4b 3d 31 34 29 3b 20 53 4b 49 46 54 3a 3d 54 52 55 45 0d 36 31 30 30 20 20   ┆GRAF:=(K=14); SKIFT:=TRUE 6100  ┆
0x160…180 20 20 20 20 20 45 4c 53 45 20 0d 36 31 31 30 20 20 20 20 20 20 20 20 20 49 46 20 47 52 41 46 20   ┆     ELSE  6110         IF GRAF ┆
0x180…1a0 54 48 45 4e 20 4b 3a 2b 33 32 2a 28 4b 3e 33 31 29 2a 28 4b 3c 36 34 29 2d 36 34 2a 28 4b 3e 39   ┆THEN K:+32*(K>31)*(K<64)-64*(K>9┆
0x1a0…1c0 35 29 0d 36 31 32 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 36 31 33 30 20 20 20 20 20 20 20   ┆5) 6120       ENDIF  6130       ┆
0x1c0…1e0 50 52 49 4e 54 20 43 48 52 24 28 4b 29 3b 0d 36 31 34 30 20 20 20 20 20 20 20 49 46 20 53 4b 49   ┆PRINT CHR$(K); 6140       IF SKI┆
0x1e0…200 46 54 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 33 32 2b 33 32 2a 47 52 41 46 29 3b 0d   ┆FT THEN PRINT CHR$(32+32*GRAF); ┆
0x200…220 36 31 35 30 20 20 20 20 20 20 20 53 4b 49 46 54 3a 3d 46 41 4c 53 45 0d 36 31 36 30 20 20 20 20   ┆6150       SKIFT:=FALSE 6160    ┆
0x220…240 20 4e 45 58 54 20 58 50 0d 36 31 37 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 31 35 29   ┆ NEXT XP 6170     PRINT CHR$(15)┆
0x240…260 0d 36 31 38 30 20 20 20 4e 45 58 54 20 4c 49 4e 4a 45 0d 36 31 39 30 20 20 20 50 52 49 4e 54 20   ┆ 6180   NEXT LINJE 6190   PRINT ┆
0x260…280 43 48 52 24 28 33 30 29 3b 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 36 35 29 0d 36 32 30 30 20   ┆CHR$(30);CHR$(27);CHR$(65) 6200 ┆
0x280…2a0 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 43 4f 4e 53 4f 4c 45 22 0d 36 32 31 30 20 45   ┆  SELECT OUTPUT "CONSOLE" 6210 E┆
0x2a0…2c0 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 0d 20 20 20 50 52 49 4e 54 20 43 48 52 24 28 31 35 29   ┆NDPROC PRINTER    PRINT CHR$(15)┆
0x2c0…2e0 0d 36 31 38 30 20 20 20 4e 45 58 54 20 4c 49 4e 4a 45 0d 36 31 39 30 20 20 20 50 52 49 4e 54 20   ┆ 6180   NEXT LINJE 6190   PRINT ┆
0x2e0…300 43 48 52 24 28 33 30 29 3b 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 36 35 29 0d 36 32 30 30 2f   ┆CHR$(30);CHR$(27);CHR$(65) 6200/┆