|
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: 1792 (0x700)
Names: »DESSERT.CSB«
└─⟦b5c9f25d9⟧ Bits:30004195/disk4.imd Programmer til datalære fra UV-Datateket på Comet
└─⟦this⟧ »DESSERT.CSB«
0x000…020 (0,) 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 7c 72 67 65 20 63 68 72 69 73 74 ┆er: børge christ┆ 0x020…040 65 6e 73 65 6e 2c 74 7c 6e 64 65 72 f8 8c 00 08 71 f9 00 00 f8 96 00 43 71 f9 3b 00 50 52 4f 47 ┆ensen,tønder q Cq ; PROG┆ 0x040…060 52 41 4d 42 45 53 4b 52 49 56 45 4c 53 45 3a 20 20 45 74 20 65 6c 65 6d 65 6e 74 7b 72 74 20 65 ┆RAMBESKRIVELSE: Et elementært e┆ 0x060…080 6b 73 65 6d 70 65 6c 20 70 7d 20 73 74 72 75 6b 74 75 72 65 72 65 74 f8 a0 00 40 71 f9 38 00 62 ┆ksempel på struktureret @q 8 b┆ 0x080…0a0 72 75 67 20 61 66 20 43 41 53 45 2d 57 48 45 4e 2d 45 4e 44 43 41 53 45 20 73 61 6d 74 20 49 46 ┆rug af CASE-WHEN-ENDCASE samt IF┆ 0x0a0…0c0 2d 45 4c 53 45 2d 45 4e 44 49 46 20 69 20 43 6f 6d 61 6c 2d 38 30 2e f8 aa 00 3a 71 f9 32 00 50 ┆-ELSE-ENDIF i Comal-80. :q 2 P┆ 0x0c0…0e0 72 6f 67 72 61 6d 6d 65 74 20 6b 61 6e 20 75 64 62 79 67 67 65 73 20 65 66 74 65 72 20 69 6e 64 ┆rogrammet kan udbygges efter ind┆ 0x0e0…100 69 76 69 64 75 65 6c 6c 65 20 7c 6e 73 6b 65 72 2e f8 b4 00 08 71 f9 00 00 f8 be 00 08 71 f9 00 ┆ividuelle ønsker. q q ┆ 0x100…120 00 f8 c8 00 08 71 f9 00 00 f8 d2 00 10 71 f9 08 00 69 6e 64 64 61 74 61 3a f8 dc 00 08 71 f9 00 ┆ q q inddata: q ┆ 0x120…140 00 f8 e6 00 08 71 f9 00 00 f8 f0 00 08 71 f9 00 00 f8 fa 00 08 71 f9 00 00 f8 04 01 17 71 f9 0f ┆ q q q q ┆ 0x140…160 00 66 69 6c 62 65 73 6b 72 69 76 65 6c 73 65 3a f8 0e 01 08 71 f9 00 00 f8 18 01 08 71 f9 00 00 ┆ filbeskrivelse: q q ┆ 0x160…180 f8 22 01 0f 71 f9 07 00 75 64 64 61 74 61 3a f8 2c 01 08 71 f9 00 00 f8 36 01 08 71 f9 00 00 f8 ┆ " q uddata: , q 6 q ┆ 0x180…1a0 40 01 08 71 f9 00 00 f8 4a 01 08 71 f9 00 00 f8 54 01 08 71 f9 00 00 f8 5e 01 08 71 f9 00 00 f8 ┆@ q J q T q ^ q ┆ 0x1a0…1c0 68 01 18 73 ff 00 df fa 05 47 0a 00 31 e6 ff 01 df fa 05 47 03 00 31 f8 72 01 05 ac f8 7c 01 05 ┆h s G 1 G 1 r ø ┆ 0x1c0…1e0 7c f8 86 01 0f 96 fa 09 41 02 47 08 00 43 02 31 f8 90 01 40 aa fa 37 45 32 00 41 4e 47 49 56 20 ┆ø A G C 1 @ 7E2 ANGIV ┆ 0x1e0…200 44 45 52 45 53 20 41 4e 53 49 47 54 53 46 41 52 56 45 20 28 42 4c 45 47 2f 4c 59 53 45 52 5c 44 ┆DERES ANSIGTSFARVE (BLEG/LYSERØD┆ 0x200…220 (1,) 2f 42 4c 5d 4c 49 47 2f 47 55 4c 29 31 f7 04 e7 f8 9a 01 0a 95 fa 04 38 00 31 f8 a4 01 0a 96 fa ┆/BLÅLIG/GUL)1 8 1 ┆ 0x220…240 04 41 03 31 f8 ae 01 0f 96 fa 09 41 02 47 01 00 43 02 31 f8 b8 01 26 aa fa 1d 45 18 00 46 4c 45 ┆ A 1 A G C 1 & E FLE┆ 0x240…260 52 45 20 50 41 54 49 45 4e 54 45 52 20 28 4a 41 2f 4e 45 4a 29 31 f7 04 e7 f8 c2 01 0a 95 fa 04 ┆RE PATIENTER (JA/NEJ)1 ┆ 0x260…280 38 01 31 f8 cc 01 05 ac f8 d6 01 14 7d fb cf fa 0c 38 01 3b 45 03 00 4e 45 4a 6f 31 f8 e0 01 10 ┆8 1 å 8 ;E NEJo1 ┆ 0x280…2a0 a7 fa 0a 45 05 00 4c 4f 47 4f 4e 31 f8 ea 01 08 71 f9 00 00 f8 f4 01 09 74 e9 cf ff 03 f8 fe 01 ┆ E LOGON1 q t ┆ 0x2a0…2c0 0f 96 fa 09 41 02 47 08 00 43 02 31 f8 08 02 0f 80 00 d0 04 fa 05 38 00 3b 31 df f8 12 02 16 81 ┆ A G C 1 8 ;1 ┆ 0x2c0…2e0 43 2e 43 2e 04 fa 09 45 04 00 42 4c 45 47 31 f7 04 f8 1c 02 35 aa fa 2d 45 28 00 44 45 20 4c 49 ┆C.C. E BLEG1 5 -E( DE LI┆ 0x2e0…300 44 45 52 20 41 46 20 42 4c 4f 44 4d 41 4e 47 45 4c 2c 20 4f 47 20 4d 5d 20 48 41 56 45 20 4a 45 ┆DER AF BLODMANGEL, OG MÅ HAVE JE┆ 0x300…320 52 4e 2e 31 f7 04 f8 26 02 31 aa fa 29 45 24 00 47 5d 20 48 4a 45 4d 20 4f 47 20 4b 4f 47 20 53 ┆RN.1 & 1 )E$ GÅ HJEM OG KOG S┆ 0x320…340 55 50 50 45 20 50 5d 20 44 45 52 45 53 20 43 59 4b 45 4c 2e 31 f7 04 f8 30 02 19 81 46 2e 46 2e ┆UPPE PÅ DERES CYKEL.1 0 F.F.┆ 0x340…360 04 fa 0c 45 07 00 4c 59 53 45 52 5c 44 31 f7 04 f8 3a 02 3d aa fa 35 45 30 00 44 45 20 48 41 52 ┆ E LYSERØD1 : = 5E0 DE HAR┆ 0x360…380 20 44 45 54 20 46 4f 52 54 52 5b 46 46 45 4c 49 47 54 2e 20 4c 41 44 20 56 5b 52 45 20 4d 45 44 ┆ DET FORTRÆFFELIGT. LAD VÆRE MED┆ 0x380…3a0 20 41 54 20 53 50 49 4c 44 45 31 f7 04 f8 44 02 3a aa fa 32 45 2d 00 4d 49 4e 20 54 49 44 21 20 ┆ AT SPILDE1 D : 2E- MIN TID! ┆ 0x3a0…3c0 56 45 44 20 44 45 20 49 4b 4b 45 2c 20 41 54 20 41 4d 54 45 54 20 4d 41 4e 47 4c 45 52 20 50 45 ┆VED DE IKKE, AT AMTET MANGLER PE┆ 0x3c0…3e0 4e 47 45 21 31 f7 04 f8 4e 02 18 81 45 2e 45 2e 04 fa 0b 45 06 00 42 4c 5d 4c 49 47 31 f7 04 f8 ┆NGE!1 N E.E. E BLÅLIG1 ┆ 0x3e0…400 58 02 3b aa fa 33 45 2e 00 45 4c 45 4e 44 49 47 45 20 44 52 55 4b 4b 45 4e 42 4f 4c 54 2e 20 44 ┆X ; 3E. ELENDIGE DRUKKENBOLT. D┆ 0x400…420 (2,) 44 45 20 48 41 52 20 56 55 4e 44 45 54 2e 22 0d 30 36 31 30 20 20 20 20 20 50 52 49 4e 54 20 22 ┆DE HAR VUNDET." 0610 PRINT "┆ 0x420…440 44 45 52 45 53 20 49 4e 44 53 41 54 53 20 56 41 52 20 50 5d 20 22 2c 49 4e 44 53 41 54 53 2c 22 ┆DERES INDSATS VAR PÅ ",INDSATS,"┆ 0x440…460 20 4b 52 2e 22 0d 30 36 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 53 5d 20 44 45 20 46 5d 52 20 ┆ KR." 0620 PRINT "SÅ DE FÅR ┆ 0x460…480 55 44 42 45 54 41 4c 54 20 22 2c 49 4e 44 53 41 54 53 2a 47 45 56 49 4e 53 54 46 41 4b 54 4f 52 ┆UDBETALT ",INDSATS*GEVINSTFAKTOR┆ 0x480…4a0 2c 22 20 4b 52 2e 22 0d 30 36 33 30 20 20 20 45 4c 53 45 20 0d 30 36 34 30 20 20 20 20 20 50 52 ┆," KR." 0630 ELSE 0640 PR┆ 0x4a0…4c0 49 4e 54 20 22 44 45 20 48 41 52 20 44 45 53 56 5b 52 52 45 20 54 41 42 54 2e 20 42 45 44 52 45 ┆INT "DE HAR DESVÆRRE TABT. BEDRE┆ 0x4c0…4e0 20 48 45 4c 44 20 4e 5b 53 54 45 20 47 41 4e 47 2e 22 0d 30 36 35 30 20 20 20 45 4e 44 49 46 20 ┆ HELD NÆSTE GANG." 0650 ENDIF ┆ 0x4e0…500 0d 30 36 36 30 20 20 20 50 52 49 4e 54 20 0d 30 36 37 30 20 20 20 49 4e 50 55 54 20 22 46 4c 45 ┆ 0660 PRINT 0670 INPUT "FLE┆ 0x500…520 52 45 20 53 50 49 4c 20 28 4e 45 4a 2f 52 45 54 55 52 4e 29 3f 20 22 3a 20 53 56 41 52 24 0d 30 ┆RE SPIL (NEJ/RETURN)? ": SVAR$ 0┆ 0x520…540 36 38 30 20 45 4e 44 50 52 4f 43 20 52 45 53 55 4c 54 41 54 0d 30 36 39 30 20 2f 2f 0d 30 37 30 ┆680 ENDPROC RESULTAT 0690 // 070┆ 0x540…560 30 20 50 52 4f 43 20 53 4b 52 49 56 46 52 41 0d 30 37 31 30 20 20 20 43 4c 45 41 52 20 0d 30 37 ┆0 PROC SKRIVFRA 0710 CLEAR 07┆ 0x560…580 32 30 20 20 20 43 55 52 53 4f 52 20 31 2c 20 38 0d 30 37 33 30 20 45 4e 44 50 52 4f 43 20 53 4b ┆20 CURSOR 1, 8 0730 ENDPROC SK┆ 0x580…5a0 52 49 56 46 52 41 0d 30 37 34 30 20 2f 2f 0d 54 55 52 4e 29 3f 20 22 3a 20 53 56 41 52 24 0d 30 ┆RIVFRA 0740 // TURN)? ": SVAR$ 0┆ 0x5a0…5c0 36 38 30 20 45 4e 44 50 52 4f 43 20 52 45 53 55 4c 54 41 54 0d 30 36 39 30 20 2f 2f 0d 30 37 30 ┆680 ENDPROC RESULTAT 0690 // 070┆ 0x5c0…5e0 30 20 50 52 4f 43 20 53 4b 52 49 56 46 52 41 0d 30 37 31 30 20 20 20 43 4c 45 41 52 20 0d 30 37 ┆0 PROC SKRIVFRA 0710 CLEAR 07┆ 0x5e0…600 32 30 20 20 20 43 55 52 53 4f 52 20 31 2c 20 38 0d 30 37 33 30 20 45 4e 44 50 52 4f 43 20 53 0f ┆20 CURSOR 1, 8 0730 ENDPROC S ┆ 0x600…620 (3,) 03 22 aa fa 1a 45 15 00 48 55 52 52 41 2c 20 44 45 20 48 41 52 20 56 55 4e 44 45 54 2e 31 f7 04 ┆ " E HURRA, DE HAR VUNDET.1 ┆ 0x620…640 f8 98 03 38 aa fa 1a 45 15 00 44 45 52 45 53 20 49 4e 44 53 41 54 53 20 56 41 52 20 50 5d 20 31 ┆ 8 E DERES INDSATS VAR PÅ 1┆ 0x640…660 f7 04 e7 fa 05 38 09 3b 31 f7 03 e7 fa 09 45 04 00 20 4b 52 2e 31 f7 04 f8 a2 03 3a aa fa 18 45 ┆ 8 ;1 E KR.1 : E┆ 0x660…680 13 00 53 5d 20 44 45 20 46 5d 52 20 55 44 42 45 54 41 4c 54 20 31 f7 04 e7 fa 09 38 09 3b 38 07 ┆ SÅ DE FÅR UDBETALT 1 8 ;8 ┆ 0x680…6a0 3b 4e 31 f7 03 e7 fa 09 45 04 00 20 4b 52 2e 31 f7 04 f8 ac 03 07 7a 3d 2e f8 b6 03 39 aa fa 31 ┆;N1 E KR.1 z=. 9 1┆ 0x6a0…6c0 45 2c 00 44 45 20 48 41 52 20 44 45 53 56 5b 52 52 45 20 54 41 42 54 2e 20 42 45 44 52 45 20 48 ┆E, DE HAR DESVÆRRE TABT. BEDRE H┆ 0x6c0…6e0 45 4c 44 20 4e 5b 53 54 45 20 47 41 4e 47 2e 31 f7 04 f8 c0 03 05 7b f8 ca 03 05 aa f8 d4 03 27 ┆ELD NÆSTE GANG.1 æ '┆ 0x6e0…700 95 45 19 00 46 4c 45 52 45 20 53 50 49 4c 20 28 4e 45 4a 2f 52 45 54 55 52 4e 29 3f 20 ea fa 04 ┆ E FLERE SPIL (NEJ/RETURN)? ┆