home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1989-07-03 | 4.4 KB | [TEXT/WORD] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Mon Jul 3 17:13:37 1989, modified Mon Jul 3 17:13:37 1989, creator 'WORD', type ASCII, 3721 bytes "BAS-BLOCKCOPYL" , at 0xf09 406 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [WORD] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 42 41 53 2d 42 4c | 4f 43 4b 43 4f 50 59 4c |..BAS-BL|OCKCOPYL|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 57 4f 52 | 44 01 00 00 00 00 00 00 |.TEXTWOR|D.......|
|00000050| 00 00 00 00 00 0e 89 00 | 00 01 96 a0 d5 87 81 a0 |........|........|
|00000060| d5 87 81 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 35 69 00 00 |........|....5i..|
|00000080| 0d 35 20 20 52 45 4d 20 | 20 42 4c 4f 43 4b 20 43 |.5 REM | BLOCK C|
|00000090| 4f 50 59 20 50 52 4f 47 | 52 41 4d 20 20 20 28 43 |OPY PROG|RAM (C|
|000000a0| 29 20 31 39 38 34 20 42 | 59 20 47 20 53 20 48 45 |) 1984 B|Y G S HE|
|000000b0| 4c 4c 45 52 20 20 20 30 | 37 2f 32 33 2f 38 34 20 |LLER 0|7/23/84 |
|000000c0| 20 56 45 52 20 31 2e 31 | 0d 36 20 20 52 45 4d 20 | VER 1.1|.6 REM |
|000000d0| 20 20 50 4f 52 54 49 4f | 4e 53 20 4f 46 20 54 48 | PORTIO|NS OF TH|
|000000e0| 49 53 20 50 52 4f 47 52 | 41 4d 20 57 45 52 45 20 |IS PROGR|AM WERE |
|000000f0| 45 58 54 52 41 43 54 45 | 44 20 46 52 4f 4d 3a 0d |EXTRACTE|D FROM:.|
|00000100| 31 30 20 52 45 4d 20 2a | 2a 2a 2a 2a 20 20 44 73 |10 REM *|**** Ds|
|00000110| 6b 5a 61 70 2e 42 41 53 | 20 20 20 20 20 4d 61 63 |kZap.BAS| Mac|
|00000120| 69 6e 74 6f 73 68 20 44 | 69 73 6b 20 5a 61 70 20 |intosh D|isk Zap |
|00000130| 50 72 6f 67 72 61 6d 20 | 20 2a 2a 2a 2a 2a 0d 32 |Program | *****.2|
|00000140| 30 20 52 45 4d 20 20 20 | 20 20 20 20 20 20 28 63 |0 REM | (c|
|00000150| 29 31 39 38 34 20 62 79 | 20 47 61 72 79 20 42 6f |)1984 by| Gary Bo|
|00000160| 75 64 72 65 61 75 78 20 | 20 20 20 20 20 20 20 20 |udreaux | |
|00000170| 20 30 37 2f 31 30 2f 38 | 34 20 20 20 20 20 20 76 | 07/10/8|4 v|
|00000180| 31 2e 30 30 0d 33 30 20 | 52 45 4d 20 20 20 20 20 |1.00.30 |REM |
|00000190| 20 20 20 20 50 65 72 6d | 69 73 73 69 6f 6e 20 67 | Perm|ission g|
|000001a0| 72 61 6e 74 65 64 20 66 | 6f 72 20 70 65 72 73 6f |ranted f|or perso|
|000001b0| 6e 61 6c 2c 20 6e 6f 6e | 2d 63 6f 6d 6d 65 72 63 |nal, non|-commerc|
|000001c0| 69 61 6c 20 75 73 65 2c | 0d 34 30 20 52 45 4d 20 |ial use,|.40 REM |
|000001d0| 20 20 20 20 20 20 20 20 | 20 70 72 6f 76 69 64 65 | | provide|
|000001e0| 64 20 74 68 61 74 20 74 | 68 69 73 20 6e 6f 74 69 |d that t|his noti|
|000001f0| 63 65 20 69 73 20 69 6e | 63 6c 75 64 65 64 20 69 |ce is in|cluded i|
|00000200| 6e 74 61 63 74 2e 0d 35 | 30 20 52 45 4d 0d 36 30 |ntact..5|0 REM.60|
|00000210| 20 52 45 4d 20 20 20 20 | 20 53 69 67 6e 69 66 69 | REM | Signifi|
|00000220| 63 61 6e 74 20 70 6f 72 | 74 69 6f 6e 73 20 6f 66 |cant por|tions of|
|00000230| 20 74 68 65 20 61 62 6f | 76 65 20 70 72 6f 67 72 | the abo|ve progr|
|00000240| 61 6d 20 77 65 72 65 20 | 65 78 74 72 61 63 74 65 |am were |extracte|
|00000250| 64 20 66 72 6f 6d 3a 0d | 37 30 20 52 45 4d 20 20 |d from:.|70 REM |
|00000260| 20 20 20 44 73 6b 44 6d | 70 2e 42 41 53 20 20 20 | DskDm|p.BAS |
|00000270| 51 75 69 63 6b 20 26 20 | 44 69 72 74 79 20 20 4d |Quick & |Dirty M|
|00000280| 61 63 69 6e 74 6f 73 68 | 20 44 69 73 6b 20 44 75 |acintosh| Disk Du|
|00000290| 6d 70 0d 38 30 20 52 45 | 4d 20 20 20 20 20 20 28 |mp.80 RE|M (|
|000002a0| 63 29 31 39 38 34 20 62 | 79 20 52 2e 20 48 2e 20 |c)1984 b|y R. H. |
|000002b0| 4e 69 63 68 6f 6c 73 6f | 6e 20 20 20 20 20 20 20 |Nicholso|n |
|000002c0| 20 20 20 30 34 2f 32 30 | 2f 38 34 20 20 20 20 20 | 04/20|/84 |
|000002d0| 20 76 2e 30 32 0d 39 30 | 20 52 45 4d 0d 31 30 30 | v.02.90| REM.100|
|000002e0| 20 53 24 3d 22 22 3a 45 | 24 3d 22 22 3a 53 3d 30 | S$="":E|$="":S=0|
|000002f0| 3a 45 3d 30 3a 49 3d 30 | 3a 4c 50 3d 31 3a 4c 49 |:E=0:I=0|:LP=1:LI|
|00000300| 4e 45 31 3d 30 3a 42 4c | 4b 3d 2d 31 0d 31 30 34 |NE1=0:BL|K=-1.104|
|00000310| 20 48 45 58 3d 30 3a 44 | 45 43 3d 30 3a 58 3d 30 | HEX=0:D|EC=0:X=0|
|00000320| 3a 48 58 24 3d 22 22 3a | 58 39 3d 30 3a 49 39 3d |:HX$="":|X9=0:I9=|
|00000330| 30 3a 58 38 3d 30 3a 58 | 37 3d 31 32 37 3a 48 45 |0:X8=0:X|7=127:HE|
|00000340| 58 58 24 3d 22 22 0d 31 | 30 38 20 43 4d 44 24 3d |XX$="".1|08 CMD$=|
|00000350| 22 22 3a 50 41 52 24 3d | 22 22 0d 31 31 32 20 44 |"":PAR$=|"".112 D|
|00000360| 49 4d 20 43 44 53 4b 25 | 28 34 37 29 2c 44 42 55 |IM CDSK%|(47),DBU|
|00000370| 46 25 28 32 35 36 29 0d | 31 31 36 20 48 45 58 58 |F%(256).|116 HEXX|
|00000380| 24 3d 22 30 31 32 33 34 | 35 36 37 38 39 41 42 43 |$="01234|56789ABC|
|00000390| 44 45 46 22 0d 31 32 30 | 20 43 41 4c 4c 20 54 45 |DEF".120| CALL TE|
|000003a0| 58 54 46 4f 4e 54 28 34 | 29 3a 43 41 4c 4c 20 54 |XTFONT(4|):CALL T|
|000003b0| 45 58 54 53 49 5a 45 28 | 31 32 29 3a 43 41 4c 4c |EXTSIZE(|12):CALL|
|000003c0| 20 54 45 58 54 46 41 43 | 45 28 31 29 0d 31 33 30 | TEXTFAC|E(1).130|
|000003d0| 20 57 49 44 54 48 20 37 | 30 0d 31 34 30 20 43 4c | WIDTH 7|0.140 CL|
|000003e0| 53 0d 31 34 35 20 50 52 | 49 4e 54 20 22 20 20 20 |S.145 PR|INT " |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 4c 4f 43 | | BLOC|
|00000400| 4b 53 4d 49 54 48 20 2d | 20 28 63 29 20 31 39 38 |KSMITH -| (c) 198|
|00000410| 34 20 20 47 20 53 20 48 | 45 4c 4c 45 52 22 0d 31 |4 G S H|ELLER".1|
|00000420| 34 36 20 43 41 4c 4c 20 | 54 45 58 54 53 49 5a 45 |46 CALL |TEXTSIZE|
|00000430| 28 39 29 0d 31 35 30 20 | 50 52 49 4e 54 3a 50 52 |(9).150 |PRINT:PR|
|00000440| 49 4e 54 20 22 20 20 20 | 20 20 20 20 20 20 20 20 |INT " | |
|00000450| 41 20 4d 41 43 49 4e 54 | 4f 53 48 20 42 4c 4f 43 |A MACINT|OSH BLOC|
|00000460| 4b 20 43 4f 50 59 20 55 | 54 49 4c 49 54 59 20 20 |K COPY U|TILITY |
|00000470| 28 20 56 31 2e 31 20 20 | 37 2f 32 33 2f 38 34 29 |( V1.1 |7/23/84)|
|00000480| 22 0d 31 35 31 20 50 52 | 49 4e 54 0d 31 35 32 20 |".151 PR|INT.152 |
|00000490| 50 52 49 4e 54 20 22 20 | 54 68 69 73 20 75 74 69 |PRINT " |This uti|
|000004a0| 6c 69 74 79 20 63 6f 70 | 69 65 73 20 42 6c 6f 63 |lity cop|ies Bloc|
|000004b0| 6b 73 20 28 35 30 30 20 | 42 79 74 65 73 29 20 66 |ks (500 |Bytes) f|
|000004c0| 72 6f 6d 20 74 68 65 20 | 69 6e 74 65 72 6e 61 6c |rom the |internal|
|000004d0| 20 64 72 69 76 65 20 74 | 6f 0d 74 68 65 20 65 78 | drive t|o.the ex|
|000004e0| 74 65 72 6e 61 6c 20 64 | 72 69 76 65 2e 22 0d 31 |ternal d|rive.".1|
|000004f0| 35 33 20 50 52 49 4e 54 | 0d 31 35 34 20 50 52 49 |53 PRINT|.154 PRI|
|00000500| 4e 54 22 31 2e 20 20 45 | 6a 65 63 74 20 42 6c 6f |NT"1. E|ject Blo|
|00000510| 63 6b 73 6d 69 74 68 20 | 64 69 73 6b 20 66 72 6f |cksmith |disk fro|
|00000520| 6d 20 49 6e 74 65 72 6e | 61 6c 20 64 72 69 76 65 |m Intern|al drive|
|00000530| 20 75 73 69 6e 67 20 20 | 43 4d 44 20 53 48 49 46 | using |CMD SHIF|
|00000540| 54 20 31 2e 22 0d 31 35 | 36 20 50 52 49 4e 54 22 |T 1.".15|6 PRINT"|
|00000550| 32 2e 20 20 49 6e 73 65 | 72 74 20 20 77 72 69 74 |2. Inse|rt writ|
|00000560| 65 20 70 72 6f 74 65 63 | 74 65 64 20 64 69 73 6b |e protec|ted disk|
|00000570| 20 74 6f 20 62 65 20 63 | 6f 70 69 65 64 20 69 6e | to be c|opied in|
|00000580| 20 69 6e 74 65 72 6e 61 | 6c 20 64 72 69 76 65 2e | interna|l drive.|
|00000590| 22 0d 31 35 38 20 50 52 | 49 4e 54 22 33 2e 20 20 |".158 PR|INT"3. |
|000005a0| 49 6e 73 65 72 74 20 69 | 6e 69 74 69 61 6c 69 7a |Insert i|nitializ|
|000005b0| 65 64 20 64 69 73 6b 20 | 69 6e 20 65 78 74 65 72 |ed disk |in exter|
|000005c0| 6e 61 6c 20 64 72 69 76 | 65 2e 22 0d 31 36 30 20 |nal driv|e.".160 |
|000005d0| 47 4f 53 55 42 20 33 30 | 30 20 3a 20 52 45 4d 20 |GOSUB 30|0 : REM |
|000005e0| 70 72 69 6e 74 20 63 6f | 6d 6d 61 6e 64 20 6d 65 |print co|mmand me|
|000005f0| 6e 75 0d 31 37 30 20 47 | 4f 53 55 42 20 36 30 30 |nu.170 G|OSUB 600|
|00000600| 20 3a 20 52 45 4d 20 69 | 6e 69 74 20 63 6f 64 65 | : REM i|nit code|
|00000610| 20 61 72 72 61 79 0d 31 | 38 30 20 47 4f 54 4f 20 | array.1|80 GOTO |
|00000620| 31 30 30 30 0d 32 32 30 | 20 52 45 4d 20 2a 2a 2a |1000.220| REM ***|
|00000630| 2a 2a 2a 2a 2a 2a 2a 20 | 78 20 74 6f 20 68 78 24 |******* |x to hx$|
|00000640| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 32 32 32 20 | *******|***.222 |
|00000650| 48 58 24 3d 22 22 3a 58 | 39 3d 58 0d 32 32 34 20 |HX$="":X|9=X.224 |
|00000660| 58 38 3d 58 39 3a 58 39 | 3d 49 4e 54 28 58 39 2f |X8=X9:X9|=INT(X9/|
|00000670| 31 36 29 3a 58 38 3d 58 | 38 20 2d 31 36 2a 58 39 |16):X8=X|8 -16*X9|
|00000680| 0d 32 32 36 20 48 58 24 | 3d 4d 49 44 24 28 48 45 |.226 HX$|=MID$(HE|
|00000690| 58 58 24 2c 58 38 2b 31 | 2c 31 29 2b 48 58 24 3a |XX$,X8+1|,1)+HX$:|
|000006a0| 49 46 28 58 39 3c 3e 30 | 29 20 41 4e 44 20 4c 45 |IF(X9<>0|) AND LE|
|000006b0| 4e 28 48 58 24 29 3c 38 | 20 54 48 45 4e 20 32 32 |N(HX$)<8| THEN 22|
|000006c0| 34 0d 32 32 38 20 49 46 | 20 4c 45 4e 28 48 58 24 |4.228 IF| LEN(HX$|
|000006d0| 29 3c 34 20 54 48 45 4e | 20 48 58 24 3d 22 30 22 |)<4 THEN| HX$="0"|
|000006e0| 2b 48 58 24 3a 47 4f 54 | 4f 20 32 32 38 0d 32 33 |+HX$:GOT|O 228.23|
|000006f0| 30 20 52 45 54 55 52 4e | 0d 33 30 30 20 52 45 4d |0 RETURN|.300 REM|
|00000700| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 70 72 69 6e | *******|*** prin|
|00000710| 74 20 63 6f 6d 6d 61 6e | 64 20 6d 65 6e 75 20 2a |t comman|d menu *|
|00000720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 33 30 35 20 50 52 |********|*.305 PR|
|00000730| 49 4e 54 0d 33 31 30 20 | 50 52 49 4e 54 0d 33 35 |INT.310 |PRINT.35|
|00000740| 30 20 50 52 49 4e 54 22 | 20 54 79 70 65 20 43 20 |0 PRINT"| Type C |
|00000750| 20 3c 52 45 54 3e 20 74 | 6f 20 62 65 67 69 6e 20 | <RET> t|o begin |
|00000760| 63 6f 70 79 0d 33 36 30 | 20 50 52 49 4e 54 0d 33 |copy.360| PRINT.3|
|00000770| 39 30 20 52 45 54 55 52 | 4e 0d 35 30 30 20 52 45 |90 RETUR|N.500 RE|
|00000780| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 20 72 65 61 |M ******|**** rea|
|00000790| 64 20 62 6c 6f 63 6b 20 | 66 72 6f 6d 20 64 69 73 |d block |from dis|
|000007a0| 6b 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 35 30 32 |k ******|****.502|
|000007b0| 20 49 46 20 50 41 52 24 | 3d 22 22 20 54 48 45 4e | IF PAR$|="" THEN|
|000007c0| 20 42 45 45 50 20 3a 20 | 52 45 54 55 52 4e 0d 35 | BEEP : |RETURN.5|
|000007d0| 30 34 20 43 44 53 4b 25 | 28 38 29 3d 26 48 41 30 |04 CDSK%|(8)=&HA0|
|000007e0| 30 32 3a 20 43 44 53 4b | 25 28 31 39 29 3d 26 48 |02: CDSK|%(19)=&H|
|000007f0| 41 30 30 32 0d 35 30 36 | 20 44 45 43 3d 56 41 4c |A002.506| DEC=VAL|
|00000800| 28 50 41 52 24 29 20 3a | 20 42 4c 4b 3d 44 45 43 |(PAR$) :| BLK=DEC|
|00000810| 20 3a 20 44 45 43 3d 44 | 45 43 2a 35 31 32 0d 35 | : DEC=D|EC*512.5|
|00000820| 30 38 20 47 4f 54 4f 20 | 35 32 30 0d 35 31 30 20 |08 GOTO |520.510 |
|00000830| 52 45 4d 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 77 |REM ****|****** w|
|00000840| 72 69 74 65 20 62 75 66 | 66 65 72 20 62 61 63 6b |rite buf|fer back|
|00000850| 20 74 6f 20 64 69 73 6b | 20 2a 2a 2a 2a 2a 2a 2a | to disk| *******|
|00000860| 2a 2a 2a 0d 35 31 32 20 | 49 46 20 42 4c 4b 3d 2d |***.512 |IF BLK=-|
|00000870| 31 20 54 48 45 4e 20 42 | 45 45 50 20 3a 20 52 45 |1 THEN B|EEP : RE|
|00000880| 54 55 52 4e 0d 35 31 34 | 20 43 44 53 4b 25 28 38 |TURN.514| CDSK%(8|
|00000890| 29 3d 26 48 41 30 30 33 | 3a 20 43 44 53 4b 25 28 |)=&HA003|: CDSK%(|
|000008a0| 31 39 29 3d 26 48 41 30 | 30 33 3a 20 44 45 43 3d |19)=&HA0|03: DEC=|
|000008b0| 42 4c 4b 2a 35 31 32 0d | 35 32 30 20 52 45 4d 20 |BLK*512.|520 REM |
|000008c0| 2a 2a 2a 2a 2a 20 63 6f | 6d 6d 6f 6e 20 73 65 63 |***** co|mmon sec|
|000008d0| 74 69 6f 6e 20 66 6f 72 | 20 64 69 73 6b 20 72 65 |tion for| disk re|
|000008e0| 61 64 20 61 6e 64 20 77 | 72 69 74 65 20 2a 2a 2a |ad and w|rite ***|
|000008f0| 2a 2a 0d 35 32 32 20 43 | 44 53 4b 25 28 31 36 2b |**.522 C|DSK%(16+|
|00000900| 32 33 29 3d 49 4e 54 28 | 44 45 43 2f 36 35 35 33 |23)=INT(|DEC/6553|
|00000910| 36 21 29 0d 35 32 34 20 | 58 3d 44 45 43 2d 36 35 |6!).524 |X=DEC-65|
|00000920| 35 33 36 21 2a 49 4e 54 | 28 44 45 43 2f 36 35 35 |536!*INT|(DEC/655|
|00000930| 33 36 21 29 20 3a 20 49 | 46 20 58 20 3e 3d 20 33 |36!) : I|F X >= 3|
|00000940| 32 37 36 38 21 20 54 48 | 45 4e 20 58 3d 58 2d 36 |2768! TH|EN X=X-6|
|00000950| 35 35 33 36 21 0d 35 32 | 36 20 43 44 53 4b 25 28 |5536!.52|6 CDSK%(|
|00000960| 31 36 2b 32 34 29 3d 58 | 0d 35 33 30 20 50 54 52 |16+24)=X|.530 PTR|
|00000970| 3d 56 41 52 50 54 52 28 | 44 42 55 46 25 28 30 29 |=VARPTR(|DBUF%(0)|
|00000980| 29 0d 35 33 32 20 43 44 | 53 4b 25 28 31 36 2b 31 |).532 CD|SK%(16+1|
|00000990| 36 29 3d 49 4e 54 28 50 | 54 52 2f 36 35 35 33 36 |6)=INT(P|TR/65536|
|000009a0| 21 29 0d 35 33 34 20 58 | 3d 50 54 52 2d 36 35 35 |!).534 X|=PTR-655|
|000009b0| 33 36 21 2a 49 4e 54 28 | 50 54 52 2f 36 35 35 33 |36!*INT(|PTR/6553|
|000009c0| 36 21 29 20 3a 20 49 46 | 20 58 20 3e 3d 20 33 32 |6!) : IF| X >= 32|
|000009d0| 37 36 38 21 20 54 48 45 | 4e 20 58 3d 58 2d 36 35 |768! THE|N X=X-65|
|000009e0| 35 33 36 21 0d 35 33 36 | 20 43 44 53 4b 25 28 31 |536!.536| CDSK%(1|
|000009f0| 36 2b 31 37 29 3d 58 0d | 35 34 30 20 49 46 20 43 |6+17)=X.|540 IF C|
|00000a00| 44 53 4b 25 28 30 29 3c | 3e 26 48 34 31 46 41 20 |DSK%(0)<|>&H41FA |
|00000a10| 54 48 45 4e 20 53 54 4f | 50 0d 35 35 30 20 58 3d |THEN STO|P.550 X=|
|00000a20| 56 41 52 50 54 52 28 43 | 44 53 4b 25 28 30 29 29 |VARPTR(C|DSK%(0))|
|00000a30| 3a 20 43 41 4c 4c 20 58 | 0d 35 36 30 20 58 3d 43 |: CALL X|.560 X=C|
|00000a40| 44 53 4b 25 28 31 35 29 | 3a 49 46 20 58 3c 3e 30 |DSK%(15)|:IF X<>0|
|00000a50| 20 54 48 45 4e 20 47 4f | 53 55 42 20 32 32 30 3a | THEN GO|SUB 220:|
|00000a60| 42 45 45 50 3a 50 52 49 | 4e 54 20 22 52 65 74 75 |BEEP:PRI|NT "Retu|
|00000a70| 72 6e 20 63 6f 64 65 20 | 3d 20 22 3b 48 58 24 0d |rn code |= ";HX$.|
|00000a80| 35 37 30 20 52 45 54 55 | 52 4e 0d 36 30 30 20 52 |570 RETU|RN.600 R|
|00000a90| 45 4d 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 20 6c 6f |EM *****|***** lo|
|00000aa0| 61 64 20 63 6f 64 65 20 | 61 72 72 61 79 20 2a 2a |ad code |array **|
|00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 36 30 34 20 49 3d 30 |********|.604 I=0|
|00000ac0| 0d 36 30 38 20 52 45 53 | 54 4f 52 45 20 36 35 30 |.608 RES|TORE 650|
|00000ad0| 0d 36 31 30 20 52 45 41 | 44 20 58 20 3a 20 49 46 |.610 REA|D X : IF|
|00000ae0| 20 58 3c 3e 2d 31 20 54 | 48 45 4e 20 43 44 53 4b | X<>-1 T|HEN CDSK|
|00000af0| 25 28 49 29 3d 58 20 3a | 20 49 3d 49 2b 31 20 3a |%(I)=X :| I=I+1 :|
|00000b00| 20 47 4f 54 4f 20 36 31 | 30 0d 36 32 30 20 52 45 | GOTO 61|0.620 RE|
|00000b10| 54 55 52 4e 0d 36 35 30 | 20 44 41 54 41 20 26 68 |TURN.650| DATA &h|
|00000b20| 34 31 46 41 2c 26 68 30 | 30 31 45 2c 26 68 32 32 |41FA,&h0|01E,&h22|
|00000b30| 37 38 2c 26 68 30 31 31 | 43 0d 36 35 35 20 44 41 |78,&h011|C.655 DA|
|00000b40| 54 41 20 26 68 32 32 36 | 39 2c 26 68 30 30 31 30 |TA &h226|9,&h0010|
|00000b50| 2c 26 68 32 32 35 31 2c | 26 68 34 32 38 30 2c 26 |,&h2251,|&h4280,&|
|00000b60| 68 41 30 30 32 0d 36 36 | 30 20 44 41 54 41 20 26 |hA002.66|0 DATA &|
|00000b70| 68 34 31 46 41 2c 26 68 | 30 30 30 41 2c 26 68 33 |h41FA,&h|000A,&h3|
|00000b80| 30 38 30 2c 26 68 34 45 | 37 35 2c 26 68 37 32 36 |080,&h4E|75,&h726|
|00000b90| 38 2c 26 68 36 65 30 30 | 2c 30 0d 36 36 35 20 44 |8,&h6e00|,0.665 D|
|00000ba0| 41 54 41 20 26 68 30 30 | 30 30 2c 26 68 30 30 30 |ATA &h00|00,&h000|
|00000bb0| 30 2c 26 68 30 30 30 35 | 2c 26 68 41 30 30 32 0d |0,&h0005|,&hA002.|
|00000bc0| 36 37 30 20 44 41 54 41 | 20 26 68 30 30 30 30 2c |670 DATA| &h0000,|
|00000bd0| 26 68 30 30 30 30 2c 26 | 68 30 30 30 30 2c 26 68 |&h0000,&|h0000,&h|
|00000be0| 30 30 30 30 0d 36 37 35 | 20 44 41 54 41 20 26 68 |0000.675| DATA &h|
|00000bf0| 30 30 30 31 2c 26 68 30 | 30 30 30 2c 26 68 30 30 |0001,&h0|000,&h00|
|00000c00| 30 30 2c 26 68 30 30 30 | 31 0d 36 38 30 20 44 41 |00,&h000|1.680 DA|
|00000c10| 54 41 20 26 68 46 46 46 | 42 2c 26 68 30 30 30 38 |TA &hFFF|B,&h0008|
|00000c20| 2c 26 68 30 30 30 31 2c | 26 68 46 46 30 32 0d 36 |,&h0001,|&hFF02.6|
|00000c30| 38 35 20 44 41 54 41 20 | 26 68 30 30 30 31 2c 26 |85 DATA |&h0001,&|
|00000c40| 68 33 30 30 30 2c 26 68 | 30 30 30 30 2c 26 68 30 |h3000,&h|0000,&h0|
|00000c50| 32 30 30 0d 36 39 30 20 | 44 41 54 41 20 26 68 30 |200.690 |DATA &h0|
|00000c60| 30 30 30 2c 26 68 30 30 | 30 30 2c 26 68 30 30 30 |000,&h00|00,&h000|
|00000c70| 31 2c 26 68 30 30 30 30 | 2c 26 68 30 30 30 30 0d |1,&h0000|,&h0000.|
|00000c80| 36 39 35 20 44 41 54 41 | 20 2d 31 0d 31 30 30 30 |695 DATA| -1.1000|
|00000c90| 20 52 45 4d 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 | REM ***|******* |
|00000ca0| 67 65 74 20 63 6f 6d 6d | 61 6e 64 20 63 68 61 72 |get comm|and char|
|00000cb0| 61 63 74 65 72 20 61 6e | 64 20 70 61 72 61 6d 65 |acter an|d parame|
|00000cc0| 74 65 72 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 31 |ter ****|******.1|
|00000cd0| 30 30 32 20 50 52 49 4e | 54 20 3a 20 49 4e 50 55 |002 PRIN|T : INPU|
|00000ce0| 54 20 22 3e 22 2c 43 4d | 44 24 20 3a 20 49 46 20 |T ">",CM|D$ : IF |
|00000cf0| 43 4d 44 24 3d 22 22 20 | 54 48 45 4e 20 47 4f 54 |CMD$="" |THEN GOT|
|00000d00| 4f 20 31 30 30 30 0d 31 | 30 30 34 20 50 41 52 24 |O 1000.1|004 PAR$|
|00000d10| 3d 52 49 47 48 54 24 28 | 43 4d 44 24 2c 4c 45 4e |=RIGHT$(|CMD$,LEN|
|00000d20| 28 43 4d 44 24 29 2d 31 | 29 0d 31 30 30 36 20 43 |(CMD$)-1|).1006 C|
|00000d30| 4d 44 24 3d 4c 45 46 54 | 24 28 43 4d 44 24 2c 31 |MD$=LEFT|$(CMD$,1|
|00000d40| 29 0d 31 30 30 38 20 49 | 46 20 43 4d 44 24 3e 3d |).1008 I|F CMD$>=|
|00000d50| 22 61 22 20 54 48 45 4e | 20 43 4d 44 24 3d 43 48 |"a" THEN| CMD$=CH|
|00000d60| 52 24 28 41 53 43 28 43 | 4d 44 24 29 2d 33 32 29 |R$(ASC(C|MD$)-32)|
|00000d70| 0d 31 30 36 35 20 49 46 | 20 43 4d 44 24 20 3d 20 |.1065 IF| CMD$ = |
|00000d80| 20 22 43 22 20 54 48 45 | 4e 20 47 4f 53 55 42 20 | "C" THE|N GOSUB |
|00000d90| 31 30 37 32 3a 47 4f 54 | 4f 20 31 30 30 30 0d 31 |1072:GOT|O 1000.1|
|00000da0| 30 37 32 20 43 41 4c 4c | 20 4d 4f 56 45 54 4f 28 |072 CALL| MOVETO(|
|00000db0| 32 35 30 2c 31 37 35 29 | 0d 31 30 37 33 20 50 52 |250,175)|.1073 PR|
|00000dc0| 49 4e 54 22 4e 6f 77 20 | 63 6f 70 79 69 6e 67 20 |INT"Now |copying |
|00000dd0| 42 6c 6f 63 6b 20 23 22 | 0d 31 30 37 35 20 46 4f |Block #"|.1075 FO|
|00000de0| 52 20 5a 3d 30 20 54 4f | 20 37 39 39 0d 31 30 37 |R Z=0 TO| 799.107|
|00000df0| 37 20 50 41 52 24 20 3d | 20 53 54 52 24 28 5a 29 |7 PAR$ =| STR$(Z)|
|00000e00| 0d 31 30 37 38 20 43 41 | 4c 4c 20 4d 4f 56 45 54 |.1078 CA|LL MOVET|
|00000e10| 4f 28 32 35 30 2c 32 30 | 30 29 3a 50 52 49 4e 54 |O(250,20|0):PRINT|
|00000e20| 20 5a 0d 31 30 37 39 20 | 43 44 53 4b 25 28 32 37 | Z.1079 |CDSK%(27|
|00000e30| 29 3d 26 48 31 3a 47 4f | 53 55 42 20 35 30 30 0d |)=&H1:GO|SUB 500.|
|00000e40| 31 30 38 30 20 43 44 53 | 4b 25 28 32 37 29 3d 26 |1080 CDS|K%(27)=&|
|00000e50| 48 32 3a 47 4f 53 55 42 | 20 35 31 30 3a 4e 45 58 |H2:GOSUB| 510:NEX|
|00000e60| 54 20 5a 0d 31 30 38 35 | 20 43 41 4c 4c 20 4d 4f |T Z.1085| CALL MO|
|00000e70| 56 45 54 4f 28 31 37 35 | 2c 31 39 30 29 0d 31 30 |VETO(175|,190).10|
|00000e80| 39 30 20 50 52 49 4e 54 | 22 44 4f 4e 45 22 3a 42 |90 PRINT|"DONE":B|
|00000e90| 45 45 50 3a 42 45 45 50 | 0d 31 31 30 30 20 45 4e |EEP:BEEP|.1100 EN|
|00000ea0| 44 0d 0d 2d 2d 2d 2d 2d | 2d 2d 0d 1a 1a 1a 1a 1a |D..-----|--......|
|00000eb0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ec0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ed0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ee0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ef0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000f00| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 01 00 00 00 01 3c | 00 00 00 3c 00 00 00 5a |.......<|...<...Z|
|00000f90| 4e 54 22 44 4f 4e 45 22 | 3a 42 45 45 50 3a 42 45 |NT"DONE"|:BEEP:BE|
|00000fa0| 45 50 0d 31 31 30 30 20 | 45 4e 44 0d 0d 2d 2d 2d |EP.1100 |END..---|
|00000fb0| 10 20 42 4c 4f 43 4b 43 | 4f 50 59 2e 42 41 53 2e |. BLOCKC|OPY.BAS.|
|00000fc0| 31 2e 02 00 00 00 54 45 | 58 54 51 45 44 31 00 00 |1.....TE|XTQED1..|
|00000fd0| 00 00 54 45 58 54 51 45 | 44 31 00 00 00 00 00 00 |..TEXTQE|D1......|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 a0 d5 41 32 00 00 | 0e 89 00 00 01 96 1a 1a |....A2..|........|
|00001000| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001010| 1a 1a 1a 00 00 0e e0 00 | fd 00 09 1c 00 00 0f ff |........|........|
|00001020| ff e0 0f e0 70 fc 00 00 | 02 fc 00 00 e0 f9 00 04 |....p...|........|
|00001030| 7f 80 00 00 06 e0 00 fd | 00 03 3c 00 00 1f fd ff |........|..<.....|
|00001040| 00 c0 fd 00 00 7c fe 00 | 04 01 80 07 00 60 f9 00 |.....|..|.....`..|
|00001050| 05 01 f8 00 00 07 80 e1 | 00 fd 00 03 3c 00 00 1f |........|....<...|
|00001060| fe ff 02 e0 00 02 fe 00 | 06 7e 00 00 01 03 c0 07 |........|.~......|
|00001070| fd 00 00 80 fb 00 04 18 | 00 00 07 80 e1 00 fd 00 |........|........|
|00001080| 00 00 00 2a 00 09 06 47 | 65 6e 65 76 61 00 00 00 |...*...G|eneva...|
|00001090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010b0| 00 04 00 06 00 08 00 00 | 00 02 00 00 00 00 01 00 |........|........|
|000010c0| 00 00 01 3c 00 00 00 3c | 00 00 00 5a 00 22 b8 3c |...<...<|...Z.".<|
|000010d0| 0a 4a 00 00 00 1c 00 5a | 00 02 45 46 4e 54 00 00 |.J.....Z|..EFNT..|
|000010e0| 00 1a 45 54 41 42 00 00 | 00 26 45 51 45 44 00 00 |..ETAB..|.&EQED..|
|000010f0| 00 32 03 eb ff ff 00 00 | 00 00 00 00 00 00 03 ec |.2......|........|
|00001100| ff ff 00 00 00 2e 00 00 | 00 00 03 eb ff ff 00 00 |........|........|
|00001110| 00 36 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.6......|........|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
