|
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 - metricsIndex: 8 C E F I T V
Length: 1177344 (0x11f700)
Description: Bits:30005982/disk2.imd RC Computer - Turn Key Data Entry System - Vers. 1.91
Types: 8" Floppy Disk, CpmFSAuto, ImdContainer
Notes: CP/M-fs(512_2048_0x0_48_*4+1+2+3+4_2:0_76:1)
Media: [0, 0, 1] … [76, 1, 15] {128: 26, 256: 26, 512: 2280}
Signature: 512_2048_0x0_48_*4+1+2+3+4_2:0_76:1
Confidence score: +51/-0
Sector size: 512
Block size: 2048
Directory entries: 48
Block number size: 16
Extent-mask: 0x00
Sector-interleave: 1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (74, 0), (74, 1), (75, 0), (75, 1), (76, 0), (76, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 6272 | CCB.MAC | ⟦5674cd9b7⟧ TextFile |
| 0 | 0 | 896 | CHAININF.BAS | ⟦d027eac15⟧ TextFile |
| 0 | 0 | 60416 | EENTRY.MAC | ⟦79d4fca9f⟧ TextFile |
| 0 | 0 | 33024 | EEOFPRC.MAC | ⟦21c62dddb⟧ TextFile |
| 0 | 0 | 23552 | EFMTINT.MAC | ⟦a8f464678⟧ TextFile |
| 0 | 0 | 17664 | EGENSUB.MAC | ⟦2cdca139d⟧ TextFile |
| 0 | 0 | 1280 | EMSGTAB.MAC | ⟦523da180c⟧ TextFile |
| 0 | 0 | 36096 | ENTRY.BAS | ⟦0ab20db56⟧ TextFile |
| 0 | 0 | 48256 | ENTRYME.BAS | ⟦8f09887af⟧ TextFile |
| 0 | 0 | 21888 | EUSRINT.MAC | ⟦2c4e1140f⟧ TextFile |
| 0 | 0 | 20096 | FFMTINT.MAC | ⟦6666399ed⟧ TextFile |
| 0 | 0 | 17280 | FFORMAT.MAC | ⟦5efa4b09f⟧ TextFile |
| 0 | 0 | 12672 | FGENSUB.MAC | ⟦e9918d40e⟧ TextFile |
| 0 | 0 | 1280 | FMSGTAB.MAC | ⟦38bb7dec9⟧ TextFile |
| 0 | 0 | 59264 | FORMAT.BAS | ⟦98e09604c⟧ TextFile |
| 0 | 0 | 11392 | FUSRINT.MAC | ⟦f163a092f⟧ TextFile |
| 0 | 0 | 4864 | INFO.TEX | ⟦7c5087024⟧ TextFile |
| 0 | 0 | 29824 | VERIFY.BAS | ⟦3e1b1c98b⟧ TextFile |
0x000000…000020 (0, 0, 1) f3 01 ff 15 11 00 da 21 10 00 ed b0 c3 00 da 7b c3 a3 df c3 74 e1 c3 00 e6 c3 51 e6 c3 6d e7 c3 ┆ ! æ t Q m ┆
0x000020…000040 f8 e1 c3 f6 e1 c3 f7 e1 c3 12 e2 c3 29 e2 c3 92 e2 c3 97 e2 c3 9c e2 c3 a1 e2 c3 b1 e2 c3 04 e2 ┆ ) ┆
0x000040…000060 c3 0f e2 51 0a 16 00 08 08 00 00 00 00 00 00 00 00 6d dd 68 da ed dd 0d de 00 00 00 00 00 00 00 ┆ Q m h ┆
0x000060…000080 00 6d dd 68 da 46 de 66 de 1a 00 03 07 00 f2 00 3f 00 c0 00 10 00 02 00 78 00 04 0f 00 c1 01 7f ┆ m h F f ? x ┆
0x000080…0000a0 (0, 0, 2) 00 c0 00 20 00 02 00 48 00 04 0f 01 86 00 7f 00 c0 00 20 00 02 00 68 00 04 0f 00 d7 01 7f 00 c0 ┆ H h ┆
0x0000a0…0000c0 00 20 00 00 00 01 07 0d 13 19 05 0b 11 17 03 09 0f 15 02 08 0e 14 1a 06 0c 12 18 04 0a 10 16 01 ┆ ┆
0x0000c0…0000e0 05 09 0d 02 06 0a 0e 03 07 0b 0f 04 08 0c 01 03 05 07 09 02 04 06 08 01 02 03 04 05 06 07 08 09 ┆ ┆
0x0000e0…000100 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 00 00 00 00 00 00 00 00 00 14 15 16 17 18 19 ┆ ┆
0x000100…000120 (0, 0, 3) 1a 59 da 08 1a 00 01 95 da 80 92 92 92 92 92 92 92 68 da 10 78 03 03 af da ff 92 92 92 92 92 92 ┆ Y h x ┆
0x000120…000140 80 77 da 10 48 03 03 be da ff ff ff fc ff ff ff 8a 86 da 08 68 01 02 c7 da ff ff ff ff ff ff ff ┆ w H h ┆
0x000140…000160 8c 1a 7f 00 00 00 1a 07 4d 1e ff 01 40 02 0f 1b 4d 12 ff 01 40 02 09 1b 24 34 ff 00 40 01 1a 0e ┆ M @ M @ $4 @ ┆
0x000160…000180 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆M ┆
0x000180…0001a0 (0, 0, 4) 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff 82 4a 40 4e 4e 6e 82 0a ff ff ff ff ff ff ff ff ┆ J@NNn ┆
0x0001a0…0001c0 80 a0 a0 a2 a0 e2 e2 6a ff ff ff ff fc ff ff ff aa a0 a0 62 ea ee ea aa df ff ff ff ff ff ff ff ┆ j b ┆
0x0001c0…0001e0 a6 a2 aa aa ea ea aa 20 ff ff ff ff ff ff ff ff e2 ea e0 6e ee ee a2 aa ff ff ff ff ff ff ff ff ┆ n ┆
0x0001e0…000200 92 92 92 92 b2 b2 b2 b2 b2 b2 b2 b2 b0 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 92 b2 b2 b2 b2 b2 b2 b2 ┆ ┆
0x000200…000220 (0, 0, 5) b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 ┆ ┆
0x000220…000240 00 00 00 00 00 00 20 24 ed 6d fd ff 7c 7f 7f 57 02 00 00 00 20 20 00 04 df bc 7d ff ff 7f 7b ff ┆ $ m ø W å æ ┆
0x000240…000260 00 00 00 00 08 08 08 00 5f ff ff ff 7f 7f 7f 37 00 04 04 04 04 04 00 00 55 55 5f fd 7f 7f 7f df ┆ _ 7 UU_ ┆
0x000260…000280 80 80 80 11 80 80 00 4d fd 7d ff ff fd ff 7f 7f 82 80 00 00 68 ee 48 04 df fd 7f ff ff 7f fb ff ┆ M å h H ┆
0x000280…0002a0 (0, 0, 6) 01 00 00 00 88 88 08 00 ff ff ff ff ff ff 7f ff 80 84 84 04 8c 84 80 80 7d fd 7f ff 7f 7f ff ff ┆ å ┆
0x0002a0…0002c0 00 00 00 00 00 00 00 4f 4f 6f ff ff 7c 7f 5f 5f 02 00 00 00 6e 6e 4e 06 df ff 7f ff ff 7f 7f ff ┆ OOo ø __ nnN ┆
0x0002c0…0002e0 05 44 00 00 0a 4a 0a 00 5f ff ff 5f 5f 5f 7f 7f 00 04 04 04 0c 0e 0a 0a 5f 5f 5f 7f 5f 5f 7f df ┆ D J _ ___ ___ __ ┆
0x0002e0…000300 80 80 80 08 00 80 20 28 ee ed fe de fc ff ff ff 82 80 80 00 aa aa 0a 00 de fe ff ff ff fb fb ff ┆ ( ┆
0x000300…000320 (0, 0, 7) 00 80 80 00 0a 0a 0a 00 df ff df df df ff ff bf 80 88 80 84 8a 8a 8a 8a ff bf ff ff ff df ff df ┆ ┆
0x000320…000340 80 80 a0 a1 80 a0 a0 2f ef ef ff ff fd ff ff ff 82 80 a0 20 ae ae 2e 27 df ff ff ff ff 7f 7f ff ┆ / .' ┆
0x000340…000360 05 04 a4 24 aa aa 8a 00 ff ff ff ff ff ff 7f ff 86 84 a4 a4 ae ae aa aa ff ff ff ff ff ff 7f ff ┆ $ ┆
0x000360…000380 80 a0 a0 e1 a0 a0 e0 6f ef ff ff ff fd ff ff ff a2 a0 a0 20 ee ee 6e 26 3a db 00 00 00 ff ff ff ┆ o n&: ┆
0x000380…0003a0 (0, 0, 8) 25 c4 a4 24 ea ea aa 20 3a db 00 00 00 ff ff ff a6 a6 a4 a4 ae ee aa aa ff ff ff ff ff ff ff ff ┆% $ : ┆
0x0003a0…0003c0 80 80 80 e1 80 e0 e0 6f ef ef ff ff fd ff ff ff 82 80 80 00 ee ee 6e 66 df ff ff ff ff ff ff ff ┆ o nf ┆
0x0003c0…0003e0 45 c6 a6 24 ea ca ca 00 ff ff ff ff ff ff ff ff 86 c6 a6 a6 ee ee aa aa ff ff ff ff ff ff ff ff ┆E $ ┆
0x0003e0…000400 80 a0 80 a5 80 80 a0 2f ef ef ff ff fd ff ff ff 82 80 80 00 ae ae 2e 26 df ff ff ff ff ff ff ff ┆ / .& ┆
0x000400…000420 (0, 0, 9) 05 86 a4 24 8a 8a 8a 00 df ff ff ff ff ff ff bf 86 86 84 84 8e 8e 8a 8a ff bf ff ff ff ff ff ff ┆ $ ┆
0x000420…000440 80 a0 a0 a1 a0 a0 a0 6f ff ff ff ff fd ff ff ff a2 a0 a0 20 ae ae 2e 27 df ff ff ff ff ff ff ff ┆ o .' ┆
0x000440…000460 25 a4 a4 24 aa aa aa 28 ff ff ff ff ff ff ff ff a6 a6 a4 a4 ae ae aa aa ff ff ff ff ff ff ff ff ┆% $ ( ┆
0x000460…000480 80 a0 a0 a4 a0 a0 a0 2f ef ef ff ff fd ff ff ff a2 a0 a0 20 ae ae 2e 26 df ff ff ff ff ff ff ff ┆ / .& ┆
0x000480…0004a0 (0, 0, 10) 05 84 a4 24 aa aa aa 20 ff ff ff ff ff ff ff bf a0 86 a4 a4 ac ae aa aa ff bf ff ff ff ff ff ff ┆ $ ┆
0x0004a0…0004c0 80 a0 a0 a5 a0 a0 a0 2f ef ff ff ff fd ff ff ff a2 a0 a0 20 ae 00 00 01 00 00 00 00 ff ff ff ff ┆ / ┆
0x0004c0…0004e0 25 84 a4 24 60 00 00 00 00 00 00 00 ff ff ff ff a6 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e ┆% $` ┆
0x0004e0…000500 0f 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000500…000520 (0, 0, 11) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000520…000540 00 00 00 00 00 00 00 00 00 00 00 ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000540…000560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000560…000580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 80 a0 b3 a0 b3 c6 b3 80 b4 0d 0a 72 65 ┆ @ re┆
0x000580…0005a0 (0, 0, 12) 73 74 61 72 74 00 0c 0d 0a 35 36 6b 20 63 70 2f 6d 20 76 65 72 73 20 32 2e 32 0d 0a 00 21 6c df ┆start 56k cp/m vers 2.2 !l ┆
0x0005a0…0005c0 cd 96 df c3 93 df 7e b7 c8 e5 4f cd 6d e7 e1 23 c3 96 df f3 31 80 00 3e 18 d3 0a d3 0b d3 32 d3 ┆ ü O m # 1 > 2 ┆
0x0005c0…0005e0 33 3e 03 d3 0c d3 0d d3 0e d3 0f 3e 00 d3 fd 3e 20 d3 f8 3e ec ed 47 ed 5e c3 e4 df 00 6b 01 50 ┆3> > > > G ^ k P┆
0x0005e0…000600 02 5a 03 0a 04 19 05 0a 06 19 07 19 08 00 09 0d 0c 00 0d 00 cd 77 e9 21 cc df 06 0c 7e d3 24 23 ┆ Z w ! ü $#┆
0x000600…000620 (0, 0, 13) 7e d3 25 23 10 f6 cd 66 e0 cd e5 e0 cd 49 e1 3e d7 d3 0f 3e 01 d3 0f 21 76 df cd 96 df af 32 5c ┆ü %# f I > > !v 2Ø┆
0x000620…000640 db 32 64 db 32 5d db 32 a8 de 3e 00 32 61 df d3 31 cd 43 e7 3e 40 32 62 df d3 31 cd 43 e7 3e 80 ┆ 2d 2Å 2 > 2a 1 C >@2b 1 C > ┆
0x000640…000660 32 63 df d3 31 cd 43 e7 cd ce e4 ca 74 e1 21 37 da 36 10 21 38 da 36 10 0e 01 cd 29 e2 cd 12 e2 ┆2c 1 C t !7 6 !8 6 ) ┆
0x000660…000680 78 e6 10 af 20 01 3c 32 a7 de c3 74 e1 cd 12 e2 78 e6 10 af 20 01 3e 00 d3 0e 3e c5 d3 0e 3e 01 ┆x <2 t x > > > ┆
0x000680…0006a0 (0, 0, 14) d3 0e 21 53 ec 22 04 ec 01 0d 40 cd d3 e9 3e 02 d3 20 01 c1 de 11 20 00 3e 08 cd b5 e9 fb 76 01 ┆ !S " @ > > v ┆
0x0006a0…0006c0 e1 de 11 80 00 3e 08 cd b5 e9 3e 03 d3 20 76 21 31 ec 22 04 ec 11 a7 ef 21 a6 ef 36 00 2b 36 20 ┆ > > v!1 " ! 6 +6 ┆
0x0006c0…0006e0 01 fe 0f ed b0 ed 43 61 e0 ed 43 5d e0 ed 43 63 e0 cd e4 e9 cd 2a e9 01 a5 ef 11 00 10 3e 08 cd ┆ Ca CÅ Cc * > ┆
0x0006e0…000700 b5 e9 af d3 20 76 01 18 00 ed 43 5f e0 cd 7c e9 af 32 65 e0 c9 f3 3e 18 d3 33 3e 04 d3 33 3e c7 ┆ v C_ ø 2e > 3> 3> ┆
0x000700…000720 (0, 0, 15) d3 33 3e 03 d3 33 3e c1 d3 33 3e 05 d3 33 3e e8 d3 33 3e f0 d3 31 cd 43 e7 3e f0 d3 31 cd 43 e7 ┆ 3> 3> 3> 3> 3> 1 C > 1 C ┆
0x000720…000740 3e d5 d3 31 cd 43 e7 21 64 df 06 04 56 23 5e 23 cd 35 e1 10 f7 3e f0 d3 31 cd 43 e7 3e f0 d3 31 ┆> 1 C !d V#^# 5 > 1 C > 1┆
0x000740…000760 cd 43 e7 fb c9 3e c0 d3 31 cd 43 e7 7a d3 31 cd 43 e7 7b d3 31 cd 43 e7 c9 3e 47 d3 0d 3e 20 d3 ┆ C > 1 C z 1 C æ 1 C >G > ┆
0x000760…000780 0d f3 3e 04 d3 0b 3e 4f d3 0b 3e 03 d3 0b 3e 20 d3 0b 3e 05 d3 0b 3e a8 d3 0b 3e 01 d3 0b 3e 00 ┆ > >O > > > > > > ┆
0x000780…0007a0 (0, 0, 16) d3 0b fb c9 fb 0e 00 cd 29 e2 3e 60 32 b4 de 97 32 b5 de 32 04 00 32 03 00 32 a1 de 32 a3 de 32 ┆ ) >`2 2 2 2 2 2 2┆
0x0007a0…0007c0 5e db cd 12 e2 31 80 00 01 00 c4 cd 9c e2 06 00 0e 01 cd 92 e2 06 2c 0e 00 cd 97 e2 c5 cd a1 e2 ┆^ 1 , ┆
0x0007c0…0007e0 fe 00 c2 8d df 2a aa de 11 80 00 19 44 4d cd 9c e2 c1 0c cd 97 e2 05 c2 ac e1 01 80 00 cd 9c e2 ┆ * DM ┆
0x0007e0…000800 cd 00 e6 fe ff 20 02 db 31 f3 3e c3 32 00 00 21 03 da 22 01 00 32 05 00 21 06 cc 22 06 00 3a a8 ┆ 1 > 2 ! " 2 ! " : ┆
0x000800…000820 (0, 0, 17) de 4f fb c3 00 c4 c9 c9 db 0b e6 04 fe 04 20 f8 79 d3 09 c9 db 0b e6 04 fe 04 3e ff c8 af c9 60 ┆ O y > `┆
0x000820…000840 69 c9 3a 51 db 32 a8 de 32 59 db af 32 5a db cd de e5 cd 7b e5 cd e5 e5 c9 21 00 00 3a a7 de b9 ┆i :Q 2 2Y 2Z æ ! : ┆
0x000840…000860 d8 79 32 51 db 06 00 21 37 da b7 28 04 23 01 10 00 7e 21 6a dd be 28 0f f5 c5 3a 5d db b7 c4 e3 ┆ y2Q !7 ( # ü!j ( :Å ┆
0x000860…000880 e3 af 32 5d db c1 f1 32 6a dd cd ce e4 22 68 dd 23 23 23 23 7e 32 a9 de c5 3a 6a dd b7 17 5f 16 ┆ 2Å 2j "h ####ü2 :j _ ┆
0x000880…0008a0 (0, 0, 18) 00 21 f1 da 19 11 e1 da 01 10 00 ed b0 c1 21 39 da 09 eb 21 0a 00 19 eb 3a e1 da 12 13 3a e2 da ┆ ! !9 ! : : ┆
0x0008a0…0008c0 12 c9 ed 43 52 db c9 79 32 54 db c9 ed 43 aa de c9 3e 01 32 66 db 32 65 db 3e 02 32 67 db c3 33 ┆ CR y2T C > 2f 2e > 2g 3┆
0x0008c0…0008e0 e3 af 32 66 db 79 32 67 db fe 02 20 18 3a e3 da 32 5e db 3a 51 db 32 5f db 2a 52 db 22 60 db 3a ┆ 2f y2g : 2^ :Q 2_ *R "` :┆
0x0008e0…000900 54 db 32 62 db 3a 5e db b7 ca 29 e3 3d 32 5e db 3a 51 db 21 5f db be c2 29 e3 21 60 db cd d7 e3 ┆T 2b :^ ) =2^ :Q !_ ) !` ┆
0x000900…000920 (0, 0, 19) c2 29 e3 3a 54 db 21 62 db be c2 29 e3 34 7e 21 e4 da be da 12 e3 21 62 db 36 00 21 60 db 23 22 ┆ ) :T !b ) 4ü! !b 6 !` #"┆
0x000920…000940 60 db af 32 65 db 3a 54 db 21 e5 da a6 be 3e 00 20 01 3c 32 63 db c3 33 e3 af 32 5e db 3a e5 da ┆` 2e :T ! > <2c 3 2^ : ┆
0x000940…000960 32 65 db 3a e6 da 47 3a 54 db 05 28 05 b7 1f c3 3a e3 32 5b db 21 5c db 7e 36 01 b7 ca 73 e3 3a ┆2e : G:T ( : 2Æ !Ø ü6 s :┆
0x000960…000980 51 db 21 55 db be c2 6c e3 21 56 db cd d7 e3 c2 6c e3 3a 5b db 21 58 db be ca 90 e3 3a 5d db b7 ┆Q !U l !V l :Æ !X :Å ┆
0x000980…0009a0 (0, 0, 20) c4 e3 e3 3a 51 db 32 55 db 2a 52 db 22 56 db 3a 5b db 32 58 db 3a 65 db b7 c4 e9 e3 af 32 5d db ┆ :Q 2U *R "V :Æ 2X :e 2Å ┆
0x0009a0…0009c0 3a 54 db 21 e5 da a6 6f 26 00 29 29 29 29 29 29 29 11 68 db 19 eb 2a aa de 01 80 00 eb 3a 66 db ┆:T ! o& ))))))) h * :f ┆
0x0009c0…0009e0 b7 20 06 3e 01 32 5d db eb ed b0 3a 67 db fe 01 21 64 db 7e 36 00 c0 b7 c0 af 32 5d db cd e3 e3 ┆ > 2Å :g !d ü6 2Å ┆
0x0009e0…000a00 21 64 db 7e 36 00 c9 eb 21 52 db 1a be c0 13 23 1a be c9 cd f8 e3 c3 b1 e4 3a 63 db b7 20 03 32 ┆!d ü6 !R # :c 2┆
0x000a00…000a20 (0, 0, 21) 5e db cd f8 e3 c3 6c e4 3a 58 db 4f 3a a9 de 47 3d b9 3a 55 db 30 0b f6 04 32 a8 de 79 90 4f c3 ┆^ l :X O: G= :U 0 2 y O ┆
0x000a20…000a40 15 e4 32 a8 de 06 00 2a e7 da 09 7e 32 a5 de 3a 56 db 32 a6 de 21 68 db 22 6b dd 3a 55 db 21 59 ┆ 2 * ü2 :V 2 !h "k :U !Y┆
0x000a40…000a60 db be 20 08 3a 56 db 21 5a db be c8 3a 55 db 32 59 db 3a 56 db 32 5a db cd de e5 cd c4 e5 cd e5 ┆ :V !Z :U 2Y :V 2Z ┆
0x000a60…000a80 e5 3a a8 de e6 03 c6 20 b8 c8 cd de e5 cd 7b e5 c5 cd e5 e5 cd c4 e5 cd e5 e5 c1 c9 3e 0a 32 b8 ┆ : æ > 2 ┆
0x000a80…000aa0 (0, 0, 22) de cd de e5 2a 68 dd 4e 23 46 23 cd e2 e4 cd 10 e5 cd f8 e5 0e 00 21 ac de 7e e6 f8 c8 e6 08 20 ┆ *h N#F# ! ü ┆
0x000aa0…000ac0 16 3a b8 de 3d 32 b8 de 28 0d fe 05 cc 5a e4 af b9 ca 71 e4 c3 b6 e4 79 32 5c db 3e 01 32 64 db ┆ : =2 ( Z q y2Ø > 2d ┆
0x000ac0…000ae0 c9 3e 0a 32 b8 de cd de e5 2a 68 dd 4e 23 46 23 cd ec e4 cd 15 e5 cd f8 e5 0e 01 c3 86 e4 21 32 ┆ > 2 *h N#F# !2┆
0x000ae0…000b00 db 3a 6a dd 5f 16 00 19 db 14 e6 80 c8 3e 01 d3 14 c9 3e 05 f3 d3 fa 3e 45 c3 f6 e4 3e 05 f3 d3 ┆ :j _ > > >E > ┆
0x000b00…000b20 (0, 0, 23) fa 3e 49 c3 f6 e4 d3 fb d3 fc 3a 6b dd d3 f2 3a 6c dd d3 f2 79 d3 f3 78 d3 f3 3e 01 d3 fa fb c9 ┆ >I :k :l y x > ┆
0x000b20…000b40 3e 06 c3 1a e5 3e 05 c3 1a e5 47 f3 cd 67 e5 78 46 23 80 d3 05 cd 67 e5 3a a8 de d3 05 cd 67 e5 ┆> > G g xF# g : g ┆
0x000b40…000b60 3a a6 de d3 05 cd 67 e5 3a a8 de 1f 1f e6 03 d3 05 cd 67 e5 3a a5 de d3 05 cd 67 e5 7e 23 d3 05 ┆: g : g : g ü# ┆
0x000b60…000b80 cd 67 e5 7e 23 d3 05 cd 67 e5 7e d3 05 cd 67 e5 3a e9 da d3 05 fb c9 db 04 e6 c0 fe 80 c2 67 e5 ┆ g ü# g ü g : g ┆
0x000b80…000ba0 (0, 0, 24) c9 db 04 e6 c0 fe c0 c2 71 e5 c9 cd 67 e5 3e 07 d3 05 cd 67 e5 3a a8 de e6 03 d3 05 c9 cd 67 e5 ┆ q g > g : g ┆
0x000ba0…000bc0 3e 04 d3 05 cd 67 e5 3a a8 de e6 03 d3 05 cd 71 e5 db 05 32 ac de c9 cd 67 e5 3e 08 d3 05 cd 71 ┆> g : q 2 g > q┆
0x000bc0…000be0 e5 db 05 32 ac de e6 c0 fe 80 c8 cd 71 e5 db 05 32 ad de c9 cd 67 e5 3e 0f d3 05 cd 67 e5 3a a8 ┆ 2 q 2 g > g : ┆
0x000be0…000c00 de e6 03 d3 05 cd 67 e5 3a a6 de d3 05 c9 f3 af 32 a0 de fb c9 3a a0 de e6 02 28 f9 3a ac de 47 ┆ g : 2 : ( : G┆
0x000c00…000c20 (0, 0, 25) 3a ad de 4f cd de e5 c9 3a a0 de e6 02 28 f9 c9 3a bc de fe ff c2 1a e6 db 33 e6 01 28 0f db 31 ┆: O : ( : 3 ( 1┆
0x000c20…000c40 4f cd 1f e6 28 07 79 32 bc de 3e ff c9 af c9 fe b3 ca 39 e6 fe c6 ca 3f e6 fe a0 ca 3f e6 fe 80 ┆O ( y2 > 9 ? ? ┆
0x000c40…000c60 ca 45 e6 fe b4 ca 4b e6 c9 3e 60 32 b4 de c9 3e 40 32 b4 de c9 3e 01 32 b5 de c9 3e 00 32 b5 de ┆ E K >`2 >@2 > 2 > 2 ┆
0x000c60…000c80 c9 3a bc de fe ff 20 05 cd 5a e7 db 31 32 b6 de 3e ff 32 bc de 3a b6 de fe b3 ca e9 e6 fe c6 ca ┆ : Z 12 > 2 : ┆
0x000c80…000ca0 (0, 0, 26) f1 e6 fe a0 ca f1 e6 fe 80 ca 00 e7 fe b4 ca f9 e6 fe 81 ca 08 e7 fe e9 f5 cc 13 e7 f1 fe 0e f5 ┆ ┆
0x000ca0…000cc0 cc 1c e7 f1 21 05 ed cd a0 e6 fe ff ca 51 e6 c9 3a b4 de fe 60 28 04 11 00 01 19 ed 5b b6 de 19 ┆ ! Q : `( Æ ┆
0x000cc0…000ce0 7e 32 b6 de 3a b5 de fe 00 3a b6 de ca da e6 3a b4 de 47 3a b6 de 90 32 b6 de fe 01 fa d5 e6 fe ┆ü2 : : : G: 2 ┆
0x000ce0…000d00 20 f2 d5 e6 c9 3e ff c3 51 e6 21 63 df cb 46 c8 fe 61 f8 fe 7e f0 d6 20 c9 3e 60 32 b4 de c3 51 ┆ > Q !c F a ü >`2 Q┆
0x000d00…000d20 (0, 1, 1) e6 3e 40 32 b4 de c3 51 e6 af 32 b5 de c3 51 e6 3e 01 32 b5 de c3 51 e6 21 63 df 06 01 cd 25 e7 ┆ >@2 Q 2 Q > 2 Q !c % ┆
0x000d20…000d40 c3 51 e6 21 62 df 06 01 cd 25 e7 c9 21 61 df 06 02 cd 25 e7 c9 7e a0 7e 20 03 b0 18 06 4f 78 2f ┆ Q !b % !a % ü ü Ox/┆
0x000d40…000d60 47 79 a0 77 06 03 21 61 df 7e d3 31 23 cd 43 e7 10 f7 c9 db 33 e6 04 fe 04 20 f8 c5 0e 32 0d 06 ┆Gy w !a ü 1# C 3 2 ┆
0x000d60…000d80 ff 10 fe 79 fe 00 20 f6 c1 c9 db 33 e6 01 fe 01 20 f8 3e 01 d3 33 db 33 e6 10 20 ee c9 3a b9 de ┆ y 3 > 3 3 : ┆
0x000d80…000da0 fe 00 c2 ef e7 cb 79 c4 93 e7 fe ff c8 79 fe 20 fa ac e7 21 25 ef 32 b6 de ed 5b b6 de 19 4e cd ┆ y y !% 2 Æ N ┆
0x000da0…000dc0 41 e9 c9 3a 65 e0 fe 00 28 07 79 fe 80 28 02 af c9 79 e6 7f cb 07 32 65 e0 3e ff c9 fe 05 ca 21 ┆A :e ( y ( y 2e > !┆
0x000dc0…000de0 e8 fe 06 ca e9 e7 fe 07 ca 6c e8 fe 08 ca 21 e8 fe 09 ca 7d e8 fe 0a ca e8 e8 fe 0c ca c0 e8 fe ┆ l ! å ┆
0x000de0…000e00 0d ca 3b e8 fe 18 ca 4a e8 fe 1a ca 91 e8 fe 1d ca ae e8 fe 1e ca 55 e8 c9 3e 01 32 b9 de c9 06 ┆ ; J U > 2 ┆
0x000e00…000e20 (0, 1, 2) 00 26 00 fe 01 28 08 cd 10 e8 af 32 b9 de c9 c5 e1 b7 01 20 00 ed 42 22 ba de 3e 02 32 b9 de c9 ┆ & ( 2 B" > 2 ┆
0x000e20…000e40 c5 e1 b7 01 20 00 ed 42 e5 c1 2a ba de cd 9a e9 c9 21 64 e0 7e fe 00 c8 21 64 e0 35 2a 61 e0 2b ┆ B * !d ü !d 5*a +┆
0x000e40…000e60 22 61 e0 ed 4b 61 e0 cd e4 e9 c9 c5 21 63 e0 6e 26 00 01 00 00 cd 9a e9 c1 c9 cd 51 e9 ed 4b 61 ┆"a Ka !c n& Q Ka┆
0x000e60…000e80 e0 cd e4 e9 c9 2a 61 e0 cd 8b e9 3a 64 e0 47 3e 50 90 47 36 20 23 36 00 23 10 f8 c9 3a 63 df f6 ┆ *a :d G>P G6 #6 # :c ┆
0x000e80…000ea0 08 d3 31 f5 cd 43 e7 f1 e6 f7 d3 31 c9 cd 51 e9 cd 51 e9 cd 51 e9 cd 51 e9 ed 4b 61 e0 cd e4 e9 ┆ 1 C 1 Q Q Q Q Ka ┆
0x000ea0…000ec0 c9 3a 63 e0 fe 00 c8 2a 61 e0 01 50 00 ed 42 22 61 e0 ed 4b 61 e0 21 63 e0 35 cd e4 e9 c9 01 00 ┆ :c *a P B"a Ka !c 5 ┆
0x000ec0…000ee0 00 ed 43 61 e0 af 32 63 e0 32 64 e0 cd e4 e9 c9 11 a7 ef 21 a6 ef 36 00 2b 36 20 01 fe 0f ed b0 ┆ Ca 2c 2d ! 6 +6 ┆
0x000ee0…000f00 ed 43 61 e0 ed 43 5d e0 af 32 63 e0 32 64 e0 32 65 e0 cd e4 e9 c3 2a e9 3a 63 e0 ed 4b 5f e0 b9 ┆ Ca CÅ 2c 2d 2e * :c K_ ┆
0x000f00…000f20 (0, 1, 3) 28 13 3c 32 63 e0 2a 61 e0 01 50 00 09 22 61 e0 44 4d c3 e4 e9 ed 5b 5d e0 06 50 21 a5 ef 19 36 ┆( <2c *a P "a DM ÆÅ P! 6┆
0x000f20…000f40 20 23 36 00 13 13 7a e6 0f 57 10 ef ed 53 5d e0 cd 2a e9 ed 4b 61 e0 c3 e4 e9 ed 5b 5d e0 b7 cb ┆ #6 z W SÅ * Ka ÆÅ ┆
0x000f40…000f60 1a cb 1b 0e 25 3e 0c d3 24 ed 51 3c d3 24 ed 59 c9 2a 61 e0 cd 81 e9 cd 51 e9 ed 4b 61 e0 c3 e4 ┆ %> $ Q< $ Y *a Q Ka ┆
0x000f60…000f80 e9 21 64 e0 7e fe 4f 28 09 34 2a 61 e0 23 22 61 e0 c9 06 00 4e 70 2a 61 e0 b7 ed 42 22 61 e0 c3 ┆ !d ü O( 4*a #"a Np*a B"a ┆
0x000f80…000fa0 e8 e8 21 64 e0 18 eb 3e 04 d3 2c c9 3e 00 d3 2c c9 cd 8b e9 71 3a 65 e0 23 77 c9 29 ed 5b 5d e0 ┆ !d > , > , q:e #w ) ÆÅ ┆
0x000fa0…000fc0 19 7c e6 0f 67 11 a5 ef 19 c9 7d 32 63 e0 79 32 64 e0 29 29 29 29 54 5d 29 29 19 09 22 61 e0 44 ┆ ø g å2c y2d ))))TÅ)) "a D┆
0x000fc0…000fe0 4d cd e4 e9 c9 f5 3e 04 d3 fa f1 f5 d3 fb d3 fc 79 d3 f0 78 d3 f0 1b 7b d3 f1 7a d3 f1 3e 00 d3 ┆M > y x æ z > ┆
0x000fe0…001000 fa f1 c9 f5 3e 0a d3 24 78 d3 25 3e 0b d3 24 79 d3 25 f1 c9 2a 5d e0 b7 cb 1c cb 1d 09 3e 0e d3 ┆ > $x %> $y % *Å > ┆
0x001000…005300 (0, 1, 4) […elided…]
0x005300…005500 (1, 1, 8) 0xe5[0x200]
[…0x7…]
0x006300…006320 (2, 0, 1) [0, 'EFMTINT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0]]
0x006320…006340 [0, 'EFMTINT.MAC', 1, 56, 'xl=01', 'bc=00', 'xh=00', 'rc=38', '0-0-0-0-0-0-0-0-0-0-0', [10, 0, 11, 0, 12, 0, 13, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006340…006360 [0, 'FGENSUB.MAC', 0, 99, 'xl=00', 'bc=00', 'xh=00', 'rc=63', '0-0-0-0-0-0-0-0-0-0-0', [14, 0, 15, 0, 16, 0, 17, 0, 18, 0, 19, 0, 20, 0, 0, 0]]
0x006360…006380 [0, 'VERIFY.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [26, 0, 27, 0, 28, 0, 29, 0, 30, 0, 31, 0, 32, 0, 33, 0]]
0x006380…0063a0 [0, 'VERIFY.BAS', 1, 105, 'xl=01', 'bc=00', 'xh=00', 'rc=69', '0-0-0-0-0-0-0-0-0-0-0', [34, 0, 35, 0, 36, 0, 37, 0, 38, 0, 39, 0, 40, 0, 0, 0]]
0x0063a0…0063c0 [0, 'CHAININF.BAS', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0063c0…0063e0 [0, 'INFO.TEX', 0, 38, 'xl=00', 'bc=00', 'xh=00', 'rc=26', '0-0-0-0-0-0-0-0-0-0-0', [42, 0, 43, 0, 44, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0063e0…006400 [0, 'ENTRYME.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [45, 0, 46, 0, 47, 0, 48, 0, 49, 0, 50, 0, 51, 0, 52, 0]]
0x006400…006420 [0, 'FORMAT.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [59, 0, 60, 0, 61, 0, 62, 0, 63, 0, 64, 0, 65, 0, 66, 0]]
0x006420…006440 [0, 'FORMAT.BAS', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [67, 0, 68, 0, 69, 0, 70, 0, 71, 0, 72, 0, 73, 0, 74, 0]]
0x006440…006460 [0, 'FORMAT.BAS', 2, 128, 'xl=02', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [75, 0, 76, 0, 77, 0, 78, 0, 79, 0, 80, 0, 81, 0, 82, 0]]
0x006460…006480 Dirent {Status=0xe5}
0x006480…0064a0 [0, 'ENTRYME.BAS', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [53, 0, 54, 0, 55, 0, 56, 0, 57, 0, 58, 0, 87, 0, 117, 0]]
0x0064a0…0064c0 Dirent {Status=0xe5}
[…0x2…]
0x006500…006700 (2, 0, 2) 0xe5[0x200]
0x006700…006900 (2, 0, 3) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x006b00…006b20 (2, 0, 5) [0, 'ENTRYME.BAS', 2, 121, 'xl=02', 'bc=00', 'xh=00', 'rc=79', '0-0-0-0-0-0-0-0-0-0-0', [136, 0, 137, 0, 138, 0, 139, 0, 140, 0, 141, 0, 142, 0, 143, 0]]
0x006b20…006b40 [0, 'ENTRY.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [118, 0, 119, 0, 120, 0, 121, 0, 122, 0, 123, 0, 124, 0, 125, 0]]
0x006b40…006b60 [0, 'ENTRY.BAS', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [126, 0, 127, 0, 128, 0, 129, 0, 130, 0, 131, 0, 132, 0, 133, 0]]
0x006b60…006b80 [0, 'ENTRY.BAS', 2, 26, 'xl=02', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [134, 0, 135, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006b80…006ba0 [0, 'FORMAT.BAS', 3, 79, 'xl=03', 'bc=00', 'xh=00', 'rc=4f', '0-0-0-0-0-0-0-0-0-0-0', [144, 0, 145, 0, 146, 0, 194, 0, 195, 0, 0, 0, 0, 0, 0, 0]]
0x006ba0…006bc0 [0, 'EENTRY.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [22, 0, 23, 0, 24, 0, 25, 0, 112, 0, 113, 0, 114, 0, 115, 0]]
0x006bc0…006be0 [0, 'EENTRY.MAC', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [116, 0, 147, 0, 148, 0, 149, 0, 150, 0, 151, 0, 152, 0, 153, 0]]
0x006be0…006c00 [0, 'EENTRY.MAC', 2, 128, 'xl=02', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [154, 0, 155, 0, 156, 0, 157, 0, 158, 0, 159, 0, 160, 0, 161, 0]]
0x006c00…006c20 [0, 'EENTRY.MAC', 3, 88, 'xl=03', 'bc=00', 'xh=00', 'rc=58', '0-0-0-0-0-0-0-0-0-0-0', [162, 0, 163, 0, 164, 0, 165, 0, 166, 0, 167, 0, 0, 0, 0, 0]]
0x006c20…006c40 [0, 'EUSRINT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [168, 0, 169, 0, 170, 0, 171, 0, 172, 0, 173, 0, 174, 0, 175, 0]]
0x006c40…006c60 [0, 'EUSRINT.MAC', 1, 43, 'xl=01', 'bc=00', 'xh=00', 'rc=2b', '0-0-0-0-0-0-0-0-0-0-0', [176, 0, 177, 0, 178, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006c60…006c80 [0, 'FFORMAT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [179, 0, 180, 0, 181, 0, 182, 0, 183, 0, 184, 0, 185, 0, 186, 0]]
0x006c80…006ca0 [0, 'FFORMAT.MAC', 1, 7, 'xl=01', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [187, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006ca0…006cc0 [0, 'FUSRINT.MAC', 0, 89, 'xl=00', 'bc=00', 'xh=00', 'rc=59', '0-0-0-0-0-0-0-0-0-0-0', [188, 0, 189, 0, 190, 0, 191, 0, 192, 0, 193, 0, 0, 0, 0, 0]]
0x006cc0…006ce0 Dirent {Status=0xe5}
[…0x1…]
0x006d00…006f00 (2, 0, 6) 0xe5[0x200]
0x006f00…007100 (2, 0, 7) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x007300…007320 (2, 0, 9) [0, 'FFMTINT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [196, 0, 197, 0, 198, 0, 199, 0, 200, 0, 201, 0, 202, 0, 203, 0]]
0x007320…007340 [0, 'FFMTINT.MAC', 1, 29, 'xl=01', 'bc=00', 'xh=00', 'rc=1d', '0-0-0-0-0-0-0-0-0-0-0', [204, 0, 205, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x007340…007360 Dirent {Status=0xe5}
0x007360…007380 [0, 'CCB.MAC', 0, 49, 'xl=00', 'bc=00', 'xh=00', 'rc=31', '0-0-0-0-0-0-0-0-0-0-0', [207, 0, 208, 0, 209, 0, 210, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x007380…0073a0 [0, 'FMSGTAB.MAC', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [211, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0073a0…0073c0 Dirent {Status=0xe5}
0x0073c0…0073e0 [0, 'EMSGTAB.MAC', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [213, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0073e0…007400 Dirent {Status=0xe5}
[…0x1…]
0x007420…007440 [0, 'EGENSUB.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [218, 0, 219, 0, 220, 0, 221, 0, 222, 0, 223, 0, 224, 0, 225, 0]]
0x007440…007460 [0, 'EGENSUB.MAC', 1, 10, 'xl=01', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [226, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x007460…007480 [0, 'EEOFPRC.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [227, 0, 228, 0, 229, 0, 230, 0, 231, 0, 232, 0, 233, 0, 234, 0]]
0x007480…0074a0 [0, 'EEOFPRC.MAC', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [235, 0, 236, 0, 237, 0, 238, 0, 239, 0, 240, 0, 241, 0, 242, 0]]
0x0074a0…0074c0 [0, 'EEOFPRC.MAC', 2, 2, 'xl=02', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [243, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0074c0…0074e0 Dirent {Status=0xe5}
[…0x1…]
0x007500…007700 (2, 0, 10) 0xe5[0x200]
0x007700…007900 (2, 0, 11) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x007b00…007d00 (2, 0, 13) 0xe5[0x200]
[…0x1…]
0x007f00…008100 (2, 0, 15) DataBlock {»EFMTINT.MAC«}
[…0x21…]
0x00c300…00c500 (3, 1, 4) DataBlock {»FGENSUB.MAC«}
0x00c500…00c700 (3, 1, 5) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x00c900…00c920 (3, 1, 7) 24 28 50 52 45 43 43 4f 55 4e 54 24 2c 31 2c 34 29 20 3d 20 56 41 24 20 3a 20 4d 49 44 24 28 50 ┆$(PRECCOUNT$,1,4) = VA$ : MID$(P┆
0x00c920…00c940 52 45 43 43 4f 55 4e 54 24 2c 35 2c 32 29 20 3d 20 4d 49 44 24 28 50 43 24 2c 31 2c 32 29 0d 0a ┆RECCOUNT$,5,2) = MID$(PC$,1,2) ┆
0x00c940…00c960 34 36 32 38 20 43 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 36 29 20 3a 20 4d 49 ┆4628 CRECCOUNT$ = SPACE$(6) : MI┆
0x00c960…00c980 44 24 28 43 52 45 43 43 4f 55 4e 54 24 2c 31 2c 32 29 20 3d 20 4d 49 44 24 28 50 43 24 2c 33 2c ┆D$(CRECCOUNT$,1,2) = MID$(PC$,3,┆
0x00c980…00c9a0 32 29 20 3a 20 4d 49 44 24 28 43 52 45 43 43 4f 55 4e 54 24 2c 33 2c 34 29 20 3d 20 46 4c 24 0d ┆2) : MID$(CRECCOUNT$,3,4) = FL$ ┆
0x00c9a0…00c9c0 0a 34 36 32 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 4629 REM **********************┆
0x00c9c0…00c9e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00c9e0…00ca00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 33 30 20 52 45 4d 20 2a 20 20 52 45 ┆**************** 4630 REM * RE┆
0x00ca00…00ca20 41 44 20 41 52 42 53 54 41 54 2d 46 4f 52 4d 41 54 20 41 4e 44 20 43 41 4c 4c 20 44 45 50 20 54 ┆AD ARBSTAT-FORMAT AND CALL DEP T┆
0x00ca20…00ca40 4f 20 50 52 49 4e 54 20 49 54 20 4f 4e 20 43 52 54 20 09 20 20 20 20 20 20 2a 0d 0a 34 36 33 31 ┆O PRINT IT ON CRT * 4631┆
0x00ca40…00ca60 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x00ca60…00ca80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00ca80…00caa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 33 32 20 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 22 44 ┆*********** 4632 FORMNAME$ = "D┆
0x00caa0…00cac0 45 50 46 4f 52 4d 20 2e 44 45 50 22 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 46 4f 52 4d 4e ┆EPFORM .DEP" : FILENAME$ = FORMN┆
0x00cac0…00cae0 41 4d 45 24 0d 0a 34 36 33 34 20 47 4f 53 55 42 20 39 32 38 30 09 09 09 09 09 09 09 09 09 52 45 ┆AME$ 4634 GOSUB 9280 RE┆
0x00cae0…00cb00 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 41 54 2d 46 49 4c 45 0d 0a 34 36 33 36 20 47 4f 53 ┆M *** OPEN FORMAT-FILE 4636 GOS┆
0x00cb00…00cd00 (3, 1, 8) DataBlock {»FGENSUB.MAC«}
0x00cd00…00cf00 (3, 1, 9) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x00d100…00d120 (3, 1, 11) 55 42 20 39 35 38 30 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 ┆UB 9580 ┆
0x00d120…00d140 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d ┆ REM *** INIT FORM┆
0x00d140…00d160 41 54 2d 42 55 46 46 45 52 0d 0a 34 36 33 38 20 47 4f 53 55 42 20 39 36 37 34 20 20 20 20 20 20 ┆AT-BUFFER 4638 GOSUB 9674 ┆
0x00d160…00d180 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f ┆ REM *** READ FO┆
0x00d180…00d1a0 52 4d 41 54 2d 52 45 43 2e 0d 0a 34 36 34 32 20 49 46 20 46 4f 52 4d 42 59 54 45 53 24 20 3c 3e ┆RMAT-REC. 4642 IF FORMBYTES$ <>┆
0x00d1a0…00d1c0 20 22 23 26 22 20 54 48 45 4e 20 47 4f 53 55 42 20 34 37 37 30 20 3a 20 47 4f 54 4f 20 31 36 0d ┆ "#&" THEN GOSUB 4770 : GOTO 16 ┆
0x00d1c0…00d1e0 0a 34 36 34 34 20 46 49 45 4c 44 4e 4f 24 20 3d 20 22 30 30 30 22 20 3a 20 4d 4f 44 45 24 20 3d ┆ 4644 FIELDNO$ = "000" : MODE$ =┆
0x00d1e0…00d200 20 22 30 30 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 20 0d 0a 34 36 34 36 20 ┆ "00" : SPECMOD$ = "000" 4646 ┆
0x00d200…00d220 4c 53 45 54 20 46 4c 4e 24 20 3d 20 46 49 45 4c 44 4e 4f 24 20 3a 20 4c 53 45 54 20 4d 4f 24 20 ┆LSET FLN$ = FIELDNO$ : LSET MO$ ┆
0x00d220…00d240 3d 20 4d 4f 44 45 24 20 3a 20 4c 53 45 54 20 53 4d 24 20 3d 20 53 50 45 43 4d 4f 44 24 0d 0a 34 ┆= MODE$ : LSET SM$ = SPECMOD$ 4┆
0x00d240…00d260 36 34 37 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆647 REM ************************┆
0x00d260…00d280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00d280…00d2a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 34 38 20 52 45 4d 20 2a 20 20 43 41 4c 4c ┆************** 4648 REM * CALL┆
0x00d2a0…00d2c0 20 54 48 45 20 44 45 50 20 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 34 36 34 39 20 52 45 4d ┆ THE DEP * 4649 REM┆
0x00d2c0…00d2e0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x00d2e0…00d300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00d300…00d500 (3, 1, 12) DataBlock {»FGENSUB.MAC«}
0x00d500…00d700 (3, 1, 13) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x00d900…00db00 (3, 1, 15) DataBlock {»FGENSUB.MAC«}
[…0x11…]
0x00fd00…00fd20 (4, 1, 3) 3d 20 22 30 34 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 20 20 20 20 20 20 20 ┆= "04" : SPECMOD$ = "000" ┆
0x00fd20…00fd40 20 20 20 09 09 0d 0a 36 32 30 30 20 47 4f 53 55 42 20 39 31 35 30 20 3a 20 47 4f 53 55 42 20 39 ┆ 6200 GOSUB 9150 : GOSUB 9┆
0x00fd40…00fd60 34 35 30 20 3a 20 47 4f 53 55 42 20 39 35 35 30 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a ┆450 : GOSUB 9550 REM *┆
0x00fd60…00fd80 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 49 45 4c 44 20 41 4e 44 20 57 52 49 54 45 20 ┆** INIT ARBSTAT-FIELD AND WRITE ┆
0x00fd80…00fda0 41 52 42 53 54 41 54 0d 0a 36 32 32 30 20 47 4f 54 4f 20 35 35 33 30 20 20 20 20 20 20 20 20 20 ┆ARBSTAT 6220 GOTO 5530 ┆
0x00fda0…00fdc0 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 09 0d 0a 36 33 33 ┆ 633┆
0x00fdc0…00fde0 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 REM **************************┆
0x00fde0…00fe00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00fe00…00fe20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 33 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 ┆************ 6332 REM * SUB.: ┆
0x00fe20…00fe40 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 20 ┆PRINT ERRMSG. IN LINE 25 ┆
0x00fe40…00fe60 20 20 2a 0d 0a 36 33 33 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 6333 REM ******************┆
0x00fe60…00fe80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00fe80…00fea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 33 34 20 45 52 52 4d 53 ┆******************** 6334 ERRMS┆
0x00fea0…00fec0 47 4e 52 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 33 33 38 20 47 4f ┆GNR% = 10 : GOSUB 20000 6338 GO┆
0x00fec0…00fee0 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 36 33 33 39 20 52 45 4d 20 2a 2a 2a 2a ┆SUB 1000 : RETURN 6339 REM ****┆
0x00fee0…00ff00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00ff00…00ff20 (4, 1, 4) 20 46 4f 52 4d 42 59 54 45 53 24 20 3d 20 22 23 26 22 20 54 48 45 4e 20 37 30 0d 0a 36 33 20 52 ┆ FORMBYTES$ = "#&" THEN 70 63 R┆
0x00ff20…00ff40 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x00ff40…00ff60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00ff60…00ff80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 34 20 52 45 4d 20 09 2a 20 20 4e 4f 20 44 45 50 20 46 4f ┆********** 64 REM * NO DEP FO┆
0x00ff80…00ffa0 52 4d 41 54 20 49 44 2e 20 21 21 21 20 50 52 49 4e 54 20 45 52 52 4d 53 47 20 41 4e 44 20 53 54 ┆RMAT ID. !!! PRINT ERRMSG AND ST┆
0x00ffa0…00ffc0 4f 50 20 54 48 45 20 53 59 53 54 45 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 36 35 20 ┆OP THE SYSTEM * 65 ┆
0x00ffc0…00ffe0 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x00ffe0…010000 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010000…010020 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 36 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 31 20 3a ┆*********** 66 ERRMSGNR% = 11 :┆
0x010020…010040 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 38 20 47 4f 54 4f 20 36 38 09 09 09 09 09 09 09 09 ┆ GOSUB 20000 68 GOTO 68 ┆
0x010040…010060 09 52 45 4d 20 2a 2a 2a 20 49 4c 4c 45 47 41 4c 20 44 49 53 4b 20 31 20 21 21 20 4e 4f 20 44 45 ┆ REM *** ILLEGAL DISK 1 !! NO DE┆
0x010060…010080 50 2d 46 4f 52 4d 41 54 20 21 21 0d 0a 36 39 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆P-FORMAT !! 69 REM ************┆
0x010080…0100a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0100a0…0100c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 30 20 ┆*************************** 70 ┆
0x0100c0…0100e0 52 45 4d 09 2a 20 20 49 4e 49 54 20 41 4e 44 20 43 41 4c 4c 20 44 45 50 20 54 4f 20 50 52 49 4e ┆REM * INIT AND CALL DEP TO PRIN┆
0x0100e0…010100 54 20 4d 45 4e 55 45 20 4f 4e 20 43 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T MENUE ON CRT ┆
0x010100…010300 (4, 1, 5) DataBlock {»FGENSUB.MAC«}
[…0x1…]
0x010480…0104a0 63 09 68 6c 09 09 3b 0d 0a 09 6c 64 09 61 2c 28 42 4c 49 4e 53 56 29 09 3b 0d 0a 09 6a 70 09 42 ┆c hl ; ld a,(BLINSV) ; jp B┆
0x0104a0…0104c0 4c 49 4e 49 31 09 09 3b 0d 0a 42 4c 49 4e 49 32 3a 09 70 6f 70 09 64 65 09 09 3b 72 65 73 74 6f ┆LINI1 ; BLINI2: pop de ;resto┆
0x0104c0…0104e0 72 65 20 64 65 0d 0a 09 72 65 74 09 09 09 3b 0d 0a 3b 0d 0a 42 4c 49 4e 53 56 3a 09 64 62 09 30 ┆re de ret ; ; BLINSV: db 0┆
0x0104e0…010500 30 68 09 09 3b 0d 0a 3b 0d 0a 3b 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 69 6c 6c 20 6d 6f ┆0h ; ; ;the following will mo┆
0x010500…010520 (4, 1, 7) 31 20 52 45 4d 09 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 REM *************************┆
0x010520…010540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 20 52 45 4d ┆************************* 2 REM┆
0x010540…010560 09 09 2a 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 ┆ * ┆
0x010560…010580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 33 20 52 45 4d 09 09 2a 09 4d ┆ * 3 REM * M┆
0x010580…0105a0 4f 44 55 4c 45 20 3a 20 46 4f 52 4d 41 54 20 20 2e 42 41 53 20 28 54 4b 44 45 53 2f 52 43 38 35 ┆ODULE : FORMAT .BAS (TKDES/RC85┆
0x0105a0…0105c0 30 29 20 20 20 20 20 20 2a 0d 0a 34 20 52 45 4d 09 09 2a 09 44 41 54 45 20 20 20 3a 20 30 35 2e ┆0) * 4 REM * DATE : 05.┆
0x0105c0…0105e0 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a ┆02.82 * ┆
0x0105e0…010600 35 20 52 45 4d 09 09 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 4d 42 48 20 2c 20 36 34 37 ┆5 REM * BY : ASE GMBH , 647┆
0x010600…010620 32 20 41 4c 54 45 4e 53 54 41 44 54 20 20 20 20 20 20 2a 0d 0a 36 20 52 45 4d 09 09 2a 09 56 45 ┆2 ALTENSTADT * 6 REM * VE┆
0x010620…010640 52 53 49 4f 4e 3a 20 31 2e 39 31 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RSION: 1.91G ┆
0x010640…010660 20 20 20 20 20 20 20 2a 0d 0a 37 20 52 45 4d 09 09 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 7 REM * ┆
0x010660…010680 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 ┆ ┆
0x010680…0106a0 20 20 2a 0d 0a 38 20 52 45 4d 09 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 8 REM ********************┆
0x0106a0…0106c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a ┆****************************** ┆
0x0106c0…0106e0 39 20 52 45 4d 0d 0a 31 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆9 REM 10 REM ******************┆
0x0106e0…010700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010700…010900 (4, 1, 8) DataBlock {»EENTRY.MAC«}
0x010900…010b00 (4, 1, 9) DataBlock {»FGENSUB.MAC«}
0x010b00…010b20 (4, 1, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ REM ***┆
0x010b20…010b40 20 46 49 4c 45 20 49 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 0d 0a 36 30 35 30 20 49 46 20 ┆ FILE IN ARBSTAT-DIR ? 6050 IF ┆
0x010b40…010b60 46 49 4c 45 49 4e 44 49 52 25 20 3d 20 30 20 20 54 48 45 4e 20 47 4f 53 55 42 20 38 31 37 30 20 ┆FILEINDIR% = 0 THEN GOSUB 8170 ┆
0x010b60…010b80 3a 20 47 4f 53 55 42 20 32 31 31 30 20 3a 20 47 4f 53 55 42 20 31 38 37 38 20 3a 20 47 4f 54 4f ┆: GOSUB 2110 : GOSUB 1878 : GOTO┆
0x010b80…010ba0 20 31 31 31 30 0d 0a 36 30 35 35 20 52 31 24 20 3d 20 4d 49 44 24 28 4e 41 4d 45 24 2c 31 33 2c ┆ 1110 6055 R1$ = MID$(NAME$,13,┆
0x010ba0…010bc0 34 29 20 3a 20 52 31 25 20 3d 20 56 41 4c 28 52 31 24 29 0d 0a 36 30 36 30 20 47 4f 53 55 42 20 ┆4) : R1% = VAL(R1$) 6060 GOSUB ┆
0x010bc0…010be0 39 31 35 30 20 3a 20 47 4f 53 55 42 20 39 35 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9150 : GOSUB 9564 ┆
0x010be0…010c00 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 ┆ REM *** INIT ARBSTAT-F┆
0x010c00…010c20 49 45 4c 44 0d 0a 36 30 38 30 20 49 46 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 32 33 2c 33 29 20 3d ┆IELD 6080 IF MID$(NONZ$,23,3) =┆
0x010c20…010c40 20 22 45 52 52 22 20 54 48 45 4e 20 47 4f 53 55 42 20 36 34 36 30 0d 0a 36 30 39 30 20 49 46 20 ┆ "ERR" THEN GOSUB 6460 6090 IF ┆
0x010c40…010c60 4d 49 44 24 28 4e 4f 4e 5a 24 2c 31 31 2c 38 29 20 3c 3e 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d ┆MID$(NONZ$,11,8) <> MID$(FORMNAM┆
0x010c60…010c80 45 24 2c 31 2c 38 29 20 54 48 45 4e 20 47 4f 53 55 42 20 36 34 31 30 20 3a 20 47 4f 54 4f 20 35 ┆E$,1,8) THEN GOSUB 6410 : GOTO 5┆
0x010c80…010ca0 36 39 30 0d 0a 36 31 30 30 20 4e 4f 4e 5a 35 30 24 20 3d 20 4e 4f 4e 5a 24 20 3a 20 4d 49 44 24 ┆690 6100 NONZ50$ = NONZ$ : MID$┆
0x010ca0…010cc0 28 4e 4f 4e 5a 35 30 24 2c 32 33 2c 33 29 20 3d 20 22 53 2e 2e 22 0d 0a 36 31 32 30 20 50 53 54 ┆(NONZ50$,23,3) = "S.." 6120 PST┆
0x010cc0…010ce0 41 54 55 53 24 20 3d 20 53 50 24 0d 0a 36 31 34 30 20 47 4f 53 55 42 20 39 32 38 30 20 20 20 20 ┆ATUS$ = SP$ 6140 GOSUB 9280 ┆
0x010ce0…010d00 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 09 09 09 09 09 ┆ ┆
0x010d00…010d20 (4, 1, 11) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 20 52 45 4d 09 2a 20 ┆********************* 11 REM * ┆
0x010d20…010d40 20 53 45 54 20 45 52 52 4f 52 2d 48 41 4e 44 4c 49 4e 47 20 50 4f 49 4e 54 45 52 20 41 4e 44 20 ┆ SET ERROR-HANDLING POINTER AND ┆
0x010d40…010d60 52 45 41 44 20 57 4f 52 4b 4e 4f 2e 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 ┆READ WORKNO. FROM CHAININF-FILE ┆
0x010d60…010d80 20 20 20 20 2a 0d 0a 31 32 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 12 REM ******************┆
0x010d80…010da0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010da0…010dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 33 20 4f 4e 20 45 52 52 ┆********************* 13 ON ERR┆
0x010dc0…010de0 4f 52 20 47 4f 54 4f 20 31 30 30 30 30 20 3a 20 47 4f 53 55 42 20 32 32 32 30 30 20 20 20 20 20 ┆OR GOTO 10000 : GOSUB 22200 ┆
0x010de0…010e00 20 20 20 20 20 09 09 09 09 20 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 57 4f 52 4b 2d 4e 4f 2e ┆ REM *** READ WORK-NO.┆
0x010e00…010e20 0d 0a 31 34 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 20 31 20 4f 52 20 56 41 4c 28 41 ┆ 14 IF VAL(ARBNR$) < 1 OR VAL(A┆
0x010e20…010e40 52 42 4e 52 24 29 20 3e 20 31 31 20 47 4f 54 4f 20 31 36 20 45 4c 53 45 20 47 4f 54 4f 20 31 30 ┆RBNR$) > 11 GOTO 16 ELSE GOTO 10┆
0x010e40…010e60 31 30 0d 0a 31 36 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆10 16 REM *********************┆
0x010e60…010e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010e80…010ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 20 52 45 4d 20 09 2a 20 20 52 ┆****************** 17 REM * R┆
0x010ea0…010ec0 45 41 44 20 4d 45 4e 55 45 20 46 52 4f 4d 20 44 45 50 2d 46 4f 52 4d 2d 46 49 4c 45 20 20 20 20 ┆EAD MENUE FROM DEP-FORM-FILE ┆
0x010ec0…010ee0 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 ┆ ┆
0x010ee0…010f00 20 20 2a 0d 0a 31 38 20 52 45 4d 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 18 REM *******************┆
0x010f00…011100 (4, 1, 12) DataBlock {»EENTRY.MAC«}
0x011100…011300 (4, 1, 13) DataBlock {»FGENSUB.MAC«}
0x011300…011320 (4, 1, 14) 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 41 54 2d 46 49 4c 45 0d 0a 36 31 35 35 20 47 ┆REM *** OPEN FORMAT-FILE 6155 G┆
0x011320…011340 4f 53 55 42 20 39 35 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OSUB 9580 ┆
0x011340…011360 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d 41 ┆ REM *** INIT FORMA┆
0x011360…011380 54 2d 42 55 46 46 45 52 0d 0a 36 31 36 30 20 41 44 44 46 4f 52 4d 25 20 3d 20 30 20 3a 20 47 4f ┆T-BUFFER 6160 ADDFORM% = 0 : GO┆
0x011380…0113a0 53 55 42 20 36 35 33 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆SUB 6535 ┆
0x0113a0…0113c0 09 52 45 4d 20 2a 2a 2a 20 46 4f 52 4d 41 54 2d 4e 52 2e 20 49 4e 20 46 4f 52 4d 41 54 2d 44 49 ┆ REM *** FORMAT-NR. IN FORMAT-DI┆
0x0113c0…0113e0 52 2e 20 3f 0d 0a 36 31 36 32 20 49 46 20 46 4f 52 4d 4e 52 55 53 45 25 20 54 48 45 4e 20 53 46 ┆R. ? 6162 IF FORMNRUSE% THEN SF┆
0x0113e0…011400 4f 52 4d 4e 52 25 20 3d 20 46 4f 52 4d 4e 52 25 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 52 46 4f ┆ORMNR% = FORMNR% : FORMNR% = RFO┆
0x011400…011420 52 4d 4e 52 25 20 3a 20 47 4f 54 4f 20 36 31 36 36 0d 0a 36 31 36 34 20 49 46 20 46 4f 52 4d 4e ┆RMNR% : GOTO 6166 6164 IF FORMN┆
0x011420…011440 52 53 50 25 20 3d 20 30 20 47 4f 54 4f 20 36 36 31 30 20 45 4c 53 45 20 53 46 4f 52 4d 4e 52 25 ┆RSP% = 0 GOTO 6610 ELSE SFORMNR%┆
0x011440…011460 20 3d 20 46 4f 52 4d 4e 52 25 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 52 53 46 4f 52 4d 4e 52 25 ┆ = FORMNR% : FORMNR% = RSFORMNR%┆
0x011460…011480 20 3a 20 47 4f 54 4f 20 36 33 36 30 0d 0a 36 31 36 36 20 47 4f 53 55 42 20 39 36 37 34 20 20 20 ┆ : GOTO 6360 6166 GOSUB 9674 ┆
0x011480…0114a0 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 09 ┆ ┆
0x0114a0…0114c0 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f 52 4d 41 54 2d 52 45 43 2e 0d 0a 36 31 38 ┆ REM *** READ FORMAT-REC. 618┆
0x0114c0…0114e0 30 20 49 46 20 46 4f 52 4d 42 59 54 45 53 24 20 3c 3e 20 22 23 26 22 20 54 48 45 4e 20 47 4f 53 ┆0 IF FORMBYTES$ <> "#&" THEN GOS┆
0x0114e0…011500 55 42 20 36 33 33 34 20 3a 20 47 4f 54 4f 20 35 36 35 30 0d 0a 36 31 39 30 20 4d 4f 44 45 24 20 ┆UB 6334 : GOTO 5650 6190 MODE$ ┆
0x011500…011520 (4, 1, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x011520…011540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 30 20 45 52 52 46 4c 41 47 ┆******************** 20 ERRFLAG┆
0x011540…011560 25 20 3d 20 30 20 3a 20 44 45 50 46 4f 52 4d 25 20 3d 20 30 20 3a 20 41 52 42 53 54 41 54 4f 50 ┆% = 0 : DEPFORM% = 0 : ARBSTATOP┆
0x011560…011580 45 4e 25 20 3d 20 30 20 3a 20 41 52 42 53 54 41 54 57 52 49 54 45 25 20 3d 20 30 0d 0a 32 31 20 ┆EN% = 0 : ARBSTATWRITE% = 0 21 ┆
0x011580…0115a0 55 53 52 46 4f 52 4d 46 4f 50 45 4e 25 20 3d 20 30 20 3a 20 46 4f 52 4d 43 48 41 49 4e 45 52 52 ┆USRFORMFOPEN% = 0 : FORMCHAINERR┆
0x0115a0…0115c0 4f 52 25 20 3d 20 30 0d 0a 32 35 20 43 4c 4f 53 45 20 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a ┆OR% = 0 25 CLOSE REM *┆
0x0115c0…0115e0 2a 2a 20 43 4c 4f 53 45 20 41 4c 4c 20 46 49 4c 45 53 0d 0a 33 30 20 46 4f 52 4d 4e 41 4d 45 24 ┆** CLOSE ALL FILES 30 FORMNAME$┆
0x0115e0…011600 20 3d 20 22 44 45 50 46 4f 52 4d 20 2e 44 45 50 22 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 ┆ = "DEPFORM .DEP" : FILENAME$ = ┆
0x011600…011620 46 4f 52 4d 4e 41 4d 45 24 0d 0a 34 30 20 47 4f 53 55 42 20 39 32 38 30 20 20 20 20 20 20 20 20 ┆FORMNAME$ 40 GOSUB 9280 ┆
0x011620…011640 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 09 09 09 09 ┆ ┆
0x011640…011660 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 2d 46 49 4c 45 0d 0a 35 30 20 47 4f 53 55 42 ┆REM *** OPEN FORM-FILE 50 GOSUB┆
0x011660…011680 20 39 35 38 30 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 ┆ 9580 ┆
0x011680…0116a0 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d 42 55 ┆ REM *** INIT FORMBU┆
0x0116a0…0116c0 46 46 45 52 2d 46 49 45 4c 44 0d 0a 35 35 20 46 4f 52 4d 4e 52 25 20 3d 20 36 20 3a 20 47 4f 53 ┆FFER-FIELD 55 FORMNR% = 6 : GOS┆
0x0116c0…0116e0 55 42 20 39 36 37 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆UB 9674 ┆
0x0116e0…011700 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f 52 4d 41 52 2d 52 45 43 2e 0d 0a 36 30 20 49 46 ┆ REM *** READ FORMAR-REC. 60 IF┆
0x011700…011900 (5, 0, 1) DataBlock {»EENTRY.MAC«}
[…0xa…]
0x012d00…012f00 (5, 0, 12) DataBlock {»VERIFY.BAS«}
0x012f00…013100 (5, 0, 13) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x013500…013700 (5, 1, 1) DataBlock {»VERIFY.BAS«}
[…0x30…]
0x019580…0195a0 20 4c 50 52 49 4e 54 20 56 24 20 3a 20 52 45 54 55 52 4e 0d 0a 32 37 36 33 39 20 49 46 20 57 24 ┆ LPRINT V$ : RETURN 27639 IF W$┆
0x0195a0…0195c0 20 3d 20 53 50 41 43 45 24 28 38 30 29 20 54 48 45 4e 20 4c 50 52 49 4e 54 20 22 22 20 3a 20 52 ┆ = SPACE$(80) THEN LPRINT "" : R┆
0x0195c0…0195e0 45 54 55 52 4e 20 45 4c 53 45 20 4c 50 52 49 4e 54 20 57 24 20 3a 20 52 45 54 55 52 4e 0d 0a 32 ┆ETURN ELSE LPRINT W$ : RETURN 2┆
0x0195e0…019600 37 36 34 30 20 49 46 20 58 24 20 3d 20 53 50 41 43 45 24 28 38 30 29 20 54 48 45 4e 20 4c 50 52 ┆7640 IF X$ = SPACE$(80) THEN LPR┆
0x019600…019620 49 4e 54 20 22 22 20 3a 20 52 45 54 55 52 4e 20 45 4c 53 45 20 4c 50 52 49 4e 54 20 58 24 20 3a ┆INT "" : RETURN ELSE LPRINT X$ :┆
0x019620…019640 20 52 45 54 55 52 4e 0d 0a 32 37 36 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RETURN 27650 REM *************┆
0x019640…019660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x019660…019680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 36 35 32 20 ┆************************ 27652 ┆
0x019680…0196a0 52 45 4d 20 2a 20 54 4f 50 20 4f 46 20 46 4f 52 4d 20 28 54 4f 46 29 09 09 09 09 09 09 20 20 20 ┆REM * TOP OF FORM (TOF) ┆
0x0196a0…0196c0 20 20 20 2a 0d 0a 32 37 36 35 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 27654 REM ****************┆
0x0196c0…0196e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0196e0…019700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 36 36 30 20 4c 50 52 ┆********************* 27660 LPR┆
0x019700…019900 (7, 0, 5) DataBlock {»VERIFY.BAS«}
[…0x2…]
0x019d00…019d20 (7, 0, 8) 35 35 30 20 4e 45 58 54 20 49 25 0d 0a 32 36 35 36 30 20 50 52 49 4e 54 20 43 48 52 24 28 38 29 ┆550 NEXT I% 26560 PRINT CHR$(8)┆
0x019d20…019d40 3b 43 48 52 24 28 38 29 3b 20 3a 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 31 ┆;CHR$(8); : KEYINPUT$ = SPACE$(1┆
0x019d40…019d60 29 20 3a 20 47 4f 54 4f 20 32 36 35 30 30 0d 0a 32 36 35 37 30 20 4e 52 49 4e 53 45 52 54 25 20 ┆) : GOTO 26500 26570 NRINSERT% ┆
0x019d60…019d80 3d 20 56 41 4c 28 4e 52 49 4e 53 45 52 54 24 29 0d 0a 32 36 35 38 30 20 49 46 20 4e 52 49 4e 53 ┆= VAL(NRINSERT$) 26580 IF NRINS┆
0x019d80…019da0 45 52 54 25 20 3d 20 30 20 54 48 45 4e 20 58 50 4f 53 25 20 3d 20 31 20 3a 20 59 50 4f 53 25 20 ┆ERT% = 0 THEN XPOS% = 1 : YPOS% ┆
0x019da0…019dc0 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 3a 20 50 52 49 4e 54 20 53 50 41 43 45 24 ┆= 25 : GOSUB 1990 : PRINT SPACE$┆
0x019dc0…019de0 28 33 33 29 3b 20 3a 20 47 4f 54 4f 20 32 35 34 30 30 0d 0a 32 36 35 39 30 20 53 52 52 45 43 43 ┆(33); : GOTO 25400 26590 SRRECC┆
0x019de0…019e00 4f 55 4e 54 25 20 3d 20 52 52 45 43 43 4f 55 4e 54 25 20 3a 20 43 48 41 49 4e 46 4f 52 4d 4e 52 ┆OUNT% = RRECCOUNT% : CHAINFORMNR┆
0x019e00…019e20 24 20 3d 20 46 43 24 20 3a 20 49 4e 53 45 52 54 52 45 43 25 20 3d 20 31 0d 0a 32 36 36 30 30 20 ┆$ = FC$ : INSERTREC% = 1 26600 ┆
0x019e20…019e40 49 57 52 45 43 43 4f 55 4e 54 25 20 3d 20 57 52 45 43 43 4f 55 4e 54 25 20 2b 20 4e 52 49 4e 53 ┆IWRECCOUNT% = WRECCOUNT% + NRINS┆
0x019e40…019e60 45 52 54 25 20 3a 20 53 49 57 52 45 43 43 4f 55 4e 54 25 20 3d 20 49 57 52 45 43 43 4f 55 4e 54 ┆ERT% : SIWRECCOUNT% = IWRECCOUNT┆
0x019e60…019e80 25 0d 0a 32 36 36 31 30 20 4c 4f 4f 50 49 4e 53 45 52 54 25 20 3d 20 57 52 45 43 43 4f 55 4e 54 ┆% 26610 LOOPINSERT% = WRECCOUNT┆
0x019e80…019ea0 25 20 2d 20 52 52 45 43 43 4f 55 4e 54 25 20 2b 20 31 0d 0a 32 36 36 32 30 20 52 52 45 43 43 4f ┆% - RRECCOUNT% + 1 26620 RRECCO┆
0x019ea0…019ec0 55 4e 54 25 20 3d 20 57 52 45 43 43 4f 55 4e 54 25 0d 0a 32 36 36 33 30 20 46 4f 52 20 49 25 20 ┆UNT% = WRECCOUNT% 26630 FOR I% ┆
0x019ec0…019ee0 3d 20 31 20 54 4f 20 4c 4f 4f 50 49 4e 53 45 52 54 25 0d 0a 32 36 36 34 30 20 47 4f 53 55 42 20 ┆= 1 TO LOOPINSERT% 26640 GOSUB ┆
0x019ee0…019f00 32 37 31 34 30 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 44 41 54 41 2d 52 ┆27140 REM *** READ DATA-R┆
0x019f00…01a100 (7, 0, 9) DataBlock {»VERIFY.BAS«}
[…0x2…]
0x01a500…01a700 (7, 0, 12) DataBlock {»CHAININF.BAS«}
0x01a700…01a900 (7, 0, 13) DataBlock {»VERIFY.BAS«}
[…0x2…]
0x01ad00…01ae80 (7, 1, 1) DataBlock {»CHAININF.BAS«}
0x01ae80…01aea0 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x01aea0…01aec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 20 52 45 4d 0d 0a 31 ┆********************** 9 REM 1┆
0x01aec0…01aee0 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 REM **************************┆
0x01aee0…01af00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01af00…01b100 (7, 1, 2) DataBlock {»INFO.TEX«}
[…0x2…]
0x01b400…01b420 65 6e 74 20 6b 65 79 62 6f 61 72 64 20 2c 20 77 68 69 63 68 20 75 73 65 73 20 64 69 66 66 65 72 ┆ent keyboard , which uses differ┆
0x01b420…01b440 65 6e 74 20 63 6f 64 69 6e 67 2c 0d 0a 74 68 65 20 65 71 75 61 74 65 73 20 69 6e 20 74 68 65 20 ┆ent coding, the equates in the ┆
0x01b440…01b460 66 69 6c 65 73 20 27 46 46 4f 52 4d 41 54 2e 4d 41 43 27 20 61 6e 64 20 27 45 45 4e 54 52 59 2e ┆files 'FFORMAT.MAC' and 'EENTRY.┆
0x01b460…01b480 52 45 4c 27 20 6e 65 65 64 0d 0a 74 6f 20 62 65 20 61 64 6a 75 73 74 65 64 2e 20 44 6f 20 6e 6f ┆REL' need to be adjusted. Do no┆
0x01b480…01b4a0 74 20 6d 6f 64 69 66 79 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 20 65 71 75 61 74 65 ┆t modify the names of the equate┆
0x01b4a0…01b4c0 73 2c 20 62 75 74 0d 0a 6f 6e 6c 79 20 74 68 65 20 61 73 73 69 67 6e 65 64 20 76 61 6c 75 65 73 ┆s, but only the assigned values┆
0x01b4c0…01b4e0 2e 0d 0a 0d 0a 38 2e 20 43 68 61 6e 67 69 6e 67 20 63 6f 64 65 2d 73 65 74 73 2e 0d 0a 0d 0a 74 ┆. 8. Changing code-sets. t┆
0x01b4e0…01b500 6f 20 63 68 61 6e 67 65 20 74 68 65 20 63 6f 64 65 2d 73 65 74 20 66 72 6f 6d 20 67 65 72 6d 61 ┆o change the code-set from germa┆
0x01b500…01b520 (7, 1, 5) 3d 20 46 31 25 20 2b 20 33 0d 0a 32 36 37 37 30 20 4e 45 58 54 20 46 50 25 0d 0a 32 36 37 38 30 ┆= F1% + 3 26770 NEXT FP% 26780┆
0x01b520…01b540 20 52 45 54 55 52 4e 0d 0a 32 36 37 39 30 20 46 4f 52 4d 4e 52 55 53 45 25 20 3d 20 31 20 3a 20 ┆ RETURN 26790 FORMNRUSE% = 1 : ┆
0x01b540…01b560 46 4f 52 4d 4e 52 25 20 3d 20 46 50 25 20 3a 20 46 4f 52 4d 43 48 4b 45 59 24 20 3d 20 4d 49 44 ┆FORMNR% = FP% : FORMCHKEY$ = MID┆
0x01b560…01b580 24 28 46 4f 52 4d 43 48 42 55 46 46 45 52 24 2c 46 31 25 2c 33 29 0d 0a 32 36 38 30 30 20 52 45 ┆$(FORMCHBUFFER$,F1%,3) 26800 RE┆
0x01b580…01b5a0 54 55 52 4e 0d 0a 32 36 38 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TURN 26810 REM ****************┆
0x01b5a0…01b5c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01b5c0…01b5e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 36 38 31 32 20 52 45 4d ┆********************* 26812 REM┆
0x01b5e0…01b600 20 2a 20 53 55 42 2e 3a 20 43 41 4c 43 2e 20 44 41 54 41 42 55 46 46 45 52 2d 53 49 5a 45 20 41 ┆ * SUB.: CALC. DATABUFFER-SIZE A┆
0x01b600…01b620 4e 44 20 4f 50 45 4e 20 44 41 54 41 2d 46 49 4c 45 09 09 20 20 20 20 20 20 2a 0d 0a 32 36 38 31 ┆ND OPEN DATA-FILE * 2681┆
0x01b620…01b640 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆4 REM **************************┆
0x01b640…01b660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01b660…01b680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 36 38 32 30 20 44 42 31 25 20 3d 20 30 20 3a 20 44 42 ┆*********** 26820 DB1% = 0 : DB┆
0x01b680…01b6a0 32 25 20 3d 20 30 20 3a 20 44 42 33 25 20 3d 20 30 20 3a 20 44 42 34 25 20 3d 20 30 20 3a 20 44 ┆2% = 0 : DB3% = 0 : DB4% = 0 : D┆
0x01b6a0…01b6c0 42 35 25 20 3d 20 30 20 3a 20 44 42 36 25 20 3d 20 30 20 3a 20 44 42 37 25 20 3d 20 30 20 3a 20 ┆B5% = 0 : DB6% = 0 : DB7% = 0 : ┆
0x01b6c0…01b6e0 44 42 38 25 20 3d 20 30 0d 0a 32 36 38 33 30 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 44 41 54 41 ┆DB8% = 0 26830 FILENAME$ = DATA┆
0x01b6e0…01b700 4e 41 4d 45 24 20 3a 20 49 46 20 52 45 43 4c 45 4e 47 54 48 25 20 3d 3c 20 32 35 35 20 54 48 45 ┆NAME$ : IF RECLENGTH% =< 255 THE┆
0x01b700…01b900 (7, 1, 6) DataBlock {»INFO.TEX«}
[…0x1…]
0x01bb00…01bb20 (7, 1, 8) 20 3a 20 59 50 4f 53 25 20 3d 20 31 31 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 34 38 20 ┆ : YPOS% = 11 : GOSUB 1990 548 ┆
0x01bb20…01bb40 47 4f 53 55 42 20 38 30 30 0d 0a 35 34 39 20 52 45 54 55 52 4e 0d 0a 35 35 30 20 58 50 4f 53 25 ┆GOSUB 800 549 RETURN 550 XPOS%┆
0x01bb40…01bb60 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 32 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d ┆ = 21 : YPOS% = 12 : GOSUB 1990 ┆
0x01bb60…01bb80 0a 35 35 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 34 20 52 45 54 55 52 4e 0d 0a 35 35 35 20 ┆ 553 GOSUB 800 554 RETURN 555 ┆
0x01bb80…01bba0 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 33 20 3a 20 47 4f 53 55 42 20 ┆XPOS% = 21 : YPOS% = 13 : GOSUB ┆
0x01bba0…01bbc0 31 39 39 30 0d 0a 35 35 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 39 20 52 45 54 55 52 4e 0d ┆1990 558 GOSUB 800 559 RETURN ┆
0x01bbc0…01bbe0 0a 35 36 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 ┆ 560 XPOS% = 21 : YPOS% = 14 : G┆
0x01bbe0…01bc00 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 36 34 20 52 45 ┆OSUB 1990 563 GOSUB 800 564 RE┆
0x01bc00…01bc20 54 55 52 4e 0d 0a 35 36 35 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 31 ┆TURN 565 XPOS% = 20 : YPOS% = 1┆
0x01bc20…01bc40 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 ┆5 : GOSUB 1990 568 GOSUB 800 5┆
0x01bc40…01bc60 36 39 20 52 45 54 55 52 4e 0d 0a 35 37 30 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 ┆69 RETURN 570 XPOS% = 20 : YPOS┆
0x01bc60…01bc80 25 20 3d 20 31 36 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 31 20 47 4f 53 55 42 20 38 ┆% = 16 : GOSUB 1990 571 GOSUB 8┆
0x01bc80…01bca0 30 30 0d 0a 35 37 32 20 52 45 54 55 52 4e 0d 0a 35 37 34 20 58 50 4f 53 25 20 3d 20 32 30 20 3a ┆00 572 RETURN 574 XPOS% = 20 :┆
0x01bca0…01bcc0 20 59 50 4f 53 25 20 3d 20 31 39 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 35 20 47 4f ┆ YPOS% = 19 : GOSUB 1990 575 GO┆
0x01bcc0…01bce0 53 55 42 20 38 30 30 0d 0a 35 37 36 20 52 45 54 55 52 4e 0d 0a 35 37 37 20 58 50 4f 53 25 20 3d ┆SUB 800 576 RETURN 577 XPOS% =┆
0x01bce0…01bd00 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 32 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 ┆ 20 : YPOS% = 20 : GOSUB 1990 5┆
0x01bd00…01bd20 (7, 1, 9) 4e 20 44 42 31 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 3a 20 47 4f 54 4f 20 32 36 38 37 30 ┆N DB1% = RECLENGTH% : GOTO 26870┆
0x01bd20…01bd40 0d 0a 32 36 38 34 30 20 46 4f 52 20 49 25 20 3d 20 31 20 54 4f 20 37 0d 0a 32 36 38 35 30 20 49 ┆ 26840 FOR I% = 1 TO 7 26850 I┆
0x01bd40…01bd60 46 20 52 45 43 4c 45 4e 47 54 48 25 20 3e 20 32 35 35 20 54 48 45 4e 20 47 4f 53 55 42 20 32 36 ┆F RECLENGTH% > 255 THEN GOSUB 26┆
0x01bd60…01bd80 39 31 30 0d 0a 32 36 38 36 30 20 4e 45 58 54 20 49 25 0d 0a 32 36 38 37 30 20 45 52 52 46 4c 41 ┆910 26860 NEXT I% 26870 ERRFLA┆
0x01bd80…01bda0 47 25 20 3d 20 30 0d 0a 32 36 38 38 30 20 44 42 25 20 3d 20 44 42 25 20 2b 20 44 42 31 25 2b 44 ┆G% = 0 26880 DB% = DB% + DB1%+D┆
0x01bda0…01bdc0 42 32 25 2b 44 42 33 25 2b 44 42 34 25 2b 44 42 35 25 2b 44 42 36 25 2b 44 42 37 25 2b 44 42 38 ┆B2%+DB3%+DB4%+DB5%+DB6%+DB7%+DB8┆
0x01bdc0…01bde0 25 2b 33 0d 0a 32 36 38 39 30 20 4f 50 45 4e 20 22 52 22 2c 23 33 2c 46 49 4c 45 4e 41 4d 45 24 ┆%+3 26890 OPEN "R",#3,FILENAME$┆
0x01bde0…01be00 2c 44 42 25 20 2b 20 32 0d 0a 32 36 39 30 30 20 52 45 54 55 52 4e 0d 0a 32 36 39 31 30 20 4f 4e ┆,DB% + 2 26900 RETURN 26910 ON┆
0x01be00…01be20 20 49 25 20 47 4f 54 4f 20 32 36 39 32 30 2c 32 36 39 33 30 2c 32 36 39 34 30 2c 32 36 39 35 30 ┆ I% GOTO 26920,26930,26940,26950┆
0x01be20…01be40 2c 32 36 39 36 30 2c 32 36 39 37 30 2c 32 36 39 38 30 0d 0a 32 36 39 32 30 20 44 42 31 25 20 3d ┆,26960,26970,26980 26920 DB1% =┆
0x01be40…01be60 20 32 35 35 20 3a 20 52 45 43 4c 45 4e 47 54 48 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 2d ┆ 255 : RECLENGTH% = RECLENGTH% -┆
0x01be60…01be80 20 32 35 35 20 3a 20 44 42 32 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 3a 20 52 45 54 55 52 ┆ 255 : DB2% = RECLENGTH% : RETUR┆
0x01be80…01bea0 4e 0d 0a 32 36 39 33 30 20 44 42 32 25 20 3d 20 32 35 35 20 3a 20 52 45 43 4c 45 4e 47 54 48 25 ┆N 26930 DB2% = 255 : RECLENGTH%┆
0x01bea0…01bec0 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 2d 20 32 35 35 20 3a 20 44 42 33 25 20 3d 20 52 45 43 ┆ = RECLENGTH% - 255 : DB3% = REC┆
0x01bec0…01bee0 4c 45 4e 47 54 48 25 20 3a 20 52 45 54 55 52 4e 0d 0a 32 36 39 34 30 20 44 42 33 25 20 3d 20 32 ┆LENGTH% : RETURN 26940 DB3% = 2┆
0x01bee0…01bf00 35 35 20 3a 20 52 45 43 4c 45 4e 47 54 48 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 2d 20 32 ┆55 : RECLENGTH% = RECLENGTH% - 2┆
0x01bf00…01c100 (7, 1, 10) DataBlock {»INFO.TEX«}
[…0x1…]
0x01c300…01c320 (7, 1, 12) 37 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 37 39 20 52 45 54 55 52 4e 0d 0a 35 38 30 20 52 45 ┆78 GOSUB 800 579 RETURN 580 RE┆
0x01c320…01c340 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x01c340…01c360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01c360…01c380 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 38 35 20 52 45 4d 20 2a 20 20 52 45 50 4c 41 43 45 20 44 41 ┆********* 585 REM * REPLACE DA┆
0x01c380…01c3a0 54 41 2d 46 4c 4f 50 50 59 20 49 4e 20 44 52 49 56 45 20 31 20 09 09 09 09 20 20 20 20 20 20 2a ┆TA-FLOPPY IN DRIVE 1 *┆
0x01c3a0…01c3c0 0d 0a 35 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 590 REM **********************┆
0x01c3c0…01c3e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01c3e0…01c400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 30 30 20 46 49 4c 45 4e 41 4d 45 24 ┆***************** 600 FILENAME$┆
0x01c400…01c420 20 3d 20 22 52 45 53 45 54 22 20 3a 20 52 45 53 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = "RESET" : RESET ┆
0x01c420…01c440 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 43 50 2f 4d 20 44 49 52 2e 20 4f ┆ REM *** WRITE CP/M DIR. O┆
0x01c440…01c460 4e 20 44 49 53 4b 0d 0a 36 32 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 34 20 3a 20 47 4f 53 ┆N DISK 620 ERRMSGNR% = 14 : GOS┆
0x01c460…01c480 55 42 20 32 30 30 30 30 0d 0a 36 33 30 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 36 34 32 20 52 45 ┆UB 20000 630 GOSUB 1000 642 RE┆
0x01c480…01c4a0 53 45 54 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 54 48 45 20 4e 45 57 ┆SET REM *** INIT THE NEW┆
0x01c4a0…01c4c0 20 44 49 53 4b 0d 0a 36 34 34 20 47 4f 54 4f 20 31 36 0d 0a 36 34 35 20 52 45 4d 09 2a 2a 2a 2a ┆ DISK 644 GOTO 16 645 REM ****┆
0x01c4c0…01c4e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x01c500…01c700 (7, 1, 13) DataBlock {»INFO.TEX«}
[…0x2…]
0x01cb00…01cd00 (8, 0, 1) DataBlock {»ENTRYME.BAS«}
[…0x2f…]
0x022b00…022d00 (9, 1, 4) DataBlock {»FORMAT.BAS«}
0x022d00…022f00 (9, 1, 5) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x023300…023500 (9, 1, 8) DataBlock {»FORMAT.BAS«}
0x023500…023700 (9, 1, 9) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x023b00…023d00 (9, 1, 12) DataBlock {»FORMAT.BAS«}
0x023d00…023f00 (9, 1, 13) DataBlock {»ENTRYME.BAS«}
[…0x1…]
0x024100…024300 (9, 1, 15) DataBlock {»FORMAT.BAS«}
[…0x5b…]
0x02f900…02f920 (13, 0, 2) 39 20 3a 20 59 50 4f 53 25 20 3d 20 32 32 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 3a 20 50 52 ┆9 : YPOS% = 22 : GOSUB 1990 : PR┆
0x02f920…02f940 49 4e 54 20 22 2e 2e 22 3b 43 48 52 24 28 38 29 3b 43 48 52 24 28 38 29 3b 0d 0a 31 37 30 20 41 ┆INT "..";CHR$(8);CHR$(8); 170 A┆
0x02f940…02f960 52 42 4e 52 31 24 3d 49 4e 50 55 54 24 28 31 29 0d 0a 31 37 35 20 49 46 20 41 53 43 28 41 52 42 ┆RBNR1$=INPUT$(1) 175 IF ASC(ARB┆
0x02f960…02f980 4e 52 31 24 29 20 3d 20 31 32 20 47 4f 54 4f 20 31 33 35 0d 0a 31 38 30 20 49 46 20 41 53 43 28 ┆NR1$) = 12 GOTO 135 180 IF ASC(┆
0x02f980…02f9a0 41 52 42 4e 52 31 24 29 20 3c 20 34 38 20 4f 52 20 41 53 43 28 41 52 42 4e 52 31 24 29 20 3e 20 ┆ARBNR1$) < 48 OR ASC(ARBNR1$) > ┆
0x02f9a0…02f9c0 35 37 20 47 4f 54 4f 20 31 37 30 20 45 4c 53 45 20 31 39 30 0d 0a 31 39 30 20 4d 49 44 24 28 41 ┆57 GOTO 170 ELSE 190 190 MID$(A┆
0x02f9c0…02f9e0 52 42 4e 52 24 2c 31 2c 31 29 3d 41 52 42 4e 52 31 24 3a 50 52 49 4e 54 20 41 52 42 4e 52 31 24 ┆RBNR$,1,1)=ARBNR1$:PRINT ARBNR1$┆
0x02f9e0…02fa00 3b 0d 0a 32 30 30 20 41 52 42 4e 52 32 24 3d 49 4e 50 55 54 24 28 31 29 0d 0a 33 31 30 20 49 46 ┆; 200 ARBNR2$=INPUT$(1) 310 IF┆
0x02fa00…02fa20 20 41 53 43 28 41 52 42 4e 52 32 24 29 20 3d 20 31 33 20 47 4f 54 4f 20 33 36 30 0d 0a 33 32 30 ┆ ASC(ARBNR2$) = 13 GOTO 360 320┆
0x02fa20…02fa40 20 49 46 20 41 53 43 28 41 52 42 4e 52 32 24 29 20 3d 20 31 32 20 47 4f 54 4f 20 36 35 30 0d 0a ┆ IF ASC(ARBNR2$) = 12 GOTO 650 ┆
0x02fa40…02fa60 33 33 30 20 49 46 20 41 53 43 28 41 52 42 4e 52 32 24 29 20 3d 20 38 20 54 48 45 4e 20 50 52 49 ┆330 IF ASC(ARBNR2$) = 8 THEN PRI┆
0x02fa60…02fa80 4e 54 20 43 48 52 24 28 38 29 3b 20 3a 20 47 4f 54 4f 20 31 37 30 0d 0a 33 35 30 20 49 46 20 41 ┆NT CHR$(8); : GOTO 170 350 IF A┆
0x02fa80…02faa0 53 43 28 41 52 42 4e 52 32 24 29 20 3c 20 34 38 20 4f 52 20 41 53 43 28 41 52 42 4e 52 32 24 29 ┆SC(ARBNR2$) < 48 OR ASC(ARBNR2$)┆
0x02faa0…02fac0 20 3e 20 35 37 20 47 4f 54 4f 20 32 30 30 0d 0a 33 36 30 20 4d 49 44 24 28 41 52 42 4e 52 24 2c ┆ > 57 GOTO 200 360 MID$(ARBNR$,┆
0x02fac0…02fae0 32 2c 31 29 20 3d 20 41 52 42 4e 52 32 24 20 3a 20 50 52 49 4e 54 20 41 52 42 4e 52 32 24 3b 0d ┆2,1) = ARBNR2$ : PRINT ARBNR2$; ┆
0x02fae0…02fb00 0a 33 36 35 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 32 20 4f 52 20 56 41 4c 28 ┆ 365 IF VAL(ARBNR$) = 12 OR VAL(┆
0x02fb00…02fb20 (13, 0, 3) 20 3a 20 59 50 4f 53 25 20 3d 20 31 31 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 34 38 20 ┆ : YPOS% = 11 : GOSUB 1990 548 ┆
0x02fb20…02fb40 47 4f 53 55 42 20 38 30 30 0d 0a 35 34 39 20 52 45 54 55 52 4e 0d 0a 35 35 30 20 58 50 4f 53 25 ┆GOSUB 800 549 RETURN 550 XPOS%┆
0x02fb40…02fb60 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 32 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d ┆ = 21 : YPOS% = 12 : GOSUB 1990 ┆
0x02fb60…02fb80 0a 35 35 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 34 20 52 45 54 55 52 4e 0d 0a 35 35 35 20 ┆ 553 GOSUB 800 554 RETURN 555 ┆
0x02fb80…02fba0 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 33 20 3a 20 47 4f 53 55 42 20 ┆XPOS% = 21 : YPOS% = 13 : GOSUB ┆
0x02fba0…02fbc0 31 39 39 30 0d 0a 35 35 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 39 20 52 45 54 55 52 4e 0d ┆1990 558 GOSUB 800 559 RETURN ┆
0x02fbc0…02fbe0 0a 35 36 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 ┆ 560 XPOS% = 21 : YPOS% = 14 : G┆
0x02fbe0…02fc00 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 36 34 20 52 45 ┆OSUB 1990 563 GOSUB 800 564 RE┆
0x02fc00…02fc20 54 55 52 4e 0d 0a 35 36 35 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 31 ┆TURN 565 XPOS% = 20 : YPOS% = 1┆
0x02fc20…02fc40 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 ┆5 : GOSUB 1990 568 GOSUB 800 5┆
0x02fc40…02fc60 36 39 20 52 45 54 55 52 4e 0d 0a 35 37 30 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 ┆69 RETURN 570 XPOS% = 20 : YPOS┆
0x02fc60…02fc80 25 20 3d 20 31 36 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 31 20 47 4f 53 55 42 20 38 ┆% = 16 : GOSUB 1990 571 GOSUB 8┆
0x02fc80…02fca0 30 30 0d 0a 35 37 32 20 52 45 54 55 52 4e 0d 0a 35 37 34 20 58 50 4f 53 25 20 3d 20 32 30 20 3a ┆00 572 RETURN 574 XPOS% = 20 :┆
0x02fca0…02fcc0 20 59 50 4f 53 25 20 3d 20 31 39 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 35 20 47 4f ┆ YPOS% = 19 : GOSUB 1990 575 GO┆
0x02fcc0…02fce0 53 55 42 20 38 30 30 0d 0a 35 37 36 20 52 45 54 55 52 4e 0d 0a 35 37 37 20 58 50 4f 53 25 20 3d ┆SUB 800 576 RETURN 577 XPOS% =┆
0x02fce0…02fd00 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 32 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 ┆ 20 : YPOS% = 20 : GOSUB 1990 5┆
0x02fd00…02fd20 (13, 0, 4) 4f 20 39 36 30 0d 0a 39 33 34 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 43 48 52 24 28 31 ┆O 960 934 IF KEYINPUT$ = CHR$(1┆
0x02fd20…02fd40 33 29 20 54 48 45 4e 20 47 4f 54 4f 20 39 37 30 0d 0a 39 33 36 20 49 46 20 41 53 43 28 4b 45 59 ┆3) THEN GOTO 970 936 IF ASC(KEY┆
0x02fd40…02fd60 49 4e 50 55 54 24 29 20 3c 20 33 32 20 4f 52 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3e ┆INPUT$) < 32 OR ASC(KEYINPUT$) >┆
0x02fd60…02fd80 20 31 32 32 20 54 48 45 4e 20 47 4f 54 4f 20 39 32 35 0d 0a 39 33 38 20 50 52 49 4e 54 20 4b 45 ┆ 122 THEN GOTO 925 938 PRINT KE┆
0x02fd80…02fda0 59 49 4e 50 55 54 24 3b 0d 0a 39 34 30 20 4d 49 44 24 28 50 52 4f 47 4e 41 4d 45 24 2c 49 25 2c ┆YINPUT$; 940 MID$(PROGNAME$,I%,┆
0x02fda0…02fdc0 31 29 20 3d 20 4b 45 59 49 4e 50 55 54 24 0d 0a 39 34 32 20 4e 45 58 54 20 49 25 0d 0a 39 34 34 ┆1) = KEYINPUT$ 942 NEXT I% 944┆
0x02fdc0…02fde0 20 49 25 20 3d 20 31 30 20 3a 20 50 52 49 4e 54 20 43 48 52 24 28 38 29 3b 20 3a 20 4f 4e 45 25 ┆ I% = 10 : PRINT CHR$(8); : ONE%┆
0x02fde0…02fe00 20 3d 20 38 20 3a 20 47 4f 54 4f 20 39 32 30 0d 0a 39 35 30 20 52 45 4d 20 2d 2d 2d 20 43 55 52 ┆ = 8 : GOTO 920 950 REM --- CUR┆
0x02fe00…02fe20 53 4f 52 20 42 57 44 20 2d 2d 2d 0d 0a 39 35 32 20 49 46 20 49 25 20 3d 20 31 20 54 48 45 4e 20 ┆SOR BWD --- 952 IF I% = 1 THEN ┆
0x02fe20…02fe40 47 4f 54 4f 20 39 32 35 0d 0a 39 35 34 20 50 52 49 4e 54 20 4b 45 59 49 4e 50 55 54 24 3b 0d 0a ┆GOTO 925 954 PRINT KEYINPUT$; ┆
0x02fe40…02fe60 39 35 36 20 49 25 20 3d 20 49 25 20 2d 20 31 20 3a 20 47 4f 54 4f 20 39 32 35 0d 0a 39 36 30 20 ┆956 I% = I% - 1 : GOTO 925 960 ┆
0x02fe60…02fe80 52 45 4d 20 2d 2d 2d 20 43 55 52 53 4f 52 20 46 57 44 20 2d 2d 2d 0d 0a 39 36 32 20 49 46 20 49 ┆REM --- CURSOR FWD --- 962 IF I┆
0x02fe80…02fea0 25 20 3d 20 31 30 20 54 48 45 4e 20 47 4f 54 4f 20 39 32 35 0d 0a 39 36 34 20 50 52 49 4e 54 20 ┆% = 10 THEN GOTO 925 964 PRINT ┆
0x02fea0…02fec0 4b 45 59 49 4e 50 55 54 24 3b 0d 0a 39 36 36 20 49 25 20 3d 20 49 25 20 2b 20 31 20 3a 20 47 4f ┆KEYINPUT$; 966 I% = I% + 1 : GO┆
0x02fec0…02fee0 54 4f 20 39 32 35 0d 0a 39 37 30 20 52 45 4d 20 2d 2d 2d 20 43 52 20 4b 45 59 20 2d 2d 2d 0d 0a ┆TO 925 970 REM --- CR KEY --- ┆
0x02fee0…02ff00 39 37 32 20 50 52 4f 47 4e 41 4d 45 24 20 3d 20 50 52 4f 47 4e 41 4d 45 24 20 2b 20 22 2e 43 4f ┆972 PROGNAME$ = PROGNAME$ + ".CO┆
0x02ff00…030100 (13, 0, 5) DataBlock {»FORMAT.BAS«}
0x030100…030120 (13, 0, 6) 41 52 42 4e 52 24 29 20 3d 20 31 33 20 54 48 45 4e 20 47 4f 53 55 42 20 34 30 30 20 3a 20 47 4f ┆ARBNR$) = 13 THEN GOSUB 400 : GO┆
0x030120…030140 54 4f 20 31 33 35 0d 0a 33 37 30 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 20 31 20 4f ┆TO 135 370 IF VAL(ARBNR$) < 1 O┆
0x030140…030160 52 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3e 20 31 35 20 54 48 45 4e 20 47 4f 53 55 42 20 34 30 ┆R VAL(ARBNR$) > 15 THEN GOSUB 40┆
0x030160…030180 30 20 3a 20 47 4f 54 4f 20 31 33 35 20 45 4c 53 45 20 35 30 30 0d 0a 34 30 30 20 52 45 4d 09 2a ┆0 : GOTO 135 ELSE 500 400 REM *┆
0x030180…0301a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0301c0…0301e0 2a 2a 2a 2a 2a 2a 0d 0a 34 30 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 ┆****** 402 REM * SUB.: PRINT E┆
0x0301e0…030200 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RRMSG. IN LINE 25 ┆
0x030200…030220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 34 30 34 20 52 45 4d ┆ * 404 REM┆
0x030220…030240 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x030240…030260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030260…030280 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 31 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 20 3a 20 47 4f ┆******** 410 ERRMSGNR% = 1 : GO┆
0x030280…0302a0 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 31 30 30 30 20 20 20 20 20 09 0d 0a 34 32 ┆SUB 20000 : GOSUB 1000 42┆
0x0302a0…0302c0 30 20 52 45 54 55 52 4e 0d 0a 34 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 RETURN 490 REM **************┆
0x0302c0…0302e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0302e0…030300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 39 35 20 52 ┆************************* 495 R┆
0x030300…030320 (13, 0, 7) 37 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 37 39 20 52 45 54 55 52 4e 0d 0a 35 38 30 20 52 45 ┆78 GOSUB 800 579 RETURN 580 RE┆
0x030320…030340 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x030340…030360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030360…030380 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 38 35 20 52 45 4d 20 2a 20 20 52 45 50 4c 41 43 45 20 44 41 ┆********* 585 REM * REPLACE DA┆
0x030380…0303a0 54 41 2d 46 4c 4f 50 50 59 20 49 4e 20 44 52 49 56 45 20 31 20 09 09 09 09 20 20 20 20 20 20 2a ┆TA-FLOPPY IN DRIVE 1 *┆
0x0303a0…0303c0 0d 0a 35 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 590 REM **********************┆
0x0303c0…0303e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0303e0…030400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 30 30 20 46 49 4c 45 4e 41 4d 45 24 ┆***************** 600 FILENAME$┆
0x030400…030420 20 3d 20 22 52 45 53 45 54 22 20 3a 20 52 45 53 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = "RESET" : RESET ┆
0x030420…030440 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 43 50 2f 4d 20 44 49 52 2e 20 4f ┆ REM *** WRITE CP/M DIR. O┆
0x030440…030460 4e 20 44 49 53 4b 0d 0a 36 32 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 34 20 3a 20 47 4f 53 ┆N DISK 620 ERRMSGNR% = 14 : GOS┆
0x030460…030480 55 42 20 32 30 30 30 30 0d 0a 36 33 30 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 36 34 32 20 52 45 ┆UB 20000 630 GOSUB 1000 642 RE┆
0x030480…0304a0 53 45 54 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 54 48 45 20 4e 45 57 ┆SET REM *** INIT THE NEW┆
0x0304a0…0304c0 20 44 49 53 4b 0d 0a 36 34 34 20 47 4f 54 4f 20 31 36 0d 0a 36 34 35 20 52 45 4d 09 2a 2a 2a 2a ┆ DISK 644 GOTO 16 645 REM ****┆
0x0304c0…0304e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030500…030520 (13, 0, 8) 4d 22 0d 0a 39 37 34 20 43 48 41 49 4e 20 50 52 4f 47 4e 41 4d 45 24 0d 0a 39 37 36 20 52 45 4d ┆M" 974 CHAIN PROGNAME$ 976 REM┆
0x030520…030540 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x030540…030560 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030560…030580 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 37 37 20 52 45 4d 20 2a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 ┆******** 977 REM * PRINT ERRMSG┆
0x030580…0305a0 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 20 20 20 4e 4f 20 43 48 41 49 4e 2d 4d 4f 44 55 4c 20 21 ┆. IN LINE 25 NO CHAIN-MODUL !┆
0x0305a0…0305c0 21 09 09 09 20 20 20 20 20 20 2a 0d 0a 39 37 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆! * 978 REM ***********┆
0x0305c0…0305e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0305e0…030600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 38 ┆**************************** 98┆
0x030600…030620 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 30 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a ┆0 ERRMSGNR% = 20 : GOSUB 20000 :┆
0x030620…030640 20 47 4f 53 55 42 20 31 30 30 30 20 3a 20 47 4f 54 4f 20 31 36 0d 0a 39 39 30 20 20 52 45 4d 20 ┆ GOSUB 1000 : GOTO 16 990 REM ┆
0x030640…030660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030680…0306a0 2a 2a 2a 2a 2a 2a 0d 0a 39 39 35 20 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 28 52 45 53 45 54 ┆****** 995 REM * SUB.: (RESET┆
0x0306a0…0306c0 29 20 49 4e 50 55 54 20 41 46 54 45 52 20 41 20 45 52 52 4d 53 47 2e 09 09 09 09 20 20 20 20 20 ┆) INPUT AFTER A ERRMSG. ┆
0x0306c0…0306e0 20 2a 0d 0a 31 30 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1000 REM *******************┆
0x0306e0…030700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030700…030720 (13, 0, 9) 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 37 31 20 52 45 4d 20 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 71 REM ***********┆
0x030720…030740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030740…030760 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 32 ┆**************************** 72┆
0x030760…030780 20 47 4f 53 55 42 20 39 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOSUB 9100 ┆
0x030780…0307a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 ┆ REM *** OPEN ┆
0x0307a0…0307c0 41 53 42 53 54 41 54 2d 46 49 4c 45 0d 0a 37 34 20 47 4f 53 55 42 20 39 31 35 30 20 09 09 09 09 ┆ASBSTAT-FILE 74 GOSUB 9150 ┆
0x0307c0…0307e0 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 49 45 4c 44 0d ┆ REM *** INIT ARBSTAT-FIELD ┆
0x0307e0…030800 0a 38 30 20 46 49 45 4c 44 4e 4f 24 20 3d 20 22 30 30 30 22 20 3a 20 4d 4f 44 45 24 20 3d 20 22 ┆ 80 FIELDNO$ = "000" : MODE$ = "┆
0x030800…030820 30 30 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 0d 0a 38 35 20 4c 53 45 54 20 ┆00" : SPECMOD$ = "000" 85 LSET ┆
0x030820…030840 46 4c 4e 24 20 3d 20 46 49 45 4c 44 4e 4f 24 20 3a 20 4c 53 45 54 20 4d 4f 24 20 3d 20 4d 4f 44 ┆FLN$ = FIELDNO$ : LSET MO$ = MOD┆
0x030840…030860 45 24 20 3a 20 4c 53 45 54 20 53 4d 24 20 3d 20 53 50 45 43 4d 4f 44 24 0d 0a 39 30 20 46 25 20 ┆E$ : LSET SM$ = SPECMOD$ 90 F% ┆
0x030860…030880 3d 20 56 41 52 50 54 52 28 23 32 29 20 3a 20 5a 25 20 3d 20 56 41 52 50 54 52 28 23 31 29 20 3a ┆= VARPTR(#2) : Z% = VARPTR(#1) :┆
0x030880…0308a0 20 43 41 4c 4c 20 49 4e 49 54 28 46 25 2c 5a 25 29 20 20 0d 0a 31 30 30 20 47 4f 53 55 42 20 37 ┆ CALL INIT(F%,Z%) 100 GOSUB 7┆
0x0308a0…0308c0 32 34 30 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 ┆240 ┆
0x0308c0…0308e0 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 54 45 53 54 20 47 45 4e 45 52 41 4c 20 44 ┆ REM *** TEST GENERAL D┆
0x0308e0…030900 45 50 2d 53 54 41 54 55 53 0d 0a 31 31 30 20 4f 4e 20 50 52 49 4d 53 54 25 20 47 4f 54 4f 20 31 ┆EP-STATUS 110 ON PRIMST% GOTO 1┆
0x030900…030920 (13, 0, 10) 45 4d 20 2a 20 20 49 4e 50 55 54 20 27 57 4f 52 4b 4e 4f 2e 20 4f 4b 20 3f 27 20 20 20 20 20 20 ┆EM * INPUT 'WORKNO. OK ?' ┆
0x030920…030940 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 ┆ ┆
0x030940…030960 20 20 20 20 20 20 20 20 20 2a 0d 0a 35 30 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 500 REM ************┆
0x030960…030980 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030980…0309a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 30 35 ┆*************************** 505┆
0x0309a0…0309c0 20 41 52 42 4e 52 4f 4b 24 20 3d 20 53 50 41 43 45 24 28 31 29 0d 0a 35 31 30 20 4f 4e 20 56 41 ┆ ARBNROK$ = SPACE$(1) 510 ON VA┆
0x0309c0…0309e0 4c 28 41 52 42 4e 52 24 29 20 47 4f 53 55 42 20 35 32 30 2c 35 32 35 2c 35 33 30 2c 35 33 35 2c ┆L(ARBNR$) GOSUB 520,525,530,535,┆
0x0309e0…030a00 35 34 30 2c 35 34 35 2c 35 35 30 2c 35 35 35 2c 35 36 30 2c 35 36 35 2c 35 37 30 2c 31 33 32 2c ┆540,545,550,555,560,565,570,132,┆
0x030a00…030a20 31 33 32 2c 35 37 34 2c 35 37 37 0d 0a 35 31 31 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 ┆132,574,577 511 IF ARBNROK$ = "┆
0x030a20…030a40 4e 22 20 47 4f 54 4f 20 31 33 35 20 0d 0a 35 31 32 20 41 52 42 4e 52 4f 4b 24 3d 49 4e 50 55 54 ┆N" GOTO 135 512 ARBNROK$=INPUT┆
0x030a40…030a60 24 28 31 29 0d 0a 35 31 34 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 4a 22 20 54 48 45 4e ┆$(1) 514 IF ARBNROK$ = "J" THEN┆
0x030a60…030a80 20 50 52 49 4e 54 20 41 52 42 4e 52 4f 4b 24 3b 20 3a 20 47 4f 54 4f 20 31 30 31 30 20 0d 0a 35 ┆ PRINT ARBNROK$; : GOTO 1010 5┆
0x030a80…030aa0 31 35 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 4e 22 20 47 4f 54 4f 20 35 31 30 20 0d 0a ┆15 IF ARBNROK$ = "N" GOTO 510 ┆
0x030aa0…030ac0 35 31 36 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 3b 20 3a 20 47 4f 54 4f 20 35 31 32 0d 0a 35 ┆516 PRINT CHR$(7); : GOTO 512 5┆
0x030ac0…030ae0 31 37 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆17 REM *************************┆
0x030ae0…030b00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030b00…030b20 (13, 0, 11) 2a 2a 2a 0d 0a 36 34 36 20 52 45 4d 20 2a 20 20 43 41 4c 4c 20 43 50 2f 4d 20 28 57 41 52 4d 20 ┆*** 646 REM * CALL CP/M (WARM ┆
0x030b20…030b40 42 4f 4f 54 29 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 34 37 20 52 45 4d 09 2a 2a 2a 2a ┆BOOT) * 647 REM ****┆
0x030b40…030b60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030b80…030ba0 2a 2a 2a 0d 0a 36 35 30 20 53 59 53 54 45 4d 0d 0a 37 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a ┆*** 650 SYSTEM 790 REM *******┆
0x030ba0…030bc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030be0…030c00 0d 0a 37 39 35 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 ┆ 795 REM * SUB.: IF ARBNROK$ = ┆
0x030c00…030c20 4e 20 54 48 45 4e 20 52 45 53 45 54 20 49 4e 56 45 52 53 45 20 56 49 44 45 4f 20 45 4c 53 45 20 ┆N THEN RESET INVERSE VIDEO ELSE ┆
0x030c20…030c40 53 45 54 20 49 4e 56 45 52 53 45 20 56 49 44 2e 2a 0d 0a 38 30 30 20 52 45 4d 09 2a 2a 2a 2a 2a ┆SET INVERSE VID.* 800 REM *****┆
0x030c40…030c60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030c80…030ca0 2a 2a 0d 0a 38 30 32 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 4e 22 20 54 48 45 4e 20 50 ┆** 802 IF ARBNROK$ = "N" THEN P┆
0x030ca0…030cc0 52 49 4e 54 20 43 48 52 24 28 31 32 38 29 3b 22 20 20 20 22 3b 20 45 4c 53 45 20 50 52 49 4e 54 ┆RINT CHR$(128);" "; ELSE PRINT┆
0x030cc0…030ce0 20 43 48 52 24 28 31 34 34 29 3b 22 2d 2d 3e 22 3b 43 48 52 24 28 31 32 38 29 3b 0d 0a 38 31 30 ┆ CHR$(144);"-->";CHR$(128); 810┆
0x030ce0…030d00 20 58 50 4f 53 25 20 3d 20 35 30 20 3a 20 59 50 4f 53 25 20 3d 20 32 34 20 3a 20 47 4f 53 55 42 ┆ XPOS% = 50 : YPOS% = 24 : GOSUB┆
0x030d00…030d20 (13, 0, 12) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 30 32 20 50 52 49 4e 54 20 ┆******************* 1002 PRINT ┆
0x030d20…030d40 43 48 52 24 28 37 29 3b 3a 45 53 43 49 4e 50 55 54 24 20 3d 20 49 4e 50 55 54 24 28 31 29 3a 49 ┆CHR$(7);:ESCINPUT$ = INPUT$(1):I┆
0x030d40…030d60 46 20 41 53 43 28 45 53 43 49 4e 50 55 54 24 29 20 3c 3e 20 31 20 47 4f 54 4f 20 31 30 30 32 0d ┆F ASC(ESCINPUT$) <> 1 GOTO 1002 ┆
0x030d60…030d80 0a 31 30 30 34 20 50 52 49 4e 54 20 53 50 41 43 45 24 28 37 36 29 3b 20 3a 20 52 45 54 55 52 4e ┆ 1004 PRINT SPACE$(76); : RETURN┆
0x030d80…030da0 0d 0a 31 30 30 36 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1006 REM *********************┆
0x030da0…030dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030dc0…030de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 30 38 20 52 45 4d 20 2a 20 20 52 ┆***************** 1008 REM * R┆
0x030de0…030e00 45 53 45 54 20 41 4c 4c 20 49 4e 50 55 54 2d 42 55 46 46 45 52 20 41 4e 44 20 43 48 41 49 4e 47 ┆ESET ALL INPUT-BUFFER AND CHAING┆
0x030e00…030e20 45 20 54 4f 20 53 45 4c 2e 20 50 52 4f 47 52 41 4d 4d 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 31 ┆E TO SEL. PROGRAMM * 101┆
0x030e20…030e40 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 REM **************************┆
0x030e40…030e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030e60…030e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 31 31 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 ┆************ 1011 NEXTFORMFLAG%┆
0x030e80…030ea0 20 3d 20 30 0d 0a 31 30 31 32 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 20 33 20 4f 52 ┆ = 0 1012 IF VAL(ARBNR$) < 3 OR┆
0x030ea0…030ec0 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 39 20 4f 52 20 56 41 4c 28 41 52 42 4e 52 24 29 20 ┆ VAL(ARBNR$) = 9 OR VAL(ARBNR$) ┆
0x030ec0…030ee0 3d 20 31 31 20 4f 52 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 34 20 54 48 45 4e 20 50 52 ┆= 11 OR VAL(ARBNR$) = 14 THEN PR┆
0x030ee0…030f00 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 31 30 31 33 20 4f 56 45 52 57 52 49 54 45 25 20 3d 20 ┆INT CHR$(12) 1013 OVERWRITE% = ┆
0x030f00…030f20 (13, 0, 13) 33 30 2c 39 30 2c 39 30 2c 39 30 2c 39 30 2c 39 30 2c 39 30 2c 37 32 38 30 2c 39 30 2c 39 30 2c ┆30,90,90,90,90,90,90,7280,90,90,┆
0x030f20…030f40 39 30 2c 39 30 2c 39 30 2c 39 30 0d 0a 31 32 30 20 47 4f 53 55 42 20 37 32 38 30 20 3a 20 47 4f ┆90,90,90,90 120 GOSUB 7280 : GO┆
0x030f40…030f60 54 4f 20 31 36 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 09 09 ┆TO 16 ┆
0x030f60…030f80 09 09 52 45 4d 20 2a 2a 2a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 28 44 45 50 2d 45 52 52 ┆ REM *** PRINT ERRMSG. (DEP-ERR┆
0x030f80…030fa0 4f 52 29 0d 0a 31 33 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 43 4c 4f 53 45 20 09 09 ┆OR) 130 ERRFLAG% = 0 : CLOSE ┆
0x030fa0…030fc0 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 43 4c 4f 53 45 20 41 4c 4c 20 46 49 4c 45 53 0d 0a 31 33 ┆ REM *** CLOSE ALL FILES 13┆
0x030fc0…030fe0 31 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 REM **************************┆
0x030fe0…031000 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031000…031020 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 33 32 20 52 45 4d 20 2a 20 20 49 4e 50 55 54 20 ┆************* 132 REM * INPUT ┆
0x031020…031040 57 4f 52 4b 4e 4f 2e 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 ┆WORKNO. ┆
0x031040…031060 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 2a 0d 0a ┆ * ┆
0x031060…031080 31 33 33 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆133 REM ************************┆
0x031080…0310a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0310a0…0310c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 33 34 20 41 52 42 53 54 41 54 4f 50 45 4e ┆*************** 134 ARBSTATOPEN┆
0x0310c0…0310e0 25 20 3d 20 30 20 3a 20 55 53 52 46 4f 52 4d 46 4f 50 45 4e 25 20 3d 20 30 0d 0a 31 33 35 20 41 ┆% = 0 : USRFORMFOPEN% = 0 135 A┆
0x0310e0…031100 52 42 4e 52 24 20 3d 20 53 50 41 43 45 24 28 32 29 0d 0a 31 35 32 20 58 50 4f 53 25 20 3d 20 34 ┆RBNR$ = SPACE$(2) 152 XPOS% = 4┆
0x031100…031120 (13, 0, 14) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 31 38 20 52 45 4d 20 2a 20 20 53 45 54 20 2f ┆************** 518 REM * SET /┆
0x031120…031140 20 52 45 53 45 54 20 49 4e 56 45 52 53 45 20 4d 4f 44 45 20 4f 4e 20 43 52 54 20 20 20 20 20 09 ┆ RESET INVERSE MODE ON CRT ┆
0x031140…031160 09 09 09 20 20 20 20 20 20 2a 0d 0a 35 31 39 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 519 REM ************┆
0x031160…031180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031180…0311a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 32 30 ┆*************************** 520┆
0x0311a0…0311c0 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 36 20 3a 20 47 4f 53 55 42 20 ┆ XPOS% = 21 : YPOS% = 6 : GOSUB ┆
0x0311c0…0311e0 31 39 39 30 0d 0a 35 32 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 32 34 20 52 45 54 55 52 4e 0d ┆1990 523 GOSUB 800 524 RETURN ┆
0x0311e0…031200 0a 35 32 35 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 37 20 3a 20 47 4f ┆ 525 XPOS% = 21 : YPOS% = 7 : GO┆
0x031200…031220 53 55 42 20 31 39 39 30 0d 0a 35 32 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 32 39 20 52 45 54 ┆SUB 1990 528 GOSUB 800 529 RET┆
0x031220…031240 55 52 4e 0d 0a 35 33 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 38 20 ┆URN 530 XPOS% = 21 : YPOS% = 8 ┆
0x031240…031260 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 33 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 33 34 ┆: GOSUB 1990 533 GOSUB 800 534┆
0x031260…031280 20 52 45 54 55 52 4e 0d 0a 35 33 35 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 ┆ RETURN 535 XPOS% = 21 : YPOS% ┆
0x031280…0312a0 3d 20 39 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 33 38 20 47 4f 53 55 42 20 38 30 30 0d ┆= 9 : GOSUB 1990 538 GOSUB 800 ┆
0x0312a0…0312c0 0a 35 33 39 20 52 45 54 55 52 4e 0d 0a 35 34 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 ┆ 539 RETURN 540 XPOS% = 21 : YP┆
0x0312c0…0312e0 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 34 33 20 47 4f 53 55 42 ┆OS% = 10 : GOSUB 1990 543 GOSUB┆
0x0312e0…031300 20 38 30 30 0d 0a 35 34 34 20 52 45 54 55 52 4e 0d 0a 35 34 35 20 58 50 4f 53 25 20 3d 20 32 31 ┆ 800 544 RETURN 545 XPOS% = 21┆
0x031300…031320 (13, 0, 15) 20 31 39 39 30 0d 0a 38 32 30 20 52 45 54 55 52 4e 0d 0a 39 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a ┆ 1990 820 RETURN 900 REM *****┆
0x031320…031340 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031360…031380 2a 2a 0d 0a 39 30 32 20 52 45 4d 20 2a 20 43 48 41 49 4e 20 54 4f 20 55 53 45 52 2d 50 52 4f 47 ┆** 902 REM * CHAIN TO USER-PROG┆
0x031380…0313a0 52 41 4d 4d 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 39 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆RAMM * 904 REM ******┆
0x0313a0…0313c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0313e0…031400 2a 0d 0a 39 30 36 20 58 50 4f 53 25 20 3d 20 31 20 3a 20 59 50 4f 53 25 20 3d 20 32 35 20 3a 20 ┆* 906 XPOS% = 1 : YPOS% = 25 : ┆
0x031400…031420 47 4f 53 55 42 20 31 39 39 30 0d 0a 39 30 38 20 54 45 58 54 4e 52 25 20 3d 20 31 20 3a 20 47 4f ┆GOSUB 1990 908 TEXTNR% = 1 : GO┆
0x031420…031440 53 55 42 20 31 30 35 30 30 0d 0a 39 31 30 20 58 50 4f 53 25 20 3d 20 33 33 20 3a 20 59 50 4f 53 ┆SUB 10500 910 XPOS% = 33 : YPOS┆
0x031440…031460 25 20 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 39 31 32 20 4f 4e 45 25 20 3d 20 ┆% = 25 : GOSUB 1990 912 ONE% = ┆
0x031460…031480 31 20 3a 20 50 52 4f 47 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 30 29 0d 0a 39 32 30 20 ┆1 : PROGNAME$ = SPACE$(10) 920 ┆
0x031480…0314a0 46 4f 52 20 49 25 20 3d 20 4f 4e 45 25 20 20 54 4f 20 31 30 20 0d 0a 39 32 35 20 4b 45 59 49 4e ┆FOR I% = ONE% TO 10 925 KEYIN┆
0x0314a0…0314c0 50 55 54 24 20 3d 20 49 4e 50 55 54 24 28 31 29 0d 0a 39 33 30 20 49 46 20 4b 45 59 49 4e 50 55 ┆PUT$ = INPUT$(1) 930 IF KEYINPU┆
0x0314c0…0314e0 54 24 20 3d 20 43 48 52 24 28 38 29 20 54 48 45 4e 20 47 4f 54 4f 20 39 35 30 0d 0a 39 33 32 20 ┆T$ = CHR$(8) THEN GOTO 950 932 ┆
0x0314e0…031500 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 43 48 52 24 28 32 34 29 20 54 48 45 4e 20 47 4f 54 ┆IF KEYINPUT$ = CHR$(24) THEN GOT┆
0x031500…031520 (13, 1, 1) 30 3a 46 49 45 4c 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 3a 46 4f 52 4d 4e 41 ┆0:FIELDINPUT$ = SPACE$(8):FORMNA┆
0x031520…031540 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 3a 46 4f 52 4d 4e 52 24 20 3d 20 53 50 41 43 45 ┆ME$ = SPACE$(12):FORMNR$ = SPACE┆
0x031540…031560 24 28 33 29 3a 44 41 54 41 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 0d 0a 31 30 31 ┆$(3):DATANAME$ = SPACE$(12) 101┆
0x031560…031580 34 20 4f 4e 20 56 41 4c 28 41 52 42 4e 52 24 29 20 47 4f 54 4f 20 31 30 38 30 2c 32 30 35 30 2c ┆4 ON VAL(ARBNR$) GOTO 1080,2050,┆
0x031580…0315a0 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 34 35 ┆3886,3886,3886,3886,3886,3886,45┆
0x0315a0…0315c0 33 36 2c 33 38 38 36 2c 34 35 36 35 2c 31 36 2c 31 36 2c 39 30 30 2c 36 30 30 0d 0a 31 30 37 30 ┆36,3886,4565,16,16,900,600 1070┆
0x0315c0…0315e0 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x0315e0…031600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031600…031620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 37 35 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 48 ┆*********** 1075 REM * PRINT H┆
0x031620…031640 45 41 44 45 52 20 4f 4e 20 43 52 54 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 38 30 20 ┆EADER ON CRT * 1080 ┆
0x031640…031660 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x031660…031680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031680…0316a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 38 32 20 58 50 4f 53 25 20 3d 20 32 38 20 3a 20 59 50 ┆********** 1082 XPOS% = 28 : YP┆
0x0316a0…0316c0 4f 53 25 20 3d 20 34 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 30 39 35 20 54 45 58 54 4e ┆OS% = 4 : GOSUB 1990 1095 TEXTN┆
0x0316c0…0316e0 52 25 20 3d 20 36 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 31 31 30 32 20 49 46 20 4e 45 ┆R% = 6 : GOSUB 10500 1102 IF NE┆
0x0316e0…031700 58 54 46 4f 52 4d 46 4c 41 47 25 20 54 48 45 4e 20 46 4f 52 4d 4e 52 24 20 3d 20 53 50 41 43 45 ┆XTFORMFLAG% THEN FORMNR$ = SPACE┆
0x031700…031900 (13, 1, 2) DataBlock {»ENTRYME.BAS«}
0x031900…031920 (13, 1, 3) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031920…031940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 38 30 20 49 46 20 ┆********************** 1780 IF ┆
0x031940…031960 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 31 37 38 35 20 45 4c 53 45 20 31 37 38 37 ┆NKEYINP% = 8 GOTO 1785 ELSE 1787┆
0x031960…031980 0d 0a 31 37 38 35 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 38 29 20 3d 20 4d 49 44 ┆ 1785 MID$(FORMNAME$,1,8) = MID┆
0x031980…0319a0 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 38 29 20 3a 20 4d 49 44 24 28 46 4f 52 4d 4e 41 ┆$(FIELDINPUT$,1,8) : MID$(FORMNA┆
0x0319a0…0319c0 4d 45 24 2c 39 2c 34 29 20 3d 20 22 2e 46 52 4d 22 20 3a 20 47 4f 54 4f 20 31 39 38 32 0d 0a 31 ┆ME$,9,4) = ".FRM" : GOTO 1982 1┆
0x0319c0…0319e0 37 38 37 20 49 46 20 56 41 4c 28 46 49 45 4c 44 49 4e 50 55 54 24 29 20 3c 20 31 20 47 4f 54 4f ┆787 IF VAL(FIELDINPUT$) < 1 GOTO┆
0x0319e0…031a00 20 31 39 32 30 0d 0a 31 37 39 30 20 4d 49 44 24 28 46 4f 52 4d 4e 52 24 2c 31 2c 33 29 3d 4d 49 ┆ 1920 1790 MID$(FORMNR$,1,3)=MI┆
0x031a00…031a20 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 33 29 3a 46 4f 52 4d 4e 52 25 3d 56 41 4c 28 ┆D$(FIELDINPUT$,1,3):FORMNR%=VAL(┆
0x031a20…031a40 46 4f 52 4d 4e 52 24 29 0d 0a 31 37 39 31 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 ┆FORMNR$) 1791 IF VAL(ARBNR$) = ┆
0x031a40…031a60 32 20 41 4e 44 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 47 4f 54 4f 20 36 31 36 30 20 20 20 ┆2 AND NEXTFORMFLAG% GOTO 6160 ┆
0x031a60…031a80 20 20 20 09 0d 0a 31 37 39 32 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 32 20 47 4f ┆ 1792 IF VAL(ARBNR$) = 2 GO┆
0x031a80…031aa0 54 4f 20 36 30 31 30 0d 0a 31 37 39 34 20 49 46 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 47 ┆TO 6010 1794 IF NEXTFORMFLAG% G┆
0x031aa0…031ac0 4f 54 4f 20 35 34 37 30 20 45 4c 53 45 20 35 30 30 30 0d 0a 31 38 37 30 20 52 45 4d 20 2a 2a 2a ┆OTO 5470 ELSE 5000 1870 REM ***┆
0x031ac0…031ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031b00…031b20 (13, 1, 4) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x031b20…031b40 39 39 30 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 09 09 ┆990 REM * SUB.: POS. CURSOR ┆
0x031b40…031b60 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 39 39 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1991 REM ***********┆
0x031b60…031b80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031b80…031ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 39 ┆*************************** 199┆
0x031ba0…031bc0 32 20 50 52 49 4e 54 20 43 48 52 24 28 31 33 29 3b 0d 0a 31 39 39 34 20 50 52 49 4e 54 20 43 48 ┆2 PRINT CHR$(13); 1994 PRINT CH┆
0x031bc0…031be0 52 24 28 36 29 3b 43 48 52 24 28 59 50 4f 53 25 2b 33 31 29 3b 43 48 52 24 28 58 50 4f 53 25 2b ┆R$(6);CHR$(YPOS%+31);CHR$(XPOS%+┆
0x031be0…031c00 33 31 29 3b 0d 0a 31 39 39 36 20 52 45 54 55 52 4e 0d 0a 32 30 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆31); 1996 RETURN 2000 REM ****┆
0x031c00…031c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031c40…031c60 2a 2a 0d 0a 32 30 35 30 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 48 45 41 44 45 52 20 4f 4e 20 ┆** 2050 REM * PRINT HEADER ON ┆
0x031c60…031c80 43 52 54 20 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 30 35 35 20 52 45 4d 20 2a 2a 2a 2a ┆CRT * 2055 REM ****┆
0x031c80…031ca0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031cc0…031ce0 2a 2a 0d 0a 32 30 36 30 20 58 50 4f 53 25 20 3d 20 32 37 20 3a 20 59 50 4f 53 25 20 3d 20 34 20 ┆** 2060 XPOS% = 27 : YPOS% = 4 ┆
0x031ce0…031d00 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 32 30 38 30 20 54 45 58 54 4e 52 25 20 3d 20 37 20 3a ┆: GOSUB 1990 2080 TEXTNR% = 7 :┆
0x031d00…031d20 (13, 1, 5) 24 28 33 29 20 3a 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 39 38 32 20 0d 0a ┆$(3) : GOSUB 1972 : GOTO 1982 ┆
0x031d20…031d40 31 31 30 33 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 31 31 30 0d 0a 31 31 30 ┆1103 GOSUB 1972 : GOTO 1110 110┆
0x031d40…031d60 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆4 REM **************************┆
0x031d60…031d80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031d80…031da0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 30 36 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 ┆************ 1106 REM * PRINT ┆
0x031da0…031dc0 54 45 58 54 20 4f 4e 20 43 52 54 20 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 31 30 38 20 ┆TEXT ON CRT * 1108 ┆
0x031dc0…031de0 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x031de0…031e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031e00…031e20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 31 30 20 58 50 4f 53 25 20 3d 20 32 3a 59 50 4f 53 25 ┆********** 1110 XPOS% = 2:YPOS%┆
0x031e20…031e40 20 3d 20 31 30 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 31 32 30 20 54 45 58 54 4e 52 25 20 3d ┆ = 10:GOSUB 1990 1120 TEXTNR% =┆
0x031e40…031e60 20 32 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 31 31 32 31 20 52 45 4d 20 2a 2a 2a 2a 2a ┆ 2 : GOSUB 10500 1121 REM *****┆
0x031e60…031e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031ea0…031ec0 2a 0d 0a 31 31 32 32 20 52 45 4d 20 2a 20 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 41 4e 44 20 53 ┆* 1122 REM * POS. CURSOR AND S┆
0x031ec0…031ee0 45 54 20 49 4e 50 55 54 2d 43 4f 55 4e 54 45 52 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 31 ┆ET INPUT-COUNTER * 11┆
0x031ee0…031f00 32 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆23 REM *************************┆
0x031f00…032100 (13, 1, 6) DataBlock {»ENTRYME.BAS«}
0x032100…032120 (13, 1, 7) 2a 2a 2a 0d 0a 31 38 37 32 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 52 52 4d ┆*** 1872 REM * SUB.: PRINT ERRM┆
0x032120…032140 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 41 4e 44 20 53 45 54 20 49 4e 50 55 54 2d 42 55 46 ┆SG. IN LINE 25 AND SET INPUT-BUF┆
0x032140…032160 46 45 52 09 09 20 20 20 20 20 20 2a 0d 0a 31 38 37 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆FER * 1873 REM *********┆
0x032160…032180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032180…0321a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x0321a0…0321c0 38 37 36 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 33 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 ┆876 ERRMSGNR% = 3 : GOSUB 20000 ┆
0x0321c0…0321e0 3a 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 31 38 37 37 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆: GOSUB 1000 1877 REM *********┆
0x0321e0…032200 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 53 55 42 2e 3a 20 52 45 53 45 54 20 49 4e 50 55 54 2d ┆************* SUB.: RESET INPUT-┆
0x032200…032220 42 55 46 46 45 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆BUFFER ********************** 1┆
0x032220…032240 38 37 38 20 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 0d 0a 31 38 38 30 ┆878 FORMNAME$ = SPACE$(12) 1880┆
0x032240…032260 20 46 49 45 4c 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 0d 0a 31 38 38 32 20 52 ┆ FIELDINPUT$ = SPACE$(8) 1882 R┆
0x032260…032280 45 54 55 52 4e 0d 0a 31 39 31 36 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ETURN 1916 REM ****************┆
0x032280…0322a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0322a0…0322c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 31 38 20 52 45 4d ┆********************** 1918 REM┆
0x0322c0…0322e0 20 2a 20 20 50 52 49 4e 54 20 42 41 44 20 46 4f 52 4d 41 54 2d 4e 4f 2e 20 4d 53 47 20 49 4e 20 ┆ * PRINT BAD FORMAT-NO. MSG IN ┆
0x0322e0…032300 4c 49 4e 45 20 32 35 20 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 20 20 20 20 20 20 2a ┆LINE 25 AND POS. CURSOR *┆
0x032300…032320 (13, 1, 8) 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 32 30 39 30 20 49 46 20 4e 45 58 54 46 4f 52 4d 46 4c ┆ GOSUB 10500 2090 IF NEXTFORMFL┆
0x032320…032340 41 47 25 20 54 48 45 4e 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 39 38 32 20 ┆AG% THEN GOSUB 1972 : GOTO 1982 ┆
0x032340…032360 0d 0a 32 30 39 32 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 31 31 30 0d 0a 32 ┆ 2092 GOSUB 1972 : GOTO 1110 2┆
0x032360…032380 30 39 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆095 REM ************************┆
0x032380…0323a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0323a0…0323c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 30 30 20 52 45 4d 20 2a 20 20 53 55 42 2e ┆************** 2100 REM * SUB.┆
0x0323c0…0323e0 3a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 ┆: PRINT ERRMSG IN LINE 25 ┆
0x0323e0…032400 20 20 20 2a 0d 0a 32 31 30 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 2105 REM *****************┆
0x032400…032420 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032420…032440 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 31 30 20 45 52 52 4d ┆********************* 2110 ERRM┆
0x032440…032460 53 47 4e 52 25 20 3d 20 35 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 ┆SGNR% = 5 : GOSUB 20000 : GOSUB ┆
0x032460…032480 31 30 30 30 0d 0a 32 31 32 30 20 52 45 54 55 52 4e 0d 0a 33 31 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆1000 2120 RETURN 3100 REM ****┆
0x032480…0324a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0324c0…0324e0 2a 2a 0d 0a 33 31 30 32 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 54 45 58 54 20 4f 4e 20 43 52 ┆** 3102 REM * PRINT TEXT ON CR┆
0x0324e0…032500 54 20 41 4e 44 20 53 45 54 20 49 4e 50 55 54 2d 42 55 46 46 45 52 20 09 09 09 20 20 20 20 20 20 ┆T AND SET INPUT-BUFFER ┆
0x032500…032520 (13, 1, 9) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032520…032540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 32 35 20 58 50 4f 53 25 20 3d 20 34 36 20 3a ┆************* 1125 XPOS% = 46 :┆
0x032540…032560 20 59 50 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 31 32 37 20 4e ┆ YPOS% = 10 : GOSUB 1990 1127 N┆
0x032560…032580 4b 45 59 49 4e 50 25 20 3d 20 38 0d 0a 31 31 33 30 20 47 4f 54 4f 20 33 31 33 30 0d 0a 31 34 34 ┆KEYINP% = 8 1130 GOTO 3130 144┆
0x032580…0325a0 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 REM **************************┆
0x0325a0…0325c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0325c0…0325e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 34 34 35 20 52 45 4d 20 2a 20 20 46 49 45 4c 44 20 ┆************ 1445 REM * FIELD ┆
0x0325e0…032600 42 57 44 20 4b 45 59 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 34 35 30 20 52 45 4d 20 2a ┆BWD KEY * 1450 REM *┆
0x032600…032620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x032640…032660 2a 2a 2a 2a 2a 0d 0a 31 34 35 31 20 49 46 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 47 4f 54 ┆***** 1451 IF NEXTFORMFLAG% GOT┆
0x032660…032680 4f 20 31 34 35 32 20 45 4c 53 45 20 31 34 35 34 0d 0a 31 34 35 32 20 58 50 4f 53 25 20 3d 20 35 ┆O 1452 ELSE 1454 1452 XPOS% = 5┆
0x032680…0326a0 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 34 35 ┆1 : YPOS% = 14 : GOSUB 1990 145┆
0x0326a0…0326c0 33 20 4e 4b 45 59 49 4e 50 25 20 3d 20 33 20 3a 20 47 4f 54 4f 20 33 31 33 30 0d 0a 31 34 35 34 ┆3 NKEYINP% = 3 : GOTO 3130 1454┆
0x0326c0…0326e0 20 49 46 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 31 31 32 35 0d 0a 31 34 35 35 ┆ IF NKEYINP% = 8 GOTO 1125 1455┆
0x0326e0…032700 20 4d 49 44 24 28 46 4f 52 4d 4e 52 24 2c 31 2c 33 29 20 3d 20 4d 49 44 24 28 46 49 45 4c 44 49 ┆ MID$(FORMNR$,1,3) = MID$(FIELDI┆
0x032700…032900 (13, 1, 10) DataBlock {»ENTRYME.BAS«}
0x032900…032920 (13, 1, 11) 0d 0a 31 39 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1920 REM *********************┆
0x032920…032940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032940…032960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 32 32 20 45 52 52 4d 53 47 4e 52 ┆***************** 1922 ERRMSGNR┆
0x032960…032980 25 20 3d 20 31 38 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 39 33 30 20 47 4f 53 55 42 ┆% = 18 : GOSUB 20000 1930 GOSUB┆
0x032980…0329a0 20 31 30 30 30 0d 0a 31 39 35 30 20 4c 45 54 20 58 50 4f 53 25 20 3d 20 35 31 20 2b 20 43 52 42 ┆ 1000 1950 LET XPOS% = 51 + CRB┆
0x0329a0…0329c0 4c 41 4e 4b 25 20 2d 20 32 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 0d 0a 31 39 36 30 20 47 4f 53 ┆LANK% - 2 : YPOS% = 14 1960 GOS┆
0x0329c0…0329e0 55 42 20 31 39 39 30 0d 0a 31 39 37 30 20 4c 45 54 20 49 25 20 3d 20 43 52 42 4c 41 4e 4b 25 20 ┆UB 1990 1970 LET I% = CRBLANK% ┆
0x0329e0…032a00 2d 20 31 20 3a 20 47 4f 54 4f 20 33 31 34 30 0d 0a 31 39 37 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆- 1 : GOTO 3140 1971 REM ******┆
0x032a00…032a20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x032a40…032a60 0d 0a 31 39 37 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 20 50 52 49 4e 54 20 54 45 58 54 2d ┆ 1972 REM * SUB.: PRINT TEXT-┆
0x032a60…032a80 42 55 46 46 45 52 20 4f 4e 20 43 52 54 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 39 37 33 20 ┆BUFFER ON CRT * 1973 ┆
0x032a80…032aa0 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x032aa0…032ac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032ac0…032ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 37 34 20 58 50 4f 53 25 20 3d 20 32 20 3a 20 59 50 4f ┆********** 1974 XPOS% = 2 : YPO┆
0x032ae0…032b00 53 25 20 3d 20 31 34 0d 0a 31 39 37 36 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 39 37 38 20 49 ┆S% = 14 1976 GOSUB 1990 1978 I┆
0x032b00…032b20 (13, 1, 12) 2a 0d 0a 33 31 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* 3104 REM ********************┆
0x032b20…032b40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032b40…032b60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 31 30 36 20 47 4f 53 55 42 20 33 ┆****************** 3106 GOSUB 3┆
0x032b60…032b80 39 37 32 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 ┆972 REM *** POS. CURSOR ┆
0x032b80…032ba0 41 4e 44 20 50 52 49 4e 54 20 54 45 58 54 0d 0a 33 31 31 30 20 58 50 4f 53 25 20 3d 20 32 20 3a ┆AND PRINT TEXT 3110 XPOS% = 2 :┆
0x032ba0…032bc0 20 59 50 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 33 31 32 30 20 54 ┆ YPOS% = 10 : GOSUB 1990 3120 T┆
0x032bc0…032be0 45 58 54 4e 52 25 20 3d 20 32 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 33 31 32 35 20 58 ┆EXTNR% = 2 : GOSUB 10500 3125 X┆
0x032be0…032c00 50 4f 53 25 20 3d 20 34 36 20 3a 20 59 50 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 ┆POS% = 46 : YPOS% = 10 : GOSUB 1┆
0x032c00…032c20 39 39 30 0d 0a 33 31 32 37 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 3a 20 46 4f 52 4d 4e 41 4d ┆990 3127 NKEYINP% = 8 : FORMNAM┆
0x032c20…032c40 45 49 4e 50 46 4c 41 47 25 20 3d 20 31 0d 0a 33 31 33 30 20 4f 4e 45 25 20 3d 20 31 0d 0a 33 31 ┆EINPFLAG% = 1 3130 ONE% = 1 31┆
0x032c40…032c60 33 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆31 REM *************************┆
0x032c60…032c80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032c80…032ca0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 31 33 32 20 52 45 4d 20 2a 20 20 54 45 53 54 20 ┆************* 3132 REM * TEST ┆
0x032ca0…032cc0 54 48 45 20 4b 45 59 42 4f 41 52 44 2d 49 4e 50 55 54 20 4b 45 59 27 53 2e 20 41 52 45 20 54 48 ┆THE KEYBOARD-INPUT KEY'S. ARE TH┆
0x032cc0…032ce0 45 20 4b 45 59 27 53 20 4f 4b 20 50 52 49 4e 54 20 49 54 20 4f 4e 20 43 52 54 20 20 20 2a 0d 0a ┆E KEY'S OK PRINT IT ON CRT * ┆
0x032ce0…032d00 33 31 33 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆3133 REM ***********************┆
0x032d00…032f00 (13, 1, 13) DataBlock {»ENTRYME.BAS«}
0x032f00…032f20 (13, 1, 14) 4e 50 55 54 24 2c 31 2c 33 29 0d 0a 31 34 36 30 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 ┆NPUT$,1,3) 1460 MID$(FIELDINPUT┆
0x032f20…032f40 24 2c 31 2c 38 29 20 3d 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 38 29 20 3a 20 47 ┆$,1,8) = MID$(FORMNAME$,1,8) : G┆
0x032f40…032f60 4f 54 4f 20 31 31 32 35 0d 0a 31 37 36 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆OTO 1125 1760 REM *************┆
0x032f60…032f80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032f80…032fa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 36 32 20 ┆************************* 1762 ┆
0x032fa0…032fc0 52 45 4d 20 2a 20 46 4f 52 4d 41 54 2d 4e 41 4d 45 20 4f 52 20 46 4f 52 4d 41 54 2d 4e 4f 2e 20 ┆REM * FORMAT-NAME OR FORMAT-NO. ┆
0x032fc0…032fe0 45 52 52 4f 52 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 37 36 34 20 52 45 4d 20 2a 2a 2a 2a 2a ┆ERROR * 1764 REM *****┆
0x032fe0…033000 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x033020…033040 2a 0d 0a 31 37 36 36 20 49 46 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 33 38 30 ┆* 1766 IF NKEYINP% = 8 GOTO 380┆
0x033040…033060 30 20 45 4c 53 45 20 31 39 32 30 0d 0a 31 37 37 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 ELSE 1920 1772 REM **********┆
0x033060…033080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033080…0330a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 ┆**************************** 17┆
0x0330a0…0330c0 37 35 20 52 45 4d 20 2a 20 20 49 4e 50 55 54 20 4e 45 58 54 20 46 49 45 4c 44 20 4f 52 20 43 48 ┆75 REM * INPUT NEXT FIELD OR CH┆
0x0330c0…0330e0 41 49 4e 20 54 4f 20 53 45 4c 2e 20 50 52 4f 47 52 41 4d 4d 20 09 09 20 20 20 20 20 20 09 20 20 ┆AIN TO SEL. PROGRAMM ┆
0x0330e0…033100 20 20 20 20 2a 0d 0a 31 37 37 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1779 REM ****************┆
0x033100…033120 (13, 1, 15) 46 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 54 48 45 4e 20 54 45 58 54 4e 52 25 20 3d 20 35 ┆F NEXTFORMFLAG% THEN TEXTNR% = 5┆
0x033120…033140 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 20 45 4c 53 45 20 54 45 58 54 4e 52 25 20 3d 20 34 20 ┆ : GOSUB 10500 ELSE TEXTNR% = 4 ┆
0x033140…033160 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 31 39 38 30 20 52 45 54 55 52 4e 0d 0a 31 39 38 31 ┆: GOSUB 10500 1980 RETURN 1981┆
0x033160…033180 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x033180…0331a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0331a0…0331c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 38 32 20 52 45 4d 20 2a 20 20 50 4f 53 2e 20 43 55 ┆*********** 1982 REM * POS. CU┆
0x0331c0…0331e0 52 53 4f 52 20 41 4e 44 20 41 4c 4c 4f 57 20 46 4f 52 4d 41 54 2d 4e 4f 2e 20 49 4e 50 55 54 20 ┆RSOR AND ALLOW FORMAT-NO. INPUT ┆
0x0331e0…033200 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 39 38 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1983 REM ***********┆
0x033200…033220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033220…033240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 38 ┆*************************** 198┆
0x033240…033260 34 20 58 50 4f 53 25 20 3d 20 35 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 4f 53 55 ┆4 XPOS% = 51 : YPOS% = 14 : GOSU┆
0x033260…033280 42 20 31 39 39 30 0d 0a 31 39 38 38 20 4e 4b 45 59 49 4e 50 25 20 3d 20 33 20 3a 20 46 49 45 4c ┆B 1990 1988 NKEYINP% = 3 : FIEL┆
0x033280…0332a0 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 20 3a 20 20 4d 49 44 24 28 46 49 45 4c ┆DINPUT$ = SPACE$(8) : MID$(FIEL┆
0x0332a0…0332c0 44 49 4e 50 55 54 24 2c 31 2c 33 29 20 3d 20 4d 49 44 24 28 46 4f 52 4d 4e 52 24 2c 31 2c 33 29 ┆DINPUT$,1,3) = MID$(FORMNR$,1,3)┆
0x0332c0…0332e0 20 3a 20 47 4f 54 4f 20 31 31 33 30 0d 0a 31 39 38 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ : GOTO 1130 1989 REM *********┆
0x0332e0…033300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x033320…033340 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 31 33 36 20 46 4f 52 20 49 25 20 3d 20 4f ┆*************** 3136 FOR I% = O┆
0x033340…033360 4e 45 25 20 54 4f 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 31 34 30 20 20 20 4b 45 59 49 4e 50 55 54 ┆NE% TO NKEYINP% 3140 KEYINPUT┆
0x033360…033380 24 20 3d 20 49 4e 50 55 54 24 28 31 29 0d 0a 33 31 35 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 ┆$ = INPUT$(1) 3150 IF KEYINPU┆
0x033380…0333a0 54 24 20 3d 20 22 3c 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 31 36 30 20 20 20 49 46 20 4b 45 ┆T$ = "<" GOTO 3140 3160 IF KE┆
0x0333a0…0333c0 59 49 4e 50 55 54 24 20 3d 20 22 3e 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 31 37 30 20 20 20 ┆YINPUT$ = ">" GOTO 3140 3170 ┆
0x0333c0…0333e0 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 2e 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 31 ┆IF KEYINPUT$ = "." GOTO 3140 31┆
0x0333e0…033400 38 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 2c 22 20 47 4f 54 4f 20 33 31 34 ┆80 IF KEYINPUT$ = "," GOTO 314┆
0x033400…033420 30 0d 0a 33 31 39 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 3b 22 20 47 4f 54 ┆0 3190 IF KEYINPUT$ = ";" GOT┆
0x033420…033440 4f 20 33 31 34 30 0d 0a 33 32 30 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 3a ┆O 3140 3200 IF KEYINPUT$ = ":┆
0x033440…033460 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 31 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 ┆" GOTO 3140 3210 IF KEYINPUT$┆
0x033460…033480 20 3d 20 22 3d 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 32 30 20 20 20 49 46 20 4b 45 59 49 ┆ = "=" GOTO 3140 3220 IF KEYI┆
0x033480…0334a0 4e 50 55 54 24 20 3d 20 22 3f 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 33 30 20 20 20 49 46 ┆NPUT$ = "?" GOTO 3140 3230 IF┆
0x0334a0…0334c0 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 2a 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 34 30 ┆ KEYINPUT$ = "*" GOTO 3140 3240┆
0x0334c0…0334e0 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 5b 22 20 47 4f 54 4f 20 33 31 34 30 0d ┆ IF KEYINPUT$ = "Æ" GOTO 3140 ┆
0x0334e0…033500 0a 33 32 35 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 5d 22 20 47 4f 54 4f 20 ┆ 3250 IF KEYINPUT$ = "Å" GOTO ┆
0x033500…033520 (14, 0, 2) 32 35 0d 0a 33 34 36 35 20 52 45 4d 0d 0a 33 34 37 30 20 52 45 4d 20 2d 2d 2d 20 46 49 45 4c 44 ┆25 3465 REM 3470 REM --- FIELD┆
0x033520…033540 20 46 4f 52 57 41 52 44 20 4b 45 59 20 2d 2d 2d 0d 0a 33 34 37 35 20 52 45 4d 0d 0a 33 34 38 30 ┆ FORWARD KEY --- 3475 REM 3480┆
0x033540…033560 20 49 46 20 46 4f 52 4d 4e 41 4d 45 49 4e 50 46 4c 41 47 25 20 4f 52 20 4e 4b 45 59 49 4e 50 25 ┆ IF FORMNAMEINPFLAG% OR NKEYINP%┆
0x033560…033580 20 3d 20 38 20 47 4f 54 4f 20 33 37 30 30 20 45 4c 53 45 20 33 31 34 30 0d 0a 33 34 38 35 20 52 ┆ = 8 GOTO 3700 ELSE 3140 3485 R┆
0x033580…0335a0 45 4d 0d 0a 33 34 39 30 20 52 45 4d 20 2d 2d 2d 20 43 55 52 53 4f 52 20 42 41 43 4b 57 41 52 44 ┆EM 3490 REM --- CURSOR BACKWARD┆
0x0335a0…0335c0 20 4b 45 59 20 2d 2d 2d 0d 0a 33 34 39 35 20 52 45 4d 0d 0a 33 35 30 30 20 49 46 20 49 25 20 3d ┆ KEY --- 3495 REM 3500 IF I% =┆
0x0335c0…0335e0 20 31 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 35 31 30 20 50 52 49 4e 54 20 4b 45 59 49 4e 50 55 ┆ 1 GOTO 3140 3510 PRINT KEYINPU┆
0x0335e0…033600 54 24 3b 0d 0a 33 35 32 30 20 4c 45 54 20 49 25 20 3d 20 49 25 20 2d 20 31 0d 0a 33 35 33 30 20 ┆T$; 3520 LET I% = I% - 1 3530 ┆
0x033600…033620 47 4f 54 4f 20 33 31 34 30 0d 0a 33 35 39 30 20 52 45 4d 0d 0a 33 35 39 35 20 52 45 4d 20 2d 2d ┆GOTO 3140 3590 REM 3595 REM --┆
0x033620…033640 2d 20 43 55 52 53 4f 52 20 46 4f 52 57 41 52 44 20 4b 45 59 20 2d 2d 2d 0d 0a 33 36 30 30 20 52 ┆- CURSOR FORWARD KEY --- 3600 R┆
0x033640…033660 45 4d 0d 0a 33 36 31 30 20 49 46 20 49 25 20 3d 20 4e 4b 45 59 49 4e 50 25 20 47 4f 54 4f 20 33 ┆EM 3610 IF I% = NKEYINP% GOTO 3┆
0x033660…033680 31 34 30 0d 0a 33 36 32 30 20 46 4f 52 20 42 4c 41 4e 4b 54 45 53 54 25 20 3d 20 49 25 20 54 4f ┆140 3620 FOR BLANKTEST% = I% TO┆
0x033680…0336a0 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 36 33 30 20 20 20 49 46 20 4d 49 44 24 28 46 49 45 4c 44 49 ┆ NKEYINP% 3630 IF MID$(FIELDI┆
0x0336a0…0336c0 4e 50 55 54 24 2c 42 4c 41 4e 4b 54 45 53 54 25 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 33 ┆NPUT$,BLANKTEST%,1) = " " GOTO 3┆
0x0336c0…0336e0 36 34 30 20 45 4c 53 45 20 33 36 36 30 0d 0a 33 36 34 30 20 4e 45 58 54 20 42 4c 41 4e 4b 54 45 ┆640 ELSE 3660 3640 NEXT BLANKTE┆
0x0336e0…033700 53 54 25 0d 0a 33 36 35 30 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 36 36 30 20 50 52 49 4e 54 20 ┆ST% 3650 GOTO 3140 3660 PRINT ┆
0x033700…033720 (14, 0, 3) 29 20 3d 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 38 29 20 3a 20 4d 49 44 24 ┆) = MID$(FIELDINPUT$,1,8) : MID$┆
0x033720…033740 28 44 41 54 41 4e 41 4d 45 24 2c 39 2c 34 29 20 3d 20 22 2e 44 41 54 22 0d 0a 33 37 39 35 20 49 ┆(DATANAME$,9,4) = ".DAT" 3795 I┆
0x033740…033760 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 31 20 47 4f 54 4f 20 32 30 37 31 30 0d 0a 33 ┆F VAL(ARBNR$) = 11 GOTO 20710 3┆
0x033760…033780 37 39 36 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 39 20 47 4f 54 4f 20 34 35 39 30 ┆796 IF VAL(ARBNR$) = 9 GOTO 4590┆
0x033780…0337a0 20 45 4c 53 45 20 31 36 0d 0a 33 37 39 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ELSE 16 3798 REM *************┆
0x0337a0…0337c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0337c0…0337e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 30 30 20 ┆************************* 3800 ┆
0x0337e0…033800 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 ┆REM * PRINT ERRMSG. IN LINE 25 ┆
0x033800…033820 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 09 09 20 20 20 20 20 20 2a 0d 0a 33 38 31 30 ┆AND POS. CURSOR * 3810┆
0x033820…033840 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x033840…033860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033860…033880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 31 38 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 20 ┆*********** 3818 ERRMSGNR% = 2 ┆
0x033880…0338a0 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 33 38 35 30 ┆: GOSUB 20000 : GOSUB 1000 3850┆
0x0338a0…0338c0 20 4c 45 54 20 58 50 4f 53 25 20 3d 20 34 36 20 2b 20 43 52 42 4c 41 4e 4b 25 20 2d 32 20 3a 20 ┆ LET XPOS% = 46 + CRBLANK% -2 : ┆
0x0338c0…0338e0 59 50 4f 53 25 20 3d 20 31 30 0d 0a 33 38 36 30 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 33 38 37 ┆YPOS% = 10 3860 GOSUB 1990 387┆
0x0338e0…033900 30 20 4c 45 54 20 49 25 20 3d 20 43 52 42 4c 41 4e 4b 25 20 2d 20 31 3a 20 47 4f 54 4f 20 33 31 ┆0 LET I% = CRBLANK% - 1: GOTO 31┆
0x033900…033920 (14, 0, 4) 32 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 36 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a ┆20 ERRMSGNR% = 6 : GOSUB 20000 ┆
0x033920…033940 33 39 33 30 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 33 39 35 30 20 4c 45 54 20 58 50 4f 53 25 20 ┆3930 GOSUB 1000 3950 LET XPOS% ┆
0x033940…033960 3d 20 34 36 20 2b 20 43 52 42 4c 41 4e 4b 25 20 2d 20 32 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 ┆= 46 + CRBLANK% - 2 : YPOS% = 14┆
0x033960…033980 0d 0a 33 39 36 30 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 33 39 37 30 20 4c 45 54 20 49 25 20 3d ┆ 3960 GOSUB 1990 3970 LET I% =┆
0x033980…0339a0 20 43 52 42 4c 41 4e 4b 25 20 2d 20 31 20 3a 20 52 45 54 55 52 4e 0d 0a 33 39 37 31 20 52 45 4d ┆ CRBLANK% - 1 : RETURN 3971 REM┆
0x0339a0…0339c0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x0339c0…0339e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0339e0…033a00 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 39 37 32 20 52 45 4d 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 54 45 ┆******* 3972 REM SUB.: PRINT TE┆
0x033a00…033a20 58 54 20 4f 4e 20 43 52 54 20 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 09 09 20 20 20 ┆XT ON CRT AND POS. CURSOR ┆
0x033a20…033a40 20 20 20 2a 0d 0a 33 39 37 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 3973 REM *****************┆
0x033a40…033a60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033a60…033a80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 39 37 34 20 58 50 4f 53 ┆********************* 3974 XPOS┆
0x033a80…033aa0 25 20 3d 20 32 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 0d 0a 33 39 37 36 20 47 4f 53 55 42 20 31 ┆% = 2 : YPOS% = 14 3976 GOSUB 1┆
0x033aa0…033ac0 39 39 30 0d 0a 33 39 37 38 20 54 45 58 54 4e 52 25 20 3d 20 33 20 3a 20 47 4f 53 55 42 20 31 30 ┆990 3978 TEXTNR% = 3 : GOSUB 10┆
0x033ac0…033ae0 35 30 30 0d 0a 33 39 37 39 20 52 45 54 55 52 4e 0d 0a 33 39 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a ┆500 3979 RETURN 3980 REM *****┆
0x033ae0…033b00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033b00…033b20 (14, 0, 5) 33 31 34 30 0d 0a 33 32 36 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 20 22 20 ┆3140 3260 IF KEYINPUT$ = " " ┆
0x033b20…033b40 47 4f 54 4f 20 33 34 30 30 0d 0a 33 32 36 32 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 ┆GOTO 3400 3262 IF ASC(KEYINPU┆
0x033b40…033b60 54 24 29 20 3d 20 32 36 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 36 34 20 20 20 49 46 20 41 53 ┆T$) = 26 GOTO 3140 3264 IF AS┆
0x033b60…033b80 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 31 30 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 36 ┆C(KEYINPUT$) = 10 GOTO 3140 326┆
0x033b80…033ba0 36 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 31 32 37 20 47 4f 54 4f ┆6 IF ASC(KEYINPUT$) = 127 GOTO┆
0x033ba0…033bc0 20 33 34 32 30 0d 0a 33 32 36 38 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 ┆ 3420 3268 IF ASC(KEYINPUT$) ┆
0x033bc0…033be0 3d 20 31 32 20 47 4f 54 4f 20 31 30 31 33 0d 0a 33 32 37 30 20 20 20 49 46 20 41 53 43 28 4b 45 ┆= 12 GOTO 1013 3270 IF ASC(KE┆
0x033be0…033c00 59 49 4e 50 55 54 24 29 20 3d 20 38 20 47 4f 54 4f 20 33 35 30 30 0d 0a 33 32 38 30 20 20 20 49 ┆YINPUT$) = 8 GOTO 3500 3280 I┆
0x033c00…033c20 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 32 34 20 47 4f 54 4f 20 33 36 30 30 0d ┆F ASC(KEYINPUT$) = 24 GOTO 3600 ┆
0x033c20…033c40 0a 33 32 39 30 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 35 20 47 4f ┆ 3290 IF ASC(KEYINPUT$) = 5 GO┆
0x033c40…033c60 54 4f 20 33 34 35 30 0d 0a 33 33 30 30 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 ┆TO 3450 3300 IF ASC(KEYINPUT$┆
0x033c60…033c80 29 20 3d 20 39 20 47 4f 54 4f 20 33 34 37 30 0d 0a 33 33 30 35 20 20 20 49 46 20 41 53 43 28 4b ┆) = 9 GOTO 3470 3305 IF ASC(K┆
0x033c80…033ca0 45 59 49 4e 50 55 54 24 29 20 3d 20 36 20 47 4f 54 4f 20 33 37 30 30 20 0d 0a 33 33 31 30 20 20 ┆EYINPUT$) = 6 GOTO 3700 3310 ┆
0x033ca0…033cc0 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 31 33 20 47 4f 54 4f 20 33 37 30 ┆ IF ASC(KEYINPUT$) = 13 GOTO 370┆
0x033cc0…033ce0 30 20 0d 0a 33 33 31 35 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 32 ┆0 3315 IF ASC(KEYINPUT$) = 2┆
0x033ce0…033d00 37 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 33 31 36 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e ┆7 GOTO 3140 3316 IF ASC(KEYIN┆
0x033d00…033d20 (14, 0, 6) 4b 45 59 49 4e 50 55 54 24 3b 0d 0a 33 36 37 30 20 4c 45 54 20 49 25 20 3d 20 49 25 20 2b 20 31 ┆KEYINPUT$; 3670 LET I% = I% + 1┆
0x033d20…033d40 0d 0a 33 36 38 30 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 36 39 30 20 52 45 4d 0d 0a 33 36 39 35 ┆ 3680 GOTO 3140 3690 REM 3695┆
0x033d40…033d60 20 52 45 4d 20 2d 2d 2d 20 43 52 20 4b 45 59 20 2d 2d 2d 0d 0a 33 37 30 30 20 52 45 4d 20 0d 0a ┆ REM --- CR KEY --- 3700 REM ┆
0x033d60…033d80 33 37 30 35 20 42 4c 41 4e 4b 46 25 20 3d 20 30 0d 0a 33 37 31 30 20 46 4f 52 20 43 52 42 4c 41 ┆3705 BLANKF% = 0 3710 FOR CRBLA┆
0x033d80…033da0 4e 4b 25 20 3d 20 31 20 54 4f 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 37 32 30 20 20 20 49 46 20 4d ┆NK% = 1 TO NKEYINP% 3720 IF M┆
0x033da0…033dc0 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 43 52 42 4c 41 4e 4b 25 2c 31 29 20 3d 20 22 20 ┆ID$(FIELDINPUT$,CRBLANK%,1) = " ┆
0x033dc0…033de0 22 20 54 48 45 4e 20 42 4c 41 4e 4b 46 25 20 3d 20 31 3a 47 4f 54 4f 20 33 37 34 30 0d 0a 33 37 ┆" THEN BLANKF% = 1:GOTO 3740 37┆
0x033de0…033e00 33 30 20 20 20 49 46 20 42 4c 41 4e 4b 46 25 20 3d 20 31 20 47 4f 54 4f 20 33 37 36 30 0d 0a 33 ┆30 IF BLANKF% = 1 GOTO 3760 3┆
0x033e00…033e20 37 34 30 20 4e 45 58 54 20 43 52 42 4c 41 4e 4b 25 0d 0a 33 37 34 31 20 52 45 4d 0d 0a 33 37 34 ┆740 NEXT CRBLANK% 3741 REM 374┆
0x033e20…033e40 32 20 52 45 4d 20 2d 2d 2d 20 4f 4e 4c 59 20 53 50 41 43 45 20 49 4e 20 41 20 46 49 45 4c 44 20 ┆2 REM --- ONLY SPACE IN A FIELD ┆
0x033e40…033e60 3f 20 2d 2d 2d 0d 0a 33 37 34 33 20 52 45 4d 0d 0a 33 37 34 34 20 46 4f 52 20 53 50 41 43 45 25 ┆? --- 3743 REM 3744 FOR SPACE%┆
0x033e60…033e80 20 3d 20 31 20 54 4f 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 37 34 36 20 20 20 49 46 20 4d 49 44 24 ┆ = 1 TO NKEYINP% 3746 IF MID$┆
0x033e80…033ea0 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 53 50 41 43 45 25 2c 31 29 20 3c 3e 20 22 20 22 20 47 4f ┆(FIELDINPUT$,SPACE%,1) <> " " GO┆
0x033ea0…033ec0 54 4f 20 33 37 36 36 0d 0a 33 37 34 38 20 4e 45 58 54 20 53 50 41 43 45 25 0d 0a 33 37 35 30 20 ┆TO 3766 3748 NEXT SPACE% 3750 ┆
0x033ec0…033ee0 49 46 20 46 4f 52 4d 4e 41 4d 45 49 4e 50 46 4c 41 47 25 20 41 4e 44 20 56 41 4c 28 41 52 42 4e ┆IF FORMNAMEINPFLAG% AND VAL(ARBN┆
0x033ee0…033f00 52 24 29 20 3d 20 33 20 47 4f 54 4f 20 33 31 32 35 0d 0a 33 37 35 32 20 49 46 20 46 4f 52 4d 4e ┆R$) = 3 GOTO 3125 3752 IF FORMN┆
0x033f00…03c700 (14, 0, 7) […elided…]
0x03c700…03c720 (16, 0, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 36 37 ┆*************************** 967┆
0x03c720…03c740 34 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 0d 0a 39 36 37 36 20 47 45 54 20 23 32 2c 46 4f 52 ┆4 ERRFLAG% = 0 9676 GET #2,FOR┆
0x03c740…03c760 4d 4e 52 25 0d 0a 39 36 37 38 20 52 45 54 55 52 4e 0d 0a 39 36 38 30 20 52 45 4d 20 2a 2a 2a 2a ┆MNR% 9678 RETURN 9680 REM ****┆
0x03c760…03c780 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 49 4e 43 52 45 4d 45 4e 54 20 ┆********************* INCREMENT ┆
0x03c780…03c7a0 52 45 43 43 4f 52 44 2d 43 4f 55 4e 54 45 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RECCORD-COUNTER ****************┆
0x03c7a0…03c7c0 2a 2a 0d 0a 39 36 39 30 20 52 45 43 43 4f 55 4e 54 24 20 3d 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 ┆** 9690 RECCOUNT$ = MID$(NONZ50┆
0x03c7c0…03c7e0 24 2c 33 39 2c 36 29 20 3a 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 56 41 4c 28 52 45 43 43 4f 55 ┆$,39,6) : RECCOUNT% = VAL(RECCOU┆
0x03c7e0…03c800 4e 54 24 29 0d 0a 39 37 30 30 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 52 45 43 43 4f 55 4e 54 25 ┆NT$) 9700 RECCOUNT% = RECCOUNT%┆
0x03c800…03c820 20 2b 20 31 20 3a 20 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 54 52 24 28 52 45 43 43 4f 55 4e 54 ┆ + 1 : RECCOUNT$ = STR$(RECCOUNT┆
0x03c820…03c840 25 29 0d 0a 39 37 30 35 20 4e 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 36 29 20 ┆%) 9705 NRECCOUNT$ = SPACE$(6) ┆
0x03c840…03c860 3a 20 52 53 45 54 20 4e 52 45 43 43 4f 55 4e 54 24 20 3d 20 52 45 43 43 4f 55 4e 54 24 0d 0a 39 ┆: RSET NRECCOUNT$ = RECCOUNT$ 9┆
0x03c860…03c880 37 31 30 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 33 39 2c 36 29 20 3d 20 4e 52 45 43 43 4f 55 ┆710 MID$(NONZ50$,39,6) = NRECCOU┆
0x03c880…03c8a0 4e 54 24 20 3a 20 52 45 54 55 52 4e 0d 0a 39 39 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆NT$ : RETURN 9900 REM *********┆
0x03c8a0…03c8c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4f 4e 20 45 52 52 4f 52 20 48 41 4e 44 4c 49 ┆**************** ON ERROR HANDLI┆
0x03c8c0…03c8e0 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 ┆NG ************************** 9┆
0x03c8e0…03c900 39 31 30 20 4f 4e 20 45 52 52 46 4c 41 47 25 20 47 4f 54 4f 20 38 30 36 30 2c 38 30 36 30 2c 38 ┆910 ON ERRFLAG% GOTO 8060,8060,8┆
0x03c900…03c920 (16, 1, 1) 33 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆380 REM ************************┆
0x03c920…03c940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03c940…03c960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 33 39 30 20 45 52 52 4d 53 47 4e 52 25 20 3d ┆************* 10390 ERRMSGNR% =┆
0x03c960…03c980 20 32 34 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 30 34 31 30 20 47 4f 53 55 42 20 31 ┆ 24 : GOSUB 20000 10410 GOSUB 1┆
0x03c980…03c9a0 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 31 30 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a ┆000 : RETURN 10500 REM ********┆
0x03c9a0…03c9c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03c9c0…03c9e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x03c9e0…03ca00 30 35 30 35 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 54 45 58 54 20 4f 4e 20 43 ┆0505 REM * SUB.: PRINT TEXT ON C┆
0x03ca00…03ca20 52 54 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 35 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆RT * 10510 REM ******┆
0x03ca20…03ca40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03ca40…03ca60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x03ca60…03ca80 0a 31 30 35 32 30 20 4f 4e 20 54 45 58 54 4e 52 25 20 47 4f 53 55 42 20 31 30 35 35 30 2c 31 30 ┆ 10520 ON TEXTNR% GOSUB 10550,10┆
0x03ca80…03caa0 35 35 35 2c 31 30 35 36 30 2c 31 30 35 36 35 2c 31 30 35 37 30 2c 31 30 35 37 35 2c 31 30 35 38 ┆555,10560,10565,10570,10575,1058┆
0x03caa0…03cac0 30 2c 31 30 35 38 35 2c 31 30 35 39 30 0d 0a 31 30 35 33 30 20 52 45 54 55 52 4e 0d 0a 31 30 35 ┆0,10585,10590 10530 RETURN 105┆
0x03cac0…03cae0 35 30 20 50 52 49 4e 54 20 22 20 42 69 74 74 65 20 50 72 6f 67 72 61 6d 6d 6e 61 6d 65 20 65 69 ┆50 PRINT " Bitte Programmname ei┆
0x03cae0…03cb00 6e 67 65 62 65 6e 20 3a 20 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 22 3b 20 3a 20 52 45 54 55 52 4e ┆ngeben : .......... "; : RETURN┆
0x03cb00…03cb20 (16, 1, 2) 20 50 52 49 4e 54 20 22 41 52 42 45 49 54 53 20 4e 52 2e 20 46 41 4c 53 43 48 22 3b 20 3a 20 52 ┆ PRINT "ARBEITS NR. FALSCH"; : R┆
0x03cb20…03cb40 45 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 31 0d 0a 32 30 31 33 30 ┆ETURN REM *** MSG. 01 20130┆
0x03cb40…03cb60 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 4e 41 4d 45 20 46 41 4c 53 43 48 22 3b 20 3a 20 52 45 ┆ PRINT "FORMATNAME FALSCH"; : RE┆
0x03cb60…03cb80 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 32 0d 0a 32 30 31 34 30 20 ┆TURN REM *** MSG. 02 20140 ┆
0x03cb80…03cba0 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 4e 41 4d 45 20 42 45 52 45 49 54 53 20 56 4f 52 48 41 4e ┆PRINT "FORMATNAME BEREITS VORHAN┆
0x03cba0…03cbc0 44 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 ┆DEN"; : RETURN REM *** MSG. 0┆
0x03cbc0…03cbe0 33 0d 0a 32 30 31 35 30 20 50 52 49 4e 54 20 22 56 45 52 4b 45 54 54 55 4e 47 53 46 45 48 4c 45 ┆3 20150 PRINT "VERKETTUNGSFEHLE┆
0x03cbe0…03cc00 52 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 34 ┆R"; : RETURN REM *** MSG. 04┆
0x03cc00…03cc20 0d 0a 32 30 31 36 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 2d 44 41 54 45 49 20 4e 49 43 48 ┆ 20160 PRINT "FORMAT-DATEI NICH┆
0x03cc20…03cc40 54 20 56 4f 52 48 41 4e 44 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a ┆T VORHANDEN"; : RETURN REM **┆
0x03cc40…03cc60 2a 20 4d 53 47 2e 20 30 35 0d 0a 32 30 31 37 30 20 50 52 49 4e 54 20 22 4e 41 4d 45 20 44 45 52 ┆* MSG. 05 20170 PRINT "NAME DER┆
0x03cc60…03cc80 20 41 52 42 45 49 54 53 44 41 54 45 49 20 46 41 4c 53 43 48 22 3b 20 3a 20 52 45 54 55 52 4e 09 ┆ ARBEITSDATEI FALSCH"; : RETURN ┆
0x03cc80…03cca0 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 36 0d 0a 32 30 31 38 30 20 50 52 49 4e 54 20 ┆ REM *** MSG. 06 20180 PRINT ┆
0x03cca0…03ccc0 22 41 52 42 45 49 54 53 44 41 54 45 49 20 4e 49 43 48 54 20 56 4f 52 48 41 4e 44 45 4e 22 3b 20 ┆"ARBEITSDATEI NICHT VORHANDEN"; ┆
0x03ccc0…03cce0 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 37 0d 0a 32 30 31 ┆: RETURN REM *** MSG. 07 201┆
0x03cce0…03cd00 39 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 56 45 52 4b 45 54 54 55 4e 47 20 21 20 42 49 54 ┆90 PRINT "FORMATVERKETTUNG ! BIT┆
0x03cd00…03cd20 (16, 1, 3) 4c 45 4e 41 4d 45 24 2c 31 2c 38 29 3b 22 20 20 47 45 4c 5c 53 43 48 54 20 22 3b 20 3a 20 52 45 ┆LENAME$,1,8);" GELØSCHT "; : RE┆
0x03cd20…03cd40 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 38 0d 0a 32 30 37 30 30 20 52 ┆TURN REM *** MSG. 28 20700 R┆
0x03cd40…03cd60 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x03cd60…03cd80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03cd80…03cda0 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 30 37 30 32 20 52 45 4d 20 2a 20 20 44 45 4c 45 54 45 20 41 20 ┆******** 20702 REM * DELETE A ┆
0x03cda0…03cdc0 46 49 4c 45 20 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 30 37 30 34 20 52 45 4d 20 2a 2a ┆FILE * 20704 REM **┆
0x03cdc0…03cde0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03ce00…03ce20 2a 2a 2a 0d 0a 32 30 37 31 30 20 49 46 20 41 52 42 53 54 41 54 4f 50 45 4e 25 20 47 4f 54 4f 20 ┆*** 20710 IF ARBSTATOPEN% GOTO ┆
0x03ce20…03ce40 32 30 37 33 30 20 45 4c 53 45 20 47 4f 53 55 42 20 39 31 30 30 09 09 09 09 52 45 4d 20 2a 2a 2a ┆20730 ELSE GOSUB 9100 REM ***┆
0x03ce40…03ce60 20 4f 50 45 4e 20 41 52 42 53 54 41 54 2d 46 49 4c 45 0d 0a 32 30 37 33 30 20 58 50 4f 53 25 20 ┆ OPEN ARBSTAT-FILE 20730 XPOS% ┆
0x03ce60…03ce80 3d 20 31 20 3a 20 59 50 4f 53 25 20 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 3a 20 ┆= 1 : YPOS% = 25 : GOSUB 1990 : ┆
0x03ce80…03cea0 50 52 49 4e 54 20 53 50 41 43 45 24 28 37 36 29 3b 0d 0a 32 30 37 33 35 20 47 4f 53 55 42 20 39 ┆PRINT SPACE$(76); 20735 GOSUB 9┆
0x03cea0…03cec0 31 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 ┆180 ┆
0x03cec0…03cee0 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 41 52 42 53 54 41 54 2d 44 49 52 0d 0a 32 30 37 35 30 20 ┆REM *** READ ARBSTAT-DIR 20750 ┆
0x03cee0…03cf00 49 46 20 4d 49 44 24 28 44 41 54 41 4e 41 4d 45 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 ┆IF MID$(DATANAME$,1,1) = " " GOT┆
0x03cf00…03cf20 (16, 1, 4) 0a 32 32 32 31 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 ┆ 22210 ERRFLAG% = 0 : FILENAME$ ┆
0x03cf20…03cf40 3d 20 22 43 48 41 49 4e 49 4e 46 2e 44 45 50 22 0d 0a 32 32 32 32 30 20 4f 50 45 4e 20 22 52 22 ┆= "CHAININF.DEP" 22220 OPEN "R"┆
0x03cf40…03cf60 2c 23 35 2c 46 49 4c 45 4e 41 4d 45 24 2c 32 36 0d 0a 32 32 32 34 30 20 46 49 45 4c 44 20 23 35 ┆,#5,FILENAME$,26 22240 FIELD #5┆
0x03cf60…03cf80 2c 31 32 20 41 53 20 43 48 41 49 4e 49 4e 46 4f 31 24 2c 31 32 20 41 53 20 43 48 41 49 4e 49 4e ┆,12 AS CHAININFO1$,12 AS CHAININ┆
0x03cf80…03cfa0 46 4f 32 24 2c 32 20 41 53 20 43 48 41 49 4e 49 4e 46 4f 33 24 0d 0a 32 32 32 35 30 20 45 52 52 ┆FO2$,2 AS CHAININFO3$ 22250 ERR┆
0x03cfa0…03cfc0 46 4c 41 47 25 20 3d 20 30 20 3a 20 47 45 54 20 23 35 2c 31 0d 0a 32 32 32 37 30 20 46 4f 52 4d ┆FLAG% = 0 : GET #5,1 22270 FORM┆
0x03cfc0…03cfe0 4e 41 4d 45 24 20 3d 20 43 48 41 49 4e 49 4e 46 4f 31 24 20 3a 20 44 41 54 41 4e 41 4d 45 24 20 ┆NAME$ = CHAININFO1$ : DATANAME$ ┆
0x03cfe0…03d000 3d 20 43 48 41 49 4e 49 4e 46 4f 32 24 20 3a 20 41 52 42 4e 52 24 20 3d 20 43 48 41 49 4e 49 4e ┆= CHAININFO2$ : ARBNR$ = CHAININ┆
0x03d000…03d020 46 4f 33 24 0d 0a 32 32 32 38 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 43 4c 4f 53 45 ┆FO3$ 22280 ERRFLAG% = 0 : CLOSE┆
0x03d020…03d040 20 0d 0a 32 32 32 39 30 20 52 45 54 55 52 4e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ 22290 RETURN ┆
0x03d040…03d060 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x03d080…03d0a0 20 52 45 41 44 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 54 48 45 20 57 4f 52 ┆ READ FROM CHAININF-FILE THE WOR┆
0x03d0a0…03d0c0 4b 4e 4f 2e 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 32 32 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆KNO. * 22200 REM ******┆
0x03d0c0…03d0e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03d0e0…03d100 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x03d100…03d120 (16, 1, 5) 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 31 0d 0a 31 30 35 35 35 20 50 52 49 4e 54 20 22 ┆ REM *** MSG. 01 10555 PRINT "┆
0x03d120…03d140 42 69 74 74 65 20 64 65 6e 20 4e 61 6d 65 6e 20 64 65 72 20 22 3b 43 48 52 24 28 31 32 39 29 3b ┆Bitte den Namen der ";CHR$(129);┆
0x03d140…03d160 22 46 6f 72 6d 61 74 2d 44 61 74 65 69 22 3b 43 48 52 24 28 31 32 38 29 3b 22 20 65 69 6e 67 65 ┆"Format-Datei";CHR$(128);" einge┆
0x03d160…03d180 62 65 6e 2e 20 20 2e 2e 2e 2e 2e 2e 2e 2e 22 3b 20 3a 20 52 45 54 55 52 4e 0d 0a 31 30 35 36 30 ┆ben. ........"; : RETURN 10560┆
0x03d180…03d1a0 20 50 52 49 4e 54 20 22 42 69 74 74 65 20 64 65 6e 20 4e 61 6d 65 6e 20 64 65 72 20 22 3b 43 48 ┆ PRINT "Bitte den Namen der ";CH┆
0x03d1a0…03d1c0 52 24 28 31 32 39 29 3b 22 41 72 62 65 69 74 73 64 61 74 65 69 22 3b 43 48 52 24 28 31 32 38 29 ┆R$(129);"Arbeitsdatei";CHR$(128)┆
0x03d1c0…03d1e0 3b 22 20 65 69 6e 67 65 62 65 6e 2e 20 20 2e 2e 2e 2e 2e 2e 2e 2e 22 3b 20 3a 20 52 45 54 55 52 ┆;" eingeben. ........"; : RETUR┆
0x03d1e0…03d200 4e 0d 0a 31 30 35 36 35 20 50 52 49 4e 54 20 22 4e 72 2e 20 64 65 73 20 46 6f 72 6d 61 74 73 20 ┆N 10565 PRINT "Nr. des Formats ┆
0x03d200…03d220 6d 69 74 20 64 65 6d 20 53 69 65 20 62 65 67 69 6e 6e 65 6e 20 77 6f 6c 6c 65 6e 20 3f 20 20 20 ┆mit dem Sie beginnen wollen ? ┆
0x03d220…03d240 20 2e 2e 2e 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 34 0d ┆ ..."; : RETURN REM *** MSG. 04 ┆
0x03d240…03d260 0a 31 30 35 37 30 20 50 52 49 4e 54 20 22 4e 72 2e 20 64 65 73 20 6e 7b 63 68 73 74 65 6e 20 46 ┆ 10570 PRINT "Nr. des næchsten F┆
0x03d260…03d280 6f 72 6d 61 74 73 20 6f 64 65 72 20 43 54 52 4c 2f 51 20 3f 20 20 20 20 20 20 20 20 20 20 20 2e ┆ormats oder CTRL/Q ? .┆
0x03d280…03d2a0 2e 2e 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 35 0d 0a 31 ┆.."; : RETURN REM *** MSG. 05 1┆
0x03d2a0…03d2c0 30 35 37 35 20 50 52 49 4e 54 20 43 48 52 24 28 31 34 34 29 3b 22 2a 2a 2a 20 46 4f 52 4d 41 54 ┆0575 PRINT CHR$(144);"*** FORMAT┆
0x03d2c0…03d2e0 20 20 45 52 46 41 53 53 45 4e 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b 20 3a 20 52 45 54 ┆ ERFASSEN ***";CHR$(128); : RET┆
0x03d2e0…03d300 55 52 4e 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 36 0d 0a 31 30 35 38 30 20 50 52 49 4e ┆URN REM *** MSG. 06 10580 PRIN┆
0x03d300…03d320 (16, 1, 6) 54 45 20 57 41 52 54 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 ┆TE WARTEN"; : RETURN REM *** ┆
0x03d320…03d340 4d 53 47 2e 20 30 38 0d 0a 32 30 32 30 30 20 50 52 49 4e 54 20 22 4b 45 49 4e 45 20 53 59 53 54 ┆MSG. 08 20200 PRINT "KEINE SYST┆
0x03d340…03d360 45 4d 2d 46 4f 52 4d 41 54 20 46 5d 52 20 44 49 45 20 41 52 42 45 49 54 53 2d 53 54 41 54 55 53 ┆EM-FORMAT FÅR DIE ARBEITS-STATUS┆
0x03d360…03d380 2d 44 41 54 45 49 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 ┆-DATEI"; : RETURN REM *** MSG. 0┆
0x03d380…03d3a0 39 0d 0a 32 30 32 31 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4f 48 4e 45 20 46 4f 52 4d ┆9 20210 PRINT "FORMAT OHNE FORM┆
0x03d3a0…03d3c0 41 54 4b 45 4e 4e 55 4e 47 20 47 45 4c 45 53 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 ┆ATKENNUNG GELESEN"; : RETURN R┆
0x03d3c0…03d3e0 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 30 0d 0a 32 30 32 32 30 20 50 52 49 4e 54 20 22 4b 45 49 ┆EM *** MSG. 10 20220 PRINT "KEI┆
0x03d3e0…03d400 4e 45 20 53 59 53 54 45 4d 2d 46 4f 52 4d 41 54 45 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 ┆NE SYSTEM-FORMATE"; : RETURN ┆
0x03d400…03d420 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 31 0d 0a 32 30 32 33 30 20 50 52 49 4e 54 20 22 4c ┆ REM *** MSG. 11 20230 PRINT "L┆
0x03d420…03d440 45 53 45 46 45 48 4c 45 52 20 49 4e 20 44 45 52 20 41 52 42 45 49 54 53 2d 53 54 41 54 55 53 2d ┆ESEFEHLER IN DER ARBEITS-STATUS-┆
0x03d440…03d460 44 41 54 45 49 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 ┆DATEI"; : RETURN REM *** MSG. ┆
0x03d460…03d480 31 32 0d 0a 32 30 32 34 30 20 50 52 49 4e 54 20 22 41 43 48 54 55 4e 47 20 21 21 20 46 4f 52 4d ┆12 20240 PRINT "ACHTUNG !! FORM┆
0x03d480…03d4a0 41 54 2d 44 41 54 45 49 20 4d 49 54 20 46 45 48 4c 45 52 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 ┆AT-DATEI MIT FEHLER"; : RETURN ┆
0x03d4a0…03d4c0 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 33 0d 0a 32 30 32 35 30 20 50 52 49 4e 54 20 22 4e ┆ REM *** MSG. 13 20250 PRINT "N┆
0x03d4c0…03d4e0 45 55 45 20 44 49 53 4b 45 54 54 45 20 49 4e 20 4c 41 55 46 57 45 52 4b 20 31 20 45 49 4e 4c 45 ┆EUE DISKETTE IN LAUFWERK 1 EINLE┆
0x03d4e0…03d500 47 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 34 ┆GEN"; : RETURN REM *** MSG. 14┆
0x03d500…03d520 (16, 1, 7) 4f 20 32 30 37 36 30 0d 0a 32 30 37 35 35 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 44 41 54 41 4e ┆O 20760 20755 FILENAME$ = DATAN┆
0x03d520…03d540 41 4d 45 24 20 3a 20 47 4f 54 4f 20 32 30 37 37 30 0d 0a 32 30 37 36 30 20 49 46 20 4d 49 44 24 ┆AME$ : GOTO 20770 20760 IF MID$┆
0x03d540…03d560 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 31 30 31 33 0d ┆(FORMNAME$,1,1) = " " GOTO 1013 ┆
0x03d560…03d580 0a 32 30 37 36 35 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 46 4f 52 4d 4e 41 4d 45 24 0d 0a 32 30 ┆ 20765 FILENAME$ = FORMNAME$ 20┆
0x03d580…03d5a0 37 37 30 20 47 4f 53 55 42 20 37 34 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆770 GOSUB 7410 ┆
0x03d5a0…03d5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 46 49 4c 45 20 49 ┆ REM *** FILE I┆
0x03d5c0…03d5e0 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 0d 0a 32 30 37 38 30 20 49 46 20 46 49 4c 45 49 4e ┆N ARBSTAT-DIR ? 20780 IF FILEIN┆
0x03d5e0…03d600 44 49 52 25 20 54 48 45 4e 20 47 4f 54 4f 20 32 30 37 39 30 20 45 4c 53 45 20 49 46 20 4d 49 44 ┆DIR% THEN GOTO 20790 ELSE IF MID┆
0x03d600…03d620 24 28 44 41 54 41 4e 41 4d 45 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 54 48 45 4e 20 47 4f 53 55 ┆$(DATANAME$,1,1) = " " THEN GOSU┆
0x03d620…03d640 42 20 33 38 37 33 20 3a 20 47 4f 54 4f 20 33 31 31 30 20 45 4c 53 45 20 47 4f 53 55 42 20 34 31 ┆B 3873 : GOTO 3110 ELSE GOSUB 41┆
0x03d640…03d660 31 30 20 3a 20 47 4f 54 4f 20 33 39 38 32 0d 0a 32 30 37 39 30 20 45 52 52 46 4c 41 47 25 20 3d ┆10 : GOTO 3982 20790 ERRFLAG% =┆
0x03d660…03d680 20 30 20 3a 20 4b 49 4c 4c 20 46 49 4c 45 4e 41 4d 45 24 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ 0 : KILL FILENAME$ REM ***┆
0x03d680…03d6a0 20 4b 49 4c 4c 20 54 48 45 20 43 50 2f 4d 20 46 49 4c 45 0d 0a 32 30 38 31 30 20 49 46 20 44 49 ┆ KILL THE CP/M FILE 20810 IF DI┆
0x03d6a0…03d6c0 52 32 25 20 47 4f 54 4f 20 32 30 38 34 30 0d 0a 32 30 38 32 30 20 4d 49 44 24 28 41 52 42 53 54 ┆R2% GOTO 20840 20820 MID$(ARBST┆
0x03d6c0…03d6e0 41 54 44 49 52 31 24 2c 49 25 2c 31 36 29 20 3d 20 53 50 41 43 45 24 28 31 36 29 0d 0a 32 30 38 ┆ATDIR1$,I%,16) = SPACE$(16) 208┆
0x03d6e0…03d700 33 30 20 47 4f 54 4f 20 32 30 38 34 31 0d 0a 32 30 38 34 30 20 4d 49 44 24 28 41 52 42 53 54 41 ┆30 GOTO 20841 20840 MID$(ARBSTA┆
0x03d700…03d900 (16, 1, 8) DataBlock {»EENTRY.MAC«}
0x03d900…03d920 (16, 1, 9) 54 20 43 48 52 24 28 31 34 34 29 3b 22 2a 2a 2a 20 46 4f 52 4d 41 54 20 20 56 45 52 5b 4e 44 45 ┆T CHR$(144);"*** FORMAT VERÆNDE┆
0x03d920…03d940 52 4e 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b 20 3a 20 52 45 54 55 52 4e 09 09 52 45 4d ┆RN ***";CHR$(128); : RETURN REM┆
0x03d940…03d960 20 2a 2a 2a 20 4d 53 47 2e 20 30 37 0d 0a 31 30 35 38 35 20 50 52 49 4e 54 20 43 48 52 24 28 31 ┆ *** MSG. 07 10585 PRINT CHR$(1┆
0x03d960…03d980 34 34 29 3b 22 2a 2a 2a 20 4b 41 54 41 4c 4f 47 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b ┆44);"*** KATALOG ***";CHR$(128);┆
0x03d980…03d9a0 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 38 0d 0a 31 30 35 ┆ : RETURN REM *** MSG. 08 105┆
0x03d9a0…03d9c0 39 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 34 34 29 3b 22 2a 2a 2a 20 44 41 54 45 49 20 20 4c ┆90 PRINT CHR$(144);"*** DATEI L┆
0x03d9c0…03d9e0 5c 53 43 48 45 4e 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b 20 3a 20 52 45 54 55 52 4e 09 ┆ØSCHEN ***";CHR$(128); : RETURN ┆
0x03d9e0…03da00 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 39 0d 0a 32 30 30 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆ REM *** MSG. 09 20000 REM ****┆
0x03da00…03da20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03da40…03da60 2a 0d 0a 32 30 30 30 31 20 52 45 4d 20 2a 20 20 52 45 41 44 20 41 4e 44 20 50 52 49 4e 54 20 45 ┆* 20001 REM * READ AND PRINT E┆
0x03da60…03da80 52 52 4f 52 2d 4d 53 47 2e 20 4f 4e 20 43 52 54 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 30 ┆RROR-MSG. ON CRT * 20┆
0x03da80…03daa0 30 30 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆002 REM ************************┆
0x03daa0…03dac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03dac0…03dae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 30 30 37 30 20 58 50 4f 53 25 20 3d 20 31 20 3a ┆************* 20070 XPOS% = 1 :┆
0x03dae0…03db00 20 59 50 4f 53 25 20 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 0d 0a 32 30 30 38 30 ┆ YPOS% = 25 : GOSUB 1990 20080┆
0x03db00…03db20 (16, 1, 10) 0d 0a 32 30 32 36 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 2d 44 41 54 45 49 20 4f 48 4e 45 ┆ 20260 PRINT "FORMAT-DATEI OHNE┆
0x03db20…03db40 20 53 54 41 52 54 2d 46 4f 52 4d 41 54 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 ┆ START-FORMAT"; : RETURN REM ┆
0x03db40…03db60 2a 2a 2a 20 4d 53 47 2e 20 31 35 0d 0a 32 30 32 37 30 20 50 52 49 4e 54 20 22 41 52 42 45 49 54 ┆*** MSG. 15 20270 PRINT "ARBEIT┆
0x03db60…03db80 53 2d 53 54 41 54 55 53 2d 44 41 54 45 49 20 4e 49 43 48 54 20 56 4f 52 48 41 4e 44 45 4e 22 3b ┆S-STATUS-DATEI NICHT VORHANDEN";┆
0x03db80…03dba0 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 36 0d 0a 32 30 32 ┆ : RETURN REM *** MSG. 16 202┆
0x03dba0…03dbc0 38 30 20 50 52 49 4e 54 20 22 41 52 42 45 49 54 53 2d 53 54 41 54 55 53 2d 44 41 54 45 49 20 56 ┆80 PRINT "ARBEITS-STATUS-DATEI V┆
0x03dbc0…03dbe0 4f 4c 4c 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 ┆OLL"; : RETURN REM *** MSG. 1┆
0x03dbe0…03dc00 37 0d 0a 32 30 32 39 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4e 52 2e 20 46 41 4c 53 43 ┆7 20290 PRINT "FORMAT NR. FALSC┆
0x03dc00…03dc20 48 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 38 ┆H"; : RETURN REM *** MSG. 18┆
0x03dc20…03dc40 0d 0a 32 30 33 30 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4e 52 2e 20 2d 42 45 52 45 49 ┆ 20300 PRINT "FORMAT NR. -BEREI┆
0x03dc40…03dc60 43 48 20 42 45 4c 45 47 54 20 21 21 20 4d 41 58 2e 20 34 35 20 46 4f 52 4d 41 54 45 22 3b 20 3a ┆CH BELEGT !! MAX. 45 FORMATE"; :┆
0x03dc60…03dc80 20 52 45 54 55 52 4e 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 39 0d 0a 32 30 33 31 30 20 ┆ RETURN REM *** MSG. 19 20310 ┆
0x03dc80…03dca0 50 52 49 4e 54 20 22 4b 45 49 4e 20 50 52 4f 47 52 41 4d 4d 20 22 3b 4d 49 44 24 28 50 52 4f 47 ┆PRINT "KEIN PROGRAMM ";MID$(PROG┆
0x03dca0…03dcc0 4e 41 4d 45 24 2c 31 2c 31 30 29 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 ┆NAME$,1,10); : RETURN REM *** ┆
0x03dcc0…03dce0 4d 53 47 2e 20 32 30 0d 0a 32 30 33 32 30 20 50 52 49 4e 54 20 22 44 45 50 20 46 45 48 4c 45 52 ┆MSG. 20 20320 PRINT "DEP FEHLER┆
0x03dce0…03dd00 2d 53 54 41 54 55 53 22 3b 20 3a 20 52 45 54 55 52 4e 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 ┆-STATUS"; : RETURN REM *** ┆
0x03dd00…03dd20 (16, 1, 11) 54 44 49 52 32 24 2c 49 25 2c 31 36 29 20 3d 20 53 50 41 43 45 24 28 31 36 29 0d 0a 32 30 38 34 ┆TDIR2$,I%,16) = SPACE$(16) 2084┆
0x03dd20…03dd40 31 20 47 4f 53 55 42 20 32 31 30 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 GOSUB 21020 ┆
0x03dd40…03dd60 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 44 45 43 52 45 4d 45 4e 54 20 41 52 ┆ REM *** DECREMENT AR┆
0x03dd60…03dd80 42 53 54 41 54 2d 52 45 43 4f 52 44 2d 43 4f 55 4e 54 45 52 0d 0a 32 30 38 34 32 20 47 4f 53 55 ┆BSTAT-RECORD-COUNTER 20842 GOSU┆
0x03dd80…03dda0 42 20 39 33 37 30 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 ┆B 9370 ┆
0x03dda0…03ddc0 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 41 52 42 53 54 41 54 2d 44 49 ┆ REM *** WRITE ARBSTAT-DI┆
0x03ddc0…03dde0 52 0d 0a 32 30 38 35 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 38 20 3a 20 47 4f 53 55 42 20 ┆R 20850 ERRMSGNR% = 28 : GOSUB ┆
0x03dde0…03de00 32 30 30 30 30 0d 0a 32 30 38 38 30 20 47 4f 54 4f 20 31 30 31 33 0d 0a 32 31 30 30 30 20 52 45 ┆20000 20880 GOTO 1013 21000 RE┆
0x03de00…03de20 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x03de20…03de40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03de40…03de60 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 30 30 35 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 44 45 43 52 ┆******* 21005 REM * SUB.: DECR┆
0x03de60…03de80 45 4d 45 4e 54 20 41 52 42 53 54 41 54 2d 52 45 43 4f 52 44 2d 43 4f 55 4e 54 45 52 09 09 09 20 ┆EMENT ARBSTAT-RECORD-COUNTER ┆
0x03de80…03dea0 20 20 20 20 20 2a 0d 0a 32 31 30 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 21010 REM **************┆
0x03dea0…03dec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03dec0…03dee0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 30 32 30 20 41 ┆*********************** 21020 A┆
0x03dee0…03df00 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 ┆RBSTATRECCOUNT$ = MID$(ARBSTATDI┆
0x03df00…03e100 (16, 1, 12) DataBlock {»EENTRY.MAC«}
0x03e100…03e120 (16, 1, 13) 20 50 52 49 4e 54 20 43 48 52 24 28 31 34 34 29 3b 22 20 2a 2a 2a 20 22 3b 0d 0a 32 30 30 39 30 ┆ PRINT CHR$(144);" *** "; 20090┆
0x03e120…03e140 20 4f 4e 20 45 52 52 4d 53 47 4e 52 25 20 47 4f 53 55 42 20 32 30 31 32 30 2c 32 30 31 33 30 2c ┆ ON ERRMSGNR% GOSUB 20120,20130,┆
0x03e140…03e160 32 30 31 34 30 2c 32 30 31 35 30 2c 32 30 31 36 30 2c 32 30 31 37 30 2c 32 30 31 38 30 2c 32 30 ┆20140,20150,20160,20170,20180,20┆
0x03e160…03e180 31 39 30 2c 32 30 32 30 30 2c 32 30 32 31 30 2c 32 30 32 32 30 2c 32 30 32 33 30 2c 32 30 32 34 ┆190,20200,20210,20220,20230,2024┆
0x03e180…03e1a0 30 2c 32 30 32 35 30 2c 32 30 32 36 30 2c 32 30 32 37 30 2c 32 30 32 38 30 2c 32 30 32 39 30 2c ┆0,20250,20260,20270,20280,20290,┆
0x03e1a0…03e1c0 32 30 33 30 30 2c 32 30 33 31 30 2c 32 30 33 32 30 2c 32 30 33 33 30 2c 32 30 33 34 30 2c 32 30 ┆20300,20310,20320,20330,20340,20┆
0x03e1c0…03e1e0 33 35 30 2c 32 30 33 36 30 2c 32 30 33 37 30 2c 32 30 33 38 30 2c 32 30 33 39 30 0d 0a 32 30 30 ┆350,20360,20370,20380,20390 200┆
0x03e1e0…03e200 39 32 20 49 46 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 38 20 4f 52 20 45 52 52 4d 53 47 4e 52 25 ┆92 IF ERRMSGNR% = 8 OR ERRMSGNR%┆
0x03e200…03e220 20 3d 20 32 38 20 54 48 45 4e 20 50 52 49 4e 54 20 22 20 21 21 20 2a 2a 2a 20 22 3b 43 48 52 24 ┆ = 28 THEN PRINT " !! *** ";CHR$┆
0x03e220…03e240 28 31 32 38 29 3b 43 48 52 24 28 33 30 29 3b 43 48 52 24 28 31 33 29 3b 20 3a 20 52 45 54 55 52 ┆(128);CHR$(30);CHR$(13); : RETUR┆
0x03e240…03e260 4e 0d 0a 32 30 30 39 33 20 49 46 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 36 20 4f 52 20 45 52 ┆N 20093 IF ERRMSGNR% = 26 OR ER┆
0x03e260…03e280 52 4d 53 47 4e 52 25 20 3d 20 32 37 20 54 48 45 4e 20 50 52 49 4e 54 20 22 20 28 52 45 53 45 54 ┆RMSGNR% = 27 THEN PRINT " (RESET┆
0x03e280…03e2a0 29 20 2a 2a 2a 20 22 3b 43 48 52 24 28 31 32 38 29 3b 43 48 52 24 28 33 30 29 3b 43 48 52 24 28 ┆) *** ";CHR$(128);CHR$(30);CHR$(┆
0x03e2a0…03e2c0 31 33 29 3b 20 3a 20 52 45 54 55 52 4e 0d 0a 32 30 30 39 35 20 50 52 49 4e 54 20 22 20 21 21 20 ┆13); : RETURN 20095 PRINT " !! ┆
0x03e2c0…03e2e0 20 28 52 45 53 45 54 29 20 2a 2a 2a 20 22 3b 43 48 52 24 28 31 32 38 29 3b 43 48 52 24 28 33 30 ┆ (RESET) *** ";CHR$(128);CHR$(30┆
0x03e2e0…03e300 29 3b 43 48 52 24 28 31 33 29 3b 0d 0a 32 30 31 31 35 20 52 45 54 55 52 4e 0d 0a 32 30 31 32 30 ┆);CHR$(13); 20115 RETURN 20120┆
0x03e300…03e320 (16, 1, 14) 4d 53 47 2e 20 32 31 0d 0a 32 30 33 33 30 20 50 52 49 4e 54 20 22 53 43 48 52 45 49 42 2d 20 4f ┆MSG. 21 20330 PRINT "SCHREIB- O┆
0x03e320…03e340 44 45 52 20 4c 45 53 45 46 45 48 4c 45 52 20 41 55 46 20 44 45 52 20 44 49 53 4b 45 54 54 45 22 ┆DER LESEFEHLER AUF DER DISKETTE"┆
0x03e340…03e360 3b 20 3a 20 52 45 54 55 52 4e 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 32 0d 0a 32 30 33 ┆; : RETURN REM *** MSG. 22 203┆
0x03e360…03e380 34 30 20 50 52 49 4e 54 20 22 44 49 53 4b 45 54 54 45 20 56 4f 4c 4c 22 3b 20 3a 20 52 45 54 55 ┆40 PRINT "DISKETTE VOLL"; : RETU┆
0x03e380…03e3a0 52 4e 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 33 0d 0a 32 30 33 35 30 20 50 ┆RN REM *** MSG. 23 20350 P┆
0x03e3a0…03e3c0 52 49 4e 54 20 22 44 41 54 45 49 20 4e 49 43 48 54 20 49 4e 20 44 45 52 20 43 50 2f 4d 20 44 41 ┆RINT "DATEI NICHT IN DER CP/M DA┆
0x03e3c0…03e3e0 54 45 49 56 45 52 57 41 4c 54 55 4e 47 22 3b 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 ┆TEIVERWALTUNG"; REM *** MSG. ┆
0x03e3e0…03e400 32 34 0d 0a 32 30 33 36 30 20 50 52 49 4e 54 20 22 46 45 48 4c 45 52 20 23 22 3b 45 52 52 3b 22 ┆24 20360 PRINT "FEHLER #";ERR;"┆
0x03e400…03e420 2f 22 3b 45 52 4c 3b 22 20 44 41 54 45 49 3a 20 22 3b 46 49 4c 45 4e 41 4d 45 24 3b 22 20 28 4f ┆/";ERL;" DATEI: ";FILENAME$;" (O┆
0x03e420…03e440 4e 20 45 52 52 29 20 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 ┆N ERR) "; : RETURN REM *** MSG. ┆
0x03e440…03e460 32 35 0d 0a 32 30 33 37 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4e 52 2e 20 42 45 4c 45 ┆25 20370 PRINT "FORMAT NR. BELE┆
0x03e460…03e480 47 54 20 21 20 5d 42 45 52 53 43 48 52 45 49 42 45 4e 20 3d 20 28 4a 29 20 2f 20 4e 45 49 4e 20 ┆GT ! ÅBERSCHREIBEN = (J) / NEIN ┆
0x03e480…03e4a0 3d 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 36 20 0d 0a 32 ┆="; : RETURN REM *** MSG. 26 2┆
0x03e4a0…03e4c0 30 33 38 30 20 50 52 49 4e 54 20 22 4e 45 55 45 53 20 46 4f 52 4d 41 54 20 3f 3f 20 20 4a 41 20 ┆0380 PRINT "NEUES FORMAT ?? JA ┆
0x03e4c0…03e4e0 3d 20 28 4a 29 20 2f 20 4e 45 49 4e 20 3d 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 ┆= (J) / NEIN ="; : RETURN REM ┆
0x03e4e0…03e500 2a 2a 2a 20 4d 53 47 2e 20 32 37 0d 0a 32 30 33 39 30 20 50 52 49 4e 54 20 4d 49 44 24 28 46 49 ┆*** MSG. 27 20390 PRINT MID$(FI┆
0x03e500…03e520 (16, 1, 15) 52 31 24 2c 31 31 2c 34 29 20 3a 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 20 3d 20 56 ┆R1$,11,4) : ARBSTATRECCOUNT% = V┆
0x03e520…03e540 41 4c 28 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 29 0d 0a 32 31 30 33 30 20 41 52 42 53 ┆AL(ARBSTATRECCOUNT$) 21030 ARBS┆
0x03e540…03e560 54 41 54 52 45 43 43 4f 55 4e 54 25 20 3d 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 20 ┆TATRECCOUNT% = ARBSTATRECCOUNT% ┆
0x03e560…03e580 2d 20 31 20 3a 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 54 52 24 28 41 52 ┆- 1 : ARBSTATRECCOUNT$ = STR$(AR┆
0x03e580…03e5a0 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 29 0d 0a 32 31 30 34 30 20 4e 41 52 42 53 54 41 54 52 ┆BSTATRECCOUNT%) 21040 NARBSTATR┆
0x03e5a0…03e5c0 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 34 29 20 3a 20 52 53 45 54 20 4e 41 52 42 ┆ECCOUNT$ = SPACE$(4) : RSET NARB┆
0x03e5c0…03e5e0 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 ┆STATRECCOUNT$ = ARBSTATRECCOUNT$┆
0x03e5e0…03e600 0d 0a 32 31 30 35 30 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c 31 31 2c 34 29 20 ┆ 21050 MID$(ARBSTATDIR1$,11,4) ┆
0x03e600…03e620 3d 20 4e 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 0d 0a 32 31 30 36 30 20 52 45 54 55 52 ┆= NARBSTATRECCOUNT$ 21060 RETUR┆
0x03e620…03e640 4e 0d 0a 32 32 31 39 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆N 22190 REM *******************┆
0x03e640…03e660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03e660…03e680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 32 31 39 35 20 52 45 4d 20 2a 20 ┆****************** 22195 REM * ┆
0x03e680…03e6a0 20 52 45 41 44 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 54 48 45 20 57 4f 52 ┆ READ FROM CHAININF-FILE THE WOR┆
0x03e6a0…03e6c0 4b 4e 4f 2e 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 32 32 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆KNO. * 22200 REM ******┆
0x03e6c0…03e6e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03e6e0…03e700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x03e700…03e900 (17, 0, 1) DataBlock {»EENTRY.MAC«}
[…0xf…]
0x040700…040900 (17, 1, 2) DataBlock {»ENTRYME.BAS«}
0x040900…040b00 (17, 1, 3) DataBlock {»ENTRY.BAS«}
[…0x1…]
0x040d00…040f00 (17, 1, 5) DataBlock {»EENTRY.MAC«}
0x040f00…041100 (17, 1, 6) DataBlock {»ENTRYME.BAS«}
0x041100…041300 (17, 1, 7) DataBlock {»ENTRY.BAS«}
[…0x1…]
0x041500…041700 (17, 1, 9) DataBlock {»EENTRY.MAC«}
0x041700…041900 (17, 1, 10) DataBlock {»ENTRYME.BAS«}
0x041900…041b00 (17, 1, 11) DataBlock {»ENTRY.BAS«}
[…0x1…]
0x041d00…041f00 (17, 1, 13) DataBlock {»ENTRYME.BAS«}
0x041f00…042100 (17, 1, 14) DataBlock {»ENTRY.BAS«}
[…0x3e…]
0x049d00…049f00 (20, 0, 2) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x04a300…04a500 (20, 0, 5) DataBlock {»ENTRY.BAS«}
0x04a500…04a700 (20, 0, 6) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x04ab00…04ac00 (20, 0, 9) DataBlock {»ENTRY.BAS«}
0x04ac00…04ac20 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x04ac20…04ac40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04ac40…04ac60 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 32 38 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 20 3a 20 ┆******** 27280 ERRMSGNR% = 2 : ┆
0x04ac60…04ac80 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 ┆GOSUB 20000 : GOSUB 1000 : RETUR┆
0x04ac80…04aca0 4e 0d 0a 32 37 32 38 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆N 27282 REM *******************┆
0x04aca0…04acc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04acc0…04ace0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 32 38 34 20 52 45 4d 20 2a 20 ┆****************** 27284 REM * ┆
0x04ace0…04ad00 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 ┆SUB.: PRINT ERRMSG. IN LINE 25 ┆
0x04ad00…04af00 (20, 0, 10) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x04b300…04b500 (20, 0, 13) 0xe5[0x200]
0x04b500…04b700 (20, 0, 14) DataBlock {»ENTRYME.BAS«}
[…0x12…]
0x04d980…04d9a0 4d 49 44 24 28 4e 4f 4e 5a 24 2c 33 2c 38 29 20 3d 20 4e 44 41 54 41 4e 41 4d 45 24 20 45 4c 53 ┆MID$(NONZ$,3,8) = NDATANAME$ ELS┆
0x04d9a0…04d9c0 45 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 31 31 2c 38 29 20 3d 20 4e 46 4f 52 4d 4e 41 4d 45 24 0d ┆E MID$(NONZ$,11,8) = NFORMNAME$ ┆
0x04d9c0…04d9e0 0a 32 32 34 39 36 20 47 4f 53 55 42 20 39 35 35 30 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ 22496 GOSUB 9550 REM ***┆
0x04d9e0…04da00 20 57 52 49 54 45 20 41 52 42 53 54 41 54 0d 0a 32 32 34 39 38 20 52 45 54 55 52 4e 0d 0a 32 32 ┆ WRITE ARBSTAT 22498 RETURN 22┆
0x04da00…04da20 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆500 REM ************************┆
0x04da20…04da40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04da40…04da60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 32 35 30 32 20 52 45 4d 20 2a 20 53 55 42 2e 3a ┆************* 22502 REM * SUB.:┆
0x04da60…04da80 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 ┆ PRINT ERRMSG. IN LINE 25 ┆
0x04da80…04daa0 20 20 20 2a 0d 0a 32 32 35 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 22504 REM ****************┆
0x04daa0…04dac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04dac0…04dae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 32 35 31 30 20 45 52 52 ┆********************* 22510 ERR┆
0x04dae0…04db00 4d 53 47 4e 52 25 20 3d 20 31 33 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 32 32 35 33 30 ┆MSGNR% = 13 : GOSUB 20000 22530┆
0x04db00…04dd00 (21, 0, 3) DataBlock {»FORMAT.BAS«}
[…0x1…]
0x04df00…04e100 (21, 0, 5) DataBlock {»ENTRYME.BAS«}
0x04e100…04e120 (21, 0, 6) 33 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆380 REM ************************┆
0x04e120…04e140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e140…04e160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 33 39 30 20 45 52 52 4d 53 47 4e 52 25 20 3d ┆************* 10390 ERRMSGNR% =┆
0x04e160…04e180 20 32 34 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 30 34 31 30 20 47 4f 53 55 42 20 31 ┆ 24 : GOSUB 20000 10410 GOSUB 1┆
0x04e180…04e1a0 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 31 30 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a ┆000 : RETURN 10500 REM ********┆
0x04e1a0…04e1c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e1c0…04e1e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x04e1e0…04e200 30 35 30 35 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 54 45 58 54 20 4f 4e 20 43 ┆0505 REM * SUB.: PRINT TEXT ON C┆
0x04e200…04e220 52 54 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 35 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆RT * 10510 REM ******┆
0x04e220…04e240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e240…04e260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x04e260…04e280 0a 31 30 35 32 30 20 4f 4e 20 54 45 58 54 4e 52 25 20 47 4f 53 55 42 20 31 30 35 35 30 2c 31 30 ┆ 10520 ON TEXTNR% GOSUB 10550,10┆
0x04e280…04e2a0 35 35 35 2c 31 30 35 36 30 2c 31 30 35 36 35 2c 31 30 35 37 30 2c 31 30 35 37 35 2c 31 30 35 38 ┆555,10560,10565,10570,10575,1058┆
0x04e2a0…04e2c0 30 2c 31 30 35 38 35 2c 31 30 35 39 30 0d 0a 31 30 35 33 30 20 52 45 54 55 52 4e 0d 0a 31 30 35 ┆0,10585,10590 10530 RETURN 105┆
0x04e2c0…04e2e0 35 30 20 50 52 49 4e 54 20 22 20 42 69 74 74 65 20 50 72 6f 67 72 61 6d 6d 6e 61 6d 65 20 65 69 ┆50 PRINT " Bitte Programmname ei┆
0x04e2e0…04e300 6e 67 65 62 65 6e 20 3a 20 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 22 3b 20 3a 20 52 45 54 55 52 4e ┆ngeben : .......... "; : RETURN┆
0x04e300…04e500 (21, 0, 7) DataBlock {»FORMAT.BAS«}
[…0x1…]
0x04e700…04e900 (21, 0, 9) DataBlock {»ENTRYME.BAS«}
0x04e900…04eb00 (21, 0, 10) DataBlock {»FORMAT.BAS«}
[…0x2…]
0x04ef00…04f100 (21, 0, 13) DataBlock {»ENTRYME.BAS«}
0x04f100…04f300 (21, 0, 14) DataBlock {»FORMAT.BAS«}
[…0x2…]
0x04f700…04f900 (21, 1, 2) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x04fd00…04ff00 (21, 1, 5) DataBlock {»FORMAT.BAS«}
0x04ff00…050100 (21, 1, 6) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x050500…050700 (21, 1, 9) DataBlock {»FORMAT.BAS«}
0x050700…050900 (21, 1, 10) DataBlock {»EENTRY.MAC«}
[…0x44…]
0x059100…059300 (24, 0, 4) DataBlock {»EUSRINT.MAC«}
0x059300…059500 (24, 0, 5) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x059900…059b00 (24, 0, 8) DataBlock {»EUSRINT.MAC«}
0x059b00…059d00 (24, 0, 9) DataBlock {»EENTRY.MAC«}
[…0x1…]
0x059f00…05a100 (24, 0, 11) 0xe5[0x200]
0x05a100…05a300 (24, 0, 12) DataBlock {»EUSRINT.MAC«}
0x05a300…05a500 (24, 0, 13) DataBlock {»EENTRY.MAC«}
[…0x1…]
0x05a700…05a900 (24, 0, 15) 0xe5[0x200]
0x05a900…05ab00 (24, 1, 1) DataBlock {»EUSRINT.MAC«}
[…0x20…]
0x05eb00…05ed00 (25, 1, 4) DataBlock {»FFORMAT.MAC«}
0x05ed00…05ef00 (25, 1, 5) DataBlock {»EUSRINT.MAC«}
[…0x2…]
0x05f280…05f2a0 6b 20 31 2f 72 61 6e 67 65 20 63 68 65 63 6b 20 32 20 2d 20 66 6c 61 67 73 0d 0a 3b 61 6e 64 20 ┆k 1/range check 2 - flags ;and ┆
0x05f2a0…05f2c0 73 65 74 73 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 73 74 61 74 75 73 20 6f 66 66 73 ┆sets the appropriate status offs┆
0x05f2c0…05f2e0 65 74 20 69 6e 20 68 6c 2d 72 65 67 2e 0d 0a 3b 0d 0a 43 48 4b 44 52 3a 09 6c 64 09 61 2c 28 44 ┆et in hl-reg. ; CHKDR: ld a,(D┆
0x05f2e0…05f300 54 45 46 4c 47 29 09 3b 0d 0a 09 63 70 09 30 66 66 68 09 09 3b 0d 0a 09 6a 70 09 7a 2c 43 48 4b ┆TEFLG) ; cp 0ffh ; jp z,CHK┆
0x05f300…05f500 (25, 1, 8) DataBlock {»FFORMAT.MAC«}
0x05f500…05f700 (25, 1, 9) DataBlock {»EUSRINT.MAC«}
[…0x1…]
0x05f900…05fb00 (25, 1, 11) 0xe5[0x200]
0x05fb00…05fd00 (25, 1, 12) DataBlock {»FFORMAT.MAC«}
0x05fd00…05ff00 (25, 1, 13) DataBlock {»EUSRINT.MAC«}
[…0x1…]
0x060100…060300 (25, 1, 15) DataBlock {»FFORMAT.MAC«}
[…0x1b…]
0x063880…0638a0 09 28 41 54 54 42 59 54 29 2c 61 09 3b 0d 0a 20 20 20 20 20 20 20 09 63 61 6c 6c 09 43 48 52 43 ┆ (ATTBYT),a ; call CHRC┆
0x0638a0…0638c0 4e 56 09 09 3b 0d 0a 09 64 65 63 09 68 6c 20 09 09 3b 0d 0a 09 6c 64 09 61 2c 30 68 09 09 3b 0d ┆NV ; dec hl ; ld a,0h ; ┆
0x0638c0…0638e0 0a 09 6c 64 09 28 44 53 50 53 56 33 29 2c 61 09 3b 0d 0a 09 6a 70 09 44 53 50 46 53 37 09 09 3b ┆ ld (DSPSV3),a ; jp DSPFS7 ;┆
0x0638e0…063900 0d 0a 3b 0d 0a 3b 0d 0a 44 53 50 53 56 31 3a 09 64 73 09 32 09 09 3b 0d 0a 44 53 50 53 56 32 3a ┆ ; ; DSPSV1: ds 2 ; DSPSV2:┆
0x063900…063b00 (26, 1, 13) DataBlock {»FFORMAT.MAC«}
[…0x2…]
0x063f00…064100 (27, 0, 1) 0xe5[0x200]
0x064100…064300 (27, 0, 2) DataBlock {»FUSRINT.MAC«}
[…0x2…]
0x064700…064900 (27, 0, 5) 0xe5[0x200]
0x064900…064b00 (27, 0, 6) DataBlock {»FUSRINT.MAC«}
[…0xc…]
0x066300…066500 (27, 1, 4) DataBlock {»FORMAT.BAS«}
0x066500…066700 (27, 1, 5) DataBlock {»FUSRINT.MAC«}
[…0x2…]
0x066980…0669a0 74 20 63 6f 6d 70 6c 65 74 65 0d 0a 09 64 62 09 22 30 37 30 38 30 30 22 09 3b 69 6c 6c 65 67 61 ┆t complete db "070800" ;illega┆
0x0669a0…0669c0 6c 20 66 6f 72 6d 61 74 0d 0a 09 64 62 09 22 30 34 30 38 30 30 22 09 3b 66 6f 72 6d 61 74 20 6e ┆l format db "040800" ;format n┆
0x0669c0…0669e0 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 0d 0a 09 64 62 09 22 30 31 30 38 30 30 22 09 3b 6c 65 ┆ot initialized db "010800" ;le┆
0x0669e0…066a00 67 61 6c 20 61 62 6f 72 74 20 28 75 73 65 72 20 63 61 6e 63 65 6c 6c 65 64 29 0d 0a 09 64 62 09 ┆gal abort (user cancelled) db ┆
0x066a00…066a20 22 30 31 30 39 30 30 22 09 3b 66 6f 72 6d 2e 63 68 61 69 6e 20 6b 65 79 20 6d 6f 64 69 66 69 65 ┆"010900" ;form.chain key modifie┆
0x066a20…066a40 64 0d 0a 09 64 62 09 22 30 31 30 33 30 30 22 09 3b 73 65 6e 64 20 6b 65 79 0d 0a 09 64 62 09 22 ┆d db "010300" ;send key db "┆
0x066a40…066a60 30 31 31 33 30 30 22 09 3b 68 6f 6d 65 20 6b 65 79 0d 0a 09 64 62 09 22 30 31 30 32 30 30 22 09 ┆011300" ;home key db "010200" ┆
0x066a60…066a80 3b 65 6e 64 20 6f 66 20 66 6f 72 6d 61 74 20 72 65 61 63 68 65 64 0d 0a 09 64 62 09 22 30 33 30 ┆;end of format reached db "030┆
0x066a80…066aa0 38 30 30 22 09 3b 69 6c 6c 65 67 61 6c 20 66 69 65 6c 64 20 6e 75 6d 62 65 72 0d 0a 09 64 62 09 ┆800" ;illegal field number db ┆
0x066aa0…066ac0 22 30 31 31 32 30 30 22 09 3b 66 69 65 6c 64 20 62 61 63 6b 77 61 72 64 0d 0a 09 64 62 09 22 30 ┆"011200" ;field backward db "0┆
0x066ac0…066ae0 31 31 31 30 30 22 09 3b 66 69 65 6c 64 20 66 6f 72 77 61 72 64 0d 0a 09 64 62 09 22 30 31 30 31 ┆11100" ;field forward db "0101┆
0x066ae0…066b00 30 30 22 09 3b 65 6e 64 20 6f 66 20 66 69 65 6c 64 0d 0a 09 64 62 09 22 30 31 30 36 30 30 22 09 ┆00" ;end of field db "010600" ┆
0x066b00…066d00 (27, 1, 8) DataBlock {»FORMAT.BAS«}
0x066d00…066f00 (27, 1, 9) DataBlock {»FUSRINT.MAC«}
[…0x1…]
0x067100…067300 (27, 1, 11) 0xe5[0x200]
0x067300…067500 (27, 1, 12) DataBlock {»FORMAT.BAS«}
0x067500…067700 (27, 1, 13) DataBlock {»FUSRINT.MAC«}
[…0x1…]
0x067900…067b00 (27, 1, 15) DataBlock {»FORMAT.BAS«}
[…0x1…]
0x067d00…067f00 (28, 0, 2) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x068300…068500 (28, 0, 5) DataBlock {»FORMAT.BAS«}
0x068500…068700 (28, 0, 6) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x068b00…068d00 (28, 0, 9) DataBlock {»FORMAT.BAS«}
0x068d00…068f00 (28, 0, 10) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x069300…069480 (28, 0, 13) DataBlock {»FORMAT.BAS«}
0x069480…0694a0 2a 20 20 52 45 41 44 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 54 48 45 20 57 ┆* READ FROM CHAININF-FILE THE W┆
0x0694a0…0694c0 4f 52 4b 4e 4f 2e 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 32 32 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆ORKNO. * 22200 REM ****┆
0x0694c0…0694e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x069500…069700 (28, 0, 14) DataBlock {»FFMTINT.MAC«}
[…0x18…]
0x06c580…06c5a0 69 65 6c 64 73 20 72 65 61 63 68 65 64 3f 0d 0a 09 6a 70 09 6d 2c 46 4c 44 45 52 52 09 3b 79 65 ┆ields reached? jp m,FLDERR ;ye┆
0x06c5a0…06c5c0 73 2e 0d 0a 09 6c 64 09 61 2c 28 45 4e 44 46 4c 47 29 09 3b 0d 0a 09 63 70 09 30 66 66 68 09 09 ┆s. ld a,(ENDFLG) ; cp 0ffh ┆
0x06c5c0…06c5e0 3b 0d 0a 09 6a 70 09 7a 2c 45 4e 44 46 4c 44 09 3b 69 74 20 6d 75 73 74 20 62 65 20 74 68 65 20 ┆; jp z,ENDFLD ;it must be the ┆
0x06c5e0…06c600 65 6e 64 20 6f 66 20 66 6f 72 6d 61 74 21 0d 0a 42 4c 44 46 50 31 3a 09 6c 64 09 62 63 2c 28 56 ┆end of format! BLDFP1: ld bc,(V┆
0x06c600…06c620 46 43 54 52 29 09 3b 69 6e 63 0d 0a 09 69 6e 63 09 62 63 09 09 3b 74 68 65 0d 0a 09 6c 64 09 28 ┆FCTR) ;inc inc bc ;the ld (┆
0x06c620…06c640 56 46 43 54 52 29 2c 62 63 09 3b 6e 6f 2e 20 6f 66 20 76 61 72 69 61 62 6c 65 20 66 69 65 6c 64 ┆VFCTR),bc ;no. of variable field┆
0x06c640…06c660 73 2e 0d 0a 09 72 65 74 09 09 09 3b 0d 0a 46 4c 44 45 52 52 3a 09 6c 64 09 61 2c 30 35 68 09 09 ┆s. ret ; FLDERR: ld a,05h ┆
0x06c660…06c680 3b 0d 0a 09 63 61 6c 6c 09 44 53 50 4d 53 47 09 09 3b 64 69 73 70 6c 61 79 20 65 72 72 6f 72 20 ┆; call DSPMSG ;display error ┆
0x06c680…06c6a0 6d 65 73 73 61 67 65 0d 0a 09 70 6f 70 09 68 6c 09 09 3b 70 6f 70 20 74 68 65 20 73 74 61 63 6b ┆message pop hl ;pop the stack┆
0x06c6a0…06c6c0 0d 0a 09 6c 64 09 68 6c 2c 30 68 09 09 3b 63 6c 65 61 72 20 74 68 65 0d 0a 09 6c 64 09 28 56 46 ┆ ld hl,0h ;clear the ld (VF┆
0x06c6c0…06c6e0 43 54 52 29 2c 68 6c 09 3b 76 61 72 2e 66 69 65 6c 64 20 63 6f 75 6e 74 65 72 0d 0a 09 4a 50 09 ┆CTR),hl ;var.field counter JP ┆
0x06c6e0…06c700 4b 45 4c 50 31 09 09 3b 41 4e 44 20 47 45 54 20 43 4f 52 52 45 43 54 49 4f 4e 0d 0a 3b 0d 0a 45 ┆KELP1 ;AND GET CORRECTION ; E┆
0x06c700…06c900 (29, 0, 9) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x06cd00…06cd20 (29, 0, 12) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x06cd20…06cd40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 ┆****************** ;* ┆
0x06cd40…06cd60 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 ┆ ┆
0x06cd60…06cd80 20 20 20 20 20 2a 0d 0a 3b 2a 09 4d 4f 44 55 4c 45 20 3a 20 45 4d 53 47 54 41 42 45 2e 4d 41 43 ┆ * ;* MODULE : EMSGTABE.MAC┆
0x06cd80…06cda0 20 20 20 20 20 20 20 28 52 43 2d 37 30 30 29 20 20 20 20 20 2a 0d 0a 3b 2a 09 44 41 54 45 20 20 ┆ (RC-700) * ;* DATE ┆
0x06cda0…06cdc0 20 3a 20 30 31 2e 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : 01.02.82 ┆
0x06cdc0…06cde0 20 20 20 2a 0d 0a 3b 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 6d 62 48 20 2c 20 36 34 37 ┆ * ;* BY : ASE GmbH , 647┆
0x06cde0…06ce00 32 20 41 6c 74 65 6e 73 74 61 64 74 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 56 45 52 53 49 4f 4e 3a ┆2 Altenstadt * ;* VERSION:┆
0x06ce00…06ce20 20 31 2e 39 30 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 ┆ 1.90 ┆
0x06ce20…06ce40 20 2a 0d 0a 3b 2a 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 ┆ * ;* ┆
0x06ce40…06ce60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a ┆ * ;*******┆
0x06ce60…06ce80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06ce80…06cea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 3b 20 54 48 49 53 20 48 4f 4c 44 53 20 54 48 45 20 ┆********** ; ; THIS HOLDS THE ┆
0x06cea0…06cec0 45 4e 47 4c 49 53 43 48 20 4d 45 53 53 41 47 45 53 20 55 53 45 44 20 54 48 52 4f 55 47 48 4f 55 ┆ENGLISCH MESSAGES USED THROUGHOU┆
0x06cec0…06cee0 54 20 54 48 45 20 44 45 50 0d 0a 3b 20 49 4e 20 41 4c 4c 20 4d 4f 44 45 53 20 45 58 43 45 50 54 ┆T THE DEP ; IN ALL MODES EXCEPT┆
0x06cee0…06cf00 20 27 46 4f 52 4d 41 54 27 20 41 4e 44 20 27 46 4f 52 4d 41 54 2d 55 50 44 41 54 45 27 2e 0d 0a ┆ 'FORMAT' AND 'FORMAT-UPDATE'. ┆
0x06cf00…06d100 (29, 0, 13) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x06d500…06d520 (29, 1, 1) 3b 0d 0a 09 50 55 42 4c 49 43 09 4d 53 47 54 41 42 0d 0a 3b 0d 0a 3b 54 68 65 20 66 6f 6c 6c 6f ┆; PUBLIC MSGTAB ; ;The follo┆
0x06d520…06d540 77 69 6e 67 20 63 6f 6d 70 72 69 73 65 73 20 74 68 65 20 4d 65 73 73 61 67 65 2d 54 61 62 6c 65 ┆wing comprises the Message-Table┆
0x06d540…06d560 0d 0a 3b 75 73 65 64 20 74 68 72 75 6f 75 74 20 74 68 65 20 44 45 50 20 2e 20 4f 6e 65 20 65 6e ┆ ;used thruout the DEP . One en┆
0x06d560…06d580 74 72 79 20 63 6f 6e 74 61 69 6e 73 0d 0a 3b 33 32 20 50 6f 73 69 74 69 6f 6e 73 2e 0d 0a 3b 74 ┆try contains ;32 Positions. ;t┆
0x06d580…06d5a0 68 65 20 73 65 71 75 65 6e 63 65 20 6f 66 20 6d 65 73 73 61 67 65 73 20 6d 75 73 74 20 6e 6f 74 ┆he sequence of messages must not┆
0x06d5a0…06d5c0 20 62 65 20 64 69 73 74 75 72 62 65 64 2e 0d 0a 3b 0d 0a 4d 53 47 54 41 42 3a 0d 0a 6d 73 67 30 ┆ be disturbed. ; MSGTAB: msg0┆
0x06d5c0…06d5e0 3a 09 64 62 09 22 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 ┆: db " ┆
0x06d5e0…06d600 20 20 20 20 20 20 22 3b 6d 73 67 20 30 20 72 65 73 65 72 76 65 64 20 66 6f 72 0d 0a 3b 64 69 73 ┆ ";msg 0 reserved for ;dis┆
0x06d600…06d620 70 6c 61 79 2d 6d 6f 64 65 2e 0d 0a 6d 73 67 31 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 ┆play-mode. msg1: db " ┆
0x06d620…06d640 56 45 52 49 46 59 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 32 3a 09 64 ┆VERIFYERROR " msg2: d┆
0x06d640…06d660 62 09 22 20 20 20 20 20 20 20 52 49 47 48 54 20 41 44 4a 55 53 54 20 46 49 45 4c 44 20 20 20 20 ┆b " RIGHT ADJUST FIELD ┆
0x06d660…06d680 20 20 20 22 0d 0a 6d 73 67 33 3a 20 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 ┆ " msg3: db " ENTRY┆
0x06d680…06d6a0 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 34 3a 09 64 62 09 22 20 20 ┆ERROR " msg4: db " ┆
0x06d6a0…06d6c0 20 20 20 20 53 45 4c 45 43 54 20 46 4f 52 4d 41 54 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d ┆ SELECT FORMAT ---------> " ┆
0x06d6c0…06d6e0 0a 6d 73 67 35 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 59 20 20 ┆ msg5: db " READY ┆
0x06d6e0…06d700 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 36 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 ┆ " msg6: db " ┆
0x06d700…06d900 (29, 1, 2) DataBlock {»CCB.MAC«}
[…0x2…]
0x06dd00…06dd20 (29, 1, 5) 20 20 20 20 20 41 42 4f 52 54 45 44 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 37 3a ┆ ABORTED " msg7:┆
0x06dd20…06dd40 09 64 62 09 22 20 20 20 20 20 20 20 20 43 48 45 43 4b 2d 44 49 47 49 54 20 45 52 52 4f 52 20 20 ┆ db " CHECK-DIGIT ERROR ┆
0x06dd40…06dd60 20 20 20 20 20 22 0d 0a 6d 73 67 38 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 20 50 52 ┆ " msg8: db " PR┆
0x06dd60…06dd80 49 4e 54 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 39 3a 09 64 62 09 22 20 ┆INTING " msg9: db " ┆
0x06dd80…06dda0 20 20 20 20 20 50 52 49 4e 54 49 4e 47 20 49 4e 54 45 52 52 55 50 54 45 44 20 20 20 20 20 20 22 ┆ PRINTING INTERRUPTED "┆
0x06dda0…06ddc0 0d 0a 6d 73 67 31 30 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 52 45 51 ┆ msg10: db " ENTRY REQ┆
0x06ddc0…06dde0 55 49 52 45 44 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 31 31 3a 09 64 62 09 22 20 20 20 20 20 ┆UIRED " msg11: db " ┆
0x06dde0…06de00 20 20 20 20 20 20 20 53 49 47 4e 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 ┆ SIGNERROR " ms┆
0x06de00…06de20 67 31 32 3a 09 64 62 09 22 20 20 20 20 20 44 49 53 50 4c 41 59 20 52 45 47 49 53 54 45 52 20 2d ┆g12: db " DISPLAY REGISTER -┆
0x06de20…06de40 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d 0a 09 65 6e 64 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆-------> " end ┆
0x06de40…06de60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x06de80…06dea0 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 34 3a 09 64 62 09 22 20 20 ┆ERROR " msg4: db " ┆
0x06dea0…06dec0 20 20 20 20 53 45 4c 45 43 54 20 46 4f 52 4d 41 54 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d ┆ SELECT FORMAT ---------> " ┆
0x06dec0…06dee0 0a 6d 73 67 35 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 59 20 20 ┆ msg5: db " READY ┆
0x06dee0…06df00 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 36 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 ┆ " msg6: db " ┆
0x06df00…06e100 (29, 1, 6) DataBlock {»CCB.MAC«}
[…0x2…]
0x06e500…06e700 (29, 1, 9) 0xe5[0x200]
0x06e700…06e900 (29, 1, 10) DataBlock {»CCB.MAC«}
[…0x6…]
0x06f380…06f3a0 66 69 65 6c 64 20 73 74 61 72 74 20 62 79 74 65 0d 0a 55 42 46 41 44 44 3a 09 64 73 09 32 09 3b ┆field start byte UBFADD: ds 2 ;┆
0x06f3a0…06f3c0 75 73 65 72 20 62 75 66 66 65 72 20 73 74 61 72 74 20 61 64 64 72 65 73 73 0d 0a 55 43 46 4c 47 ┆user buffer start address UCFLG┆
0x06f3c0…06f3e0 3a 09 64 73 09 31 09 3b 75 70 70 65 72 20 63 61 73 65 20 66 6c 61 67 0d 0a 56 43 52 43 54 52 3a ┆: ds 1 ;upper case flag VCRCTR:┆
0x06f3e0…06f400 09 64 77 09 30 30 30 30 68 09 3b 76 65 72 69 66 79 20 63 6f 72 72 65 63 74 69 6f 6e 20 63 6f 75 ┆ dw 0000h ;verify correction cou┆
0x06f400…06f420 6e 74 65 72 0d 0a 56 45 52 43 54 52 3a 09 64 77 09 30 30 30 30 68 09 3b 76 65 72 69 66 79 20 63 ┆nter VERCTR: dw 0000h ;verify c┆
0x06f420…06f440 74 72 2e 0d 0a 56 46 43 54 52 3a 09 64 73 09 32 09 3b 76 61 72 69 61 62 6c 65 20 66 69 65 6c 64 ┆tr. VFCTR: ds 2 ;variable field┆
0x06f440…06f460 20 63 6f 75 6e 74 65 72 0d 0a 56 46 50 43 54 52 3a 09 64 73 09 32 09 3b 76 61 72 69 61 62 6c 65 ┆ counter VFPCTR: ds 2 ;variable┆
0x06f460…06f480 20 66 69 65 6c 64 20 70 6f 73 2e 20 63 6f 75 6e 74 65 72 0d 0a 56 52 54 43 54 52 3a 09 64 73 09 ┆ field pos. counter VRTCTR: ds ┆
0x06f480…06f4a0 31 09 3b 76 65 72 69 66 79 20 72 65 74 72 79 20 63 6f 75 6e 74 65 72 0d 0a 57 52 4b 46 42 41 3a ┆1 ;verify retry counter WRKFBA:┆
0x06f4a0…06f4c0 09 64 73 09 32 09 3b 77 6f 72 6b 69 6e 67 20 66 6f 72 6d 2e 20 62 75 66 66 65 72 20 61 64 64 72 ┆ ds 2 ;working form. buffer addr┆
0x06f4c0…06f4e0 65 73 73 0d 0a 57 52 4b 46 4e 4f 3a 09 64 73 09 32 09 3b 77 6f 72 6b 69 6e 67 20 66 69 65 6c 64 ┆ess WRKFNO: ds 2 ;working field┆
0x06f4e0…06f500 20 6e 75 6d 62 65 72 0d 0a 57 52 4b 4d 41 44 3a 09 64 73 09 32 09 3b 77 6f 72 6b 69 6e 67 20 6d ┆ number WRKMAD: ds 2 ;working m┆
0x06f500…06f700 (30, 0, 2) DataBlock {»FMSGTAB.MAC«}
0x06f700…06f720 (30, 0, 3) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x06f720…06f740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 ┆****************** ;* ┆
0x06f740…06f760 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 ┆ ┆
0x06f760…06f780 20 20 20 20 20 2a 0d 0a 3b 2a 09 4d 4f 44 55 4c 45 20 3a 20 46 4d 53 47 54 41 42 45 2e 4d 41 43 ┆ * ;* MODULE : FMSGTABE.MAC┆
0x06f780…06f7a0 20 20 20 20 20 20 28 52 43 2d 37 30 30 29 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 44 41 54 45 20 20 ┆ (RC-700) * ;* DATE ┆
0x06f7a0…06f7c0 20 3a 20 30 31 2e 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : 01.02.82 ┆
0x06f7c0…06f7e0 20 20 20 2a 0d 0a 3b 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 6d 62 48 20 2c 20 36 34 37 ┆ * ;* BY : ASE GmbH , 647┆
0x06f7e0…06f800 32 20 41 6c 74 65 6e 73 74 61 64 74 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 56 45 52 53 49 4f 4e 3a ┆2 Altenstadt * ;* VERSION:┆
0x06f800…06f820 20 31 2e 39 30 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 ┆ 1.90 ┆
0x06f820…06f840 20 2a 0d 0a 3b 2a 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 ┆ * ;* ┆
0x06f840…06f860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a ┆ * ;*******┆
0x06f860…06f880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06f880…06f8a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 3b 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 50 ┆********** ; ; THE FOLLOWING P┆
0x06f8a0…06f8c0 52 4f 56 49 44 45 53 20 41 4c 4c 20 54 48 45 20 45 4e 47 4c 49 53 48 20 4d 45 53 53 41 47 45 53 ┆ROVIDES ALL THE ENGLISH MESSAGES┆
0x06f8c0…06f8e0 20 55 53 45 44 20 44 55 52 49 4e 47 20 0d 0a 3b 20 27 46 4f 52 4d 41 54 27 20 41 4e 44 20 27 46 ┆ USED DURING ; 'FORMAT' AND 'F┆
0x06f8e0…06f900 4f 52 4d 41 54 2d 55 50 44 41 54 45 27 20 4d 4f 44 45 2e 0d 0a 3b 20 45 41 43 48 20 4d 45 53 53 ┆ORMAT-UPDATE' MODE. ; EACH MESS┆
0x06f900…06fb00 (30, 0, 4) DataBlock {»EMSGTAB.MAC«}
0x06fb00…06fd00 (30, 0, 5) 0xe5[0x200]
0x06fd00…06ff00 (30, 0, 6) DataBlock {»FMSGTAB.MAC«}
0x06ff00…06ff20 (30, 0, 7) 41 47 45 20 43 4f 4e 53 49 53 54 53 20 4f 46 20 33 32 20 50 4f 53 49 54 49 4f 4e 53 20 41 4e 44 ┆AGE CONSISTS OF 32 POSITIONS AND┆
0x06ff20…06ff40 20 57 49 4c 4c 20 42 45 20 44 49 53 50 4c 41 59 45 44 20 41 53 0d 0a 3b 20 4e 45 45 44 45 44 20 ┆ WILL BE DISPLAYED AS ; NEEDED ┆
0x06ff40…06ff60 49 4e 20 54 48 45 20 43 45 4e 54 45 52 20 4f 46 20 4c 49 4e 45 20 32 35 2e 0d 0a 3b 20 54 48 45 ┆IN THE CENTER OF LINE 25. ; THE┆
0x06ff60…06ff80 20 53 45 51 55 45 4e 43 45 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 53 20 4d 55 53 54 20 4e ┆ SEQUENCE OF THE MESSAGES MUST N┆
0x06ff80…06ffa0 4f 54 20 42 45 20 44 49 53 54 55 52 42 45 44 2e 0d 0a 3b 20 41 4c 53 4f 20 54 48 45 20 4c 45 4e ┆OT BE DISTURBED. ; ALSO THE LEN┆
0x06ffa0…06ffc0 47 54 48 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 53 20 4d 55 53 54 20 42 45 20 4c 49 4d 49 ┆GTH OF THE MESSAGES MUST BE LIMI┆
0x06ffc0…06ffe0 54 45 44 20 54 4f 20 33 32 20 42 59 54 45 53 20 45 41 43 48 2e 0d 0a 3b 0d 0a 09 50 55 42 4c 49 ┆TED TO 32 BYTES EACH. ; PUBLI┆
0x06ffe0…070000 43 09 4d 53 47 54 41 42 0d 0a 3b 0d 0a 4d 53 47 54 41 42 3a 09 64 62 09 22 20 20 20 20 20 20 20 ┆C MSGTAB ; MSGTAB: db " ┆
0x070000…070020 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 22 3b 62 6c 61 6e 6b ┆ ";blank┆
0x070020…070040 20 6d 65 73 73 61 67 65 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 ┆ message db " FORMAT ┆
0x070040…070060 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 20 4e 4f 20 45 4e 44 ┆ERROR " db " NO END┆
0x070060…070080 2d 4f 46 2d 46 4f 52 4d 41 54 20 43 48 41 52 41 43 54 45 52 20 20 20 22 0d 0a 09 64 62 09 22 20 ┆-OF-FORMAT CHARACTER " db " ┆
0x070080…0700a0 20 20 20 20 20 20 20 20 20 45 4e 54 45 52 20 46 4f 52 4d 41 54 20 20 20 20 20 20 20 20 20 20 22 ┆ ENTER FORMAT "┆
0x0700a0…0700c0 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 43 4f 4d 50 4c 45 54 45 20 ┆ db " FORMAT COMPLETE ┆
0x0700c0…0700e0 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 4e 4f 2e 20 4f 46 20 56 41 52 49 41 42 4c 45 ┆ " db " NO. OF VARIABLE┆
0x0700e0…070100 20 46 49 45 4c 44 53 20 3e 20 31 32 35 20 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 20 45 4e 44 ┆ FIELDS > 125 " db " END┆
0x070100…070300 (30, 0, 8) DataBlock {»EMSGTAB.MAC«}
0x070300…070500 (30, 0, 9) 0xe5[0x200]
0x070500…070600 (30, 0, 10) DataBlock {»FMSGTAB.MAC«}
0x070600…070620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 62 6c 61 6e 6b 20 ┆ ";blank ┆
0x070620…070640 6d 65 73 73 61 67 65 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 46 ┆message db " FORMAT F┆
0x070640…070660 45 48 4c 45 52 20 20 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 4b 45 49 4e 20 46 4f 52 ┆EHLER " db " KEIN FOR┆
0x070660…070680 4d 41 54 45 4e 44 45 20 28 45 29 20 47 45 46 55 4e 44 45 4e 20 20 22 0d 0a 09 44 42 09 22 20 20 ┆MATENDE (E) GEFUNDEN " DB " ┆
0x070680…0706a0 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 45 49 4e 47 45 42 45 4e 20 20 20 20 20 20 20 20 22 0d ┆ FORMAT EINGEBEN " ┆
0x0706a0…0706c0 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 4b 4f 4d 50 4c 45 54 54 20 20 ┆ db " FORMAT KOMPLETT ┆
0x0706c0…0706e0 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 41 4e 5a 41 48 4c 20 56 41 52 49 41 42 4c 45 20 ┆ " db " ANZAHL VARIABLE ┆
0x0706e0…070700 46 45 4c 44 45 52 20 3e 20 31 32 35 20 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 45 4e 44 45 20 ┆FELDER > 125 " db " ENDE ┆
0x070700…070720 (30, 0, 11) 20 4f 46 20 46 4f 52 4d 41 54 2d 45 4e 54 52 59 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 ┆ OF FORMAT-ENTRY " db " ┆
0x070720…070740 20 20 20 20 20 20 20 49 4c 4c 45 47 41 4c 20 46 55 4e 43 54 49 4f 4e 20 20 20 20 20 20 20 20 22 ┆ ILLEGAL FUNCTION "┆
0x070740…070760 0d 0a 09 64 62 09 22 45 4e 54 45 52 20 46 49 45 4c 44 2d 53 45 43 55 52 49 54 59 2d 42 59 54 45 ┆ db "ENTER FIELD-SECURITY-BYTE┆
0x070760…070780 20 28 46 53 42 29 20 22 0d 0a 09 64 62 09 22 46 53 42 20 30 31 2d 30 36 2c 31 31 2d 31 36 2c 32 ┆ (FSB) " db "FSB 01-06,11-16,2┆
0x070780…0707a0 31 2d 32 36 2c 33 31 2d 33 36 20 2d 2d 3e 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 50 ┆1-26,31-36 --> " db " P┆
0x0707a0…0707c0 52 49 4e 54 49 4e 47 20 46 4f 52 4d 41 54 20 20 20 20 20 20 20 20 20 22 0d 0a 09 45 4e 44 0d 0a ┆RINTING FORMAT " END ┆
0x0707c0…0707e0 3b 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆; ┆
0x0707e0…070800 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x070800…070820 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 22 3b 62 6c 61 6e 6b ┆ ";blank┆
0x070820…070840 20 6d 65 73 73 61 67 65 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 ┆ message db " FORMAT ┆
0x070840…070860 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 20 4e 4f 20 45 4e 44 ┆ERROR " db " NO END┆
0x070860…070880 2d 4f 46 2d 46 4f 52 4d 41 54 20 43 48 41 52 41 43 54 45 52 20 20 20 22 0d 0a 09 64 62 09 22 20 ┆-OF-FORMAT CHARACTER " db " ┆
0x070880…0708a0 20 20 20 20 20 20 20 20 20 45 4e 54 45 52 20 46 4f 52 4d 41 54 20 20 20 20 20 20 20 20 20 20 22 ┆ ENTER FORMAT "┆
0x0708a0…0708c0 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 43 4f 4d 50 4c 45 54 45 20 ┆ db " FORMAT COMPLETE ┆
0x0708c0…0708e0 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 4e 4f 2e 20 4f 46 20 56 41 52 49 41 42 4c 45 ┆ " db " NO. OF VARIABLE┆
0x0708e0…070900 20 46 49 45 4c 44 53 20 3e 20 31 32 35 20 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 20 45 4e 44 ┆ FIELDS > 125 " db " END┆
0x070900…070a00 (30, 0, 12) DataBlock {»EMSGTAB.MAC«}
0x070a00…070a20 33 3a 20 09 64 62 09 22 20 20 20 20 20 20 20 20 20 45 49 4e 47 41 42 45 46 45 48 4c 45 52 20 20 ┆3: db " EINGABEFEHLER ┆
0x070a20…070a40 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 34 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 ┆ " msg4: db " ┆
0x070a40…070a60 46 4f 52 4d 41 54 57 41 48 4c 20 2d 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d 0a 6d 73 67 35 3a 09 64 62 ┆FORMATWAHL --------> " msg5: db┆
0x070a60…070a80 09 22 20 20 20 20 20 20 20 20 20 45 49 4e 47 41 42 45 20 20 42 45 52 45 49 54 20 20 20 20 20 20 ┆ " EINGABE BEREIT ┆
0x070a80…070aa0 20 20 22 0d 0a 6d 73 67 36 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 45 4e 44 45 20 44 45 52 ┆ " msg6: db " ENDE DER┆
0x070aa0…070ac0 20 41 52 42 45 49 54 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 37 3a 09 64 62 09 22 20 20 20 20 ┆ ARBEIT " msg7: db " ┆
0x070ac0…070ae0 20 20 20 20 50 52 55 45 46 5a 49 46 46 45 52 46 45 48 4c 45 52 20 20 20 20 20 20 20 22 0d 0a 6d ┆ PRUEFZIFFERFEHLER " m┆
0x070ae0…070b00 73 67 38 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 44 52 55 43 4b 41 55 53 47 41 42 45 20 ┆sg8: db " DRUCKAUSGABE ┆
0x070b00…070d00 (30, 0, 13) 0xe5[0x200]
[…0x3…]
0x071300…071320 (30, 1, 2) 0a 09 65 78 74 09 49 4c 4c 46 52 4d 0d 0a 09 65 78 74 09 43 48 52 52 44 0d 0a 09 65 78 74 09 43 ┆ ext ILLFRM ext CHRRD ext C┆
0x071320…071340 48 4b 42 54 45 0d 0a 09 65 78 74 09 4e 58 54 46 44 42 0d 0a 09 65 78 74 09 45 46 4f 46 4c 47 0d ┆HKBTE ext NXTFDB ext EFOFLG ┆
0x071340…071360 0a 09 65 78 74 09 45 4e 44 46 52 4d 0d 0a 09 65 78 74 09 42 43 50 43 54 52 0d 0a 09 65 78 74 09 ┆ ext ENDFRM ext BCPCTR ext ┆
0x071360…071380 44 45 4d 4f 44 45 0d 0a 09 65 78 74 09 55 42 46 41 44 44 0d 0a 09 65 78 74 09 49 4e 42 55 46 46 ┆DEMODE ext UBFADD ext INBUFF┆
0x071380…0713a0 0d 0a 09 65 78 74 09 46 4d 54 49 4e 54 0d 0a 09 65 78 74 09 44 45 4c 52 45 43 0d 0a 09 65 78 74 ┆ ext FMTINT ext DELREC ext┆
0x0713a0…0713c0 09 43 42 57 46 4c 47 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 09 44 55 50 46 4c ┆ CBWFLG ext FTMFLG ext DUPFL┆
0x0713c0…0713e0 47 0d 0a 09 65 78 74 09 46 52 4d 43 48 4e 0d 0a 09 65 78 74 09 45 45 52 43 54 52 0d 0a 09 65 78 ┆G ext FRMCHN ext EERCTR ex┆
0x0713e0…071400 74 09 56 45 52 43 54 52 0d 0a 09 65 78 74 09 4e 4b 45 43 54 52 0d 0a 09 65 78 74 09 4e 4b 56 43 ┆t VERCTR ext NKECTR ext NKVC┆
0x071400…071420 54 52 0d 0a 09 65 78 74 09 46 4e 43 46 4c 47 0d 0a 09 65 78 74 09 56 52 54 43 54 52 0d 0a 09 65 ┆TR ext FNCFLG ext VRTCTR e┆
0x071420…071440 78 74 09 56 43 52 43 54 52 0d 0a 09 65 78 74 09 46 4d 46 46 4c 47 0d 0a 09 65 78 74 09 46 49 4c ┆xt VCRCTR ext FMFFLG ext FIL┆
0x071440…071460 43 54 52 0d 0a 09 65 78 74 09 52 45 43 42 57 44 0d 0a 09 65 78 74 09 52 45 43 41 44 56 0d 0a 09 ┆CTR ext RECBWD ext RECADV ┆
0x071460…071480 65 78 74 09 49 4e 53 52 43 44 0d 0a 09 65 78 74 09 45 4f 46 50 52 43 0d 0a 09 65 78 74 09 52 41 ┆ext INSRCD ext EOFPRC ext RA┆
0x071480…0714a0 43 48 4b 0d 0a 09 65 78 74 09 52 45 47 50 52 43 0d 0a 09 65 78 74 09 52 45 47 46 4c 47 0d 0a 09 ┆CHK ext REGPRC ext REGFLG ┆
0x0714a0…0714c0 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 51 46 4c 44 0d 0a 09 65 78 74 09 54 46 4c 44 ┆ext INCCRS ext QFLD ext TFLD┆
0x0714c0…0714e0 0d 0a 09 65 78 74 09 4d 4c 4e 46 4c 47 0d 0a 09 65 78 74 09 41 55 54 49 4e 43 0d 0a 09 65 78 74 ┆ ext MLNFLG ext AUTINC ext┆
0x0714e0…071500 09 44 53 50 43 44 0d 0a 09 65 78 74 09 43 48 52 43 4e 56 0d 0a 09 65 78 74 09 53 47 4e 43 48 4b ┆ DSPCD ext CHRCNV ext SGNCHK┆
0x071500…071700 (30, 1, 3) 0xe5[0x200]
0x071700…071720 (30, 1, 4) 0d 0a 09 65 78 74 09 46 4c 44 42 57 44 0d 0a 09 65 78 74 09 58 46 4d 54 0d 0a 09 65 78 74 09 56 ┆ ext FLDBWD ext XFMT ext V┆
0x071720…071740 46 50 43 54 52 0d 0a 09 65 78 74 09 45 4e 54 43 50 4c 0d 0a 09 65 78 74 09 56 46 43 54 52 0d 0a ┆FPCTR ext ENTCPL ext VFCTR ┆
0x071740…071760 09 65 78 74 09 46 52 4d 43 50 4c 0d 0a 09 65 78 74 09 49 4c 4c 46 4e 4f 0d 0a 09 65 78 74 09 46 ┆ ext FRMCPL ext ILLFNO ext F┆
0x071760…071780 42 46 41 44 44 0d 0a 09 65 78 74 09 53 4f 46 55 42 41 0d 0a 09 65 78 74 09 43 42 46 41 44 44 0d ┆BFADD ext SOFUBA ext CBFADD ┆
0x071780…0717a0 0a 09 65 78 74 09 53 4f 46 43 42 41 0d 0a 09 65 78 74 09 42 46 4e 4f 0d 0a 09 65 78 74 09 46 50 ┆ ext SOFCBA ext BFNO ext FP┆
0x0717a0…0717c0 54 54 41 42 0d 0a 09 65 78 74 09 53 4f 46 46 42 41 0d 0a 09 65 78 74 09 49 4e 43 43 52 53 0d 0a ┆TTAB ext SOFFBA ext INCCRS ┆
0x0717c0…0717e0 09 65 78 74 09 41 4c 4c 49 4e 43 0d 0a 09 65 78 74 09 44 53 50 4d 53 47 0d 0a 09 65 78 74 09 47 ┆ ext ALLINC ext DSPMSG ext G┆
0x0717e0…071800 45 4e 46 53 42 0d 0a 09 65 78 74 09 49 4c 4c 46 52 4d 0d 0a 09 65 78 74 09 43 48 52 52 44 0d 0a ┆ENFSB ext ILLFRM ext CHRRD ┆
0x071800…071820 09 65 78 74 09 43 48 4b 42 54 45 0d 0a 09 65 78 74 09 4e 58 54 46 44 42 0d 0a 09 65 78 74 09 45 ┆ ext CHKBTE ext NXTFDB ext E┆
0x071820…071840 46 4f 46 4c 47 0d 0a 09 65 78 74 09 45 4e 44 46 52 4d 0d 0a 09 65 78 74 09 42 43 50 43 54 52 0d ┆FOFLG ext ENDFRM ext BCPCTR ┆
0x071840…071860 0a 09 65 78 74 09 44 45 4d 4f 44 45 0d 0a 09 65 78 74 09 55 42 46 41 44 44 0d 0a 09 65 78 74 09 ┆ ext DEMODE ext UBFADD ext ┆
0x071860…071880 49 4e 42 55 46 46 0d 0a 09 65 78 74 09 46 4d 54 49 4e 54 0d 0a 09 65 78 74 09 44 45 4c 52 45 43 ┆INBUFF ext FMTINT ext DELREC┆
0x071880…0718a0 0d 0a 09 65 78 74 09 43 42 57 46 4c 47 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 ┆ ext CBWFLG ext FTMFLG ext┆
0x0718a0…0718c0 09 44 55 50 46 4c 47 0d 0a 09 65 78 74 09 46 52 4d 43 48 4e 0d 0a 09 65 78 74 09 45 45 52 43 54 ┆ DUPFLG ext FRMCHN ext EERCT┆
0x0718c0…0718e0 52 0d 0a 09 65 78 74 09 56 45 52 43 54 52 0d 0a 09 65 78 74 09 4e 4b 45 43 54 52 0d 0a 09 65 78 ┆R ext VERCTR ext NKECTR ex┆
0x0718e0…071900 74 09 4e 4b 56 43 54 52 0d 0a 09 65 78 74 09 46 4e 43 46 4c 47 0d 0a 09 65 78 74 09 56 52 54 43 ┆t NKVCTR ext FNCFLG ext VRTC┆
0x071900…071920 (30, 1, 5) 3b 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 20 61 6c 6c 20 74 68 65 20 50 55 42 4c 49 ┆;the following are all the PUBLI┆
0x071920…071940 43 20 61 6e 64 20 45 58 54 45 52 4e 41 4c 20 73 74 61 74 65 6d 65 6e 74 73 20 74 6f 20 74 68 65 ┆C and EXTERNAL statements to the┆
0x071940…071960 20 0d 0a 3b 45 45 4e 54 52 59 2e 4d 41 43 20 6d 6f 64 75 6c 65 2e 0d 0a 3b 0d 0a 3b 0d 0a 3b 0d ┆ ;EENTRY.MAC module. ; ; ; ┆
0x071960…071980 0a 09 50 55 42 4c 49 43 09 45 4e 54 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 4e 54 52 59 0d 0a ┆ PUBLIC ENTFLG PUBLIC ENTRY ┆
0x071980…0719a0 09 50 55 42 4c 49 43 09 46 4d 54 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 54 42 4d 53 4b 0d 0a ┆ PUBLIC FMTCHK PUBLIC STBMSK ┆
0x0719a0…0719c0 09 50 55 42 4c 49 43 09 43 4c 52 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 43 4c 42 4d 53 4b 0d 0a ┆ PUBLIC CLRFLG PUBLIC CLBMSK ┆
0x0719c0…0719e0 09 50 55 42 4c 49 43 09 43 4c 52 4d 53 4b 0d 0a 09 50 55 42 4c 49 43 09 44 55 50 42 46 46 0d 0a ┆ PUBLIC CLRMSK PUBLIC DUPBFF ┆
0x0719e0…071a00 09 50 55 42 4c 49 43 09 55 50 44 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 4f 46 4c 44 0d 0a 09 ┆ PUBLIC UPDFLG PUBLIC EOFLD ┆
0x071a00…071a20 50 55 42 4c 49 43 09 4b 45 59 45 52 33 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 31 0d 0a 09 ┆PUBLIC KEYER3 PUBLIC SVEBF1 ┆
0x071a20…071a40 50 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 46 0d 0a 09 ┆PUBLIC REGCHK PUBLIC SVEBFF ┆
0x071a40…071a60 50 55 42 4c 49 43 09 54 53 54 46 44 42 0d 0a 09 50 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 ┆PUBLIC TSTFDB PUBLIC REGCHK ┆
0x071a60…071a80 50 55 42 4c 49 43 09 53 56 45 42 46 32 0d 0a 09 50 55 42 4c 49 43 09 43 41 56 46 4c 47 0d 0a 09 ┆PUBLIC SVEBF2 PUBLIC CAVFLG ┆
0x071a80…071aa0 50 55 42 4c 49 43 09 55 50 44 4d 31 35 0d 0a 09 50 55 42 4c 49 43 09 56 43 52 46 4c 47 0d 0a 09 ┆PUBLIC UPDM15 PUBLIC VCRFLG ┆
0x071aa0…071ac0 50 55 42 4c 49 43 09 4d 49 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 46 54 46 4c 47 0d 0a 09 ┆PUBLIC MINFLG PUBLIC EFTFLG ┆
0x071ac0…071ae0 50 55 42 4c 49 43 09 4b 45 59 45 52 37 0d 0a 09 50 55 42 4c 49 43 09 43 42 57 44 34 0d 0a 09 50 ┆PUBLIC KEYER7 PUBLIC CBWD4 P┆
0x071ae0…071b00 55 42 4c 49 43 09 52 53 54 42 46 46 0d 0a 09 50 55 42 4c 49 43 09 4e 58 54 4c 50 45 0d 0a 09 50 ┆UBLIC RSTBFF PUBLIC NXTLPE P┆
0x071b00…071b20 (30, 1, 6) 0d 0a 09 65 78 74 09 53 47 4e 53 45 54 0d 0a 09 65 78 74 09 5a 4e 53 47 4e 0d 0a 09 65 78 74 09 ┆ ext SGNSET ext ZNSGN ext ┆
0x071b20…071b40 44 53 50 52 45 47 0d 0a 09 65 78 74 09 46 43 4f 52 52 0d 0a 09 65 78 74 09 56 43 52 50 53 53 0d ┆DSPREG ext FCORR ext VCRPSS ┆
0x071b40…071b60 0a 09 65 78 74 09 50 46 32 46 4c 47 0d 0a 09 65 78 74 09 44 53 50 49 4e 46 0d 0a 09 65 78 74 09 ┆ ext PF2FLG ext DSPINF ext ┆
0x071b60…071b80 4b 45 59 46 4c 47 0d 0a 09 65 78 74 09 53 4f 4b 42 42 41 0d 0a 09 65 78 74 09 41 54 54 42 59 54 ┆KEYFLG ext SOKBBA ext ATTBYT┆
0x071b80…071ba0 0d 0a 09 65 78 74 09 41 54 54 53 56 45 0d 0a 09 65 78 74 09 42 4c 49 4e 49 54 0d 0a 09 65 78 74 ┆ ext ATTSVE ext BLINIT ext┆
0x071ba0…071bc0 09 42 4c 4d 56 45 0d 0a 09 65 78 74 09 41 54 54 43 48 4b 0d 0a 09 65 78 74 09 63 6f 0d 0a 09 65 ┆ BLMVE ext ATTCHK ext co e┆
0x071bc0…071be0 78 74 09 43 4f 4e 53 54 0d 0a 09 65 78 74 09 53 47 4e 43 48 4b 0d 0a 09 65 78 74 09 53 47 4e 44 ┆xt CONST ext SGNCHK ext SGND┆
0x071be0…071c00 47 54 0d 0a 09 65 78 74 09 53 52 4e 4f 53 54 0d 0a 09 65 78 74 09 4f 42 46 4e 4f 0d 0a 3b 0d 0a ┆GT ext SRNOST ext OBFNO ; ┆
0x071c00…071c20 3b 65 6e 64 20 6f 66 20 66 69 6c 65 2e 0d 0a 3b 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆;end of file. ; ┆
0x071c20…071c40 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x071c80…071ca0 43 48 4b 0d 0a 09 65 78 74 09 52 45 47 50 52 43 0d 0a 09 65 78 74 09 52 45 47 46 4c 47 0d 0a 09 ┆CHK ext REGPRC ext REGFLG ┆
0x071ca0…071cc0 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 51 46 4c 44 0d 0a 09 65 78 74 09 54 46 4c 44 ┆ext INCCRS ext QFLD ext TFLD┆
0x071cc0…071ce0 0d 0a 09 65 78 74 09 4d 4c 4e 46 4c 47 0d 0a 09 65 78 74 09 41 55 54 49 4e 43 0d 0a 09 65 78 74 ┆ ext MLNFLG ext AUTINC ext┆
0x071ce0…071d00 09 44 53 50 43 44 0d 0a 09 65 78 74 09 43 48 52 43 4e 56 0d 0a 09 65 78 74 09 53 47 4e 43 48 4b ┆ DSPCD ext CHRCNV ext SGNCHK┆
0x071d00…071d20 (30, 1, 7) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x071d20…071d40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 ┆****************** ;* ┆
0x071d40…071d60 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 ┆ ┆
0x071d60…071d80 20 20 20 20 20 2a 0d 0a 3b 2a 09 4d 4f 44 55 4c 45 20 3a 20 45 50 55 42 2f 45 58 54 2e 4d 41 43 ┆ * ;* MODULE : EPUB/EXT.MAC┆
0x071d80…071da0 20 20 20 20 20 20 28 52 43 2d 37 30 30 29 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 44 41 54 45 20 20 ┆ (RC-700) * ;* DATE ┆
0x071da0…071dc0 20 3a 20 30 31 2e 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : 01.02.82 ┆
0x071dc0…071de0 20 20 20 2a 0d 0a 3b 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 6d 62 48 20 2c 20 36 34 37 ┆ * ;* BY : ASE GmbH , 647┆
0x071de0…071e00 32 20 41 6c 74 65 6e 73 74 61 64 74 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 56 45 52 53 49 4f 4e 3a ┆2 Altenstadt * ;* VERSION:┆
0x071e00…071e20 20 31 2e 39 30 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 ┆ 1.90 ┆
0x071e20…071e40 20 2a 0d 0a 3b 2a 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 ┆ * ;* ┆
0x071e40…071e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a ┆ * ;*******┆
0x071e60…071e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x071e80…071ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 3b 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 ┆********** ; ;the following ar┆
0x071ea0…071ec0 65 20 61 6c 6c 20 74 68 65 20 50 55 42 4c 49 43 20 61 6e 64 20 45 58 54 45 52 4e 41 4c 20 73 74 ┆e all the PUBLIC and EXTERNAL st┆
0x071ec0…071ee0 61 74 65 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 0d 0a 3b 45 45 4e 54 52 59 2e 4d 41 43 20 6d 6f ┆atements to the ;EENTRY.MAC mo┆
0x071ee0…071f00 64 75 6c 65 2e 0d 0a 3b 0d 0a 3b 0d 0a 3b 0d 0a 09 50 55 42 4c 49 43 09 45 4e 54 46 4c 47 0d 0a ┆dule. ; ; ; PUBLIC ENTFLG ┆
0x071f00…071f20 (30, 1, 8) 54 52 0d 0a 09 65 78 74 09 56 43 52 43 54 52 0d 0a 09 65 78 74 09 46 4d 46 46 4c 47 0d 0a 09 65 ┆TR ext VCRCTR ext FMFFLG e┆
0x071f20…071f40 78 74 09 46 49 4c 43 54 52 0d 0a 09 65 78 74 09 52 45 43 42 57 44 0d 0a 09 65 78 74 09 52 45 43 ┆xt FILCTR ext RECBWD ext REC┆
0x071f40…071f60 41 44 56 0d 0a 09 65 78 74 09 49 4e 53 52 43 44 0d 0a 09 65 78 74 09 45 4f 46 50 52 43 0d 0a 09 ┆ADV ext INSRCD ext EOFPRC ┆
0x071f60…071f80 65 78 74 09 52 41 43 48 4b 0d 0a 09 65 78 74 09 52 45 47 50 52 43 0d 0a 09 65 78 74 09 52 45 47 ┆ext RACHK ext REGPRC ext REG┆
0x071f80…071fa0 46 4c 47 0d 0a 09 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 51 46 4c 44 0d 0a 09 65 78 ┆FLG ext INCCRS ext QFLD ex┆
0x071fa0…071fc0 74 09 54 46 4c 44 0d 0a 09 65 78 74 09 4d 4c 4e 46 4c 47 0d 0a 09 65 78 74 09 41 55 54 49 4e 43 ┆t TFLD ext MLNFLG ext AUTINC┆
0x071fc0…071fe0 0d 0a 09 65 78 74 09 44 53 50 43 44 0d 0a 09 65 78 74 09 43 48 52 43 4e 56 0d 0a 09 65 78 74 09 ┆ ext DSPCD ext CHRCNV ext ┆
0x071fe0…072000 53 47 4e 43 48 4b 0d 0a 09 65 78 74 09 53 47 4e 53 45 54 0d 0a 09 65 78 74 09 5a 4e 53 47 4e 0d ┆SGNCHK ext SGNSET ext ZNSGN ┆
0x072000…072020 0a 09 65 78 74 09 44 53 50 52 45 47 0d 0a 09 65 78 74 09 46 43 4f 52 52 0d 0a 09 65 78 74 09 56 ┆ ext DSPREG ext FCORR ext V┆
0x072020…072040 43 52 50 53 53 0d 0a 09 65 78 74 09 50 46 32 46 4c 47 0d 0a 09 65 78 74 09 43 4f 4e 53 54 0d 0a ┆CRPSS ext PF2FLG ext CONST ┆
0x072040…072060 09 65 78 74 09 63 6f 0d 0a 3b 0d 0a 3b 65 6e 64 20 6f 66 20 66 69 6c 65 2e 0d 0a 3b 0d 0a 1a 1a ┆ ext co ; ;end of file. ; ┆
0x072060…072080 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x072080…0720a0 0d 0a 09 65 78 74 09 43 42 57 46 4c 47 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 ┆ ext CBWFLG ext FTMFLG ext┆
0x0720a0…0720c0 09 44 55 50 46 4c 47 0d 0a 09 65 78 74 09 46 52 4d 43 48 4e 0d 0a 09 65 78 74 09 45 45 52 43 54 ┆ DUPFLG ext FRMCHN ext EERCT┆
0x0720c0…0720e0 52 0d 0a 09 65 78 74 09 56 45 52 43 54 52 0d 0a 09 65 78 74 09 4e 4b 45 43 54 52 0d 0a 09 65 78 ┆R ext VERCTR ext NKECTR ex┆
0x0720e0…072100 74 09 4e 4b 56 43 54 52 0d 0a 09 65 78 74 09 46 4e 43 46 4c 47 0d 0a 09 65 78 74 09 56 52 54 43 ┆t NKVCTR ext FNCFLG ext VRTC┆
0x072100…072120 (30, 1, 9) 55 42 4c 49 43 09 4d 46 4c 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 4b 52 52 41 43 0d 0a 09 50 ┆UBLIC MFLCHK PUBLIC SKRRAC P┆
0x072120…072140 55 42 4c 49 43 09 44 55 50 46 4c 44 0d 0a 09 50 55 42 4c 49 43 09 53 45 54 4d 53 47 09 0d 0a 09 ┆UBLIC DUPFLD PUBLIC SETMSG ┆
0x072140…072160 50 55 42 4c 49 43 09 46 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 4b 45 59 45 52 52 0d 0a 09 50 ┆PUBLIC FNFLG PUBLIC KEYERR P┆
0x072160…072180 55 42 4c 49 43 09 42 52 46 4c 44 0d 0a 09 50 55 42 4c 49 43 09 4b 45 51 46 4c 47 0d 0a 09 50 55 ┆UBLIC BRFLD PUBLIC KEQFLG PU┆
0x072180…0721a0 42 4c 49 43 09 4b 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 44 54 45 46 4c 47 0d 0a 09 50 55 42 ┆BLIC KNFLG PUBLIC DTEFLG PUB┆
0x0721a0…0721c0 4c 49 43 09 46 30 33 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 46 30 34 46 4c 47 0d 0a 09 50 55 42 ┆LIC F03FLG PUBLIC F04FLG PUB┆
0x0721c0…0721e0 4c 49 43 09 54 41 42 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 54 42 46 4e 4f 0d 0a 09 50 55 42 4c ┆LIC TABFLG PUBLIC TBFNO PUBL┆
0x0721e0…072200 49 43 09 54 41 42 31 33 0d 0a 09 50 55 42 4c 49 43 09 54 41 42 0d 0a 09 50 55 42 4c 49 43 09 46 ┆IC TAB13 PUBLIC TAB PUBLIC F┆
0x072200…072220 4c 44 5a 52 4f 0d 0a 09 50 55 42 4c 49 43 09 5a 56 50 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 ┆LDZRO PUBLIC ZVPFLG PUBLIC E┆
0x072220…072240 46 52 43 48 44 0d 0a 09 50 55 42 4c 49 43 09 55 50 44 4d 31 39 0d 0a 09 50 55 42 4c 49 43 09 53 ┆FRCHD PUBLIC UPDM19 PUBLIC S┆
0x072240…072260 4b 49 50 0d 0a 3b 0d 0a 09 65 78 74 09 52 30 46 4c 47 0d 0a 09 65 78 74 09 52 31 46 4c 47 0d 0a ┆KIP ; ext R0FLG ext R1FLG ┆
0x072260…072280 09 65 78 74 09 52 32 46 4c 47 0d 0a 09 65 78 74 09 52 33 46 4c 47 0d 0a 09 65 78 74 09 52 34 46 ┆ ext R2FLG ext R3FLG ext R4F┆
0x072280…0722a0 4c 47 0d 0a 09 65 78 74 09 52 35 46 4c 47 0d 0a 09 65 78 74 09 52 36 46 4c 47 0d 0a 09 65 78 74 ┆LG ext R5FLG ext R6FLG ext┆
0x0722a0…0722c0 09 52 37 46 4c 47 0d 0a 09 65 78 74 09 52 38 46 4c 47 0d 0a 09 65 78 74 09 52 39 46 4c 47 0d 0a ┆ R7FLG ext R8FLG ext R9FLG ┆
0x0722c0…0722e0 09 65 78 74 09 52 31 30 46 4c 47 0d 0a 09 65 78 74 09 52 31 31 46 4c 47 0d 0a 09 65 78 74 09 52 ┆ ext R10FLG ext R11FLG ext R┆
0x0722e0…072300 31 32 46 4c 47 0d 0a 09 65 78 74 09 52 31 33 46 4c 47 0d 0a 09 65 78 74 09 52 31 34 46 4c 47 0d ┆12FLG ext R13FLG ext R14FLG ┆
0x072300…072500 (30, 1, 10) 0xe5[0x200]
0x072500…072520 (30, 1, 11) 09 50 55 42 4c 49 43 09 45 4e 54 52 59 0d 0a 09 50 55 42 4c 49 43 09 46 4d 54 43 48 4b 0d 0a 09 ┆ PUBLIC ENTRY PUBLIC FMTCHK ┆
0x072520…072540 50 55 42 4c 49 43 09 53 54 42 4d 53 4b 0d 0a 09 50 55 42 4c 49 43 09 43 4c 52 46 4c 47 0d 0a 09 ┆PUBLIC STBMSK PUBLIC CLRFLG ┆
0x072540…072560 50 55 42 4c 49 43 09 43 4c 42 4d 53 4b 0d 0a 09 50 55 42 4c 49 43 09 44 55 50 42 46 46 0d 0a 09 ┆PUBLIC CLBMSK PUBLIC DUPBFF ┆
0x072560…072580 50 55 42 4c 49 43 09 55 50 44 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 4f 46 4c 44 0d 0a 09 50 ┆PUBLIC UPDFLG PUBLIC EOFLD P┆
0x072580…0725a0 55 42 4c 49 43 09 4b 45 59 45 52 33 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 31 0d 0a 09 50 ┆UBLIC KEYER3 PUBLIC SVEBF1 P┆
0x0725a0…0725c0 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 46 0d 0a 09 50 ┆UBLIC REGCHK PUBLIC SVEBFF P┆
0x0725c0…0725e0 55 42 4c 49 43 09 54 53 54 46 44 42 0d 0a 09 50 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 50 ┆UBLIC TSTFDB PUBLIC REGCHK P┆
0x0725e0…072600 55 42 4c 49 43 09 53 56 45 42 46 32 0d 0a 09 50 55 42 4c 49 43 09 43 41 56 46 4c 47 0d 0a 09 50 ┆UBLIC SVEBF2 PUBLIC CAVFLG P┆
0x072600…072620 55 42 4c 49 43 09 55 50 44 4d 31 35 0d 0a 09 50 55 42 4c 49 43 09 56 43 52 46 4c 47 0d 0a 09 50 ┆UBLIC UPDM15 PUBLIC VCRFLG P┆
0x072620…072640 55 42 4c 49 43 09 4d 49 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 46 54 46 4c 47 0d 0a 09 50 ┆UBLIC MINFLG PUBLIC EFTFLG P┆
0x072640…072660 55 42 4c 49 43 09 4b 45 59 45 52 37 0d 0a 09 50 55 42 4c 49 43 09 43 42 57 44 34 0d 0a 09 50 55 ┆UBLIC KEYER7 PUBLIC CBWD4 PU┆
0x072660…072680 42 4c 49 43 09 52 53 54 42 46 46 0d 0a 09 50 55 42 4c 49 43 09 4e 58 54 4c 50 45 0d 0a 09 50 55 ┆BLIC RSTBFF PUBLIC NXTLPE PU┆
0x072680…0726a0 42 4c 49 43 09 4d 46 4c 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 4b 52 52 41 43 0d 0a 09 50 55 ┆BLIC MFLCHK PUBLIC SKRRAC PU┆
0x0726a0…0726c0 42 4c 49 43 09 44 55 50 46 4c 44 0d 0a 09 50 55 42 4c 49 43 09 53 45 54 4d 53 47 09 0d 0a 09 50 ┆BLIC DUPFLD PUBLIC SETMSG P┆
0x0726c0…0726e0 55 42 4c 49 43 09 52 41 56 45 52 0d 0a 09 50 55 42 4c 49 43 09 46 4e 46 4c 47 0d 0a 09 50 55 42 ┆UBLIC RAVER PUBLIC FNFLG PUB┆
0x0726e0…072700 4c 49 43 09 4b 45 59 45 52 52 0d 0a 09 50 55 42 4c 49 43 09 42 52 46 4c 44 0d 0a 09 50 55 42 4c ┆LIC KEYERR PUBLIC BRFLD PUBL┆
0x072700…072900 (30, 1, 12) 0xe5[0x200]
0x072900…072920 (30, 1, 13) 0a 09 65 78 74 09 52 31 35 46 4c 47 0d 0a 09 65 78 74 09 52 31 36 46 4c 47 0d 0a 09 65 78 74 09 ┆ ext R15FLG ext R16FLG ext ┆
0x072920…072940 52 31 37 46 4c 47 0d 0a 09 65 78 74 09 52 31 38 46 4c 47 0d 0a 09 65 78 74 09 52 31 39 46 4c 47 ┆R17FLG ext R18FLG ext R19FLG┆
0x072940…072960 0d 0a 09 65 78 74 09 52 32 30 46 4c 47 0d 0a 09 65 78 74 09 52 32 31 46 4c 47 0d 0a 09 65 78 74 ┆ ext R20FLG ext R21FLG ext┆
0x072960…072980 09 52 32 32 46 4c 47 0d 0a 09 65 78 74 09 52 32 33 46 4c 47 0d 0a 09 65 78 74 09 52 32 34 46 4c ┆ R22FLG ext R23FLG ext R24FL┆
0x072980…0729a0 47 0d 0a 09 65 78 74 09 52 32 35 46 4c 47 0d 0a 09 65 78 74 09 4c 46 53 54 42 0d 0a 09 65 78 74 ┆G ext R25FLG ext LFSTB ext┆
0x0729a0…0729c0 09 46 44 42 54 41 42 0d 0a 09 65 78 74 09 55 53 52 41 42 54 0d 0a 09 65 78 74 09 45 4e 54 53 4e ┆ FDBTAB ext USRABT ext ENTSN┆
0x0729c0…0729e0 44 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 09 45 4e 54 48 4d 45 0d 0a 09 65 78 ┆D ext FTMFLG ext ENTHME ex┆
0x0729e0…072a00 74 09 43 46 4c 41 47 0d 0a 09 65 78 74 09 49 4e 54 46 4c 47 0d 0a 09 65 78 74 09 43 4c 44 45 46 ┆t CFLAG ext INTFLG ext CLDEF┆
0x072a00…072a20 0d 0a 09 65 78 74 09 41 55 54 46 4c 47 0d 0a 09 65 78 74 09 46 4c 44 41 44 56 0d 0a 09 65 78 74 ┆ ext AUTFLG ext FLDADV ext┆
0x072a20…072a40 09 46 4c 44 42 57 44 0d 0a 09 65 78 74 09 58 46 4d 54 0d 0a 09 65 78 74 09 56 46 50 43 54 52 0d ┆ FLDBWD ext XFMT ext VFPCTR ┆
0x072a40…072a60 0a 09 65 78 74 09 45 4e 54 43 50 4c 0d 0a 09 65 78 74 09 56 46 43 54 52 0d 0a 09 65 78 74 09 46 ┆ ext ENTCPL ext VFCTR ext F┆
0x072a60…072a80 52 4d 43 50 4c 0d 0a 09 65 78 74 09 49 4c 4c 46 4e 4f 0d 0a 09 65 78 74 09 46 42 46 41 44 44 0d ┆RMCPL ext ILLFNO ext FBFADD ┆
0x072a80…072aa0 0a 09 65 78 74 09 53 4f 46 55 42 41 0d 0a 09 65 78 74 09 43 42 46 41 44 44 0d 0a 09 65 78 74 09 ┆ ext SOFUBA ext CBFADD ext ┆
0x072aa0…072ac0 53 4f 46 43 42 41 0d 0a 09 65 78 74 09 42 46 4e 4f 0d 0a 09 65 78 74 09 46 50 54 54 41 42 0d 0a ┆SOFCBA ext BFNO ext FPTTAB ┆
0x072ac0…072ae0 09 65 78 74 09 53 4f 46 46 42 41 0d 0a 09 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 41 ┆ ext SOFFBA ext INCCRS ext A┆
0x072ae0…072b00 4c 4c 49 4e 43 0d 0a 09 65 78 74 09 44 53 50 4d 53 47 0d 0a 09 65 78 74 09 47 45 4e 46 53 42 0d ┆LLINC ext DSPMSG ext GENFSB ┆
0x072b00…072d00 (30, 1, 14) 0xe5[0x200]
0x072d00…072d20 (30, 1, 15) 49 43 09 44 54 45 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 52 43 31 46 4c 47 0d 0a 09 50 55 42 4c ┆IC DTEFLG PUBLIC RC1FLG PUBL┆
0x072d20…072d40 49 43 09 52 43 32 46 4c 47 0d 0a 3b 0d 0a 09 65 78 74 09 52 30 46 4c 47 0d 0a 09 65 78 74 09 52 ┆IC RC2FLG ; ext R0FLG ext R┆
0x072d40…072d60 31 46 4c 47 0d 0a 09 65 78 74 09 52 32 46 4c 47 0d 0a 09 65 78 74 09 52 33 46 4c 47 0d 0a 09 65 ┆1FLG ext R2FLG ext R3FLG e┆
0x072d60…072d80 78 74 09 52 34 46 4c 47 0d 0a 09 65 78 74 09 52 35 46 4c 47 0d 0a 09 65 78 74 09 52 36 46 4c 47 ┆xt R4FLG ext R5FLG ext R6FLG┆
0x072d80…072da0 0d 0a 09 65 78 74 09 52 37 46 4c 47 0d 0a 09 65 78 74 09 52 38 46 4c 47 0d 0a 09 65 78 74 09 52 ┆ ext R7FLG ext R8FLG ext R┆
0x072da0…072dc0 39 46 4c 47 0d 0a 09 65 78 74 09 52 31 30 46 4c 47 0d 0a 09 65 78 74 09 52 31 31 46 4c 47 0d 0a ┆9FLG ext R10FLG ext R11FLG ┆
0x072dc0…072de0 09 65 78 74 09 52 31 32 46 4c 47 0d 0a 09 65 78 74 09 52 31 33 46 4c 47 0d 0a 09 65 78 74 09 52 ┆ ext R12FLG ext R13FLG ext R┆
0x072de0…072e00 31 34 46 4c 47 0d 0a 09 65 78 74 09 52 31 35 46 4c 47 0d 0a 09 65 78 74 09 52 31 36 46 4c 47 0d ┆14FLG ext R15FLG ext R16FLG ┆
0x072e00…072e20 0a 09 65 78 74 09 52 31 37 46 4c 47 0d 0a 09 65 78 74 09 52 31 38 46 4c 47 0d 0a 09 65 78 74 09 ┆ ext R17FLG ext R18FLG ext ┆
0x072e20…072e40 52 31 39 46 4c 47 0d 0a 09 65 78 74 09 52 32 30 46 4c 47 0d 0a 09 65 78 74 09 52 32 31 46 4c 47 ┆R19FLG ext R20FLG ext R21FLG┆
0x072e40…072e60 0d 0a 09 65 78 74 09 52 32 32 46 4c 47 0d 0a 09 65 78 74 09 52 32 33 46 4c 47 0d 0a 09 65 78 74 ┆ ext R22FLG ext R23FLG ext┆
0x072e60…072e80 09 52 32 34 46 4c 47 0d 0a 09 65 78 74 09 52 32 35 46 4c 47 0d 0a 09 65 78 74 09 4c 46 53 54 42 ┆ R24FLG ext R25FLG ext LFSTB┆
0x072e80…072ea0 0d 0a 09 65 78 74 09 46 44 42 54 41 42 0d 0a 09 65 78 74 09 55 53 52 41 42 54 0d 0a 09 65 78 74 ┆ ext FDBTAB ext USRABT ext┆
0x072ea0…072ec0 09 45 4e 54 53 4e 44 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 09 45 4e 54 48 4d ┆ ENTSND ext FTMFLG ext ENTHM┆
0x072ec0…072ee0 45 0d 0a 09 65 78 74 09 43 46 4c 41 47 0d 0a 09 65 78 74 09 49 4e 54 46 4c 47 0d 0a 09 65 78 74 ┆E ext CFLAG ext INTFLG ext┆
0x072ee0…072f00 09 43 4c 44 45 46 0d 0a 09 65 78 74 09 41 55 54 46 4c 47 0d 0a 09 65 78 74 09 46 4c 44 41 44 56 ┆ CLDEF ext AUTFLG ext FLDADV┆
0x072f00…073100 (31, 0, 1) 0xe5[0x200]
0x073100…073300 (31, 0, 2) DataBlock {»EGENSUB.MAC«}
[…0x2…]
0x073700…073900 (31, 0, 5) 0xe5[0x200]
0x073900…073b00 (31, 0, 6) DataBlock {»EGENSUB.MAC«}
[…0x1a…]
0x076f00…077100 (32, 0, 3) DataBlock {»EEOFPRC.MAC«}
[…0x1…]
0x077300…077500 (32, 0, 5) DataBlock {»EGENSUB.MAC«}
[…0x1…]
0x077700…077900 (32, 0, 7) DataBlock {»EEOFPRC.MAC«}
[…0x1…]
0x077b00…077d00 (32, 0, 9) DataBlock {»EGENSUB.MAC«}
[…0x1…]
0x077e00…077e20 0a 09 72 72 64 09 09 09 3b 0d 0a 09 61 64 64 09 61 2c 33 30 68 09 09 3b 0d 0a 09 6c 64 09 28 69 ┆ rrd ; add a,30h ; ld (i┆
0x077e20…077e40 78 2d 31 29 2c 61 09 3b 0d 0a 09 64 65 63 09 69 78 09 09 3b 0d 0a 09 64 65 63 09 69 78 09 09 3b ┆x-1),a ; dec ix ; dec ix ;┆
0x077e40…077e60 0d 0a 09 69 6e 63 09 68 6c 09 09 3b 0d 0a 09 64 65 63 09 62 09 09 3b 0d 0a 09 6a 70 09 6e 7a 2c ┆ inc hl ; dec b ; jp nz,┆
0x077e60…077e80 42 58 42 43 44 41 09 3b 0d 0a 42 58 42 45 4e 44 3a 09 6c 64 09 61 2c 39 30 68 09 09 3b 0d 0a 09 ┆BXBCDA ; BXBEND: ld a,90h ; ┆
0x077e80…077ea0 6c 64 09 28 53 54 52 35 29 2c 61 09 3b 0d 0a 09 6c 64 09 28 53 54 52 36 29 2c 61 09 3b 0d 0a 09 ┆ld (STR5),a ; ld (STR6),a ; ┆
0x077ea0…077ec0 6c 64 09 61 2c 30 31 68 09 09 3b 0d 0a 09 6c 64 09 28 53 54 52 34 29 2c 61 09 3b 0d 0a 09 6c 64 ┆ld a,01h ; ld (STR4),a ; ld┆
0x077ec0…077ee0 09 61 2c 30 39 68 09 09 3b 0d 0a 09 6c 64 09 28 53 54 52 33 29 2c 61 09 3b 0d 0a 09 6c 64 09 61 ┆ a,09h ; ld (STR3),a ; ld a┆
0x077ee0…077f00 2c 30 30 68 09 09 3b 0d 0a 09 6c 64 09 62 63 2c 53 54 52 32 09 09 3b 0d 0a 09 6c 64 09 68 6c 2c ┆,00h ; ld bc,STR2 ; ld hl,┆
0x077f00…078100 (32, 0, 11) DataBlock {»EEOFPRC.MAC«}
[…0x1…]
0x078300…078500 (32, 0, 13) DataBlock {»EGENSUB.MAC«}
0x078500…078700 (32, 0, 14) 0xe5[0x200]
0x078700…078900 (32, 0, 15) DataBlock {»EEOFPRC.MAC«}
[…0x31…]
0x07ea00…07ea20 00 50 50 55 42 2f 45 58 54 4d 41 43 00 00 00 13 d8 00 d9 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PPUB/EXTMAC ┆
0x07ea20…07ea40 00 45 47 45 4e 53 55 42 20 4d 41 43 00 00 00 80 da 00 db 00 dc 00 dd 00 de 00 df 00 e0 00 e1 00 ┆ EGENSUB MAC ┆
0x07ea40…07ea60 00 45 47 45 4e 53 55 42 20 4d 41 43 01 00 00 0a e2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EGENSUB MAC ┆
0x07ea60…07ea80 00 45 45 4f 46 50 52 43 20 24 24 24 00 00 00 80 e3 00 e4 00 e5 00 e6 00 e7 00 e8 00 e9 00 ea 00 ┆ EEOFPRC $$$ ┆
0x07ea80…07eaa0 00 45 45 4f 46 50 52 43 20 24 24 24 01 00 00 80 eb 00 ec 00 ed 00 ee 00 ef 00 f0 00 f1 00 f2 00 ┆ EEOFPRC $$$ ┆
0x07eaa0…07eac0 00 45 45 4f 46 50 52 43 20 24 24 24 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EEOFPRC $$$ ┆
0x07eac0…07eae0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x1…]
0x07eb00…07ed00 (34, 0, 5) DataBlock {»EEOFPRC.MAC«}
[…0x2…]
0x07f100…07f300 (34, 0, 8) 0xe5[0x200]
0x07f300…07f500 (34, 0, 9) DataBlock {»EEOFPRC.MAC«}
[…0x2…]
0x07f900…07fb00 (34, 0, 12) 0xe5[0x200]
0x07fb00…07fd00 (34, 0, 13) DataBlock {»EEOFPRC.MAC«}
[…0x2…]
0x080100…080300 (34, 1, 1) 0xe5[0x200]
[…0x4fa…]