/ Oakland CPM Archive / oakcpm.iso / cpm / apple / applutil.lbr

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 02 00 |.       |    ....|
|00000010| 70 45 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |pE......|........|
|00000020| 00 42 4f 4f 54 20 20 20 | 20 43 4f 4d 02 00 04 00 |.BOOT   | COM....|
|00000030| 03 07 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 43 50 44 4f 53 20 20 | 20 42 41 53 06 00 23 00 |.CPDOS  | BAS..#.|
|00000050| 8a 75 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.u......|........|
|00000060| 00 43 50 44 4f 53 20 20 | 20 44 4f 43 29 00 17 00 |.CPDOS  | DOC)...|
|00000070| 8f 6b 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.k......|........|
|00000080| 00 43 50 4d 58 46 45 52 | 20 43 4f 4d 40 00 12 00 |.CPMXFER| COM@...|
|00000090| 18 d1 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 52 45 41 44 20 20 20 | 20 4d 45 20 52 00 04 00 |.READ   | ME R...|
|000000b0| 9e 60 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.`......|........|
|000000c0| ff 02 01 ff ff 00 00 ff | ff 00 00 ff ff 10 00 ff |........|........|
|000000d0| ff 00 00 df ff 00 00 ff | ff 00 00 ff ff 00 02 ff |........|........|
|000000e0| ff 10 08 ef ff 00 00 ff | ff 00 00 ff ff 00 00 ff |........|........|
|000000f0| ff 00 08 ff ff 00 00 ff | ff 00 00 ff ff 00 00 bf |........|........|
|00000100| 11 2f 01 0e 09 cd 05 00 | 3e 77 32 0b 00 0e 01 cd |./......|>w2.....|
|00000110| 05 00 21 60 01 11 00 50 | 01 00 01 ed b0 21 00 60 |..!`...P|.....!.`|
|00000120| fe 33 28 02 26 c6 22 d0 | f3 2a de f3 c3 0b 00 0d |.3(.&.".|.*......|
|00000130| 0a 0a 0a 3c 33 3e 3d 31 | 33 20 73 65 63 74 6f 72 |...<3>=1|3 sector|
|00000140| 2c 20 3c 43 52 3e 3d 31 | 36 20 73 65 63 74 6f 72 |, <CR>=1|6 sector|
|00000150| 3a 20 24 a9 a9 8d 1f 03 | a9 60 8d 20 03 4c 01 03 |: $.....|.`. .L..|
|00000160| a2 20 a0 00 a9 03 85 3c | 18 88 98 24 3c f0 f5 26 |. .....<|...$<..&|
|00000170| 3c 90 f8 c0 d5 f0 ed ca | 8a 99 00 08 d0 e6 20 58 |<.......|...... X|
|00000180| ff ba a9 60 48 a9 0c 0a | 0a 0a 85 2b aa a9 d0 48 |...`H...|...+...H|
|00000190| bd 8e c0 bd 8c c0 bd 8a | c0 bd 89 c0 a0 50 bd 80 |........|.....P..|
|000001a0| c0 98 29 03 0a 05 2b aa | bd 81 c0 a9 56 20 a8 fc |..)...+.|....V ..|
|000001b0| 88 10 eb a9 03 85 27 a9 | 00 85 26 85 3d 18 08 bd |......'.|..&.=...|
|000001c0| 8c c0 10 fb 49 d5 d0 f7 | bd 8c c0 10 fb c9 aa d0 |....I...|........|
|000001d0| f3 ea bd 8c c0 10 fb c9 | b5 f0 09 28 90 df 49 ad |........|...(..I.|
|000001e0| f0 1f d0 d9 a0 03 84 2a | bd 8c c0 10 fb 2a 85 3c |.......*|.....*.<|
|000001f0| bd 8c c0 10 fb 25 3c 88 | d0 ee 28 c5 3d d0 be b0 |.....%<.|..(.=...|
|00000200| bd a0 9a 84 3c bc 8c c0 | 10 fb 59 00 08 a4 3c 88 |....<...|..Y...<.|
|00000210| 99 00 08 d0 ee 84 3c bc | 8c c0 10 fb 59 00 08 a4 |......<.|....Y...|
|00000220| 3c 91 26 c8 d0 ef bc 8c | c0 10 fb 59 00 08 d0 8d |<.&.....|...Y....|
|00000230| 60 a8 a2 00 b9 00 08 4a | 3e cc 03 4a 3e 99 03 85 |`......J|>..J>...|
|00000240| 3c b1 26 0a 0a 0a 05 3c | 91 26 c8 e8 e0 33 d0 e4 |<.&....<|.&...3..|
|00000250| c6 2a d0 de cc 00 03 d0 | 03 4c 53 11 4c 2d ff 00 |.*......|.LS.L-..|
|00000260| 0b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 31 30 20 20 48 49 4d 45 | 4d 3a 20 38 31 39 30 0d |10  HIME|M: 8190.|
|00000310| 0a 32 30 20 20 52 45 4d | 20 20 2a 2a 2a 2a 2a 2a |.20  REM|  ******|
|00000320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000330| 2a 2a 2a 2a 2a 2a 0d 0a | 33 30 20 20 52 45 4d 20 |******..|30  REM |
|00000340| 20 2a 20 43 50 2f 4d 20 | 2d 3e 20 41 50 50 4c 45 | * CP/M |-> APPLE|
|00000350| 20 44 4f 53 20 43 4f 4e | 56 2e 20 20 2a 0d 0a 34 | DOS CON|V.  *..4|
|00000360| 30 20 20 52 45 4d 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a |0  REM  |********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 0d 0a 35 30 | 20 20 52 45 4d 20 20 2a |****..50|  REM  *|
|00000390| 20 20 20 42 59 20 20 20 | 20 20 20 20 20 20 20 20 |   BY   |        |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 2a 20 20 20 20 0d |        |  *    .|
|000003b0| 0a 36 30 20 20 52 45 4d | 20 20 2a 20 20 20 20 20 |.60  REM|  *     |
|000003c0| 20 20 41 4c 45 58 20 4d | 41 4c 55 54 41 20 20 20 |  ALEX M|ALUTA   |
|000003d0| 20 20 20 20 20 2a 20 20 | 20 20 0d 0a 37 30 20 20 |     *  |  ..70  |
|000003e0| 52 45 4d 20 20 2a 20 31 | 32 2d 33 31 2d 38 31 20 |REM  * 1|2-31-81 |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000400| 2a 0d 0a 38 30 20 20 52 | 45 4d 20 20 2a 2a 2a 2a |*..80  R|EM  ****|
|00000410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000420| 2a 2a 2a 2a 2a 2a 2a 2a | 20 20 20 20 0d 0a 39 30 |********|    ..90|
|00000430| 20 20 52 45 4d 20 20 2a | 20 44 4f 43 55 4d 45 4e |  REM  *| DOCUMEN|
|00000440| 54 45 44 20 49 4e 20 43 | 50 44 4f 53 2e 44 4f 43 |TED IN C|PDOS.DOC|
|00000450| 20 20 2a 0d 0a 31 30 30 | 20 20 52 45 4d 20 2a 2a |  *..100|  REM **|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 20 20 20 20 0d |********|**     .|
|00000480| 0a 31 31 30 20 20 52 45 | 4d 20 2a 20 4e 45 45 44 |.110  RE|M * NEED|
|00000490| 53 3a 20 34 38 4b 2c 41 | 50 50 4c 45 53 4f 46 54 |S: 48K,A|PPLESOFT|
|000004a0| 20 20 20 20 20 2a 0d 0a | 31 32 30 20 20 52 45 4d |     *..|120  REM|
|000004b0| 20 2a 20 20 20 20 20 20 | 20 20 32 20 44 52 49 56 | *      |  2 DRIV|
|000004c0| 45 53 2c 43 50 2f 4d 20 | 20 20 20 20 2a 20 0d 0a |ES,CP/M |    * ..|
|000004d0| 31 33 30 20 20 52 45 4d | 20 2a 2a 2a 2a 2a 2a 2a |130  REM| *******|
|000004e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004f0| 2a 2a 2a 2a 2a 0d 0a 31 | 34 30 20 20 47 4f 54 4f |*****..1|40  GOTO|
|00000500| 20 38 33 30 0d 0a 31 35 | 30 20 20 52 45 4d 20 20 | 830..15|0  REM  |
|00000510| 46 4f 55 4e 44 20 41 43 | 54 49 56 45 20 4d 41 54 |FOUND AC|TIVE MAT|
|00000520| 43 48 0d 0a 31 36 30 20 | 20 52 45 4d 20 20 47 45 |CH..160 | REM  GE|
|00000530| 54 20 44 41 54 41 0d 0a | 31 37 30 20 45 58 20 3d |T DATA..|170 EX =|
|00000540| 20 20 50 45 45 4b 20 28 | 49 20 2b 20 31 32 29 3a |  PEEK (|I + 12):|
|00000550| 53 45 20 3d 20 53 45 20 | 2b 20 20 50 45 45 4b 20 |SE = SE |+  PEEK |
|00000560| 28 49 20 2b 20 31 35 29 | 0d 0a 31 38 30 20 20 46 |(I + 15)|..180  F|
|00000570| 4f 52 20 5a 5a 20 3d 20 | 30 20 54 4f 20 31 35 0d |OR ZZ = |0 TO 15.|
|00000580| 0a 31 39 30 20 53 20 3d | 20 45 58 20 2a 20 31 36 |.190 S =| EX * 16|
|00000590| 20 2b 20 5a 5a 3a 20 49 | 46 20 53 20 3e 20 53 47 | + ZZ: I|F S > SG|
|000005a0| 20 54 48 45 4e 20 53 47 | 20 3d 20 53 0d 0a 32 30 | THEN SG| = S..20|
|000005b0| 30 20 53 28 53 29 20 3d | 20 20 50 45 45 4b 20 28 |0 S(S) =|  PEEK (|
|000005c0| 49 20 2b 20 31 36 20 2b | 20 5a 5a 29 0d 0a 32 31 |I + 16 +| ZZ)..21|
|000005d0| 30 20 20 4e 45 58 54 20 | 3a 20 52 45 54 55 52 4e |0  NEXT |: RETURN|
|000005e0| 20 0d 0a 32 32 30 20 20 | 52 45 4d 20 20 3d 3d 3d | ..220  |REM  ===|
|000005f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000600| 3d 3d 3d 3d 20 0d 0a 32 | 33 30 20 20 52 45 4d 20 |==== ..2|30  REM |
|00000610| 47 45 54 20 4e 45 57 20 | 53 45 43 54 4f 52 2f 54 |GET NEW |SECTOR/T|
|00000620| 52 41 43 4b 20 20 20 20 | 0d 0a 32 34 30 20 20 52 |RACK    |..240  R|
|00000630| 45 4d 20 20 50 4f 49 4e | 54 45 44 20 42 59 20 47 |EM  POIN|TED BY G|
|00000640| 52 4f 55 50 20 49 4e 20 | 53 28 49 29 0d 0a 32 35 |ROUP IN |S(I)..25|
|00000650| 30 20 54 52 20 3d 20 20 | 49 4e 54 20 28 53 28 49 |0 TR =  |INT (S(I|
|00000660| 29 20 2f 20 34 29 20 2b | 20 33 0d 0a 32 36 30 20 |) / 4) +| 3..260 |
|00000670| 4f 20 3d 20 28 53 28 49 | 29 20 2f 20 34 20 2d 20 |O = (S(I|) / 4 - |
|00000680| 20 49 4e 54 20 28 53 28 | 49 29 20 2f 20 34 29 29 | INT (S(|I) / 4))|
|00000690| 20 2a 20 34 0d 0a 32 37 | 30 20 58 20 3d 20 4f 20 | * 4..27|0 X = O |
|000006a0| 2a 20 34 20 2b 20 4e 0d | 0a 32 38 30 20 20 44 41 |* 4 + N.|.280  DA|
|000006b0| 54 41 20 20 30 2c 36 2c | 31 32 2c 33 2c 39 2c 31 |TA  0,6,|12,3,9,1|
|000006c0| 35 2c 31 34 2c 35 2c 31 | 31 2c 32 2c 38 2c 37 2c |5,14,5,1|1,2,8,7,|
|000006d0| 31 33 2c 34 2c 31 30 2c | 31 0d 0a 32 39 30 20 20 |13,4,10,|1..290  |
|000006e0| 52 45 53 54 4f 52 45 20 | 0d 0a 33 30 30 20 20 46 |RESTORE |..300  F|
|000006f0| 4f 52 20 49 49 20 3d 20 | 30 20 54 4f 20 58 3a 20 |OR II = |0 TO X: |
|00000700| 52 45 41 44 20 53 43 3a | 20 4e 45 58 54 20 3a 20 |READ SC:| NEXT : |
|00000710| 52 45 54 55 52 4e 20 0d | 0a 33 31 30 20 20 52 45 |RETURN .|.310  RE|
|00000720| 4d 20 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |M  =====|========|
|00000730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 20 0d 0a 33 32 30 |========|== ..320|
|00000740| 20 20 52 45 4d 20 20 43 | 41 4c 4c 20 52 57 54 53 |  REM  C|ALL RWTS|
|00000750| 20 53 55 42 52 4f 55 54 | 49 4e 45 20 20 20 0d 0a | SUBROUT|INE   ..|
|00000760| 33 33 30 20 20 50 4f 4b | 45 20 53 53 20 2b 20 32 |330  POK|E SS + 2|
|00000770| 2c 30 0d 0a 33 34 30 20 | 20 50 4f 4b 45 20 53 53 |,0..340 | POKE SS|
|00000780| 2c 53 4c 3a 20 50 4f 4b | 45 20 53 53 20 2b 20 31 |,SL: POK|E SS + 1|
|00000790| 2c 44 52 3a 20 50 4f 4b | 45 20 53 53 20 2b 20 33 |,DR: POK|E SS + 3|
|000007a0| 2c 54 52 3a 20 50 4f 4b | 45 20 53 53 20 2b 20 34 |,TR: POK|E SS + 4|
|000007b0| 2c 53 43 3a 20 50 4f 4b | 45 20 53 53 20 2b 20 38 |,SC: POK|E SS + 8|
|000007c0| 2c 42 48 3a 20 50 4f 4b | 45 20 53 53 20 2b 20 37 |,BH: POK|E SS + 7|
|000007d0| 2c 42 4c 3a 20 50 4f 4b | 45 20 53 53 20 2b 20 31 |,BL: POK|E SS + 1|
|000007e0| 31 2c 43 4d 3a 20 43 41 | 4c 4c 20 52 57 54 53 3a |1,CM: CA|LL RWTS:|
|000007f0| 20 52 45 54 55 52 4e 20 | 0d 0a 33 35 30 20 20 52 | RETURN |..350  R|
|00000800| 45 4d 20 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |EM  ====|========|
|00000810| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0a 33 36 30 |========|===..360|
|00000820| 20 20 52 45 4d 20 20 4c | 4f 41 44 20 44 49 52 45 |  REM  L|OAD DIRE|
|00000830| 43 54 4f 52 59 20 46 52 | 4f 4d 20 43 50 2f 4d 20 |CTORY FR|OM CP/M |
|00000840| 44 49 53 4b 0d 0a 33 37 | 30 20 42 31 20 3d 20 42 |DISK..37|0 B1 = B|
|00000850| 20 2d 20 32 35 36 3a 54 | 52 20 3d 20 33 0d 0a 33 | - 256:T|R = 3..3|
|00000860| 38 30 20 20 47 4f 54 4f | 20 34 30 30 0d 0a 33 39 |80  GOTO| 400..39|
|00000870| 30 20 42 31 20 3d 20 42 | 31 20 2b 20 32 35 36 3a |0 B1 = B|1 + 256:|
|00000880| 42 48 20 3d 20 20 49 4e | 54 20 28 42 31 20 2f 20 |BH =  IN|T (B1 / |
|00000890| 32 35 36 29 3a 42 4c 20 | 3d 20 42 31 20 2d 20 28 |256):BL |= B1 - (|
|000008a0| 42 48 20 2a 20 32 35 36 | 29 3a 20 47 4f 53 55 42 |BH * 256|): GOSUB|
|000008b0| 20 33 32 30 3a 20 52 45 | 54 55 52 4e 20 0d 0a 34 | 320: RE|TURN ..4|
|000008c0| 30 30 20 53 43 20 3d 20 | 30 3a 20 47 4f 53 55 42 |00 SC = |0: GOSUB|
|000008d0| 20 33 39 30 0d 0a 34 31 | 30 20 53 43 20 3d 20 36 | 390..41|0 SC = 6|
|000008e0| 3a 20 47 4f 53 55 42 20 | 33 39 30 0d 0a 34 32 30 |: GOSUB |390..420|
|000008f0| 20 53 43 20 3d 20 31 32 | 3a 20 47 4f 53 55 42 20 | SC = 12|: GOSUB |
|00000900| 33 39 30 0d 0a 34 33 30 | 20 53 43 20 3d 20 33 3a |390..430| SC = 3:|
|00000910| 20 47 4f 53 55 42 20 33 | 39 30 0d 0a 34 34 30 20 | GOSUB 3|90..440 |
|00000920| 53 43 20 3d 20 39 3a 20 | 47 4f 53 55 42 20 33 39 |SC = 9: |GOSUB 39|
|00000930| 30 0d 0a 34 35 30 20 53 | 43 20 3d 20 31 35 3a 20 |0..450 S|C = 15: |
|00000940| 47 4f 53 55 42 20 33 39 | 30 0d 0a 34 36 30 20 53 |GOSUB 39|0..460 S|
|00000950| 43 20 3d 20 31 34 3a 20 | 47 4f 53 55 42 20 33 39 |C = 14: |GOSUB 39|
|00000960| 30 0d 0a 34 37 30 20 53 | 43 20 3d 20 35 3a 20 47 |0..470 S|C = 5: G|
|00000970| 4f 53 55 42 20 33 39 30 | 0d 0a 34 38 30 20 20 52 |OSUB 390|..480  R|
|00000980| 45 4d 20 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |EM  ====|========|
|00000990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 20 20 20 0d 0a |========|===   ..|
|000009a0| 34 39 30 20 20 52 45 4d | 20 20 53 45 41 52 43 48 |490  REM|  SEARCH|
|000009b0| 20 46 4f 52 20 46 49 4c | 45 4e 41 4d 45 0d 0a 35 | FOR FIL|ENAME..5|
|000009c0| 30 30 20 43 20 3d 20 30 | 0d 0a 35 31 30 20 20 46 |00 C = 0|..510  F|
|000009d0| 4f 52 20 49 20 3d 20 42 | 20 54 4f 20 42 20 2b 20 |OR I = B| TO B + |
|000009e0| 28 32 35 36 20 2a 20 38 | 29 20 53 54 45 50 20 33 |(256 * 8|) STEP 3|
|000009f0| 32 0d 0a 35 32 30 20 20 | 49 46 20 20 50 45 45 4b |2..520  |IF  PEEK|
|00000a00| 20 28 49 29 20 3c 20 20 | 3e 20 30 20 54 48 45 4e | (I) <  |> 0 THEN|
|00000a10| 20 35 38 30 3a 20 52 45 | 4d 20 20 46 49 4c 45 20 | 580: RE|M  FILE |
|00000a20| 49 4e 41 43 54 49 56 45 | 0d 0a 35 33 30 20 43 53 |INACTIVE|..530 CS|
|00000a30| 24 20 3d 20 22 22 3a 43 | 46 24 20 3d 20 22 22 0d |$ = "":C|F$ = "".|
|00000a40| 0a 35 34 30 20 20 46 4f | 52 20 4a 20 3d 20 31 20 |.540  FO|R J = 1 |
|00000a50| 54 4f 20 20 4c 45 4e 20 | 28 46 24 29 3a 43 46 24 |TO  LEN |(F$):CF$|
|00000a60| 20 3d 20 43 46 24 20 2b | 20 20 43 48 52 24 20 28 | = CF$ +|  CHR$ (|
|00000a70| 20 50 45 45 4b 20 28 49 | 20 2b 20 4a 29 29 3a 20 | PEEK (I| + J)): |
|00000a80| 4e 45 58 54 20 0d 0a 35 | 35 30 20 20 46 4f 52 20 |NEXT ..5|50  FOR |
|00000a90| 4a 20 3d 20 31 20 54 4f | 20 20 4c 45 4e 20 28 53 |J = 1 TO|  LEN (S|
|00000aa0| 24 29 3a 43 53 24 20 3d | 20 43 53 24 20 2b 20 20 |$):CS$ =| CS$ +  |
|00000ab0| 43 48 52 24 20 28 20 50 | 45 45 4b 20 28 49 20 2b |CHR$ ( P|EEK (I +|
|00000ac0| 20 4a 20 2b 20 38 29 29 | 3a 20 4e 45 58 54 20 3a | J + 8))|: NEXT :|
|00000ad0| 20 52 45 4d 20 20 49 53 | 20 39 20 42 55 54 20 4a | REM  IS| 9 BUT J|
|00000ae0| 20 49 53 20 31 20 58 54 | 52 41 0d 0a 35 36 30 20 | IS 1 XT|RA..560 |
|00000af0| 20 50 52 49 4e 54 20 43 | 46 24 22 2e 22 43 53 24 | PRINT C|F$"."CS$|
|00000b00| 0d 0a 35 37 30 20 20 49 | 46 20 43 46 24 20 3d 20 |..570  I|F CF$ = |
|00000b10| 46 24 20 41 4e 44 20 43 | 53 24 20 3d 20 53 24 20 |F$ AND C|S$ = S$ |
|00000b20| 54 48 45 4e 20 43 20 3d | 20 31 3a 20 47 4f 53 55 |THEN C =| 1: GOSU|
|00000b30| 42 20 31 35 30 0d 0a 35 | 38 30 20 20 4e 45 58 54 |B 150..5|80  NEXT|
|00000b40| 20 0d 0a 35 39 30 20 20 | 49 46 20 43 20 3d 20 30 | ..590  |IF C = 0|
|00000b50| 20 54 48 45 4e 20 20 50 | 52 49 4e 54 20 22 4e 4f | THEN  P|RINT "NO|
|00000b60| 20 53 55 43 48 20 46 49 | 4c 45 4e 41 4d 45 20 45 | SUCH FI|LENAME E|
|00000b70| 58 49 53 54 53 22 3a 20 | 45 4e 44 20 0d 0a 36 30 |XISTS": |END ..60|
|00000b80| 30 20 20 52 45 4d 20 20 | 3d 3d 3d 3d 3d 3d 3d 3d |0  REM  |========|
|00000b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00000ba0| 20 20 20 20 0d 0a 36 31 | 30 20 20 52 45 4d 20 20 |    ..61|0  REM  |
|00000bb0| 4c 4f 41 44 20 43 50 2f | 4d 20 46 49 4c 45 20 49 |LOAD CP/|M FILE I|
|00000bc0| 4e 54 4f 20 4d 45 4d 4f | 52 59 0d 0a 36 32 30 20 |NTO MEMO|RY..620 |
|00000bd0| 42 31 20 3d 20 42 0d 0a | 36 33 30 20 20 52 45 4d |B1 = B..|630  REM|
|00000be0| 20 20 43 4c 45 41 52 20 | 4d 45 4d 4f 52 59 20 28 |  CLEAR |MEMORY (|
|00000bf0| 32 30 30 30 3a 30 30 20 | 4e 20 32 30 30 31 3c 32 |2000:00 |N 2001<2|
|00000c00| 30 30 30 2e 39 35 46 45 | 4d 29 0d 0a 36 34 30 20 |000.95FE|M)..640 |
|00000c10| 49 20 3d 20 30 3a 20 52 | 45 4d 20 20 20 43 4c 45 |I = 0: R|EM   CLE|
|00000c20| 41 52 20 54 4f 20 30 20 | 0d 0a 36 35 30 20 20 50 |AR TO 0 |..650  P|
|00000c30| 4f 4b 45 20 38 31 39 32 | 2c 49 3a 20 50 4f 4b 45 |OKE 8192|,I: POKE|
|00000c40| 20 36 37 2c 33 32 3a 20 | 50 4f 4b 45 20 36 36 2c | 67,32: |POKE 66,|
|00000c50| 31 3a 20 50 4f 4b 45 20 | 36 31 2c 33 32 3a 20 50 |1: POKE |61,32: P|
|00000c60| 4f 4b 45 20 36 30 2c 30 | 3a 20 50 4f 4b 45 20 36 |OKE 60,0|: POKE 6|
|00000c70| 33 2c 31 34 39 3a 20 50 | 4f 4b 45 20 36 32 2c 32 |3,149: P|OKE 62,2|
|00000c80| 35 34 3a 20 43 41 4c 4c | 20 52 32 3a 20 52 45 4d |54: CALL| R2: REM|
|00000c90| 20 20 45 58 45 43 55 54 | 45 20 4d 45 4d 4f 52 59 |  EXECUT|E MEMORY|
|00000ca0| 20 4d 4f 56 45 0d 0a 36 | 36 30 20 53 45 20 3d 20 | MOVE..6|60 SE = |
|00000cb0| 53 45 20 2f 20 32 0d 0a | 36 37 30 20 20 46 4f 52 |SE / 2..|670  FOR|
|00000cc0| 20 49 20 3d 20 30 20 54 | 4f 20 53 47 0d 0a 36 38 | I = 0 T|O SG..68|
|00000cd0| 30 20 20 46 4f 52 20 4e | 20 3d 20 30 20 54 4f 20 |0  FOR N| = 0 TO |
|00000ce0| 33 3a 20 49 46 20 53 45 | 20 3c 20 20 3d 20 30 20 |3: IF SE| <  = 0 |
|00000cf0| 54 48 45 4e 20 4e 20 3d | 20 33 3a 49 20 3d 20 53 |THEN N =| 3:I = S|
|00000d00| 47 3a 20 47 4f 54 4f 20 | 37 32 30 0d 0a 36 39 30 |G: GOTO |720..690|
|00000d10| 20 20 47 4f 53 55 42 20 | 32 33 30 3a 42 48 20 3d |  GOSUB |230:BH =|
|00000d20| 20 20 49 4e 54 20 28 42 | 31 20 2f 20 32 35 36 29 |  INT (B|1 / 256)|
|00000d30| 3a 42 4c 20 3d 20 42 31 | 20 2d 20 28 42 48 20 2a |:BL = B1| - (BH *|
|00000d40| 20 32 35 36 29 0d 0a 37 | 30 30 20 20 50 52 49 4e | 256)..7|00  PRIN|
|00000d50| 54 20 54 52 2c 53 43 3a | 53 45 20 3d 20 53 45 20 |T TR,SC:|SE = SE |
|00000d60| 2d 20 31 0d 0a 37 31 30 | 20 20 47 4f 53 55 42 20 |- 1..710|  GOSUB |
|00000d70| 33 32 30 3a 42 31 20 3d | 20 42 31 20 2b 20 32 35 |320:B1 =| B1 + 25|
|00000d80| 36 3a 20 49 46 20 42 31 | 20 3e 20 20 3d 20 4d 4d |6: IF B1| >  = MM|
|00000d90| 20 54 48 45 4e 20 3a 20 | 52 45 4d 20 20 4f 55 54 | THEN : |REM  OUT|
|00000da0| 20 4f 46 20 4d 45 4d 4f | 52 59 0d 0a 37 32 30 20 | OF MEMO|RY..720 |
|00000db0| 20 4e 45 58 54 20 3a 20 | 4e 45 58 54 20 0d 0a 37 | NEXT : |NEXT ..7|
|00000dc0| 33 30 20 20 52 45 4d 20 | 20 3d 3d 3d 3d 3d 3d 3d |30  REM | =======|
|00000dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000de0| 20 0d 0a 37 34 30 20 20 | 52 45 4d 20 20 53 41 56 | ..740  |REM  SAV|
|00000df0| 45 20 4f 4e 20 41 50 50 | 4c 45 20 44 49 53 4b 0d |E ON APP|LE DISK.|
|00000e00| 0a 37 35 30 20 20 52 45 | 4d 20 20 20 53 45 54 20 |.750  RE|M   SET |
|00000e10| 4d 53 42 20 4f 4e 20 44 | 41 54 41 20 48 49 47 48 |MSB ON D|ATA HIGH|
|00000e20| 20 41 4e 44 0d 0a 37 36 | 30 20 20 52 45 4d 20 20 | AND..76|0  REM  |
|00000e30| 43 4f 4e 56 45 52 54 20 | 41 4e 59 20 4c 49 4e 45 |CONVERT |ANY LINE|
|00000e40| 20 46 45 45 44 53 20 54 | 4f 20 53 50 41 43 45 53 | FEEDS T|O SPACES|
|00000e50| 0d 0a 37 37 30 20 20 50 | 4f 4b 45 20 38 31 31 2c |..770  P|OKE 811,|
|00000e60| 42 31 20 2f 20 32 35 36 | 3a 20 43 41 4c 4c 20 52 |B1 / 256|: CALL R|
|00000e70| 33 0d 0a 37 38 30 20 20 | 49 46 20 53 45 20 2f 20 |3..780  |IF SE / |
|00000e80| 32 20 3c 20 20 3e 20 20 | 49 4e 54 20 28 53 45 20 |2 <  >  |INT (SE |
|00000e90| 2f 20 32 29 20 54 48 45 | 4e 20 42 31 20 3d 20 42 |/ 2) THE|N B1 = B|
|00000ea0| 31 20 2d 20 31 32 38 3a | 20 52 45 4d 20 20 43 48 |1 - 128:| REM  CH|
|00000eb0| 4f 50 20 4f 46 46 20 49 | 46 20 4c 41 53 54 20 53 |OP OFF I|F LAST S|
|00000ec0| 45 43 54 4f 52 20 57 41 | 53 20 31 2f 32 20 53 45 |ECTOR WA|S 1/2 SE|
|00000ed0| 43 54 4f 52 0d 0a 37 39 | 30 20 41 24 20 3d 20 20 |CTOR..79|0 A$ =  |
|00000ee0| 43 48 52 24 20 28 34 29 | 20 2b 20 22 42 53 41 56 |CHR$ (4)| + "BSAV|
|00000ef0| 45 22 20 2b 20 46 24 20 | 2b 20 22 2e 22 20 2b 20 |E" + F$ |+ "." + |
|00000f00| 53 24 20 2b 20 22 2c 41 | 22 20 2b 20 20 53 54 52 |S$ + ",A|" +  STR|
|00000f10| 24 20 28 42 29 20 2b 20 | 22 2c 4c 22 20 2b 20 20 |$ (B) + |",L" +  |
|00000f20| 53 54 52 24 20 28 42 31 | 20 2d 20 42 20 2b 20 31 |STR$ (B1| - B + 1|
|00000f30| 29 20 2b 20 22 2c 44 32 | 22 0d 0a 38 30 30 20 20 |) + ",D2|"..800  |
|00000f40| 50 52 49 4e 54 20 0d 0a | 38 31 30 20 20 50 52 49 |PRINT ..|810  PRI|
|00000f50| 4e 54 20 41 24 3a 20 45 | 4e 44 20 0d 0a 38 32 30 |NT A$: E|ND ..820|
|00000f60| 20 20 52 45 4d 20 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |  REM  =|========|
|00000f70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 20 20 |========|======  |
|00000f80| 20 20 0d 0a 38 33 30 20 | 20 52 45 4d 20 20 53 45 |  ..830 | REM  SE|
|00000f90| 54 20 55 50 0d 0a 38 34 | 30 20 20 44 49 4d 20 53 |T UP..84|0  DIM S|
|00000fa0| 28 33 32 29 3a 20 46 4f | 52 20 49 20 3d 20 30 20 |(32): FO|R I = 0 |
|00000fb0| 54 4f 20 33 32 3a 53 28 | 49 29 20 3d 20 30 3a 20 |TO 32:S(|I) = 0: |
|00000fc0| 4e 45 58 54 20 3a 20 52 | 45 4d 20 20 41 52 52 41 |NEXT : R|EM  ARRA|
|00000fd0| 59 20 46 4f 52 20 57 48 | 49 43 48 20 43 50 2f 4d |Y FOR WH|ICH CP/M|
|00000fe0| 20 53 45 43 54 4f 52 53 | 20 54 4f 20 50 55 4c 4c | SECTORS| TO PULL|
|00000ff0| 0d 0a 38 35 30 20 42 20 | 3d 20 38 31 39 32 3a 20 |..850 B |= 8192: |
|00001000| 52 45 4d 20 20 42 45 47 | 47 49 4e 4e 49 4e 47 20 |REM  BEG|GINNING |
|00001010| 4f 46 20 42 55 46 46 45 | 52 0d 0a 38 36 30 20 4d |OF BUFFE|R..860 M|
|00001020| 4d 20 3d 20 33 38 34 30 | 30 21 3a 20 52 45 4d 20 |M = 3840|0!: REM |
|00001030| 20 54 4f 50 20 4f 46 20 | 42 55 46 46 45 52 20 2d | TOP OF |BUFFER -|
|00001040| 20 42 4f 54 54 4f 4d 20 | 4f 46 20 44 4f 53 0d 0a | BOTTOM |OF DOS..|
|00001050| 38 37 30 20 53 4c 20 3d | 20 36 20 2a 20 31 36 3a |870 SL =| 6 * 16:|
|00001060| 20 52 45 4d 20 20 53 4c | 4f 54 20 4f 46 20 44 49 | REM  SL|OT OF DI|
|00001070| 53 4b 20 44 52 49 56 45 | 0d 0a 38 38 30 20 43 4d |SK DRIVE|..880 CM|
|00001080| 20 3d 20 31 3a 44 52 20 | 3d 20 31 3a 20 52 45 4d | = 1:DR |= 1: REM|
|00001090| 20 20 52 45 41 44 20 43 | 50 2f 4d 20 49 4e 20 44 |  READ C|P/M IN D|
|000010a0| 52 49 56 45 20 31 0d 0a | 38 39 30 20 53 53 20 3d |RIVE 1..|890 SS =|
|000010b0| 20 34 37 30 38 31 21 3a | 20 52 45 4d 20 20 41 44 | 47081!:| REM  AD|
|000010c0| 44 52 45 53 53 20 4f 46 | 20 49 4f 42 0d 0a 39 30 |DRESS OF| IOB..90|
|000010d0| 30 20 20 46 4f 52 20 49 | 20 3d 20 31 20 54 4f 20 |0  FOR I| = 1 TO |
|000010e0| 31 36 3a 20 52 45 41 44 | 20 41 3a 20 4e 45 58 54 |16: READ| A: NEXT|
|000010f0| 20 3a 20 52 45 4d 20 20 | 47 45 54 20 52 49 44 20 | : REM  |GET RID |
|00001100| 4f 46 20 4c 4f 57 20 44 | 41 54 41 0d 0a 39 31 30 |OF LOW D|ATA..910|
|00001110| 20 20 52 45 4d 20 20 50 | 4f 4b 45 20 4d 4f 56 45 |  REM  P|OKE MOVE|
|00001120| 2c 20 52 57 54 53 2c 20 | 49 4e 43 52 45 4d 45 4e |, RWTS, |INCREMEN|
|00001130| 54 20 52 4f 55 54 49 4e | 45 53 0d 0a 39 32 30 20 |T ROUTIN|ES..920 |
|00001140| 20 44 41 54 41 20 33 32 | 2c 34 34 2c 32 35 34 2c | DATA 32|,44,254,|
|00001150| 39 36 2c 31 36 39 2c 31 | 38 33 2c 31 36 30 2c 32 |96,169,1|83,160,2|
|00001160| 33 32 2c 33 32 2c 32 31 | 37 2c 33 2c 39 36 2c 30 |32,32,21|7,3,96,0|
|00001170| 2c 31 37 33 2c 30 2c 33 | 32 2c 32 30 31 2c 31 30 |,173,0,3|2,201,10|
|00001180| 2c 32 34 30 2c 32 37 2c | 39 2c 31 32 38 2c 31 34 |,240,27,|9,128,14|
|00001190| 31 2c 30 2c 33 32 2c 32 | 33 38 2c 31 34 2c 33 2c |1,0,32,2|38,14,3,|
|000011a0| 32 33 38 2c 32 33 2c 33 | 2c 32 30 38 2c 32 33 36 |238,23,3|,208,236|
|000011b0| 2c 32 33 38 2c 31 35 2c | 33 2c 32 33 38 2c 32 34 |,238,15,|3,238,24|
|000011c0| 2c 33 2c 31 37 33 2c 32 | 34 2c 33 2c 32 30 31 2c |,3,173,2|4,3,201,|
|000011d0| 31 35 30 2c 31 34 34 2c | 32 32 33 2c 39 36 2c 31 |150,144,|223,96,1|
|000011e0| 36 39 2c 31 36 30 2c 37 | 36 2c 32 32 2c 33 2c 30 |69,160,7|6,22,3,0|
|000011f0| 20 20 20 20 20 0d 0a 39 | 33 30 20 20 46 4f 52 20 |     ..9|30  FOR |
|00001200| 49 20 3d 20 37 36 38 20 | 54 4f 20 38 32 30 3a 20 |I = 768 |TO 820: |
|00001210| 52 45 41 44 20 41 3a 20 | 50 4f 4b 45 20 49 2c 41 |READ A: |POKE I,A|
|00001220| 3a 20 4e 45 58 54 20 0d | 0a 39 34 30 20 52 32 20 |: NEXT .|.940 R2 |
|00001230| 3d 20 37 36 38 3a 20 52 | 45 4d 20 20 4d 45 4d 4f |= 768: R|EM  MEMO|
|00001240| 52 59 20 4d 4f 56 45 20 | 41 44 44 52 45 53 53 0d |RY MOVE |ADDRESS.|
|00001250| 0a 39 35 30 20 52 57 54 | 53 20 3d 20 37 37 32 3a |.950 RWT|S = 772:|
|00001260| 20 52 45 4d 20 20 52 57 | 54 53 20 41 44 44 52 45 | REM  RW|TS ADDRE|
|00001270| 53 53 0d 0a 39 36 30 20 | 52 33 20 3d 20 37 38 31 |SS..960 |R3 = 781|
|00001280| 3a 20 52 45 4d 20 20 49 | 4e 43 52 45 4d 45 4e 54 |: REM  I|NCREMENT|
|00001290| 20 42 55 46 46 45 52 20 | 41 44 44 52 45 53 53 0d | BUFFER |ADDRESS.|
|000012a0| 0a 39 37 30 20 20 52 45 | 4d 20 20 49 4e 50 55 54 |.970  RE|M  INPUT|
|000012b0| 20 46 49 4c 45 4e 41 4d | 45 20 41 4e 44 20 53 50 | FILENAM|E AND SP|
|000012c0| 4c 49 54 20 49 4e 54 4f | 20 32 20 50 41 52 54 53 |LIT INTO| 2 PARTS|
|000012d0| 0d 0a 39 38 30 20 20 48 | 4f 4d 45 20 3a 20 56 54 |..980  H|OME : VT|
|000012e0| 41 42 20 33 3a 20 50 52 | 49 4e 54 20 22 20 20 20 |AB 3: PR|INT "   |
|000012f0| 43 50 2f 4d 20 2d 3e 20 | 44 4f 53 20 46 49 4c 45 |CP/M -> |DOS FILE|
|00001300| 20 43 4f 4e 56 45 52 54 | 45 52 22 3a 20 56 54 41 | CONVERT|ER": VTA|
|00001310| 42 20 37 0d 0a 39 39 30 | 20 20 49 4e 50 55 54 20 |B 7..990|  INPUT |
|00001320| 22 57 48 41 54 20 43 50 | 2f 4d 20 46 49 4c 45 20 |"WHAT CP|/M FILE |
|00001330| 2d 3e 22 3b 46 24 3a 20 | 46 4f 52 20 49 20 3d 20 |->";F$: |FOR I = |
|00001340| 31 20 54 4f 20 20 4c 45 | 4e 20 28 46 24 29 3a 20 |1 TO  LE|N (F$): |
|00001350| 49 46 20 20 4d 49 44 24 | 20 28 46 24 2c 49 2c 31 |IF  MID$| (F$,I,1|
|00001360| 29 20 3d 20 22 2e 22 20 | 54 48 45 4e 20 46 46 24 |) = "." |THEN FF$|
|00001370| 20 3d 20 20 4c 45 46 54 | 24 20 28 46 24 2c 49 20 | =  LEFT|$ (F$,I |
|00001380| 2d 20 31 29 3a 53 24 20 | 3d 20 20 52 49 47 48 54 |- 1):S$ |=  RIGHT|
|00001390| 24 20 28 46 24 2c 20 4c | 45 4e 20 28 46 24 29 20 |$ (F$, L|EN (F$) |
|000013a0| 2d 20 49 29 3a 46 24 20 | 3d 20 46 46 24 0d 0a 31 |- I):F$ |= FF$..1|
|000013b0| 30 30 30 20 20 4e 45 58 | 54 20 0d 0a 31 30 31 30 |000  NEX|T ..1010|
|000013c0| 20 20 48 4f 4d 45 20 3a | 20 50 52 49 4e 54 20 22 |  HOME :| PRINT "|
|000013d0| 50 4c 41 43 45 20 43 50 | 2f 4d 20 44 49 53 4b 20 |PLACE CP|/M DISK |
|000013e0| 49 4e 20 44 52 49 56 45 | 20 31 22 0d 0a 31 30 32 |IN DRIVE| 1"..102|
|000013f0| 30 20 20 50 52 49 4e 54 | 20 3a 20 50 52 49 4e 54 |0  PRINT| : PRINT|
|00001400| 20 22 50 4c 41 43 45 20 | 41 50 50 4c 45 20 44 4f | "PLACE |APPLE DO|
|00001410| 53 20 44 49 53 4b 20 49 | 4e 20 44 52 49 56 45 20 |S DISK I|N DRIVE |
|00001420| 32 22 0d 0a 31 30 33 30 | 20 20 47 45 54 20 52 24 |2"..1030|  GET R$|
|00001430| 0d 0a 31 30 34 30 20 20 | 47 4f 54 4f 20 33 36 30 |..1040  |GOTO 360|
|00001440| 0d 0a 31 30 35 30 20 20 | 45 4e 44 20 0d 0a 1a 22 |..1050  |END ..."|
|00001450| 50 4c 41 43 45 20 43 50 | 2f 4d 20 44 49 53 4b 20 |PLACE CP|/M DISK |
|00001460| 49 4e 20 44 52 49 56 45 | 20 31 22 0d 0a 31 30 32 |IN DRIVE| 1"..102|
|00001470| 30 20 20 50 52 49 4e 54 | 20 3a 20 50 52 49 4e 54 |0  PRINT| : PRINT|
|00001480| 43 50 44 4f 53 2e 44 4f | 43 20 20 20 20 31 32 2f |CPDOS.DO|C    12/|
|00001490| 33 31 2f 38 31 0d 0a 20 | 20 42 59 20 20 41 4c 45 |31/81.. | BY  ALE|
|000014a0| 58 20 4d 41 4c 55 54 41 | 0d 0a 0d 0a 43 50 44 4f |X MALUTA|....CPDO|
|000014b0| 53 20 49 53 20 41 20 55 | 54 49 4c 49 54 59 20 54 |S IS A U|TILITY T|
|000014c0| 48 41 54 20 41 4c 4c 4f | 57 53 20 54 52 41 4e 53 |HAT ALLO|WS TRANS|
|000014d0| 46 45 52 52 49 4e 47 20 | 46 49 4c 45 53 20 46 52 |FERRING |FILES FR|
|000014e0| 4f 4d 0d 0a 41 4e 20 41 | 50 50 4c 45 20 43 50 2f |OM..AN A|PPLE CP/|
|000014f0| 4d 20 44 49 53 4b 20 54 | 4f 20 41 20 41 50 50 4c |M DISK T|O A APPL|
|00001500| 45 20 44 4f 53 20 33 2e | 33 20 44 49 53 4b 2e 0d |E DOS 3.|3 DISK..|
|00001510| 0a 20 20 20 54 48 45 20 | 50 52 4f 47 52 41 4d 20 |.   THE |PROGRAM |
|00001520| 52 55 4e 53 20 55 4e 44 | 45 52 20 41 50 50 4c 45 |RUNS UND|ER APPLE|
|00001530| 53 4f 46 54 20 28 52 4f | 4d 29 20 41 4e 44 20 44 |SOFT (RO|M) AND D|
|00001540| 4f 53 20 33 2e 33 2e 0d | 0a 49 54 20 55 53 45 53 |OS 3.3..|.IT USES|
|00001550| 20 54 48 45 20 52 57 54 | 53 20 53 55 42 52 4f 55 | THE RWT|S SUBROU|
|00001560| 54 49 4e 45 20 54 4f 20 | 53 45 41 52 43 48 20 54 |TINE TO |SEARCH T|
|00001570| 48 45 20 43 50 2f 4d 20 | 44 49 53 4b 20 46 4f 52 |HE CP/M |DISK FOR|
|00001580| 0d 0a 54 48 45 20 44 45 | 53 49 52 45 44 20 46 49 |..THE DE|SIRED FI|
|00001590| 4c 45 2c 20 44 55 4d 50 | 20 49 54 20 53 45 43 54 |LE, DUMP| IT SECT|
|000015a0| 4f 52 20 42 59 20 53 45 | 43 54 4f 52 20 49 4e 54 |OR BY SE|CTOR INT|
|000015b0| 4f 20 4d 45 4d 4f 52 59 | 2c 0d 0a 41 4e 44 20 54 |O MEMORY|,..AND T|
|000015c0| 48 45 4e 20 53 41 56 45 | 20 49 54 20 54 4f 20 41 |HEN SAVE| IT TO A|
|000015d0| 20 44 4f 53 20 44 49 53 | 4b 2e 0d 0a 20 20 20 49 | DOS DIS|K...   I|
|000015e0| 54 20 49 53 20 50 52 45 | 53 45 4e 54 4c 59 20 43 |T IS PRE|SENTLY C|
|000015f0| 4f 4e 46 49 47 55 52 45 | 44 20 46 4f 52 20 54 48 |ONFIGURE|D FOR TH|
|00001600| 45 20 46 4f 4c 4c 4f 57 | 49 4e 47 20 53 45 54 55 |E FOLLOW|ING SETU|
|00001610| 50 3a 0d 0a 20 20 20 20 | 20 20 34 38 4b 20 41 50 |P:..    |  48K AP|
|00001620| 50 4c 45 20 49 49 0d 0a | 20 20 20 20 20 20 20 32 |PLE II..|       2|
|00001630| 20 44 52 49 56 45 53 20 | 49 4e 20 53 4c 4f 54 20 | DRIVES |IN SLOT |
|00001640| 36 0d 0a 20 20 20 20 20 | 20 20 41 50 50 4c 45 53 |6..     |  APPLES|
|00001650| 4f 46 54 20 49 4e 20 52 | 4f 4d 0d 0a 49 54 20 57 |OFT IN R|OM..IT W|
|00001660| 49 4c 4c 20 54 52 41 4e | 53 46 45 52 20 41 4e 59 |ILL TRAN|SFER ANY|
|00001670| 20 54 59 50 45 20 4f 46 | 20 43 50 2f 4d 20 46 49 | TYPE OF| CP/M FI|
|00001680| 4c 45 20 28 41 53 20 4c | 4f 4e 47 20 41 53 20 49 |LE (AS L|ONG AS I|
|00001690| 54 20 49 53 0d 0a 4e 4f | 20 4c 4f 4e 47 45 52 20 |T IS..NO| LONGER |
|000016a0| 54 48 41 4e 20 33 30 32 | 30 38 4b 20 42 59 54 45 |THAN 302|08K BYTE|
|000016b0| 53 20 4c 4f 4e 47 29 2c | 20 42 59 20 54 52 45 41 |S LONG),| BY TREA|
|000016c0| 54 49 4e 47 20 49 54 20 | 50 55 52 45 4c 59 0d 0a |TING IT |PURELY..|
|000016d0| 41 53 20 44 41 54 41 2e | 20 20 54 48 45 52 45 46 |AS DATA.|  THEREF|
|000016e0| 4f 52 45 2c 20 49 54 20 | 49 53 20 50 4f 53 53 49 |ORE, IT |IS POSSI|
|000016f0| 42 4c 45 20 54 4f 20 54 | 52 41 4e 53 46 45 52 20 |BLE TO T|RANSFER |
|00001700| 2e 42 41 53 2c 20 2e 48 | 45 58 0d 0a 2e 41 53 4d |.BAS, .H|EX...ASM|
|00001710| 2c 20 2e 43 4f 4d 2c 20 | 45 54 43 2e 20 46 49 4c |, .COM, |ETC. FIL|
|00001720| 45 53 2e 0d 0a 20 20 54 | 48 45 20 50 52 4f 47 52 |ES...  T|HE PROGR|
|00001730| 41 4d 20 57 41 53 20 47 | 45 4e 45 52 41 4c 4c 59 |AM WAS G|ENERALLY|
|00001740| 20 44 45 53 49 47 4e 45 | 44 20 54 4f 20 54 52 41 | DESIGNE|D TO TRA|
|00001750| 4e 53 46 45 52 20 2e 42 | 41 53 20 46 49 4c 45 53 |NSFER .B|AS FILES|
|00001760| 0d 0a 54 4f 20 41 50 50 | 4c 45 53 4f 46 54 2c 20 |..TO APP|LESOFT, |
|00001770| 53 4f 20 49 54 20 41 55 | 54 4f 4d 41 54 49 43 41 |SO IT AU|TOMATICA|
|00001780| 4c 4c 59 20 53 45 54 53 | 20 54 48 45 20 4d 53 42 |LLY SETS| THE MSB|
|00001790| 2e 0d 0a 20 20 20 41 4c | 53 4f 2c 20 53 49 4e 43 |...   AL|SO, SINC|
|000017a0| 45 20 4c 49 4e 45 20 46 | 45 45 44 53 20 41 52 45 |E LINE F|EEDS ARE|
|000017b0| 20 47 45 4e 45 52 41 4c | 4c 59 20 4e 4f 54 20 4e | GENERAL|LY NOT N|
|000017c0| 45 45 44 45 44 20 42 59 | 20 41 50 50 4c 45 53 4f |EEDED BY| APPLESO|
|000017d0| 46 54 2c 0d 0a 54 48 49 | 53 20 50 52 4f 47 52 41 |FT,..THI|S PROGRA|
|000017e0| 4d 20 57 49 4c 4c 20 43 | 48 41 4e 47 45 20 54 48 |M WILL C|HANGE TH|
|000017f0| 45 20 3c 43 52 3e 20 3c | 4c 46 3e 20 53 45 51 55 |E <CR> <|LF> SEQU|
|00001800| 45 4e 43 45 20 4f 46 20 | 43 50 2f 4d 20 54 4f 0d |ENCE OF |CP/M TO.|
|00001810| 0a 3c 43 52 3e 20 3c 53 | 50 41 43 45 3e 2e 0d 0a |.<CR> <S|PACE>...|
|00001820| 20 20 54 48 45 20 50 52 | 4f 47 52 41 4d 20 43 52 |  THE PR|OGRAM CR|
|00001830| 45 41 54 45 53 20 41 20 | 42 49 4e 41 52 59 20 46 |EATES A |BINARY F|
|00001840| 49 4c 45 20 4f 4e 20 54 | 48 45 20 41 50 50 4c 45 |ILE ON T|HE APPLE|
|00001850| 20 44 4f 53 20 44 49 53 | 4b 2e 0d 0a 54 48 49 53 | DOS DIS|K...THIS|
|00001860| 20 46 49 4c 45 20 43 41 | 4e 20 54 48 45 4e 20 42 | FILE CA|N THEN B|
|00001870| 45 20 4d 41 4e 49 50 55 | 4c 41 54 45 44 20 55 53 |E MANIPU|LATED US|
|00001880| 49 4e 47 20 52 45 47 55 | 4c 41 52 20 44 4f 53 2e |ING REGU|LAR DOS.|
|00001890| 0d 0a 0d 0a 47 45 54 54 | 49 4e 47 20 43 50 44 4f |....GETT|ING CPDO|
|000018a0| 53 20 54 4f 20 52 55 4e | 20 49 4e 20 41 50 50 4c |S TO RUN| IN APPL|
|000018b0| 45 53 4f 46 54 20 3a 0d | 0a 20 20 54 48 45 20 46 |ESOFT :.|.  THE F|
|000018c0| 49 4c 45 20 43 50 44 4f | 53 2e 42 41 53 20 49 53 |ILE CPDO|S.BAS IS|
|000018d0| 20 57 52 49 54 54 45 4e | 20 49 4e 20 41 50 50 4c | WRITTEN| IN APPL|
|000018e0| 45 53 4f 46 54 2e 20 20 | 49 54 20 57 49 4c 4c 20 |ESOFT.  |IT WILL |
|000018f0| 4e 4f 54 0d 0a 57 4f 52 | 4b 20 55 4e 44 45 52 20 |NOT..WOR|K UNDER |
|00001900| 4d 42 41 53 49 43 20 4f | 52 20 47 42 41 53 49 43 |MBASIC O|R GBASIC|
|00001910| 2e 20 54 48 45 52 45 46 | 4f 52 45 2c 20 49 54 20 |. THEREF|ORE, IT |
|00001920| 49 54 53 45 4c 46 20 4d | 55 53 54 20 42 45 0d 0a |ITSELF M|UST BE..|
|00001930| 42 52 4f 55 47 48 54 20 | 44 4f 57 4e 20 54 4f 20 |BROUGHT |DOWN TO |
|00001940| 41 50 50 4c 45 20 44 4f | 53 2e 0d 0a 20 20 54 48 |APPLE DO|S...  TH|
|00001950| 45 52 45 20 41 52 45 20 | 54 57 4f 20 57 41 59 53 |ERE ARE |TWO WAYS|
|00001960| 20 4f 46 20 44 4f 49 4e | 47 20 54 48 49 53 3a 0d | OF DOIN|G THIS:.|
|00001970| 0a 20 31 5d 20 54 52 41 | 4e 53 46 45 52 20 4e 4f |. 1] TRA|NSFER NO|
|00001980| 52 4d 41 4c 4c 59 20 46 | 52 4f 4d 20 54 48 49 53 |RMALLY F|ROM THIS|
|00001990| 20 53 59 53 54 45 4d 20 | 54 4f 20 59 4f 55 52 20 | SYSTEM |TO YOUR |
|000019a0| 41 50 50 4c 45 20 43 50 | 2f 4d 20 44 49 53 4b 0d |APPLE CP|/M DISK.|
|000019b0| 0a 55 53 49 4e 47 20 54 | 48 45 20 4d 4f 44 45 4d |.USING T|HE MODEM|
|000019c0| 2f 58 4d 4f 44 45 4d 20 | 54 52 41 4e 53 46 45 52 |/XMODEM |TRANSFER|
|000019d0| 2e 20 50 52 49 4e 54 20 | 41 20 48 41 52 44 43 4f |. PRINT |A HARDCO|
|000019e0| 50 59 20 4c 49 53 54 49 | 4e 47 20 4f 46 0d 0a 54 |PY LISTI|NG OF..T|
|000019f0| 48 45 20 50 52 4f 47 52 | 41 4d 2c 20 41 4e 44 20 |HE PROGR|AM, AND |
|00001a00| 52 45 54 59 50 45 20 49 | 54 20 49 4e 20 4d 41 4e |RETYPE I|T IN MAN|
|00001a10| 55 41 4c 4c 59 20 55 4e | 44 45 52 20 41 50 50 4c |UALLY UN|DER APPL|
|00001a20| 45 53 4f 46 54 20 2d 4f | 52 2d 0d 0a 20 32 5d 20 |ESOFT -O|R-.. 2] |
|00001a30| 49 46 20 59 4f 55 20 48 | 41 56 45 20 41 20 44 41 |IF YOU H|AVE A DA|
|00001a40| 54 41 20 43 41 50 54 55 | 52 45 20 50 52 4f 47 52 |TA CAPTU|RE PROGR|
|00001a50| 41 4d 20 49 4e 20 41 50 | 50 4c 45 53 4f 46 54 2c |AM IN AP|PLESOFT,|
|00001a60| 20 4c 49 53 54 0d 0a 43 | 50 44 4f 53 20 41 54 20 | LIST..C|PDOS AT |
|00001a70| 54 48 49 53 20 45 4e 44 | 20 28 27 54 59 50 45 20 |THIS END| ('TYPE |
|00001a80| 43 50 44 4f 53 2e 42 41 | 53 27 29 2c 20 43 41 50 |CPDOS.BA|S'), CAP|
|00001a90| 54 55 52 45 20 49 54 20 | 54 4f 20 4d 45 4d 4f 52 |TURE IT |TO MEMOR|
|00001aa0| 59 0d 0a 41 54 20 59 4f | 55 52 20 45 4e 44 2c 20 |Y..AT YO|UR END, |
|00001ab0| 54 48 45 4e 20 53 41 56 | 45 20 4e 4f 52 4d 41 4c |THEN SAV|E NORMAL|
|00001ac0| 4c 59 20 54 4f 20 44 49 | 53 4b 2e 0d 0a 0d 0a 41 |LY TO DI|SK.....A|
|00001ad0| 4e 20 45 58 41 4d 50 4c | 45 20 4f 46 20 54 41 4b |N EXAMPL|E OF TAK|
|00001ae0| 49 4e 47 20 41 4e 20 41 | 50 50 4c 45 20 43 50 2f |ING AN A|PPLE CP/|
|00001af0| 4d 20 42 41 53 49 43 20 | 50 52 4f 47 52 41 4d 20 |M BASIC |PROGRAM |
|00001b00| 41 4e 44 20 44 4f 57 4e | 4c 4f 41 44 49 4e 47 0d |AND DOWN|LOADING.|
|00001b10| 0a 54 4f 20 41 20 44 4f | 53 20 42 41 53 49 43 20 |.TO A DO|S BASIC |
|00001b20| 50 52 4f 47 52 41 4d 3a | 0d 0a 20 31 5d 20 52 55 |PROGRAM:|.. 1] RU|
|00001b30| 4e 20 54 48 45 20 43 50 | 44 4f 53 20 50 52 4f 47 |N THE CP|DOS PROG|
|00001b40| 52 41 4d 0d 0a 20 32 5d | 20 59 4f 55 20 53 48 4f |RAM.. 2]| YOU SHO|
|00001b50| 55 4c 44 20 4e 4f 57 20 | 48 41 56 45 20 41 20 42 |ULD NOW |HAVE A B|
|00001b60| 49 4e 41 52 59 20 46 49 | 4c 45 20 4f 4e 20 54 48 |INARY FI|LE ON TH|
|00001b70| 45 20 41 50 50 4c 45 20 | 44 4f 53 20 44 49 53 4b |E APPLE |DOS DISK|
|00001b80| 0d 0a 20 20 20 20 54 48 | 41 54 20 43 4f 4e 54 41 |..    TH|AT CONTA|
|00001b90| 49 4e 53 20 41 4c 4c 20 | 54 48 45 20 44 41 54 41 |INS ALL |THE DATA|
|00001ba0| 20 4f 46 20 54 48 45 20 | 43 50 2f 4d 20 50 52 4f | OF THE |CP/M PRO|
|00001bb0| 47 52 41 4d 2e 0d 0a 20 | 33 5d 20 43 4f 4e 56 45 |GRAM... |3] CONVE|
|00001bc0| 52 54 20 54 48 45 20 42 | 49 4e 41 52 59 20 46 49 |RT THE B|INARY FI|
|00001bd0| 4c 45 20 54 4f 20 41 20 | 54 45 58 54 46 49 4c 45 |LE TO A |TEXTFILE|
|00001be0| 2e 0d 0a 20 20 20 20 20 | 28 54 48 45 20 45 41 53 |...     |(THE EAS|
|00001bf0| 49 45 53 54 20 4d 45 54 | 48 4f 44 20 4f 46 20 44 |IEST MET|HOD OF D|
|00001c00| 4f 49 4e 47 20 54 48 49 | 53 20 49 53 20 54 4f 20 |OING THI|S IS TO |
|00001c10| 52 55 4e 20 41 20 53 48 | 4f 52 54 0d 0a 20 20 20 |RUN A SH|ORT..   |
|00001c20| 20 20 20 4d 41 43 48 2e | 20 4c 41 4e 47 2e 20 50 |   MACH.| LANG. P|
|00001c30| 52 4f 47 52 41 4d 20 46 | 4f 55 4e 44 20 4f 4e 20 |ROGRAM F|OUND ON |
|00001c40| 50 41 47 45 20 41 2d 32 | 30 20 4f 46 20 27 42 45 |PAGE A-2|0 OF 'BE|
|00001c50| 4e 45 41 54 48 0d 0a 20 | 20 20 20 20 20 41 50 50 |NEATH.. |     APP|
|00001c60| 4c 45 20 44 4f 53 27 20 | 42 59 20 44 4f 4e 20 57 |LE DOS' |BY DON W|
|00001c70| 4f 52 54 48 20 41 4e 44 | 20 50 49 45 54 45 52 20 |ORTH AND| PIETER |
|00001c80| 4c 45 43 48 4e 45 52 20 | 2d 2d 20 7d 49 20 57 4f |LECHNER |-- }I WO|
|00001c90| 55 4c 44 0d 0a 20 20 20 | 20 20 20 48 41 56 45 20 |ULD..   |   HAVE |
|00001ca0| 49 4e 43 4c 55 44 45 44 | 20 49 54 20 49 4e 20 54 |INCLUDED| IT IN T|
|00001cb0| 48 45 20 50 52 4f 47 52 | 41 4d 20 42 55 54 20 49 |HE PROGR|AM BUT I|
|00001cc0| 20 54 48 49 4e 4b 20 54 | 48 45 20 52 4f 55 54 49 | THINK T|HE ROUTI|
|00001cd0| 4e 45 0d 0a 20 20 20 20 | 20 20 49 53 20 43 4f 50 |NE..    |  IS COP|
|00001ce0| 59 52 49 47 48 54 45 44 | 29 0d 0a 20 34 5d 20 59 |YRIGHTED|).. 4] Y|
|00001cf0| 4f 55 20 4e 4f 57 20 48 | 41 56 45 20 41 20 54 45 |OU NOW H|AVE A TE|
|00001d00| 58 54 46 49 4c 45 2e 20 | 49 46 20 41 4c 4c 20 54 |XTFILE. |IF ALL T|
|00001d10| 48 45 20 43 4f 4d 4d 41 | 4e 44 53 20 49 4e 20 54 |HE COMMA|NDS IN T|
|00001d20| 48 45 20 43 50 2f 4d 0d | 0a 20 20 20 20 56 45 52 |HE CP/M.|.    VER|
|00001d30| 53 49 4f 4e 20 4d 41 4b | 45 20 53 45 4e 53 45 20 |SION MAK|E SENSE |
|00001d40| 54 4f 20 41 50 50 4c 45 | 53 4f 46 54 2c 20 59 4f |TO APPLE|SOFT, YO|
|00001d50| 55 20 43 41 4e 20 53 49 | 4d 50 4c 59 20 27 45 58 |U CAN SI|MPLY 'EX|
|00001d60| 45 43 27 20 54 48 45 0d | 0a 20 20 20 20 54 45 58 |EC' THE.|.    TEX|
|00001d70| 54 46 49 4c 45 2c 20 41 | 4e 44 20 59 4f 55 20 57 |TFILE, A|ND YOU W|
|00001d80| 49 4c 4c 20 48 41 56 45 | 20 54 48 45 20 50 52 4f |ILL HAVE| THE PRO|
|00001d90| 47 52 41 4d 20 49 4e 20 | 41 50 50 4c 45 53 4f 46 |GRAM IN |APPLESOF|
|00001da0| 54 2e 0d 0a 20 20 20 20 | 49 46 20 54 48 45 52 45 |T...    |IF THERE|
|00001db0| 20 41 52 45 20 49 4e 56 | 41 4c 49 44 20 45 58 50 | ARE INV|ALID EXP|
|00001dc0| 52 45 53 53 49 4f 4e 53 | 20 49 4e 20 54 48 45 20 |RESSIONS| IN THE |
|00001dd0| 46 49 4c 45 2c 20 59 4f | 55 20 43 41 4e 20 55 53 |FILE, YO|U CAN US|
|00001de0| 45 0d 0a 20 20 20 20 45 | 44 49 54 4f 52 53 20 53 |E..    E|DITORS S|
|00001df0| 55 43 48 20 41 53 20 54 | 48 45 20 44 4f 53 20 54 |UCH AS T|HE DOS T|
|00001e00| 4f 4f 4c 4b 49 54 20 54 | 4f 20 43 48 41 4e 47 45 |OOLKIT T|O CHANGE|
|00001e10| 20 54 48 45 4d 2e 0d 0a | 20 20 49 46 20 59 4f 55 | THEM...|  IF YOU|
|00001e20| 20 45 58 45 43 20 41 20 | 46 49 4c 45 20 57 49 54 | EXEC A |FILE WIT|
|00001e30| 48 20 53 59 4e 54 41 58 | 20 45 52 52 4f 52 53 2c |H SYNTAX| ERRORS,|
|00001e40| 20 41 50 50 4c 45 53 4f | 46 54 20 57 49 4c 4c 20 | APPLESO|FT WILL |
|00001e50| 4b 45 45 50 0d 0a 54 48 | 4f 53 45 20 4c 49 4e 45 |KEEP..TH|OSE LINE|
|00001e60| 53 20 54 48 41 54 20 4d | 41 4b 45 20 53 45 4e 53 |S THAT M|AKE SENS|
|00001e70| 45 2c 20 41 4e 44 20 54 | 48 52 4f 57 20 4f 55 54 |E, AND T|HROW OUT|
|00001e80| 20 54 48 45 20 4f 54 48 | 45 52 53 2e 0d 0a 0d 0a | THE OTH|ERS.....|
|00001e90| 4e 4f 54 45 3a 20 54 48 | 49 53 20 50 52 4f 47 52 |NOTE: TH|IS PROGR|
|00001ea0| 41 4d 20 49 53 20 49 4e | 20 49 54 53 20 52 55 44 |AM IS IN| ITS RUD|
|00001eb0| 49 4d 45 4e 54 41 52 59 | 20 53 54 41 47 45 53 2e |IMENTARY| STAGES.|
|00001ec0| 20 57 49 54 48 20 41 20 | 4c 49 54 54 4c 45 0d 0a | WITH A |LITTLE..|
|00001ed0| 20 4d 4f 44 49 46 49 43 | 41 54 49 4f 4e 2c 20 49 | MODIFIC|ATION, I|
|00001ee0| 54 20 43 4f 55 4c 44 20 | 42 45 20 4d 41 44 45 20 |T COULD |BE MADE |
|00001ef0| 54 4f 20 41 43 43 45 50 | 54 20 4c 41 52 47 45 52 |TO ACCEP|T LARGER|
|00001f00| 20 46 49 4c 45 53 2c 20 | 44 4f 0d 0a 20 53 49 4e | FILES, |DO.. SIN|
|00001f10| 47 4c 45 20 44 52 49 56 | 45 20 43 4f 50 49 45 53 |GLE DRIV|E COPIES|
|00001f20| 2c 20 46 49 4c 54 45 52 | 20 43 45 52 54 41 49 4e |, FILTER| CERTAIN|
|00001f30| 20 44 41 54 41 2c 20 45 | 54 43 2e 0d 0a 0d 0a 49 | DATA, E|TC.....I|
|00001f40| 46 20 59 4f 55 20 48 41 | 56 45 20 41 4e 59 20 43 |F YOU HA|VE ANY C|
|00001f50| 4f 4d 4d 45 4e 54 53 20 | 4f 52 20 53 55 47 47 45 |OMMENTS |OR SUGGE|
|00001f60| 53 54 49 4f 4e 53 2c 20 | 4c 45 41 56 45 20 4d 45 |STIONS, |LEAVE ME|
|00001f70| 20 41 20 4d 45 53 53 41 | 47 45 20 4f 4e 0d 0a 54 | A MESSA|GE ON..T|
|00001f80| 48 45 20 42 42 53 2e 20 | 20 20 20 20 20 20 20 20 |HE BBS. |        |
|00001f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fa0| 20 20 20 20 20 54 48 41 | 4e 4b 20 59 4f 55 2e 0d |     THA|NK YOU..|
|00001fb0| 0a 0d 0a 1a 41 2c 20 45 | 54 43 2e 0d 0a 0d 0a 49 |....A, E|TC.....I|
|00001fc0| 46 20 59 4f 55 20 48 41 | 56 45 20 41 4e 59 20 43 |F YOU HA|VE ANY C|
|00001fd0| 4f 4d 4d 45 4e 54 53 20 | 4f 52 20 53 55 47 47 45 |OMMENTS |OR SUGGE|
|00001fe0| 53 54 49 4f 4e 53 2c 20 | 4c 45 41 56 45 20 4d 45 |STIONS, |LEAVE ME|
|00001ff0| 20 41 20 4d 45 53 53 41 | 47 45 20 4f 4e 0d 0a 54 | A MESSA|GE ON..T|
|00002000| 11 00 50 21 9d 02 01 aa | 06 ed b0 21 33 01 7e b7 |..P!....|...!3.~.|
|00002010| 28 0b 5f 0e 02 e5 cd 05 | 00 e1 23 18 f1 0e 01 cd |(._.....|..#.....|
|00002020| 05 00 21 00 c6 22 d0 f3 | 2a de f3 3e 77 32 0b 00 |..!.."..|*..>w2..|
|00002030| c3 0b 00 0d 0a 0d 0a 0d | 0a 2b 2b 2b 20 43 50 4d |........|.+++ CPM|
|00002040| 58 46 45 52 20 74 72 61 | 6e 73 66 65 72 20 70 72 |XFER tra|nsfer pr|
|00002050| 6f 63 65 64 75 72 65 20 | 2b 2b 2b 0d 0a 0d 0a 46 |ocedure |+++....F|
|00002060| 69 72 73 74 20 62 6f 6f | 74 20 61 6e 20 41 70 70 |irst boo|t an App|
|00002070| 6c 65 20 44 4f 53 20 33 | 2e 33 20 64 69 73 6b 2c |le DOS 3|.3 disk,|
|00002080| 0d 0a 61 6e 64 20 73 61 | 76 65 20 43 50 4d 58 46 |..and sa|ve CPMXF|
|00002090| 45 52 20 62 79 20 74 79 | 70 69 6e 67 3a 0d 0a 0d |ER by ty|ping:...|
|000020a0| 0a 20 20 42 53 41 56 45 | 20 43 50 4d 58 46 45 52 |.  BSAVE| CPMXFER|
|000020b0| 2c 41 24 36 30 30 30 2c | 4c 24 36 46 30 0d 0a 0d |,A$6000,|L$6F0...|
|000020c0| 0a 4e 65 78 74 2c 20 65 | 6e 74 65 72 20 74 68 65 |.Next, e|nter the|
|000020d0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 70 72 6f 67 72 | followi|ng progr|
|000020e0| 61 6d 20 6c 69 6e 65 0d | 0a 69 6e 20 65 69 74 68 |am line.|.in eith|
|000020f0| 65 72 20 49 6e 74 65 67 | 65 72 20 42 41 53 49 43 |er Integ|er BASIC|
|00002100| 20 6f 72 20 41 70 70 6c | 65 73 6f 66 74 3a 0d 0a | or Appl|esoft:..|
|00002110| 0d 0a 20 20 31 30 20 50 | 52 49 4e 54 20 22 3c 5e |..  10 P|RINT "<^|
|00002120| 44 3e 42 52 55 4e 20 43 | 50 4d 58 46 45 52 2c 41 |D>BRUN C|PMXFER,A|
|00002130| 24 39 30 30 22 0d 0a 0d | 0a 54 68 69 73 20 73 68 |$900"...|.This sh|
|00002140| 6f 75 6c 64 20 62 65 20 | 73 61 76 65 64 20 61 6e |ould be |saved an|
|00002150| 64 20 75 73 65 64 20 74 | 6f 20 72 75 6e 0d 0a 74 |d used t|o run..t|
|00002160| 68 65 20 43 50 4d 58 46 | 45 52 20 70 72 6f 67 72 |he CPMXF|ER progr|
|00002170| 61 6d 2e 0d 0a 0d 0a 49 | 6e 73 65 72 74 20 44 4f |am.....I|nsert DO|
|00002180| 53 20 33 2e 33 20 64 69 | 73 6b 20 61 6e 64 20 68 |S 3.3 di|sk and h|
|00002190| 69 74 20 52 45 54 55 52 | 4e 3a 20 07 00 ad 00 e0 |it RETUR|N: .....|
|000021a0| c9 4c f0 06 a5 4c a4 4d | d0 04 a5 6f a4 70 85 08 |.L...L.M|...o.p..|
|000021b0| 84 09 98 38 e9 11 0a 85 | 54 a9 00 2a 85 55 a9 60 |...8....|T..*.U.`|
|000021c0| 8d 9f 0f a9 02 8d a0 0f | a0 00 8c a2 0f c8 8c a1 |........|........|
|000021d0| 0f 20 58 fc 20 a7 0d 58 | 0e ba 8e a9 0f ae a9 0f |. X. ..X|........|
|000021e0| ba a9 a4 85 33 8d a5 0f | 20 67 fd 8a f0 ef ad 00 |....3...| g......|
|000021f0| 02 c9 83 d0 03 4c d0 03 | a2 02 bd 00 02 dd 0c 0f |.....L..|........|
|00002200| d0 06 ca 10 f5 4c f9 0b | a2 02 bd 00 02 dd 0f 0f |.....L..|........|
|00002210| d0 06 ca 10 f5 4c e1 0b | a0 00 8c a5 0f 8c a8 0f |.....L..|........|
|00002220| 8c a7 0f a2 2b a9 20 9d | 0c 0e ca d0 fa ad 01 02 |....+. .|........|
|00002230| c9 ba d0 07 20 d7 0c 8d | a2 0f c8 20 84 0d c9 3d |.... ...|... ...=|
|00002240| f0 0b 9d 0d 0e e8 e4 20 | d0 f1 4c 9f 0d 8a f0 fa |....... |..L.....|
|00002250| 8d a6 0f b9 01 02 c9 ba | d0 04 20 d7 0c c8 a2 00 |........|.. .....|
|00002260| ce a5 0f 20 e9 09 c9 2e | f0 0f 9d 2d 0e e8 e0 08 |... ....|...-....|
|00002270| d0 f1 20 e9 09 c9 2e d0 | f9 a2 08 20 e9 09 9d 2d |.. .....|... ...-|
|00002280| 0e e8 e0 0b d0 f5 20 84 | 0d f0 05 c9 2f f0 02 60 |...... .|..../..`|
|00002290| 88 68 68 8a f0 b4 20 84 | 0d 38 e9 54 8d a4 0f ad |.hh... .|.8.T....|
|000022a0| a2 0f cd a1 0f d0 0d 20 | a7 0d 71 0f a9 d3 20 f8 |....... |..q... .|
|000022b0| 0d 4c 40 09 20 4f 0c a0 | 00 84 50 84 51 8c a3 0f |.L@. O..|..P.Q...|
|000022c0| 20 6d 0c b0 39 a2 0a bd | 39 0e 29 7f dd 2d 0e d0 | m..9...|9.)..-..|
|000022d0| ef ca 10 f3 ad 44 0e 48 | 0a 0a 0a 0a a8 a2 00 bd |.....D.H|........|
|000022e0| 48 0e 99 aa 0f c8 e8 e0 | 10 d0 f4 68 69 00 cd a3 |H.......|...hi...|
|000022f0| 0f 90 08 8d a3 0f ad 47 | 0e 85 50 4c 23 0a ce a3 |.......G|..PL#...|
|00002300| 0f 10 03 4c 96 0d ad a3 | 0f ae a4 0f f0 0c c9 02 |...L....|........|
|00002310| 90 08 20 a7 0d 80 0f 4c | 40 09 4a 85 51 a9 00 6a |.. ....L|@.J.Q..j|
|00002320| 05 50 85 50 05 51 d0 08 | 20 a7 0d 90 0f 4c 40 09 |.P.P.Q..| ....L@.|
|00002330| a0 00 8c a3 0f c8 8c 9e | 0f ad a4 0f d0 03 20 63 |........|...... c|
|00002340| 0b a4 50 c4 54 a5 51 e5 | 55 f0 02 b0 04 a5 51 90 |..P.T.Q.|U.....Q.|
|00002350| 09 ad a4 0f d0 bc a4 54 | a5 55 84 56 85 57 a9 aa |.......T|.U.V.W..|
|00002360| a0 10 85 52 84 53 ce 9e | 0f d0 03 20 02 0d ad 9e |...R.S..|... ....|
|00002370| 0f 4a b0 03 20 22 0d a5 | 52 18 69 80 85 52 90 02 |.J.. "..|R.i..R..|
|00002380| e6 53 a5 50 d0 02 c6 51 | c6 50 a5 56 d0 02 c6 57 |.S.P...Q|.P.V...W|
|00002390| c6 56 a5 56 05 57 d0 ce | ad a4 0f d0 06 20 87 0b |.V.V.W..|..... ..|
|000023a0| 4c 09 0b 20 1a 0b a5 50 | 05 51 d0 95 ad a4 0f d0 |L.. ...P|.Q......|
|000023b0| 03 20 81 0b 4c 40 09 20 | a7 0d 43 0f a5 52 38 e9 |. ..L@. |..C..R8.|
|000023c0| aa a8 a5 53 e9 10 48 20 | d3 0d 98 48 20 f3 0d 20 |...S..H |...H .. |
|000023d0| a7 0d 27 0f 20 54 0b 20 | a7 0d 2e 0f a0 aa a9 10 |..'. T. |........|
|000023e0| 20 d3 0d 20 a7 0d 31 0f | 68 a8 68 20 d3 0d 4c 79 | .. ..1.|h.h ..Ly|
|000023f0| 0b a0 00 b9 0d 0e 20 f8 | 0d c8 cc a6 0f d0 f4 60 |...... .|.......`|
|00002400| 20 a7 0d 12 0f 20 54 0b | 20 79 0b 20 a7 0d 20 0f | .... T.| y. .. .|
|00002410| 20 54 0b 4c f3 0d 20 a7 | 0d 3c 0f 4c f3 0d 20 a7 | T.L.. .|.<.L.. .|
|00002420| 0d 18 0f 60 a9 aa a0 10 | 85 56 84 57 ae a8 0f a0 |...`....|.V.W....|
|00002430| 00 b1 56 09 80 c9 9a d0 | 01 98 c9 8a d0 04 e0 8d |..V.....|........|
|00002440| f0 03 20 bc 0b e6 56 d0 | 02 e6 57 a5 56 c5 52 a5 |.. ...V.|..W.V.R.|
|00002450| 57 e5 53 90 da 8e a8 0f | 60 aa 20 f8 0d c9 8d d0 |W.S.....|`. .....|
|00002460| 05 a9 00 8d a7 0f c9 a0 | 90 03 ee a7 0f c9 89 d0 |........|........|
|00002470| 0c a9 a0 20 bc 0b ad a7 | 0f 29 07 d0 f4 60 20 c3 |... ....|.)...` .|
|00002480| 0c f0 03 20 a6 0c 20 a7 | 0d 34 0f 20 a7 0d 3c 0f |... .. .|.4. ..<.|
|00002490| 20 f3 0d 4c 40 09 20 c3 | 0c f0 03 8d a1 0f 20 4f | ..L@. .|...... O|
|000024a0| 0c 20 6d 0c b0 43 ad 44 | 0e d0 f6 ee a5 0f ad a5 |. m..C.D|........|
|000024b0| 0f 4a 90 0c 20 f3 0d ad | a1 0f 18 69 c1 20 f8 0d |.J.. ...|...i. ..|
|000024c0| a9 ba 20 f8 0d 20 f6 0d | a0 00 b9 39 0e 20 f8 0d |.. .. ..|...9. ..|
|000024d0| c8 c0 08 90 f5 20 f6 0d | b9 39 0e 20 f8 0d c8 c0 |..... ..|.9. ....|
|000024e0| 0b 90 f5 20 f6 0d 4c 04 | 0c 4c 40 09 ad a1 0f 20 |... ..L.|.L@.... |
|000024f0| eb 0c a9 03 8d 9d 0f a9 | 00 8d 9c 0f 8d 9e 0f 8d |........|........|
|00002500| a5 0f 20 e3 03 85 07 84 | 06 60 ad 9e 0f 29 07 d0 |.. .....|.`...)..|
|00002510| 03 20 2f 0d ad 9e 0f 0a | 0a 0a 0a 0a a8 b9 aa 10 |. /.....|........|
|00002520| d0 0e a2 00 b9 aa 10 9d | 38 0e c8 e8 e0 20 d0 f4 |........|8.... ..|
|00002530| 08 ee 9e 0f ad 9e 0f c9 | 30 f0 05 28 d0 cc 18 60 |........|0..(...`|
|00002540| 28 38 60 8d a2 0f 20 eb | 0c 4a 4a 4a 4a 69 30 8d |(8`... .|.JJJJi0.|
|00002550| 3e 0f ad a0 0f 69 30 8d | 41 0f 60 68 68 4c 7b 09 |>....i0.|A.`hhL{.|
|00002560| ad 03 02 c9 8d f0 f3 c9 | a0 d0 f0 ad 05 02 c9 ba |........|........|
|00002570| d0 e9 a0 04 20 84 0d 38 | e9 41 90 04 c9 06 90 da |.... ..8|.A......|
|00002580| 20 a7 0d 71 0f 4c 40 09 | 48 29 01 18 69 01 8d a0 | ..q.L@.|H)..i...|
|00002590| 0f 68 0a 0a 0a 29 f0 49 | ff 69 61 8d 9f 0f 60 ac |.h...).I|.ia...`.|
|000025a0| a3 0f ee a3 0f b9 aa 0f | 48 29 03 0a 0a 8d 9c 0f |........|H)......|
|000025b0| 68 4a 4a 18 69 03 8d 9d | 0f a9 08 8d 9e 0f 60 a0 |hJJ.i...|......`.|
|000025c0| 08 a5 52 91 06 c8 a5 53 | 91 06 d0 0b a0 08 a9 aa |..R....S|........|
|000025d0| 91 06 c8 a9 10 91 06 ae | 9c 0f ad 9d 0f 20 54 0d |........|..... T.|
|000025e0| ae 9c 0f e8 e0 10 90 05 | a2 00 ee 9d 0f 8e 9c 0f |........|........|
|000025f0| 60 48 a0 01 ad 9f 0f 91 | 06 c8 ad a0 0f 91 06 c8 |`H......|........|
|00002600| a9 00 91 06 c8 68 91 06 | c8 bd fd 0d 91 06 a9 01 |.....h..|........|
|00002610| a0 0c 91 06 20 e3 03 20 | d9 03 90 16 a9 07 4c f8 |.... .. |......L.|
|00002620| 0d b9 00 02 c8 29 7f c9 | 0d d0 07 2c a5 0f 10 0a |.....)..|...,....|
|00002630| a9 00 60 20 a7 0d 52 0f | 30 07 68 68 20 a7 0d 62 |..` ..R.|0.hh ..b|
|00002640| 0f 4c 40 09 68 85 f0 68 | 85 f1 aa a9 02 18 65 f0 |.L@.h..h|......e.|
|00002650| a8 90 01 e8 8a 48 98 48 | a0 02 b1 f0 aa 88 b1 f0 |.....H.H|........|
|00002660| 85 f0 86 f1 88 b1 f0 aa | 20 f8 0d c8 8a 10 f6 60 |........| ......`|
|00002670| 20 d7 0d 98 48 20 dd 0d | 68 60 48 4a 4a 4a 4a 20 | ...H ..|h`HJJJJ |
|00002680| e8 0d 68 29 0f c9 0a 90 | 02 69 06 69 b0 4c f8 0d |..h)....|.i.i.L..|
|00002690| a9 8d 2c a9 a0 09 80 4c | ed fd 00 06 0c 03 09 0f |..,....L|........|
|000026a0| 0e 05 0b 02 08 07 0d 04 | 0a 01 77 00 00 00 00 00 |........|..w.....|
|000026b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 20 20 20 | 20 20 20 2a 2a 2a 2a 2a |.....   |   *****|
|00002700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002710| 2a 2a 0d 20 20 20 20 20 | 20 2a 20 20 20 20 20 20 |**.     | *      |
|00002720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|00002730| 0d 20 20 20 20 20 20 2a | 20 20 43 50 2f 4d 20 54 |.      *|  CP/M T|
|00002740| 4f 20 41 50 50 4c 45 20 | 44 4f 53 20 20 2a 0d 20 |O APPLE |DOS  *. |
|00002750| 20 20 20 20 20 2a 20 20 | 20 20 46 49 4c 45 20 54 |     *  |  FILE T|
|00002760| 52 41 4e 53 46 45 52 20 | 20 20 20 2a 0d 20 20 20 |RANSFER |   *.   |
|00002770| 20 20 20 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 |   *    |        |
|00002780| 20 20 20 20 20 20 20 20 | 20 2a 0d 20 20 20 20 20 |        | *.     |
|00002790| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|000027a0| 2a 2a 2a 2a 2a 2a 2a 2a | 8d c4 c9 d2 c3 c1 d4 04 |********|........|
|000027b0| 4f 50 45 4e a0 0d 04 43 | 4c 4f 53 45 8d 04 57 52 |OPEN...C|LOSE..WR|
|000027c0| 49 54 45 a0 04 42 53 41 | 56 45 a0 2c 41 a4 2c 4c |ITE..BSA|VE.,A.,L|
|000027d0| a4 04 43 41 54 41 4c 4f | c7 2c 53 36 2c 44 31 8d |..CATALO|.,S6,D1.|
|000027e0| 0d 46 49 4c 45 20 4c 45 | 4e 47 54 48 3a 20 a4 07 |.FILE LE|NGTH: ..|
|000027f0| 0d 46 49 4c 45 20 4e 4f | 54 20 46 4f 55 4e c4 07 |.FILE NO|T FOUN..|
|00002800| 0d 43 4f 4d 4d 41 4e 44 | 20 45 52 52 4f d2 07 0d |.COMMAND| ERRO...|
|00002810| 49 4e 56 41 4c 49 44 20 | 44 52 49 56 c5 07 0d 46 |INVALID |DRIV...F|
|00002820| 49 4c 45 20 54 4f 4f 20 | 4c 41 52 47 c5 07 0d 45 |ILE TOO |LARG...E|
|00002830| 4d 50 54 59 20 46 49 4c | c5 00 00 00 00 00 00 00 |MPTY FIL|........|
|00002840| 00 00 00 00 00 00 00 41 | 56 45 a0 2c 41 a4 2c 4c |.......A|VE.,A.,L|
|00002850| a4 04 43 41 54 41 4c 4f | c7 2c 53 36 2c 44 31 8d |..CATALO|.,S6,D1.|
|00002860| 0d 46 49 4c 45 20 4c 45 | 4e 47 54 48 3a 20 a4 07 |.FILE LE|NGTH: ..|
|00002870| 0d 46 49 4c 45 20 4e 4f | 54 20 46 4f 55 4e c4 07 |.FILE NO|T FOUN..|
|00002880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 80 80 80 80 80 | 80 80 80 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 0d 0a 0d 0a 09 31 2e 20 | 20 43 50 44 4f 53 20 69 |.....1. | CPDOS i|
|00002910| 73 20 61 20 66 69 6c 65 | 20 74 72 61 6e 73 66 65 |s a file| transfe|
|00002920| 72 20 75 74 69 6c 69 74 | 79 20 74 68 61 74 20 72 |r utilit|y that r|
|00002930| 75 6e 73 20 75 6e 64 65 | 72 20 41 50 50 4c 45 2d |uns unde|r APPLE-|
|00002940| 44 4f 53 0d 0a 61 6e 64 | 20 61 6c 6c 6f 77 73 20 |DOS..and| allows |
|00002950| 74 72 61 6e 73 66 65 72 | 20 6f 66 20 66 69 6c 65 |transfer| of file|
|00002960| 73 20 66 72 6f 6d 20 43 | 50 2f 4d 20 66 6f 72 6d |s from C|P/M form|
|00002970| 61 74 20 74 6f 20 44 4f | 53 20 66 6f 72 6d 61 74 |at to DO|S format|
|00002980| 20 64 69 73 6b 73 2e 0d | 0a 09 32 2e 20 20 43 50 | disks..|..2.  CP|
|00002990| 4d 58 46 45 52 20 69 73 | 20 61 20 62 65 74 74 65 |MXFER is| a bette|
|000029a0| 72 20 43 50 2f 4d 20 74 | 6f 20 44 4f 53 20 74 72 |r CP/M t|o DOS tr|
|000029b0| 61 6e 73 66 65 72 20 75 | 74 69 6c 69 74 79 20 74 |ansfer u|tility t|
|000029c0| 68 61 74 20 77 61 73 0d | 0a 74 61 6b 65 6e 20 66 |hat was.|.taken f|
|000029d0| 72 6f 6d 20 61 20 4d 69 | 63 72 6f 73 6f 66 74 20 |rom a Mi|crosoft |
|000029e0| 61 70 2e 20 6e 6f 74 65 | 20 61 6e 64 20 72 75 6e |ap. note| and run|
|000029f0| 73 20 75 6e 64 65 72 20 | 43 50 2f 4d 2e 0d 0a 09 |s under |CP/M....|
|00002a00| 33 2e 20 20 42 4f 4f 54 | 20 69 73 20 61 6e 6f 74 |3.  BOOT| is anot|
|00002a10| 68 65 72 20 4d 69 63 72 | 6f 73 6f 66 74 20 75 74 |her Micr|osoft ut|
|00002a20| 69 6c 69 74 79 20 74 68 | 61 74 20 61 6c 6c 6f 77 |ility th|at allow|
|00002a30| 73 20 72 65 2d 62 6f 6f | 74 69 6e 67 0d 0a 6f 66 |s re-boo|ting..of|
|00002a40| 20 41 50 50 4c 45 44 4f | 53 20 66 72 6f 6d 20 43 | APPLEDO|S from C|
|00002a50| 50 2f 4d 20 77 69 74 68 | 6f 75 74 20 68 61 76 69 |P/M with|out havi|
|00002a60| 6e 67 20 74 6f 20 70 6f | 77 65 72 20 64 6f 77 6e |ng to po|wer down|
|00002a70| 20 61 6e 20 41 50 50 4c | 45 2e 0d 0a 09 09 09 09 | an APPL|E.......|
|00002a80| 09 0d 0a 09 09 09 09 09 | 09 4d 61 72 6b 20 4d 6f |........|.Mark Mo|
|00002a90| 6e 74 67 6f 6d 65 72 79 | 0d 0a 0d 0a 0d 0a 1a 1a |ntgomery|........|
|00002aa0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002ab0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002ac0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002ad0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002ae0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002af0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+