|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 256 (0x100)
Names: »HEADERS.DAT«
└─⟦b5c9f25d9⟧ Bits:30004195/disk4.imd Programmer til datalære fra UV-Datateket på Comet
└─⟦this⟧ »HEADERS.DAT«
0x000…020 (0,) 50 55 54 20 22 28 4a 41 2f 52 45 54 55 52 4e 29 20 22 3a 20 53 24 0d 31 37 34 30 20 20 20 20 20 ┆PUT "(JA/RETURN) ": S$ 1740 ┆
0x020…040 49 46 20 53 24 3d 22 4a 41 22 20 54 48 45 4e 20 4e 41 56 4e 24 28 45 4c 45 56 4e 52 29 3a 3d 22 ┆IF S$="JA" THEN NAVN$(ELEVNR):="┆
0x040…060 22 0d 31 37 35 30 20 20 20 45 4e 44 49 46 20 0d 31 37 36 30 20 45 4e 44 50 52 4f 43 20 53 4c 45 ┆" 1750 ENDIF 1760 ENDPROC SLE┆
0x060…080 54 45 4c 45 56 0d 31 37 37 30 20 2f 2f 0d 31 37 38 30 20 50 52 4f 43 20 4e 59 4b 4c 41 53 53 45 ┆TELEV 1770 // 1780 PROC NYKLASSE┆
0x080…0a0 0d 31 37 39 30 20 20 20 45 58 45 43 20 49 4e 44 28 22 5d 52 47 41 4e 47 22 29 0d 31 38 30 30 20 ┆ 1790 EXEC IND("ÅRGANG") 1800 ┆
0x0a0…0c0 20 20 45 58 45 43 20 49 4e 49 54 4b 4c 41 53 53 45 0d 31 38 31 30 20 20 20 43 4c 45 41 52 20 0d ┆ EXEC INITKLASSE 1810 CLEAR ┆
0x0c0…0e0 31 38 32 30 20 20 20 45 4c 45 56 4e 52 3a 3d 31 0d 31 38 33 30 20 20 20 52 45 50 45 41 54 20 0d ┆1820 ELEVNR:=1 1830 REPEAT ┆
0x0e0…100 31 38 34 30 20 20 20 20 20 50 52 49 4e 54 20 22 45 4c 45 56 20 4e 55 4d 4d 45 52 20 22 2c 45 4c ┆1840 PRINT "ELEV NUMMER ",EL┆