home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / progr12.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-10-27  |  5.8 KB  |  176 lines
  1. 1200   A=2
  2. 1201   'Modified from the HP 9845 Basic by G. Wesley  12/29/82
  3. 1202  ' draw statements to color figure
  4. 1203  ' by DAVE MOON 11/83
  5. 1204   KEY OFF
  6. 1205   CLS
  7. 1206   DEFINT X,Y,C
  8. 1207   SCREEN 1:COLOR 15,0: RESTORE 1254
  9. 1208   C=0:LINE -(0,0),C
  10. 1209   FOR I=1 TO 360
  11. 1210      READ X,Y,P
  12. 1211      X=X*320/360
  13. 1212      Y=Y*200/240
  14. 1213      Y=200-Y 'do y transformation to
  15. 1214  'get picture right side up.
  16. 1215      IF P=13 THEN C=0 ELSE C=A
  17. 1216      LINE -(X,Y),C
  18. 1217  NEXT I
  19. 1218  PSET (70,167),2:PAINT (27,150),2
  20. 1219  PAINT(27,165),3,2:LOCATE 1,1:LINE (105,152)-(105,156),2:LINE(107,157)-(107,157),2:PSET(92,140),2:PAINT (27,170),0,2
  21. 1220  LINE(301,96)-(302,96),2:PSET (299,96),2:PSET (309,85),2:PSET(288,108),2:PSET(304,108),3
  22. 1221  PAINT(304,108),2,2 'shoes
  23. 1222  LINE (169,74)-(173,80),2 'line on leg so paint won't leak
  24. 1223  PSET(246,143),2
  25. 1224  PAINT(160,150),0,2
  26. 1225  PAINT (290,77),0,2 'torso & boobs
  27. 1226  PSET(167,83),2
  28. 1227  PAINT(170,95),0,2 'torso
  29. 1228  PAINT (58,130),0,2 'face
  30. 1229  PSET (245,143),7 ' a dot on her arm
  31. 1230  PSET (144,91),2 'right nipple
  32. 1231  PSET (145,91),2 'rn
  33. 1232  PSET (146,90),2 'rn
  34. 1233  PSET (148,89),2 'rn
  35. 1234  DRAW "c2lr1D1L1D1L1D1R1D1r6u1l6u1r4"'RN
  36. 1235  PSET (95,90),2  'left nipple
  37. 1236  DRAW "c2d1r1u1r1u1r3"'fill l.nipple
  38. 1237  PSET (94,91),2  'ln
  39. 1238  PSET (93,92),2  'ln
  40. 1239  PSET (216,141),1
  41. 1240  DRAW "c1r3l9u1l6r16u1r1u1r2u1r1u1r2u1r1u1r1"'arm and ass space
  42. 1241  PSET (216,141),1
  43. 1242  PAINT (300,190),1,2
  44. 1243  PAINT (55,122),0,2 'top eye
  45. 1244  PAINT (50,118),0,2 'eye
  46. 1245  PAINT (55,124),0,2 ' eye
  47. 1246  PAINT (57,122),0,2 'eye
  48. 1247  PAINT (58,120),0,2 ' eye
  49. 1248  PSET (59,124),1 ' blue dot in eye
  50. 1249  PSET (60,124),1 'second blue dot
  51. 1250  PAINT (50,185),2   'paints hair red
  52. 1251  PAINT (30,5),1,2 ' paints top yellow
  53. 1252  WHILE INKEY$<> "":WEND
  54. 1253  X$=INKEY$:IF X$="" THEN 1253 ELSE CLS:WIDTH 80: END
  55. 1254  DATA 51,100,13,79,103,12,104,92,12
  56. 1255  DATA 108,87,12,108,82,12,104,72,12
  57. 1256  DATA 88,57,12,93,75,13,93,78,12
  58. 1257  DATA 91,82,12,90,84,12,90,87,12
  59. 1258  DATA 89,90,12,89,94,12,90,93,12
  60. 1259  DATA 91,89,12,92,86,12,92,83,12
  61. 1260  DATA 94,77,12,93,75,13,96,80,12
  62. 1261  DATA 97,83,12,97,87,12,96,89,12
  63. 1262  DATA 92,92,12,89,94,12,93,89,12
  64. 1263  DATA 94,85,12,94,77,12,85,81,13
  65. 1264  DATA 85,83,12,86,84,12,86,82,12
  66. 1265  DATA 85,81,12,85,86,13,84,86,12
  67. 1266  DATA 83,88,12,85,86,12,67,54,13
  68. 1267  DATA 65,60,12,64,67,12,66,74,12
  69. 1268  DATA 67,74,12,66,67,12,66,60,12
  70. 1269  DATA 67,54,12,69,56,13,68,61,12
  71. 1270  DATA 67,67,12,68,70,12,71,73,12
  72. 1271  DATA 69,69,12,69,64,12,71,60,12
  73. 1272  DATA 69,56,12,71,60,13,74,64,12
  74. 1273  DATA 74,68,12,71,72,12,73,68,12
  75. 1274  DATA 73,64,12,70,61,12,70,63,13
  76. 1275  DATA 71,63,12,73,65,12,73,68,12
  77. 1276  DATA 71,69,12,70,69,12,69,68,12
  78. 1277  DATA 70,65,13,70,66,12,71,66,12
  79. 1278  DATA 71,65,12,70,65,12,64,87,13
  80. 1279  DATA 60,91,12,59,94,12,58,98,12
  81. 1280  DATA 60,100,12,59,97,12,62,92,12
  82. 1281  DATA 64,87,12,69,86,13,65,88,12
  83. 1282  DATA 63,93,12,62,100,12,65,98,12
  84. 1283  DATA 64,95,12,64,90,12,69,86,13
  85. 1284  DATA 70,91,12,68,95,12,65,98,12
  86. 1285  DATA 65,97,12,67,95,12,69,91,12
  87. 1286  DATA 69,86,12,65,88,13,66,88,12
  88. 1287  DATA 68,89,12,69,91,12,67,94,12
  89. 1288  DATA 65,94,12,64,93,12,65,90,13
  90. 1289  DATA 65,91,12,66,91,12,66,90,12
  91. 1290  DATA 65,90,12,61,101,13,50,104,12
  92. 1291  DATA 36,100,12,24,90,12,17,75,12
  93. 1292  DATA 16,61,12,25,43,12,44,33,12
  94. 1293  DATA 60,33,12,79,40,12,57,38,12
  95. 1294  DATA 41,45,12,24,62,12,17,75,12
  96. 1295  DATA 51,100,13,57,95,12,63,80,12
  97. 1296  DATA 62,72,12,58,78,12,62,65,12
  98. 1297  DATA 65,49,12,52,45,13,65,49,12
  99. 1298  DATA 88,65,12,87,50,12,79,40,12
  100. 1299  DATA 17,75,13,5,67,12,0,45,12
  101. 1300  DATA 4,23,12,25,11,12,58,17,12
  102. 1301  DATA 110,14,12,135,25,12,160,32,12
  103. 1302  DATA 164,40,12,162,44,12,155,46,12
  104. 1303  DATA 143,45,12,151,43,12,149,40,12
  105. 1304  DATA 125,48,12,118,55,12,119,51,13
  106. 1305  DATA 117,58,12,113,62,12,104,62,12
  107. 1306  DATA 115,61,13,115,67,12,111,71,12
  108. 1307  DATA 104,72,12,121,52,13,133,50,12
  109. 1308  DATA 145,51,12,131,56,13,145,51,12
  110. 1309  DATA 170,47,12,245,41,12,255,42,12
  111. 1310  DATA 262,46,12,271,58,12,282,81,12
  112. 1311  DATA 281,78,13,287,81,12,280,76,13
  113. 1312  DATA 285,74,12,288,75,12,278,73,13
  114. 1313  DATA 282,75,12,283,79,13,288,75,12
  115. 1314  DATA 293,74,12,301,77,12,299,76,13
  116. 1315  DATA 306,75,12,313,76,12,314,77,12
  117. 1316  DATA 313,78,12,309,78,12,309,77,12
  118. 1317  DATA 311,76,12,309,78,13,304,79,12
  119. 1318  DATA 300,81,12,295,79,12,302,80,13
  120. 1319  DATA 313,83,12,316,85,12,312,85,12
  121. 1320  DATA 311,84,12,311,83,12,313,83,12
  122. 1321  DATA 312,85,13,300,84,12,292,82,12
  123. 1322  DATA 300,84,13,305,88,12,306,90,12
  124. 1323  DATA 302,89,12,301,88,12,302,87,12
  125. 1324  DATA 305,88,12,302,89,13,289,85,12
  126. 1325  DATA 295,79,13,280,92,12,275,91,12
  127. 1326  DATA 244,68,12,251,64,13,244,68,12
  128. 1327  DATA 220,73,12,170,89,12,164,92,12
  129. 1328  DATA 157,92,12,220,73,13,243,73,12
  130. 1329  DATA 261,81,12,270,95,12,273,109,12
  131. 1330  DATA 270,125,12,259,143,12,244,160,12
  132. 1331  DATA 227,177,12,208,193,12,196,206,12
  133. 1332  DATA 214,202,13,198,210,12,189,213,12
  134. 1333  DATA 182,213,12,176,211,12,172,206,12
  135. 1334  DATA 170,199,12,172,190,12,182,167,12
  136. 1335  DATA 197,141,12,209,125,12,236,105,12
  137. 1336  DATA 180,122,13,185,126,12,187,137,12
  138. 1337  DATA 191,150,12,208,193,13,214,202,12
  139. 1338  DATA 222,216,12,228,223,12,234,226,12
  140. 1339   DATA  240,226,12,247,222,12,276,192,12
  141. 1340  DATA  305,164,12,318,155,12,330,150,12
  142. 1341  DATA  349,137,12,347,139,13,360,149,12
  143. 1342  DATA  360,140,12,357,129,12,353,123,12
  144. 1343  DATA  350,121,12,335,120,12,349,137,13
  145. 1344  DATA  339,123,12,324,110,12,322,111,12
  146. 1345  DATA  322,113,12,324,116,12,330,121,12
  147. 1346  DATA  341,126,12,337,124,13,338,127,12
  148. 1347  DATA  335,120,13,335,116,12,349,107,12
  149. 1348  DATA  348,106,12,340,110,12,324,110,12
  150. 1349  DATA  341,126,13,334,128,12,330,128,12
  151. 1350  DATA  325,126,12,320,123,12,316,122,12
  152. 1351  DATA  312,124,12,310,127,12,308,134,12
  153. 1352  DATA  305,140,12,290,150,12,275,159,12
  154. 1353  DATA  257,168,12,249,174,12,244,179,12
  155. 1354  DATA  293,148,13,289,142,12,285,142,12
  156. 1355  DATA  282,143,12,274,150,12,266,155,12
  157. 1356  DATA  241,163,12,248,205,13,247,194,12
  158. 1357  DATA  241,163,12,90,99,13,95,103,12
  159. 1358  DATA  94,100,13,98,114,12,105,128,12
  160. 1359  DATA  108,132,12,108,134,12,110,135,12
  161. 1360  DATA  111,134,12,108,132,12,105,128,13
  162. 1361  DATA  117,134,12,111,134,13,117,134,12
  163. 1362  DATA  131,130,12,143,122,12,99,95,13
  164. 1363  DATA  114,100,12,130,108,12,124,97,13
  165. 1364  DATA 130,104,12,137,115,12,143,122,12
  166. 1365  DATA 160,130,12,167,132,12,169,134,12
  167. 1366  DATA 171,133,12,171,131,12,167,132,12
  168. 1367  DATA 160,130,13,175,126,12,171,131,13
  169. 1368  DATA 175,126,12,181,120,12,186,110,12
  170. 1369  DATA 188,100,12,186,89,12,181,121,13
  171. 1370  DATA 190,121,12,200,118,12,210,112,12
  172. 1371  DATA 222,103,12,195,120,13,200,122,12
  173. 1372  DATA 183,122,13,190,125,12,207,127,12
  174. 1373  DATA 233,107,13,232,103,12,365,0,13
  175. 1374  END
  176.