ebray@pacsbb.UUCP (Eric Bray) (07/03/89)
1 CALL GRAPHICS(1,3) :: CALL DCOLOR(16,1) 2 ! DRAW DESKTOP 3 Y=120 :: X=128 4 CALL DRAW(1,Y-28,X+37,Y-36,X+45) 5 CALL DRAW(1,Y-36,X+44,Y-36,X+33) 6 CALL DRAW(1,Y-36,X-34,Y-36,X-40) 7 CALL DRAW(1,Y-35,X-41,Y-28,X-48) 8 CALL DRAW(1,Y-28,X-47,Y-28,X+36) 9 CALL DRAW(1,Y-27,X+37,Y+28,X+37) 10 CALL DRAW(1,Y+28,X+36,Y+28,X+9) 11 CALL DRAW(1,Y+27,X+9,Y-22,X+9) 12 CALL DRAW(1,Y+2,X+10,Y+2,X+36) 13 CALL DRAW(1,Y+27,X+38,Y+20,X+45) 14 CALL DRAW(1,Y+19,X+45,Y-35,X+45) 15 CALL DRAW(1,Y-30,X+44,Y-24,X+38) 16 CALL DRAW(1,Y-23,X+36,Y-23,X-47) 17 CALL DRAW(1,Y-27,X-48,Y+28,X-48) 18 CALL DRAW(1,Y+28,X-47,Y+28,X-20) 19 CALL DRAW(1,Y+27,X-20,Y-22,X-20) 20 CALL DRAW(1,Y+2,X-21,Y+2,X-47) 21 CALL DRAW(1,Y-22,X-12,Y+20,X-12) 22 CALL DRAW(1,Y+21,X-13,Y+27,X-19) 23 CALL DRAW(1,Y+21,X-30,Y+21,X-39) 24 CALL DRAW(1,Y+20,X-39,Y+16,X-39) 25 CALL DRAW(1,Y+16,X-38,Y+16,X-30) 26 CALL DRAW(1,Y+17,X-30,Y+20,X-30) 27 CALL DRAW(1,Y+19,X-31,Y+19,X-38) 28 CALL DRAW(1,Y+18,X-38,Y+18,X-31) 29 CALL DRAW(1,Y-5,X-30,Y-10,X-30) 30 CALL DRAW(1,Y-10,X-31,Y-10,X-39) 31 CALL DRAW(1,Y-9,X-39,Y-5,X-39) 32 CALL DRAW(1,Y-5,X-38,Y-5,X-31) 33 CALL DRAW(1,Y-7,X-31,Y-7,X-38) 34 CALL DRAW(1,Y-8,X-38,Y-8,X-31) 35 CALL DRAW(1,Y-22,X-18,Y-18,X-14) 36 CALL DRAW(1,Y-12,X-14,Y-16,X-18) 37 CALL DRAW(1,Y-10,X-18,Y-6,X-14) 38 CALL DRAW(1,Y+0,X-14,Y-4,X-18) 39 CALL DRAW(1,Y+2,X-18,Y+6,X-14) 40 CALL DRAW(1,Y+12,X-14,Y+8,X-18) 41 CALL DRAW(1,Y+14,X-18,Y+18,X-14) 42 CALL DRAW(1,Y+21,X-17,Y+20,X-18) 43 CALL DRAW(1,Y-5,X+18,Y-10,X+18) 44 CALL DRAW(1,Y-10,X+19,Y-10,X+27) 45 CALL DRAW(1,Y-9,X+27,Y-5,X+27) 46 CALL DRAW(1,Y-5,X+26,Y-5,X+19) 47 CALL DRAW(1,Y-8,X+19,Y-8,X+26) 48 CALL DRAW(1,Y-7,X+26,Y-7,X+19) 49 CALL DRAW(1,Y+16,X+27,Y+16,X+18) 50 CALL DRAW(1,Y+17,X+18,Y+21,X+18) 51 CALL DRAW(1,Y+21,X+19,Y+21,X+27) 52 CALL DRAW(1,Y+20,X+27,Y+17,X+27) 53 CALL DRAW(1,Y+19,X+26,Y+19,X+19) 54 CALL DRAW(1,Y+18,X+19,Y+18,X+26) 55 CALL DRAW(1,Y+20,X+39,Y+21,X+40) 56 CALL DRAW(1,Y+18,X+43,Y+14,X+39) 57 CALL DRAW(1,Y+8,X+39,Y+12,X+43) 58 CALL DRAW(1,Y+6,X+43,Y+2,X+39) 59 CALL DRAW(1,Y-4,X+39,Y+0,X+43) 60 CALL DRAW(1,Y-6,X+43,Y-10,X+39) 61 CALL DRAW(1,Y-16,X+39,Y-12,X+43) 62 CALL DRAW(1,Y-18,X+43,Y-22,X+39) 63 CALL DRAW(1,Y-24,X+42,Y-23,X+43) 64 ! DRAW P-BOX 65 Y=76 :: X=131 66 CALL DRAW(1,Y+14,X+23,Y+7,X+30) 67 CALL DRAW(1,Y+6,X+30,Y-16,X+30) 68 CALL DRAW(1,Y-16,X+29,Y-16,X-29) 69 CALL DRAW(1,Y-15,X-30,Y-9,X-36) 70 CALL DRAW(1,Y-8,X-36,Y+14,X-36) 71 CALL DRAW(1,Y+14,X-35,Y+14,X+22) 72 CALL DRAW(1,Y+13,X+23,Y-9,X+23) 73 CALL DRAW(1,Y-9,X+22,Y-9,X-35) 74 CALL DRAW(1,Y-7,X-35,Y-7,X+22) 75 CALL DRAW(1,Y+12,X+21,Y-5,X+21) 76 CALL DRAW(1,Y-5,X+20,Y-5,X+9) 77 CALL DRAW(1,Y-4,X+9,Y+12,X+9) 78 CALL DRAW(1,Y+12,X+10,Y+12,X+20) 79 CALL DRAW(1,Y+10,X+15,Y-3,X+15) 80 CALL DRAW(1,Y+1,X+12,Y+7,X+12) 81 CALL DRAW(1,Y+7,X+18,Y+1,X+18) 82 CALL DRAW(1,Y-8,X+24,Y-13,X+29) 83 CALL DRAW(1,Y-15,X+29,Y-10,X+24) 84 CALL DRAW(1,Y-6,X+28,Y-7,X+27) 85 CALL DRAW(1,Y+0,X+28,Y-3,X+25) 86 CALL DRAW(1,Y+2,X+25,Y+5,X+28) 87 CALL DRAW(1,Y+8,X+26,Y+7,X+25) 88 CALL DRAW(1,Y-11,X+7,Y-14,X+10) 89 CALL DRAW(1,Y-14,X-11,Y-11,X-14) 90 CALL DRAW(1,Y-4,X-26,Y-4,X-34) 91 CALL DRAW(1,Y-3,X-33,Y-3,X-30) 92 CALL DRAW(1,Y+12,X-22,Y+12,X-19) 93 CALL DRAW(1,Y+11,X-19,Y-5,X-19) 94 CALL DRAW(1,Y-5,X-20,Y-5,X-22) 95 CALL DRAW(1,Y-4,X-22,Y+11,X-22) 96 CALL DRAW(1,Y+10,X-20,Y+10,X-21) 97 CALL DRAW(1,Y+10,X-20,Y+10,X-20) 98 CALL DRAW(1,Y+12,X-17,Y+12,X-14) 99 CALL DRAW(1,Y+11,X-14,Y-5,X-14) 100 CALL DRAW(1,Y-5,X-15,Y-5,X-17) 101 CALL DRAW(1,Y-4,X-17,Y+11,X-17) 102 CALL DRAW(1,Y+10,X-16,Y+10,X-15) 103 CALL DRAW(1,Y+10,X-15,Y+10,X-15) 104 CALL DRAW(1,Y+12,X-12,Y+12,X-9) 105 CALL DRAW(1,Y+11,X-9,Y-5,X-9) 106 CALL DRAW(1,Y-5,X-10,Y-5,X-12) 107 CALL DRAW(1,Y-4,X-12,Y+11,X-12) 108 CALL DRAW(1,Y+10,X-10,Y+10,X-11) 109 CALL DRAW(1,Y+10,X-10,Y+10,X-10) 110 CALL DRAW(1,Y+12,X-7,Y+12,X-4) 111 CALL DRAW(1,Y+11,X-4,Y-5,X-4) 112 CALL DRAW(1,Y-5,X-5,Y-5,X-7) 113 CALL DRAW(1,Y-4,X-7,Y+11,X-7) 114 CALL DRAW(1,Y+10,X-6,Y+10,X-4) 115 CALL DRAW(1,Y+12,X-2,Y+12,X+1) 116 CALL DRAW(1,Y+11,X+1,Y-5,X+1) 117 CALL DRAW(1,Y-5,X+0,Y-5,X-2) 118 CALL DRAW(1,Y-4,X-2,Y+11,X-2) 119 CALL DRAW(1,Y+10,X-1,Y+10,X+1) 120 CALL DRAW(1,Y+12,X+3,Y+12,X+6) 121 CALL DRAW(1,Y+11,X+6,Y-5,X+6) 122 CALL DRAW(1,Y-5,X+5,Y-5,X+3) 123 CALL DRAW(1,Y-4,X+3,Y+11,X+3) 124 CALL DRAW(1,Y+10,X+4,Y+10,X+6) 125 CALL DRAW(1,Y+12,X-28,Y+8,X-28) 126 CALL DRAW(1,Y+8,X-29,Y+8,X-31) 127 CALL DRAW(1,Y+9,X-31,Y+12,X-31) 128 CALL DRAW(1,Y+12,X-30,Y+12,X-28) 129 CALL DRAW(1,Y+10,X-29,Y+10,X-30) 130 CALL DRAW(1,Y+10,X-29,Y+10,X-29) 131 CALL DRAW(1,Y+10,X+13,Y+10,X+12) 132 CALL DRAW(1,Y+10,X+13,Y+10,X+13) 133 CALL DRAW(1,Y+9,X+11,Y+9,X+11) 134 CALL DRAW(1,Y+10,X+19,Y+10,X+18) 135 CALL DRAW(1,Y+10,X+19,Y+10,X+19) 136 CALL DRAW(1,Y+9,X+17,Y+9,X+17) 137 DISPLAY AT(1,1):"YOUR MYARC GENEVE 9640 HAS" 138 DISPLAY AT(3,1):"A POWERFUL ADVANCED BASIC" 139 DISPLAY AT(21,1):"CAPABLE OF GREAT GRAPHICS" 140 DISPLAY AT(23,1):"SUCH AS THIS DESK & COMPUTER" 141 GOTO 141 YOU CAN LOAD THIS DV/80 FILE INTO MEMORY BY EITHER TYPING "OLD DSKx.FILE- NAME" OR "MERGE DSKx.FILENAME". THIS IS A NEW UNDOCUMENTED FEATURE!!