IBM PCDOS 0p9.hex
IBM PCDOS 0p9.hex
IBM PCDOS 0p9.hex
00113424 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113440 20 20 3A 0D 0A 31 31 30-20 4C 4F 43 41 54 45 20 | :~~110 LOCATE
00113456 32 35 2C 31 0D 0A 31 32-30 20 50 52 49 4E 54 20 |25,1~~12 0 PRINT
00113472 2C 46 31 24 2C 46 32 24-3B 54 41 42 28 35 30 29 |,F1$,F2$ ;TAB(50)
00113488 3B 22 41 73 79 6E 63 20-54 54 59 20 50 52 4F 47 |;"Async TTY PROG
00113504 52 41 4D 22 3B 0D 0A 31-33 30 20 43 4F 4C 4F 52 |RAM";~~1 30 COLOR
00113520 20 37 2C 30 0D 0A 31 34-30 20 4C 4F 43 41 54 45 | 7,0~~14 0 LOCATE
00113536 20 31 2C 31 3A 4C 49 4E-45 20 49 4E 50 55 54 20 | 1,1:LIN E INPUT
00113552 22 53 50 45 45 44 3F 20-22 2C 53 50 45 45 44 24 |"SPEED? ",SPEED$
00113568 0D 0A 31 35 30 20 43 4F-4C 4F 52 20 30 2C 37 20 |~~150 CO LOR 0,7
00113584 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113600 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113616 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113632 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113648 20 20 20 20 20 20 20 20-20 20 3A 4C 4F 43 41 54 | :LOCAT
00113664 45 20 32 35 2C 32 3A 50-52 49 4E 54 20 53 50 45 |E 25,2:P RINT SPE
00113680 45 44 24 3B 22 62 70 73-22 3B 20 20 20 20 20 20 |ED$;"bps ";
00113696 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113712 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113728 20 20 20 20 20 20 20 20-20 20 3A 4C 4F 43 41 54 | :LOCAT
00113744 45 20 32 2C 31 3A 43 4F-4C 4F 52 20 37 2C 30 0D |E 2,1:CO LOR 7,0~
00113760 0A 31 36 30 20 43 4F 4D-46 49 4C 24 3D 22 43 4F |~160 COM FIL$="CO
00113776 4D 31 3A 22 2B 53 50 45-45 44 24 2B 22 2C 45 2C |M1:"+SPE ED$+",E,
00113792 37 22 0D 0A 31 37 30 20-4F 50 45 4E 20 43 4F 4D |7"~~170 OPEN COM
00113808 46 49 4C 24 20 41 53 20-23 31 0D 0A 31 38 30 20 |FIL$ AS #1~~180
00113824 4F 50 45 4E 20 22 53 43-52 4E 3A 22 20 46 4F 52 |OPEN "SC RN:" FOR
00113840 20 4F 55 54 50 55 54 20-41 53 20 23 32 0D 0A 31 | OUTPUT AS #2~~1
00113856 39 30 20 50 41 55 53 45-3D 46 41 4C 53 45 3A 4F |90 PAUSE =FALSE:O
00113872 4E 20 45 52 52 4F 52 20-47 4F 54 4F 20 39 30 30 |N ERROR GOTO 900
00113888 30 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |0
00113904 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113920 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00113936 20 20 20 20 20 20 20 20-3A 0D 0A 32 30 30 20 41 | :~~200 A
00113952 24 3D 49 4E 4B 45 59 24-3A 49 46 20 41 24 3D 22 |$=INKEY$ :IF A$="
00113968 22 20 54 48 45 4E 20 32-32 30 0D 0A 32 31 30 20 |" THEN 2 20~~210
00113984 49 46 20 41 53 43 28 41-24 29 20 3C 33 20 54 48 |IF ASC(A $) <3 TH
00114000 45 4E 20 34 30 30 20 45-4C 53 45 20 50 52 49 4E |EN 400 E LSE PRIN
00114016 54 23 31 2C 41 24 3B 0D-0A 32 32 30 20 49 46 20 |T#1,A$;~ ~220 IF
00114032 45 4F 46 28 31 29 20 54-48 45 4E 20 32 30 30 0D |EOF(1) T HEN 200~
00114048 0A 32 33 30 20 50 41 55-53 45 3D 54 52 55 45 3A |~230 PAU SE=TRUE:
00114064 50 52 49 4E 54 23 31 2C-58 4F 46 46 24 3B 0D 0A |PRINT#1, XOFF$;~~
00114080 32 34 30 20 41 24 3D 49-4E 50 55 54 24 28 4C 4F |240 A$=I NPUT$(LO
00114096 43 28 31 29 2C 23 31 29-0D 0A 32 35 30 20 46 4F |C(1),#1) ~~250 FO
00114112 52 20 49 3D 31 20 54 4F-20 4C 45 4E 28 41 24 29 |R I=1 TO LEN(A$)
00114128 0D 0A 32 36 30 20 49 46-20 4D 49 44 24 28 41 24 |~~260 IF MID$(A$
00114144 2C 49 2C 31 29 3D 43 48-52 24 28 31 30 29 20 54 |,I,1)=CH R$(10) T
00114160 48 45 4E 20 4D 49 44 24-28 41 24 2C 49 2C 31 29 |HEN MID$ (A$,I,1)
00114176 3D 22 20 22 0D 0A 32 37-30 20 4E 45 58 54 20 49 |=" "~~27 0 NEXT I
00114192 0D 0A 32 38 30 20 50 52-49 4E 54 20 23 32 2C 41 |~~280 PR INT #2,A
00114208 24 3B 3A 49 46 20 4C 4F-43 28 31 29 3E 30 20 54 |$;:IF LO C(1)>0 T
00114224 48 45 4E 20 32 34 30 20-20 20 20 20 20 20 20 20 |HEN 240
00114240 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114256 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114272 20 20 20 20 20 20 20 20-20 20 20 20 20 3A 0D 0A | :~~
00114288 32 39 30 20 49 46 20 50-41 55 53 45 20 54 48 45 |290 IF P AUSE THE
00114304 4E 20 50 41 55 53 45 3D-46 41 4C 53 45 3A 50 52 |N PAUSE= FALSE:PR
00114320 49 4E 54 23 31 2C 58 4F-4E 24 3B 0D 0A 33 30 30 |INT#1,XO N$;~~300
00114336 20 47 4F 54 4F 20 32 30-30 20 20 20 20 20 20 20 | GOTO 20 0
00114352 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114368 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114384 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114400 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114416 20 20 20 20 3A 0D 0A 34-30 30 20 46 55 4E 3D 41 | :~~4 00 FUN=A
00114432 53 43 28 41 24 29 3A 43-4C 4F 53 45 20 32 0D 0A |SC(A$):C LOSE 2~~
00114448 34 31 30 20 50 52 49 4E-54 0D 0A 34 32 30 20 4C |410 PRIN T~~420 L
00114464 49 4E 45 20 49 4E 50 55-54 20 44 46 49 4C 45 24 |INE INPU T DFILE$
00114480 0D 0A 34 33 30 20 4C 49-4E 45 20 49 4E 50 55 54 |~~430 LI NE INPUT
00114496 20 22 46 69 6C 65 3F 20-22 3B 44 46 49 4C 45 24 | "File? ";DFILE$
00114512 0D 0A 34 34 30 20 4F 4E-20 45 52 52 4F 52 20 47 |~~440 ON ERROR G
00114528 4F 54 4F 20 30 0D 0A 34-35 30 20 49 46 20 46 55 |OTO 0~~4 50 IF FU
00114544 4E 20 3D 31 20 54 48 45-4E 20 4F 50 45 4E 20 44 |N =1 THE N OPEN D
00114560 46 49 4C 45 24 20 46 4F-52 20 49 4E 50 55 54 20 |FILE$ FO R INPUT
00114576 41 53 20 23 32 0D 0A 34-35 32 20 49 46 20 46 55 |AS #2~~4 52 IF FU
00114592 4E 20 3D 32 20 54 48 45-4E 20 4F 50 45 4E 20 44 |N =2 THE N OPEN D
00114608 46 49 4C 45 24 20 46 4F-52 20 4F 55 54 50 55 54 |FILE$ FO R OUTPUT
00114624 20 41 53 20 23 32 0D 0A-34 36 30 20 49 46 20 46 | AS #2~~ 460 IF F
00114640 55 4E 20 3D 31 20 54 48-45 4E 20 36 30 30 0D 0A |UN =1 TH EN 600~~
00114656 34 36 35 20 4F 4E 20 45-52 52 4F 52 20 47 4F 54 |465 ON E RROR GOT
00114672 4F 20 39 30 30 30 0D 0A-34 37 30 20 50 52 49 4E |O 9000~~ 470 PRIN
00114688 54 20 23 31 2C 43 48 52-24 28 31 33 29 3B 20 20 |T #1,CHR $(13);
00114704 20 20 20 20 27 53 74 61-72 74 20 52 45 43 56 20 | 'Sta rt RECV
00114720 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114736 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114752 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 3A | :
00114768 0D 0A 35 30 30 20 49 46-20 45 4F 46 28 31 29 20 |~~500 IF EOF(1)
00114784 54 48 45 4E 20 47 4F 53-55 42 20 37 30 30 0D 0A |THEN GOS UB 700~~
00114800 35 31 30 20 50 41 55 53-45 3D 54 52 55 45 3A 50 |510 PAUS E=TRUE:P
00114816 52 49 4E 54 23 31 2C 58-4F 46 46 24 3B 0D 0A 35 |RINT#1,X OFF$;~~5
00114832 32 30 20 57 48 49 4C 45-20 4C 4F 43 28 31 29 20 |20 WHILE LOC(1)
00114848 3E 30 20 3A 20 41 24 3D-49 4E 50 55 54 24 28 4C |>0 : A$= INPUT$(L
00114864 4F 43 28 31 29 2C 23 31-29 0D 0A 35 32 35 20 50 |OC(1),#1 )~~525 P
00114880 52 49 4E 54 23 32 2C 41-24 3B 20 3A 20 50 52 49 |RINT#2,A $; : PRI
00114896 4E 54 20 41 24 3B 20 3A-20 57 45 4E 44 0D 0A 35 |NT A$; : WEND~~5
00114912 33 30 20 49 46 20 50 41-55 53 45 20 54 48 45 4E |30 IF PA USE THEN
00114928 20 50 41 55 53 45 3D 46-41 4C 53 45 3A 50 52 49 | PAUSE=F ALSE:PRI
00114944 4E 54 23 31 2C 58 4F 4E-24 3B 0D 0A 35 34 30 20 |NT#1,XON $;~~540
00114960 47 4F 54 4F 20 35 30 30-20 20 20 20 20 20 20 20 |GOTO 500
00114976 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00114992 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00115008 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00115024 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00115040 20 20 20 3A 0D 0A 36 30-30 20 57 48 49 4C 45 20 | :~~60 0 WHILE
00115056 4E 4F 54 20 45 4F 46 28-32 29 0D 0A 36 31 30 20 |NOT EOF( 2)~~610
00115072 4C 49 4E 45 20 49 4E 50-55 54 20 23 32 2C 41 24 |LINE INP UT #2,A$
00115088 0D 0A 36 31 32 20 46 4F-52 20 49 3D 31 20 54 4F |~~612 FO R I=1 TO
00115104 20 4C 45 4E 28 41 24 29-0D 0A 36 31 34 20 50 52 | LEN(A$) ~~614 PR
00115120 49 4E 54 20 23 31 2C 4D-49 44 24 28 41 24 2C 49 |INT #1,M ID$(A$,I
00115136 2C 31 29 3B 0D 0A 36 31-36 20 46 4F 52 20 4A 3D |,1);~~61 6 FOR J=
00115152 30 20 54 4F 20 35 3A 4E-45 58 54 20 4A 0D 0A 36 |0 TO 5:N EXT J~~6
00115168 31 38 20 4E 45 58 54 20-49 0D 0A 36 32 30 20 50 |18 NEXT I~~620 P
00115184 52 49 4E 54 20 23 31 2C-43 48 52 24 28 31 33 29 |RINT #1, CHR$(13)
00115200 3B 0D 0A 36 33 30 20 57-45 4E 44 0D 0A 36 34 30 |;~~630 W END~~640
00115216 20 50 52 49 4E 54 23 31-2C 43 48 52 24 28 32 36 | PRINT#1 ,CHR$(26
00115232 29 3B 20 20 20 20 20 20-20 27 43 54 52 4C 2D 5A |); 'CTRL-Z
00115248 20 74 6F 20 43 6C 6F 73-65 20 66 69 6C 65 2E 0D | to Clos e file.~
00115264 0A 36 35 30 20 50 52 49-4E 54 22 2A 2A 20 55 70 |~650 PRI NT"** Up
00115280 6C 6F 61 64 20 63 6F 6D-70 6C 65 74 65 20 2A 2A |load com plete **
00115296 22 3A 43 4C 4F 53 45 3A-45 4E 44 20 20 20 20 20 |":CLOSE: END
00115312 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00115328 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00115344 20 20 20 20 20 20 20 20-20 20 20 20 20 3A 0D 0A | :~~
00115360 37 30 30 20 46 4F 52 20-49 3D 30 20 54 4F 20 31 |700 FOR I=0 TO 1
00115376 30 30 30 0D 0A 37 31 30-20 49 46 20 4E 4F 54 20 |000~~710 IF NOT
00115392 45 4F 46 28 31 29 20 54-48 45 4E 20 49 3D 39 39 |EOF(1) T HEN I=99
00115408 39 39 0D 0A 37 32 30 20-4E 45 58 54 20 49 0D 0A |99~~720 NEXT I~~
00115424 37 33 30 20 49 46 20 49-3E 35 30 30 30 20 54 48 |730 IF I >5000 TH
00115440 45 4E 20 52 45 54 55 52-4E 0D 0A 37 34 30 20 50 |EN RETUR N~~740 P
00115456 52 49 4E 54 22 2A 2A 20-44 6F 77 6E 6C 6F 61 64 |RINT"** Download
00115472 20 63 6F 6D 70 6C 65 74-65 20 2A 2A 22 3A 43 4C | complet e **":CL
00115488 4F 53 45 3A 45 4E 44 20-20 20 20 20 20 20 20 20 |OSE:END
00115504 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00115520 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 |
00115536 20 20 20 3A 0D 0A 39 30-30 30 20 52 45 53 55 4D | :~~90 00 RESUM
00115552 45 0D 0A 1A 00 00 00 00-00 00 00 00 00 00 00 00 |E~~~~~~~ ~~~~~~~~
00115568 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 |~~~~~~~~ ~~~~~~~~
00115584 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115600 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115616 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115632 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115648 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115664 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115680 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115696 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115712 63 6F 70 79 20 25 31 20-25 32 0D 0A 66 63 6F 6D |copy %1 %2~~fcom
00115728 70 20 25 31 20 25 32 0D-0A 1A F6 F6 F6 F6 F6 F6 |p %1 %2~ ~~~~~~~~
00115744 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115760 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115776 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115792 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115808 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115824 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115840 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115856 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115872 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115888 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115904 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115920 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115936 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115952 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115968 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00115984 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116000 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116016 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116032 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116048 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116064 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116080 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116096 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116112 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116128 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116144 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116160 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116176 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116192 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116208 F6 F6 F6 F6 F6 F6 F6 F6-F6 F6 F6 F6 F6 F6 F6 F6 |~~~~~~~~ ~~~~~~~~
00116224 22 20 CD 20 8D 20 0E DC-00 3A 4D 50 4C 4F 54 28 |" ~ ~ ~~ ~:MPLOT(
00116240 12 2C 12 29 E7 4D 50 4C-4F 54 28 12 2C 12 29 EA |~,~)~MPL OT(~,~)~
00116256 0F 0A 3A 8D 20 0E 0E 01-00 27 28 AC 03 8B 20 FF |~~:~ ~~~ ~'(~~~ ~
00116272 83 28 41 24 2C 13 2C 12-29 E7 22 4D 22 20 CD 20 |~(A$,~,~ )~"M" ~
00116288 8D 20 0E DC 00 3A 4D 50-4C 4F 54 28 12 2C 12 29 |~ ~~~:MP LOT(~,~)
00116304 E7 4D 50 4C 4F 54 28 12-2C 12 29 E9 0F 0A 3A 8D |~MPLOT(~ ,~)~~~:~
00116320 20 0E 0E 01 00 47 28 B6-03 8B 20 41 24 E7 22 66 | ~~~~G(~ ~~ A$~"f
00116336 66 22 20 CD 20 49 31 E7-4B 3A 49 32 E7 4B 3A 8D |f" ~ I1~ K:I2~K:~
00116352 20 0E 54 01 00 6D 28 C0-03 8B 20 45 50 4C 4F 54 | ~T~~m(~ ~~ EPLOT
00116368 28 4B 2C 14 29 E8 E6 12-20 CD 20 43 31 E7 11 3A |(K,~)~~~ ~ C1~~:
00116384 43 32 E7 11 3A 8D 20 0E-76 02 00 82 28 CA 03 8B |C2~~:~ ~ v~~~(~~~
00116400 20 53 57 49 54 43 48 20-CD 20 89 20 0E 1A 04 00 | SWITCH ~ ~ ~~~~
00116416 C4 28 D4 03 53 57 49 54-43 48 20 E7 20 EA 12 3A |~(~~SWIT CH ~ ~~:
00116432 43 31 E7 4D 50 4C 4F 54-28 12 2C 12 29 EA 45 50 |C1~MPLOT (~,~)~EP
00116448 4C 4F 54 28 4B 2C 12 29-3A 43 32 E7 4D 50 4C 4F |LOT(K,~) :C2~MPLO
00116464 54 28 12 2C 13 29 EA 45-50 4C 4F 54 28 4B 2C 13 |T(~,~)~E PLOT(K,~
00116480 29 00 F7 28 DE 03 44 31-E7 4D 50 4C 4F 54 28 12 |)~~(~~D1 ~MPLOT(~
00116496 2C 12 29 3A 44 32 E7 4D-50 4C 4F 54 28 12 2C 13 |,~):D2~M PLOT(~,~
00116512 29 3A 8B 20 43 31 E8 16-20 CD 20 49 E7 11 3A 89 |):~ C1~~ ~ I~~:~
00116528 20 0E FC 03 00 28 29 E8-03 42 E7 43 31 EC 43 32 | ~~~~()~ ~B~C1~C2
00116544 3A 82 20 49 E7 12 20 CC-20 0F 0F 3A 8B 20 FF 86 |:~ I~~ ~ ~~:~ ~~
00116560 28 42 29 E8 54 41 4E 54-41 42 28 49 29 20 CD 20 |(B)~TANT AB(I) ~
00116576 89 20 0E FC 03 00 30 29-F2 03 83 20 49 00 3D 29 |~ ~~~~0) ~~~ I~=)
00116592 FC 03 43 31 E7 43 31 EC-0F 10 00 4A 29 06 04 43 |~~C1~C1~ ~~~J)~~C
00116608 32 E7 43 32 EC 0F 10 00-76 29 10 04 8B 20 42 E6 |2~C2~~~~ v)~~~ B~
00116624 11 20 CD 20 41 E7 49 EC-0F 0A 3A 8D 20 0E 1C 02 |~ ~ A~I~ ~~:~ ~~~
00116640 20 3A A1 20 41 E7 EA 12-EB 49 EC 0F 0A 3A 8D 20 | :~ A~~~ ~I~~~:~
00116656 0E 1C 02 00 80 29 1A 04-8D 20 0E 32 00 00 9B 29 |~~~~~)~~ ~ ~2~~~)
00116672 24 04 8B 20 FF 85 28 FF-88 EB 15 29 20 E7 20 14 |$~~ ~~(~ ~~~) ~ ~
00116688 20 CD 20 8D 20 0E E0 01-00 A5 29 2E 04 89 20 0E | ~ ~ ~~~ ~~).~~ ~
00116704 A2 03 00 00 00 1A 1A 29-F2 03 83 20 49 00 3D 29 |~~~~~~~) ~~~ I~=)
00116720 FC 03 43 31 E7 43 31 EC-0F 10 00 4A 29 06 04 43 |~~C1~C1~ ~~~J)~~C
00116736 FF 7F 14 0A 00 B8 20 42-41 53 45 20 31 3A C9 20 |~~~~~ B ASE 1:~
00116752 DD 00 8D 14 14 00 AD 20-4E 2C 49 2C 44 2C 4A 00 |~~~~~~~ N,I,D,J~
00116768 D1 14 1E 00 86 20 50 4F-49 4E 54 53 28 0F 1E 2C |~~~~~ PO INTS(~~,
00116784 14 29 2C 43 4D 44 24 28-0F 1E 29 2C 44 52 41 57 |~),CMD$( ~~),DRAW
00116800 28 0F 1E 29 2C 4D 28 15-2C 15 29 2C 50 4C 41 4E |(~~),M(~ ,~),PLAN
00116816 45 28 0F 1E 2C 14 29 2C-4E 45 57 50 54 28 0F 1E |E(~~,~), NEWPT(~~
00116832 2C 14 29 00 DB 14 28 00-89 20 0E 30 02 00 F2 14 |,~)~~~(~ ~ ~0~~~~
00116848 32 00 BA 20 22 69 22 2C-23 12 2C 46 49 4C 45 4E |2~~ "i", #~,FILEN
00116864 41 4D 45 24 00 02 15 3C-00 85 20 23 12 2C 4E 55 |AME$~~~< ~~ #~,NU
00116880 4D 50 54 53 00 15 15 46-00 82 20 49 E7 12 20 CC |MPTS~~~F ~~ I~~ ~
00116896 20 4E 55 4D 50 54 53 00-4A 15 50 00 85 20 23 12 | NUMPTS~ J~P~~ #~
00116912 2C 43 4D 44 24 28 49 29-2C 50 4F 49 4E 54 53 28 |,CMD$(I) ,POINTS(
00116928 49 2C 12 29 2C 50 4F 49-4E 54 53 28 49 2C 13 29 |I,~),POI NTS(I,~)
00116944 2C 50 4F 49 4E 54 53 28-49 2C 14 29 00 84 15 5A |,POINTS( I,~)~~~Z
00116960 00 8B 20 43 4D 44 24 28-49 29 E7 22 64 22 20 EF |~~ CMD$( I)~"d" ~
00116976 20 43 4D 44 24 28 49 29-E7 22 44 22 20 CD 20 44 | CMD$(I) ~"D" ~ D
00116992 52 41 57 28 49 29 E7 EA-12 20 3A A1 20 44 52 41 |RAW(I)~~ ~ :~ DRA
00117008 57 28 49 29 E7 11 00 8C-15 64 00 83 20 49 00 92 |W(I)~~~~ ~d~~ I~~
00117024 15 6E 00 8E 00 A5 15 78-00 82 20 49 E7 12 20 CC |~n~~~~~x ~~ I~~ ~
00117040 20 4E 55 4D 50 54 53 00-FB 15 82 00 8B 20 44 52 | NUMPTS~ ~~~~~ DR
00117056 41 57 28 49 29 20 CD 20-B0 20 EA 28 50 4C 41 4E |AW(I) ~ ~ ~(PLAN
00117072 45 28 49 2C 12 29 2C 50-4C 41 4E 45 28 49 2C 13 |E(I,~),P LANE(I,~
00117088 29 29 2C 12 20 3A A1 20-43 E7 DC 28 58 31 2C 59 |)),~ :~ C~~(X1,Y
00117104 31 29 3A C6 28 50 4C 41-4E 45 28 49 2C 12 29 2C |1):~(PLA NE(I,~),
00117120 50 4C 41 4E 45 28 49 2C-13 29 29 2C 43 00 03 16 |PLANE(I, ~)),C~~~
00117136 8C 00 83 20 49 00 09 16-96 00 8E 00 28 16 A0 00 |~~~ I~~~ ~~~~(~~~
00117152 4D 28 12 2C 12 29 E7 12-3A 4D 28 12 2C 13 29 E7 |M(~,~)~~ :M(~,~)~
00117168 11 3A 4D 28 12 2C 14 29-E7 11 00 4F 16 AA 00 4D |~:M(~,~) ~~~O~~~M
00117184 28 13 2C 12 29 E7 11 3A-4D 28 13 2C 13 29 E7 FF |(~,~)~~: M(~,~)~~
00117200 8C 28 41 29 3A 4D 28 13-2C 14 29 E7 FF 89 28 41 |~(A):M(~ ,~)~~~(A
00117216 29 00 77 16 B4 00 4D 28-14 2C 12 29 E7 11 3A 4D |)~w~~~M( ~,~)~~:M
00117232 28 14 2C 13 29 E7 EA FF-89 28 41 29 3A 4D 28 14 |(~,~)~~~ ~(A):M(~
00117248 2C 14 29 E7 FF 8C 28 41-29 00 9F 16 BE 00 4D 28 |,~)~~~(A )~~~~~M(
00117264 15 2C 12 29 E7 11 3A 4D-28 15 2C 13 29 E7 11 3A |~,~)~~:M (~,~)~~:
00117280 4D 28 15 2C 14 29 E7 11-3A 4D 28 15 2C 15 29 E7 |M(~,~)~~ :M(~,~)~
00117296 12 00 A5 16 C8 00 8E 00-CD 16 D2 00 4D 28 12 2C |~~~~~~~~ ~~~~M(~,
00117312 12 29 E7 FF 8C 28 41 29-3A 4D 28 12 2C 13 29 E7 |~)~~~(A) :M(~,~)~
00117328 11 3A 4D 28 12 2C 14 29-E7 EA FF 89 28 41 29 00 |~:M(~,~) ~~~~(A)~
00117344 EC 16 DC 00 4D 28 13 2C-12 29 E7 11 3A 4D 28 13 |~~~~M(~, ~)~~:M(~
00117360 2C 13 29 E7 12 3A 4D 28-13 2C 14 29 E7 11 00 13 |,~)~~:M( ~,~)~~~~
00117376 17 E6 00 4D 28 14 2C 12-29 E7 FF 89 28 41 29 3A |~~~M(~,~ )~~~(A):
00117392 4D 28 14 2C 13 29 E7 11-3A 4D 28 14 2C 14 29 E7 |M(~,~)~~ :M(~,~)~
00117408 FF 8C 28 41 29 00 3B 17-F0 00 4D 28 15 2C 12 29 |~~(A)~;~ ~~M(~,~)
00117424 E7 11 3A 4D 28 15 2C 13-29 E7 11 3A 4D 28 15 2C |~~:M(~,~ )~~:M(~,
00117440 14 29 E7 11 3A 4D 28 15-2C 15 29 E7 12 00 41 17 |~)~~:M(~ ,~)~~~A~
00117456 FA 00 8E 00 68 17 04 01-4D 28 12 2C 12 29 E7 FF |~~~~h~~~ M(~,~)~~
00117472 8C 28 41 29 3A 4D 28 12-2C 13 29 E7 FF 89 28 41 |~(A):M(~ ,~)~~~(A
00117488 29 3A 4D 28 12 2C 14 29-E7 11 00 90 17 0E 01 4D |):M(~,~) ~~~~~~~M
00117504 28 13 2C 12 29 E7 EA FF-89 28 41 29 3A 4D 28 13 |(~,~)~~~ ~(A):M(~