/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug009.ark / COPRAN.ASC

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 27 20 50 52 4f | 47 52 41 4d 20 4e 41 4d |10 ' PRO|GRAM NAM|
|00000010| 45 20 22 43 4f 50 52 41 | 4e 22 0d 0a 32 30 20 27 |E "COPRA|N"..20 '|
|00000020| 20 4d 49 54 53 20 42 41 | 53 49 43 20 56 45 52 53 | MITS BA|SIC VERS|
|00000030| 49 4f 4e 20 34 2e 30 0d | 0a 33 30 20 27 20 50 52 |ION 4.0.|.30 ' PR|
|00000040| 4f 47 52 41 4d 4d 45 44 | 20 42 59 3a 20 20 42 55 |OGRAMMED| BY:  BU|
|00000050| 44 20 53 48 41 4d 42 55 | 52 47 45 52 20 20 20 20 |D SHAMBU|RGER    |
|00000060| 20 4a 41 4e 20 31 39 37 | 37 0a 0d 00 20 20 20 20 | JAN 197|7...    |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000080| 23 32 37 20 52 45 44 20 | 4f 41 4b 20 44 52 0a 0d |#27 RED |OAK DR..|
|00000090| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000000a0| 20 20 20 20 20 43 4f 4e | 57 41 59 20 41 52 4b 20 |     CON|WAY ARK |
|000000b0| 20 37 32 30 33 32 20 20 | 20 20 20 35 30 31 2d 33 | 72032  |   501-3|
|000000c0| 32 37 2d 33 36 34 31 0d | 0a 34 30 20 27 0d 0a 35 |27-3641.|.40 '..5|
|000000d0| 30 20 27 20 41 20 47 45 | 4e 45 52 41 4c 20 50 55 |0 ' A GE|NERAL PU|
|000000e0| 52 50 4f 53 45 20 55 54 | 49 4c 49 54 59 20 50 52 |RPOSE UT|ILITY PR|
|000000f0| 4f 47 52 41 4d 20 46 4f | 52 20 43 4f 50 59 49 4e |OGRAM FO|R COPYIN|
|00000100| 47 20 52 41 4e 44 41 4d | 20 44 41 54 41 20 46 49 |G RANDAM| DATA FI|
|00000110| 4c 45 53 2e 0d 0a 36 30 | 20 27 20 46 49 4c 45 20 |LES...60| ' FILE |
|00000120| 4e 41 4d 45 53 2c 20 46 | 49 4c 45 20 4e 55 4d 42 |NAMES, F|ILE NUMB|
|00000130| 45 52 53 20 41 4e 44 20 | 44 49 53 4b 20 44 52 49 |ERS AND |DISK DRI|
|00000140| 56 45 20 4e 55 4d 42 45 | 52 53 20 41 52 45 20 45 |VE NUMBE|RS ARE E|
|00000150| 4e 54 45 52 45 44 20 46 | 52 4f 4d 0d 0a 37 30 20 |NTERED F|ROM..70 |
|00000160| 27 20 54 48 45 20 54 45 | 52 4d 49 4e 41 4c 2e 20 |' THE TE|RMINAL. |
|00000170| 20 46 49 4c 45 20 42 4f | 55 4e 44 41 52 49 45 53 | FILE BO|UNDARIES|
|00000180| 20 41 52 45 20 41 4c 53 | 4f 20 45 4e 54 45 52 45 | ARE ALS|O ENTERE|
|00000190| 44 20 46 52 4f 4d 20 54 | 48 45 20 54 45 52 4d 49 |D FROM T|HE TERMI|
|000001a0| 4e 41 4c 2e 0d 0a 38 30 | 20 27 20 42 4f 54 48 20 |NAL...80| ' BOTH |
|000001b0| 46 49 4c 45 53 20 43 41 | 4e 20 52 45 53 49 44 45 |FILES CA|N RESIDE|
|000001c0| 20 4f 4e 20 54 48 45 20 | 53 41 4d 45 20 44 49 53 | ON THE |SAME DIS|
|000001d0| 4b 20 44 52 49 56 45 20 | 50 52 4f 56 49 44 45 44 |K DRIVE |PROVIDED|
|000001e0| 20 54 48 45 49 52 20 4e | 41 4d 45 53 0d 0a 39 30 | THEIR N|AMES..90|
|000001f0| 20 27 20 41 52 45 20 44 | 49 46 46 45 52 45 4e 54 | ' ARE D|IFFERENT|
|00000200| 2e 0d 0a 31 30 30 20 27 | 0d 0a 31 31 30 20 27 2a |...100 '|..110 '*|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 2a 0d 0a 31 32 30 20 | 27 2a 2a 2a 2a 2a 2a 2a |**..120 |'*******|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0a 31 33 |********|****..13|
|000002a0| 30 20 27 0d 0a 31 34 30 | 20 43 4c 45 41 52 20 35 |0 '..140| CLEAR 5|
|000002b0| 30 30 0d 0a 31 35 30 20 | 50 52 49 4e 54 20 22 43 |00..150 |PRINT "C|
|000002c0| 4f 50 59 20 2a 20 42 41 | 53 49 43 2d 52 41 4e 44 |OPY * BA|SIC-RAND|
|000002d0| 4f 4d 2d 46 49 4c 45 53 | 20 2a 22 0d 0a 31 36 30 |OM-FILES| *"..160|
|000002e0| 20 50 52 49 4e 54 0d 0a | 31 37 30 20 4c 45 54 20 | PRINT..|170 LET |
|000002f0| 52 24 3d 22 52 22 0d 0a | 31 38 30 20 4c 45 54 20 |R$="R"..|180 LET |
|00000300| 53 3d 31 0d 0a 31 39 30 | 20 4c 45 54 20 51 3d 32 |S=1..190| LET Q=2|
|00000310| 0d 0a 32 30 30 20 49 4e | 50 55 54 20 22 45 4e 54 |..200 IN|PUT "ENT|
|00000320| 45 52 20 2d 49 4e 50 55 | 54 2d 20 46 49 4c 45 20 |ER -INPU|T- FILE |
|00000330| 4e 41 4d 45 22 3b 49 24 | 0d 0a 32 31 30 20 49 4e |NAME";I$|..210 IN|
|00000340| 50 55 54 20 22 45 4e 54 | 45 52 20 2d 4f 55 54 50 |PUT "ENT|ER -OUTP|
|00000350| 55 54 2d 20 46 49 4c 45 | 20 4e 41 4d 45 22 3b 4f |UT- FILE| NAME";O|
|00000360| 24 0d 0a 32 32 30 20 49 | 4e 50 55 54 20 22 45 4e |$..220 I|NPUT "EN|
|00000370| 54 45 52 20 2d 49 4e 50 | 55 54 2d 20 44 52 23 22 |TER -INP|UT- DR#"|
|00000380| 3b 58 0d 0a 32 33 30 20 | 49 4e 50 55 54 20 22 45 |;X..230 |INPUT "E|
|00000390| 4e 54 45 52 20 2d 4f 55 | 54 50 55 54 2d 20 44 52 |NTER -OU|TPUT- DR|
|000003a0| 23 22 3b 59 0d 0a 32 34 | 30 20 49 4e 50 55 54 20 |#";Y..24|0 INPUT |
|000003b0| 22 45 4e 54 45 52 20 2d | 49 4e 50 55 54 2d 20 42 |"ENTER -|INPUT- B|
|000003c0| 45 47 20 52 45 43 23 22 | 3b 54 0d 0a 32 35 30 20 |EG REC#"|;T..250 |
|000003d0| 49 4e 50 55 54 20 22 45 | 4e 54 45 52 20 2d 49 4e |INPUT "E|NTER -IN|
|000003e0| 50 55 54 2d 20 45 4e 44 | 20 52 45 43 23 22 3b 55 |PUT- END| REC#";U|
|000003f0| 0d 0a 32 36 30 20 49 4e | 50 55 54 20 22 45 4e 54 |..260 IN|PUT "ENT|
|00000400| 45 52 20 2d 4f 55 54 50 | 55 54 2d 20 42 45 47 20 |ER -OUTP|UT- BEG |
|00000410| 52 45 43 23 22 3b 56 0d | 0a 32 37 30 20 49 4e 50 |REC#";V.|.270 INP|
|00000420| 55 54 20 22 45 4e 54 45 | 52 20 2d 4f 55 54 50 55 |UT "ENTE|R -OUTPU|
|00000430| 54 2d 20 45 4e 44 20 52 | 45 43 23 22 3b 57 0d 0a |T- END R|EC#";W..|
|00000440| 32 38 30 20 49 4e 50 55 | 54 20 22 54 4f 20 4d 4f |280 INPU|T "TO MO|
|00000450| 55 4e 54 20 54 48 45 20 | 46 49 4c 45 53 20 45 4e |UNT THE |FILES EN|
|00000460| 54 45 52 20 2d 59 2d 22 | 3b 58 59 24 0d 0a 32 39 |TER -Y-"|;XY$..29|
|00000470| 30 20 49 46 20 58 59 24 | 3c 3e 22 59 22 20 54 48 |0 IF XY$|<>"Y" TH|
|00000480| 45 4e 20 33 32 30 0d 0a | 33 30 30 20 49 46 20 58 |EN 320..|300 IF X|
|00000490| 3d 59 20 54 48 45 4e 20 | 55 4e 4c 4f 41 44 20 58 |=Y THEN |UNLOAD X|
|000004a0| 3a 4d 4f 55 4e 54 20 58 | 3a 47 4f 54 4f 20 33 32 |:MOUNT X|:GOTO 32|
|000004b0| 30 0d 0a 33 31 30 20 55 | 4e 4c 4f 41 44 20 58 2c |0..310 U|NLOAD X,|
|000004c0| 59 3a 4d 4f 55 4e 54 20 | 58 2c 59 0d 0a 33 32 30 |Y:MOUNT |X,Y..320|
|000004d0| 20 4c 45 54 20 5a 54 3d | 55 2d 54 0d 0a 33 33 30 | LET ZT=|U-T..330|
|000004e0| 20 4c 45 54 20 5a 56 3d | 57 2d 56 0d 0a 33 34 30 | LET ZV=|W-V..340|
|000004f0| 20 49 46 20 58 3c 3e 30 | 20 41 4e 44 20 58 3c 3e | IF X<>0| AND X<>|
|00000500| 31 20 54 48 45 4e 20 35 | 37 30 0d 0a 33 35 30 20 |1 THEN 5|70..350 |
|00000510| 49 46 20 59 3c 3e 30 20 | 41 4e 44 20 59 3c 3e 31 |IF Y<>0 |AND Y<>1|
|00000520| 20 54 48 45 4e 20 35 37 | 30 0d 0a 33 36 30 20 49 | THEN 57|0..360 I|
|00000530| 46 20 5a 54 3c 3e 5a 56 | 20 54 48 45 4e 20 35 39 |F ZT<>ZV| THEN 59|
|00000540| 30 0d 0a 33 37 30 20 4f | 50 45 4e 20 52 24 2c 53 |0..370 O|PEN R$,S|
|00000550| 2c 49 24 2c 58 0d 0a 33 | 38 30 20 4f 50 45 4e 20 |,I$,X..3|80 OPEN |
|00000560| 52 24 2c 51 2c 4f 24 2c | 59 0d 0a 33 39 30 20 47 |R$,Q,O$,|Y..390 G|
|00000570| 4f 53 55 42 20 35 34 30 | 0d 0a 34 30 30 20 49 46 |OSUB 540|..400 IF|
|00000580| 20 54 3e 55 20 54 48 45 | 4e 20 36 31 30 0d 0a 34 | T>U THE|N 610..4|
|00000590| 31 30 20 47 45 54 20 23 | 31 2c 54 0d 0a 34 32 30 |10 GET #|1,T..420|
|000005a0| 20 46 49 45 4c 44 20 23 | 31 2c 31 32 38 20 41 53 | FIELD #|1,128 AS|
|000005b0| 20 41 24 0d 0a 34 33 30 | 20 4c 45 54 20 43 24 3d | A$..430| LET C$=|
|000005c0| 41 24 0d 0a 34 34 30 20 | 46 49 45 4c 44 20 23 32 |A$..440 |FIELD #2|
|000005d0| 2c 31 32 38 20 41 53 20 | 42 24 0d 0a 34 35 30 20 |,128 AS |B$..450 |
|000005e0| 52 53 45 54 20 42 24 3d | 43 24 0d 0a 34 36 30 20 |RSET B$=|C$..460 |
|000005f0| 50 55 54 20 23 32 2c 56 | 0d 0a 34 37 30 20 49 46 |PUT #2,V|..470 IF|
|00000600| 20 43 54 3d 31 31 20 54 | 48 45 4e 20 47 4f 53 55 | CT=11 T|HEN GOSU|
|00000610| 42 20 35 34 30 0d 0a 34 | 38 30 20 50 52 49 4e 54 |B 540..4|80 PRINT|
|00000620| 20 55 53 49 4e 47 20 22 | 23 23 23 23 20 20 22 3b | USING "|####  ";|
|00000630| 58 3b 54 0d 0a 34 39 30 | 20 50 52 49 4e 54 20 55 |X;T..490| PRINT U|
|00000640| 53 49 4e 47 20 22 23 23 | 23 23 20 20 22 3b 59 3b |SING "##|##  ";Y;|
|00000650| 56 0d 0a 35 30 30 20 4c | 45 54 20 43 54 3d 43 54 |V..500 L|ET CT=CT|
|00000660| 2b 31 0d 0a 35 31 30 20 | 4c 45 54 20 54 3d 54 2b |+1..510 |LET T=T+|
|00000670| 31 0d 0a 35 32 30 20 4c | 45 54 20 56 3d 56 2b 31 |1..520 L|ET V=V+1|
|00000680| 0d 0a 35 33 30 20 47 4f | 54 4f 20 34 30 30 0d 0a |..530 GO|TO 400..|
|00000690| 35 34 30 20 4c 45 54 20 | 43 54 3d 4f 0d 0a 35 35 |540 LET |CT=O..55|
|000006a0| 30 20 50 52 49 4e 54 20 | 22 20 44 52 23 20 20 52 |0 PRINT |" DR#  R|
|000006b0| 45 43 23 22 0d 0a 35 36 | 30 20 52 45 54 55 52 4e |EC#"..56|0 RETURN|
|000006c0| 0d 0a 35 37 30 20 50 52 | 49 4e 54 20 22 45 52 52 |..570 PR|INT "ERR|
|000006d0| 4f 52 20 49 4e 20 44 52 | 23 22 0d 0a 35 38 30 20 |OR IN DR|#"..580 |
|000006e0| 47 4f 54 4f 20 32 32 30 | 0d 0a 35 39 30 20 50 52 |GOTO 220|..590 PR|
|000006f0| 49 4e 54 20 22 49 4e 50 | 55 54 20 41 52 45 41 20 |INT "INP|UT AREA |
|00000700| 26 20 4f 55 54 50 55 54 | 20 41 52 45 41 20 55 4e |& OUTPUT| AREA UN|
|00000710| 45 51 55 41 4c 22 0d 0a | 36 30 30 20 47 4f 54 4f |EQUAL"..|600 GOTO|
|00000720| 20 32 34 30 0d 0a 36 31 | 30 20 43 4c 4f 53 45 20 | 240..61|0 CLOSE |
|00000730| 53 2c 51 0d 0a 36 32 30 | 20 50 52 49 4e 54 20 22 |S,Q..620| PRINT "|
|00000740| 45 4e 44 20 4f 46 20 43 | 4f 50 59 22 0d 0a 36 33 |END OF C|OPY"..63|
|00000750| 30 20 4c 4f 41 44 20 22 | 47 4c 4d 45 4e 55 22 2c |0 LOAD "|GLMENU",|
|00000760| 30 2c 52 0d 0a 36 34 30 | 20 45 4e 44 0d 0a       |0,R..640| END..  |
+--------+-------------------------+-------------------------+--------+--------+