APPENDIX
VER.V09F
SECTION 9.5
540 PSETCI+i,60), (I+2,60), (1+6,60), (1+7,60)
550 PSET(I+3,61), (I+4,61), (1+5,61)
560 NEXT
570 LINE<50,60>-(45,50)
580 LINE(45,50)-C45,46)
590 LINE(45,46)-(39,40)
600 LINEC39,41)-C34,46)
610 LINE-(37,49)
620 LINE-(42,44)
630 LINEC45,46)-(62,46)
640 PSETC63,47), (63,48), (64,49)
650 LINEC45,50)-(150,50)
660 PSETC151,49), (152,48), (152,47), (153,46)
670 LINEC153,46)-C173,46)
680 LINEC173,46)-Cl55,60)
690 LINEC173,46)-C194,40)
700 LINEC145,50)-(145,10)
710 LINEC145,10)-(193,40)
720 ~INE(71,50)-C71,15)
730 LINEC71,15l-C45,46>
740 LINE(lOB,50)-(108,1)
750 LINEClOB,1)-(71,151
760 LINEClOB,H-(145
1
10)
770 LINEC61,24)-C78,20l
780 LINEC58
1
39)-(84,34l
790 LINEC98,11l-(115,7)
800 LINE(95,25)-(121,20)
810 LINE(92,42)-(127,36)
820 LINE ( 135, 19)- ( 152, 15)
830 LINE(132,34)-(158,29)
840 FORI=64T0150STEP10
850 PSET (I, 5:3)
860 NEXT
870
880
890
891
892
89:,
894
895
900
91.0
999
LINE(160,48J-(156,52)
PSET C 155, 51 ) , C 155, 50 > , ( 1 56, 49 > , < 157, 53) , C 158, 53) , ( 159, 52 >
PSET ( 158,48), ( 160,50)
PSETC37,18), (:37,17>, (36,16), (35,16), (34,16), (33,17)
PSETC:::.B,
16), (39, 16), (40, 16), (41, 17)
CIRCLEW,O> ,15
PSET(210,51),
(210,50) 'I (209,49)
1
(208,49), (207,49), (206150)
PSET(211,49), <212
1
49), (213,49), (214,50)
CHARO, l: LOCr4TE30, 2: PHINT
11
HMS BOLJ~HY"
LINE ( 173, 7)-- (233,151, 1,B
IMCHR II II, /"1;; !3CREEMO: L:;OTO 1
PAGE 9 - 32
To Next Page
Loading...