/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / derem / !DeRem / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 20 | 44 65 52 65 6d 0d 00 14 |..... > |DeRem...|
|00000010| 04 0d 00 1e 09 f2 49 6e | 69 74 0d 00 28 0a f2 44 |......In|it..(..D|
|00000020| 65 52 65 6d 0d 00 32 0a | f2 43 6c 6f 73 65 0d 00 |eRem..2.|.Close..|
|00000030| 3c 05 e0 0d 00 46 05 3a | 0d 00 50 0a dd f2 49 6e |<....F.:|..P...In|
|00000040| 69 74 0d 00 5a 05 f5 0d | 00 64 2e e8 22 45 6e 74 |it..Z...|.d.."Ent|
|00000050| 65 72 20 6e 61 6d 65 20 | 6f 66 20 73 6f 75 72 63 |er name |of sourc|
|00000060| 65 20 70 72 6f 67 72 61 | 6d 3a 20 22 53 24 3a 53 |e progra|m: "S$:S|
|00000070| 25 3d 8e 53 24 0d 00 6e | 1e e7 53 25 3d 30 3a f1 |%=.S$..n|..S%=0:.|
|00000080| 22 50 72 6f 67 72 61 6d | 20 6e 6f 74 20 66 6f 75 |"Program| not fou|
|00000090| 6e 64 22 0d 00 78 3e 42 | 25 3d 9a 23 53 25 3a e7 |nd"..x>B|%=.#S%:.|
|000000a0| 42 25 3c 3e 31 33 3a 43 | 6c 6f 73 65 23 53 25 3a |B%<>13:C|lose#S%:|
|000000b0| 53 25 3d 30 3a f1 53 24 | 22 20 69 73 20 6e 6f 74 |S%=0:.S$|" is not|
|000000c0| 20 61 20 42 41 53 49 43 | 20 70 72 6f 67 72 61 6d | a BASIC| program|
|000000d0| 22 0d 00 82 07 fd 53 25 | 0d 00 8c 33 e8 22 45 6e |".....S%|...3."En|
|000000e0| 74 65 72 20 6e 61 6d 65 | 20 6f 66 20 64 65 73 74 |ter name| of dest|
|000000f0| 69 6e 61 74 69 6f 6e 20 | 70 72 6f 67 72 61 6d 3a |ination |program:|
|00000100| 20 22 44 24 3a 44 25 3d | ae 44 24 0d 00 96 0b d5 | "D$:D%=|.D$.....|
|00000110| 23 44 25 2c 31 33 0d 00 | a0 05 e1 0d 00 aa 05 3a |#D%,13..|.......:|
|00000120| 0d 00 b4 0b dd f2 44 65 | 52 65 6d 0d 00 be 11 50 |......De|Rem....P|
|00000130| 4c 25 3d 30 3a f5 50 4c | 25 2b 3d 31 0d 00 c8 20 |L%=0:.PL|%+=1... |
|00000140| 4c 25 3d 9a 23 53 25 3a | e7 4c 25 3d 26 46 46 3a |L%=.#S%:|.L%=&FF:|
|00000150| d5 23 44 25 2c 4c 25 3a | fd b9 3a e1 0d 00 d2 24 |.#D%,L%:|..:....$|
|00000160| 4c 25 3d 4c 25 2a 32 35 | 36 2b 9a 23 53 25 3a 4c |L%=L%*25|6+.#S%:L|
|00000170| 4c 25 3d 9a 23 53 25 3a | f1 bd 31 33 3b 4c 25 3b |L%=.#S%:|..13;L%;|
|00000180| 0d 00 dc 21 4c 24 3d 22 | 22 3a f5 42 25 3d 9a 23 |...!L$="|":.B%=.#|
|00000190| 53 25 3a e7 42 25 3c 3e | 31 33 4c 24 2b 3d bd 42 |S%:.B%<>|13L$+=.B|
|000001a0| 25 0d 00 e6 0a fd 42 25 | 3d 31 33 0d 00 e7 3d e7 |%.....B%|=13...=.|
|000001b0| 50 4c 25 3d 31 3a 49 25 | 3d a7 4c 24 2c bd 26 46 |PL%=1:I%|=.L$,.&F|
|000001c0| 34 29 3a e7 49 25 3a e7 | a7 4c 24 2c 22 3e 22 29 |4):.I%:.|.L$,">")|
|000001d0| 3e 49 25 3a f2 57 72 69 | 74 65 4c 69 6e 65 28 4c |>I%:.Wri|teLine(L|
|000001e0| 25 2c 4c 24 29 3a fd a3 | 0d 00 f0 21 49 25 3d a7 |%,L$):..|...!I%=.|
|000001f0| 4c 24 2c bd 26 46 34 29 | 3a e7 49 25 3a 4c 24 3d |L$,.&F4)|:.I%:L$=|
|00000200| c0 4c 24 2c 49 25 2d 31 | 29 0d 00 fa 18 c8 95 c2 |.L$,I%-1|).......|
|00000210| 4c 24 29 3d 22 3a 22 3a | 4c 24 3d c0 4c 24 29 3a |L$)=":":|L$=.L$):|
|00000220| ce 0d 01 04 18 c8 95 c2 | 4c 24 29 3d 22 20 22 3a |........|L$)=" ":|
|00000230| 4c 24 3d c0 4c 24 29 3a | ce 0d 01 0e 15 f2 57 72 |L$=.L$):|......Wr|
|00000240| 69 74 65 4c 69 6e 65 28 | 4c 25 2c 4c 24 29 0d 01 |iteLine(|L%,L$)..|
|00000250| 18 06 fd a3 0d 01 22 05 | e1 0d 01 2c 05 3a 0d 01 |......".|...,.:..|
|00000260| 36 16 dd f2 57 72 69 74 | 65 4c 69 6e 65 28 4c 25 |6...Writ|eLine(L%|
|00000270| 2c 4c 24 29 0d 01 37 49 | e7 a9 4c 24 3a d5 23 44 |,L$)..7I|..L$:.#D|
|00000280| 25 2c 4c 25 81 32 35 36 | 3a d5 23 44 25 2c 4c 25 |%,L%.256|:.#D%,L%|
|00000290| 3a d5 23 44 25 2c a9 4c | 24 2b 34 3a e3 49 25 3d |:.#D%,.L|$+4:.I%=|
|000002a0| 31 b8 a9 4c 24 3a d5 23 | 44 25 2c 97 c1 4c 24 2c |1..L$:.#|D%,..L$,|
|000002b0| 49 25 29 3a ed 3a d5 23 | 44 25 2c 31 33 0d 01 40 |I%):.:.#|D%,13..@|
|000002c0| 05 e1 0d 01 4a 05 3a 0d | 01 54 0b dd f2 43 6c 6f |....J.:.|.T...Clo|
|000002d0| 73 65 0d 01 5e 08 d9 23 | 53 25 0d 01 68 08 d9 23 |se..^..#|S%..h..#|
|000002e0| 44 25 0d 01 69 1b ff 22 | 53 45 54 54 59 50 45 20 |D%..i.."|SETTYPE |
|000002f0| 22 2b 44 24 2b 22 20 42 | 41 53 49 43 22 0d 01 72 |"+D$+" B|ASIC"..r|
|00000300| 05 e1 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+