home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / 1520-HOW-TO-TUTORIAL (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  29KB  |  1,291 lines
  1. 1000 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  2. 1001 [143]" (null) (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$ (null)
  3. 1002 REM" [221] [221] PLOTTER  PROGRAMMING [221] [221]
  4. 1003 [143]" (null) MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null) (null)
  5. 1004 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  6. 1005 :
  7. 1006 :
  8. 1007 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  9. 1008 REM"[160][221] FILE OPENING CONVENTIONS [221]
  10. 1009 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  11. 1010 :
  12. 1011 REM"  [213][192][192][192][192][192] FILE NUMBER
  13. 1012 [143]"  (null)
  14. 1013 REM"  [221] [213][192][192][192] DEVICE ADDRESS
  15. 1014 [143]"  (null) (null)
  16. 1015 REM"  [221] [221] [213][192] SECONDARY ADDRESS
  17. 1016 [143]"  (null) (null) (null)    (PORT SELECT)
  18. 1017 REM"  [221] [221] [221]
  19. 1018 [143]"  (null) (null) (null)
  20. 1019 REM"  [221] [221] [221]        PORT FUNCTION
  21. 1020 [143]"  > > >      TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  22. 1021 OPEN  4,6   :REM ASCII DATA STRING
  23. 1022 OPEN  1,6,1 :REM PLOT COMMANDS
  24. 1023 OPEN  2,6,2 :REM PEN COLOR SELECT
  25. 1024 OPEN  3,6,3 :REM SELECT CHAR SIZE
  26. 1025 OPEN 44,6,4 :REM CHAR ROTATION
  27. 1026 OPEN  5,6,5 :REM DASH LINE SELECT
  28. 1027 OPEN  6,6,6 :REM UPPER/LOWER CASE
  29. 1028 OPEN  7,6,7 :REM PLOTTER RESET
  30. 1029 :
  31. 1030 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  32. 1031 [143]" (null)    CHARACTER PRINTING    (null)
  33. 1032 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  34. 1033 :
  35. 1034 [143]   PRINTING IS THROUGH PORT 0,
  36. 1035 [143]   USING FILE NUMBER #4. THE
  37. 1036 [143]   SYNTAX IS THE SAME AS FOR
  38. 1037 [143]   THE STANDARD PRINTER.
  39. 1038 :
  40. 1039 [143] PRINTING WITH QUOTED STRINGS
  41. 1040 :
  42. 1041 :   [152]4,"QUOTED TEXT STRING"
  43. 1042 :
  44. 1043 [143] PRINTING WITH STRING VARIABLES
  45. 1044 :
  46. 1045 :   S$[178]"STRING VARIABLE"
  47. 1046 :   [152]4,S$
  48. 1047 :
  49. 1048 [143] PRINTING WITH CHR$ CODES
  50. 1049 :
  51. 1050 :   [152]4,[199](67)[199](72);
  52. 1051 :   [152]4,[199](82)[199](36);
  53. 1052 :   [152]4,[199](32)[199](67);
  54. 1053 :   [152]4,[199](79)[199](68);
  55. 1054 :   [152]4,[199](69)[199](83)
  56. 1055 :
  57. 1056 [143] PRINTING WITH TAB AND SPC
  58. 1057 :
  59. 1058 :   [152]4,">"[163]10);
  60. 1059 :   [152]4,"I TABBED TO HERE"
  61. 1060 :
  62. 1061 :   [152]4,">"[166]10);
  63. 1062 :   [152]4,"I SPACED TO HERE"
  64. 1063 :
  65. 1064 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  66. 1065 REM" [221]  USING THE OTHER PORTS   [221]
  67. 1066 [143]" (null) WITH CHARACTER PRINTING  (null)
  68. 1067 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  69. 1068 :
  70. 1069 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  71. 1070 REM" [221]   SELECTING PEN COLOR    [221]
  72. 1071 [143]"CLOSEMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  73. 1072 :
  74. 1073 REM   SELECTING DIFFERENT PEN
  75. 1074 REM   COLORS IS DONE BY PRINTING
  76. 1075 REM   THE PEN COLOR CODE THROUGH
  77. 1076 REM   PORT 2 USING FILE #2.
  78. 1077 :
  79. 1078 REM   PEN COLOR CODES ARE:
  80. 1079 :
  81. 1080 REM     "0" = BLACK
  82. 1081 REM     "1" = BLUE
  83. 1082 REM     "2" = GREEN
  84. 1083 REM     "3" = RED
  85. 1084 :
  86. 1085 :   DATA BLACK,BLUE,GREEN,RED
  87. 1086 :
  88. 1087 :   FOR I=0 TO 3
  89. 1088 :      READ S$
  90. 1089 :      PRINT#2,I :REM CHANGE COLOR
  91. 1090 :      PRINT#4,"THIS PEN IS "S$
  92. 1091 :   NEXT I
  93. 1092 :
  94. 1093 REM RESET PEN COLOR TO DEFAULT
  95. 1094 :
  96. 1095 :   PRINT#2,"0" :REM BLACK PEN
  97. 1096 :
  98. 1097 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  99. 1098 [143]"CLOSE(null) SELECTING CHARACTER SIZE (null)
  100. 1099 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  101. 1100 :
  102. 1101 [143]   SELECTING OTHER CHARACTER
  103. 1102 [143]   SIZES IS DONE BY PRINTING
  104. 1103 [143]   THE CHARACTER SIZE THROUGH
  105. 1104 [143]   PORT 3 USING FILE #3.
  106. 1105 :
  107. 1106 [143]   CHARACTER SIZE CODES ARE:
  108. 1107 :
  109. 1108 [143]     "0" = 80 CHARACTERS/LINE
  110. 1109 [143]     "1" = 40 CHARACTERS/LINE
  111. 1110 [143]     "2" = 20 CHARACTERS/LINE
  112. 1111 [143]     "3" = 10 CHARACTERS/LINE
  113. 1112 :
  114. 1113 :   [131] 80,40,20,10
  115. 1114 :
  116. 1115 :   [129] I[178]0 [164] 3
  117. 1116 :      [135] S$
  118. 1117 :      [152]3,I :[143] CHANGE SIZE
  119. 1118 :      [152]4,[201]([196](I),1);
  120. 1119 :      [152]4,"="S$"/LINE"
  121. 1120 :      [152]4
  122. 1121 :   [130] I
  123. 1122 :
  124. 1123 [143] RESET SIZE TO DEFAULT
  125. 1124 :
  126. 1125 :   [152]3,"1" :[143] 40/LINE
  127. 1126 :
  128. 1127 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  129. 1128 REM"[160][221]    CHARACTER ROTATION    [221]
  130. 1129 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  131. 1130 :
  132. 1131 REM   CHARACTERS TO BE PRINTED MAY
  133. 1132 REM   BE ROTATED 90 DEGREES TO THE
  134. 1133 REM   RIGHT BY PRINTING THE VALUE
  135. 1134 REM   OF ROTATION THROUGH PORT 4
  136. 1135 REM   USING FILE #44.
  137. 1136 :
  138. 1137 REM   ROTATION CODES ARE:
  139. 1138 :
  140. 1139 REM     "0" = NORMAL HORIZONTAL
  141. 1140 REM     "1" = 90 DEGREE ROTATION
  142. 1141 :
  143. 1142 : DATA V,E,R,T,I,C,A,L
  144. 1143 :
  145. 1144 : PRINT#4,"HORIZONTAL LINE"
  146. 1145 :
  147. 1146 : PRINT#44,"1" :REM SET ROTATION
  148. 1147 :
  149. 1148 : PRINT#4,"E N I L  D E T A T O R"
  150. 1149 :
  151. 1150 : FOR I=1 TO 8
  152. 1151 :    READ S$
  153. 1152 :    PRINT#4,S$
  154. 1153 : NEXT I
  155. 1154 :
  156. 1155 REM RESTORE DEFAULT ORIENTATION
  157. 1156 :
  158. 1157 :   PRINT#44,"0" :REM HORIZONTAL
  159. 1158 :
  160. 1159 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  161. 1160 [143]" (null)  DASHED LINE CHARACTERS  (null)
  162. 1161 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  163. 1162 :
  164. 1163 [143]   CHARACTERS MAY BE PRINTED
  165. 1164 [143]   USING DASHED LINES BY
  166. 1165 [143]   PRINTING THE LINE SEGMENT
  167. 1166 [143]   SIZE CODE THROUGH PORT 5
  168. 1167 [143]   USING FILE NUMBER #5.
  169. 1168 [143]   ALLOWABLE VALUES ARE 0 TO
  170. 1169 [143]   15. SIZE CODES ARE:
  171. 1170 :
  172. 1171 [143]     0 = SOLID LINE
  173. 1172 [143]     1 = SMALLEST SEGMENT
  174. 1173 [143]     2 = LARGER SEGMENT
  175. 1174 [143]     .
  176. 1175 [143]     .
  177. 1176 [143]    15 = LARGEST SEGMENT
  178. 1177 :
  179. 1178 [143] USE LARGE CHARACTERS
  180. 1179 :
  181. 1180 :  [152]3,"3" :[143] 10/LINE
  182. 1181 :  [152]4
  183. 1182 :
  184. 1183 [143] PRINT EVERY THIRD SIZE LINE
  185. 1184 :
  186. 1185 :  [129] I[178]0 [164] 15 [169] 3
  187. 1186 :     [152]5,I :[143] CHANGE LINE
  188. 1187 :     [152]4,"DASHED"
  189. 1188 :  [130] I
  190. 1189 :
  191. 1190 [143] RESTORE DEFAULT SIZE AND LINE
  192. 1191 :
  193. 1192 :  [152]3,"1" :[143] 40/LINE
  194. 1193 :  [152]5,"0" :[143] SOLID LINE
  195. 1194 :
  196. 1195 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  197. 1196 REM" [221]   UPPER AND LOWER CASE   [221]
  198. 1197 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  199. 1198 :
  200. 1199 REM   UPPER AND LOWER CASE CAN BE
  201. 1200 REM   PRINTED AT ALL TIMES. THE
  202. 1201 REM   DEFAULT IS TO PRINT ALL
  203. 1202 REM   NORMAL CHARACTERS IN UPPER
  204. 1203 REM   CASE AND SHIFTED CHARACTERS
  205. 1204 REM   IN LOWER CASE. THIS CAN BE
  206. 1205 REM   REVERSED BY PRINTING THE
  207. 1206 REM   CASE SELECT CODE THROUGH
  208. 1207 REM   PORT 6 USING FILE NUMBER #6.
  209. 1208 :
  210. 1209 REM   CASE SELECT CODES ARE:
  211. 1210 :
  212. 1211 REM      "0" = DEFAULT CASE
  213. 1212 REM      "1" = REVERSE CASE
  214. 1213 :
  215. 1214 :   PRINT#4
  216. 1215 :   PRINT#4,"DEFAULT CASE:"
  217. 1216 :   GOSUB 1228 :REM PRINT CHARS
  218. 1217 :
  219. 1218 :   PRINT#6,"1" :REM REVERSE CASE
  220. 1219 :
  221. 1220 :   PRINT#4
  222. 1221 :   PRINT#4,"REVERSE CASE:"
  223. 1222 :   GOSUB 1228 :REM PRINT CHARS
  224. 1223 :
  225. 1224 :   GOTO 1240 :REM JUMP SUBROUTINE
  226. 1225 :
  227. 1226 REM PRINT CHARACTER SET
  228. 1227 :
  229. 1228 :   FOR I=64 TO 95
  230. 1229 :      PRINT#4,CHR$(I);
  231. 1230 :   NEXT I
  232. 1231 :   PRINT#4
  233. 1232 :   FOR I=192 TO 223
  234. 1233 :      PRINT#4,CHR$(I);
  235. 1234 :   NEXT I
  236. 1235 :   PRINT#4
  237. 1236 :   RETURN
  238. 1237 :
  239. 1238 REM RESTORE DEFAULT CASE
  240. 1239 :
  241. 1240 :   PRINT#6,"0" :REM DEFAULT CASE
  242. 1241 :
  243. 1242 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  244. 1243 [143]" (null)     PLOTTING LINES       (null)
  245. 1244 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  246. 1245 :
  247. 1246 [143]   LINES OF ANY LENGTH CAN BE
  248. 1247 [143]   DRAWN IN ANY DIRECTION AND
  249. 1248 [143]   THE PEN CAN BE MOVED TO ANY
  250. 1249 [143]   POINT IN THE PLOTTING AREA
  251. 1250 [143]   BY PRINTING THE APPROPRIATE
  252. 1251 [143]   COMMAND THROUGH PORT 1 USING
  253. 1252 [143]   FILE NUMBER #1.
  254. 1253 :
  255. 1254 [143]   THE FORMAT FOR THE PRINT
  256. 1255 [143]   STATEMENT WHEN PRINTING TO
  257. 1256 [143]   PORT 1 IS:
  258. 1257 :
  259. 1258 [143]      PRINT#1,"C",X,Y
  260. 1259 :
  261. 1260 [143]   WHERE:
  262. 1261 :
  263. 1262 [143]     C = ONE OF THE COMMANDS
  264. 1263 [143]     X = THE X COORDINATE
  265. 1264 [143]     Y = THE Y COORDINATE
  266. 1265 :
  267. 1266 [143]   COMMANDS ARE:
  268. 1267 :
  269. 1268 [143]     "I" = SET RELATIVE ORIGIN
  270. 1269 [143]     "H" = MOVE HOME ABSOLUTE
  271. 1270 [143]     "M" = MOVE ABSOLUTE TO X,Y
  272. 1271 [143]     "R" = MOVE RELATIVE TO X,Y
  273. 1272 [143]     "D" = DRAW ABSOLUTE TO X,Y
  274. 1273 [143]     "J" = DRAW RELATIVE TO X,Y
  275. 1274 :
  276. 1275 [143]   NOTE:
  277. 1276 :
  278. 1277 [143]     MOVE - IMPLIES PEN UP
  279. 1278 [143]     DRAW - IMPLIES PEN DOWN
  280. 1279 [143]     ABSOLUTE - REFERENCED TO
  281. 1280 [143]                HOME POSITION
  282. 1281 [143]     RELATIVE - REFERENCED TO
  283. 1282 [143]                RELATIVE ORIGIN
  284. 1283 [143]                SET WITH "I"
  285. 1284 :
  286. 1285 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  287. 1286 REM" [221]   PLOTTING AREA BOUNDS   [221]
  288. 1287 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  289. 1288 :
  290. 1289 REM   THE PLOTTING AREA IS ABOUT
  291. 1290 REM   3 3/4 INCES WIDE BY ABOUT
  292. 1291 REM   15 3/4 INCHES LONG. IS IS
  293. 1292 REM   GRADUATED AS FOLLOWS:
  294. 1293 :
  295. 1294 REM    0,998             479,998
  296. 1295 REM"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  297. 1296 [143]"  (null)                         (null)
  298. 1297 REM"  [221]                         [221]
  299. 1298 [143]   /                         /
  300. 1299 [143]"  (null)                         (null)
  301. 1300 REM"  [221]0,0 (HOME)          479,0[221]
  302. 1301 [143]"  -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  303. 1302 REM"  [221]                         [221]
  304. 1303 [143]"  (null)                         (null)
  305. 1304 REM   /                         /
  306. 1305 REM"  [221]                         [221]
  307. 1306 [143]"  (null)0,-998           479,-998(null)
  308. 1307 REM"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  309. 1308 :
  310. 1309 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  311. 1310 REM" [221]  PLOTTING WITH ABSOLUTE  [221]
  312. 1311 [143]" (null)  COORDINATE  REFERENCES  (null)
  313. 1312 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  314. 1313 :
  315. 1314 [143]   ABSOLUTE PLOT COMMANDS ARE
  316. 1315 [143]   REFERENCED RELATIVE TO THE
  317. 1316 [143]   HOME POSITION (X=0, Y=0).
  318. 1317 [143]   HOME POSITION IS ESTABLISHED
  319. 1318 [143]   UPON POWER ON OR BY PRINTING
  320. 1319 [143]   A CARRIAGE RETURN THROUGH
  321. 1320 [143]   PORT 0, FILE NUMER #4.
  322. 1321 :
  323. 1322 [143] MOVE THE PEN TO AREA BOTTOM
  324. 1323 :
  325. 1324 :   [152]1,"M",0,[171]998
  326. 1325 :
  327. 1326 [143] ESTABLISH NEW HOME POSITION
  328. 1327 :
  329. 1328 :   [152]4
  330. 1329 :
  331. 1330 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  332. 1331 REM" [221] DRAW BOUNDS OF PLOT AREA [221]
  333. 1332 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  334. 1333 :
  335. 1334 :   PRINT#1,"D",  0,-998
  336. 1335 :   PRINT#1,"D",479,-998
  337. 1336 :   PRINT#1,"D",479, 998
  338. 1337 :   PRINT#1,"D",  0, 998
  339. 1338 :   PRINT#1,"D",  0,   0
  340. 1339 :   PRINT#1,"D",479,   0
  341. 1340 :
  342. 1341 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  343. 1342 [143]"CLOSE(null)  PLOTTING AND PRINTING   (null)
  344. 1343 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  345. 1344 :
  346. 1345 [143]   CHARACTER SET DIMENSIONS
  347. 1346 :
  348. 1347 [143]   WHEN COMBINING PLOTTING
  349. 1348 [143]   WITH PRINTING AS IN THE
  350. 1349 [143]   EXAMPLE BELOW, THE SIZE OF
  351. 1350 [143]   THE PRINTED CHARACTERS MUST
  352. 1351 [143]   BE KNOWN IN TERMS OF THE
  353. 1352 [143]   PLOTTING AREA UNITS. A TABLE
  354. 1353 [143]   OF CHARACTER SIZE CODES AND
  355. 1354 [143]   THEIR CORRESPONDING PLOTTING
  356. 1355 [143]   AREA DIMENSIONS FOLLOWS:
  357. 1356 :
  358. 1357 [143]   SIZE        CHARACTER
  359. 1358 [143]   CODE        DIMENSION
  360. 1359 [143]" TANTANTANTANTANTAN  TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  361. 1360 :
  362. 1361 REM   "0"     10 HIGH BY  6 WIDE
  363. 1362 REM   "1"     20 HIGH BY 12 WIDE
  364. 1363 REM   "2"     40 HIGH BY 24 WIDE
  365. 1364 REM   "3"     80 HIGH BY 48 WIDE
  366. 1365 :
  367. 1366 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  368. 1367 [143]" (null) LABEL POINTS OF PLOT AREA(null)
  369. 1368 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  370. 1369 :
  371. 1370 [143] MOVE TO TOP OF PLOT AREA
  372. 1371 :
  373. 1372 :   [152]1,"M",  0, 998
  374. 1373 :
  375. 1374 [143] PRINT TOP COORDINATES
  376. 1375 :
  377. 1376 :   [152]4
  378. 1377 :   [152]4," 0,998";
  379. 1378 :   [152]4,[163]27)"479,998"
  380. 1379 :
  381. 1380 [143] PRINTING WITH CARRIAGE RETURN
  382. 1381 [143] CAUSED A NEW HOME TO BE
  383. 1382 [143] DEFINED, SO MOVE TO MIDDLE
  384. 1383 [143] OF PLOT AREA WHILE BACKING UP
  385. 1384 [143] THE HEIGHT OF ONE PRINT LINE.
  386. 1385 :
  387. 1386 :   [152]1,"M",  0,[171]998[170]20
  388. 1387 :
  389. 1388 [143] PRINT MIDDLE COORDINATES
  390. 1389 :
  391. 1390 :   [152]4," 0,0 (HOME)";
  392. 1391 :   [152]4,[163]24)"479,0"
  393. 1392 :
  394. 1393 [143] MOVE TO BOTTOM OF PLOT AREA
  395. 1394 [143] WHILE BACKING UP THE HEIGHT OF
  396. 1395 [143] ONE PRINT LINE, AS BEFORE.
  397. 1396 :
  398. 1397 :   [152]1,"M",  0,[171]998[170]20
  399. 1398 :
  400. 1399 [143] PRINT THE BOTTOM COORDINATES
  401. 1400 :
  402. 1401 :   [152]4," 0,-998";
  403. 1402 :   [152]4,[163]25)"479,-998"
  404. 1403 :   [152]4
  405. 1404 :
  406. 1405 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  407. 1406 REM" [221]   PLOTTING FUNCTIONS     [221]
  408. 1407 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  409. 1408 :
  410. 1409 REM   THE FOLLOWING TWO EXAMPLES
  411. 1410 REM   DEMONSTRATE PLOTTING OF
  412. 1411 REM   FUNCTIONS. THE FIRST EXAMPLE
  413. 1412 REM   PLOTS A SINE CURVE USING
  414. 1413 REM   THE ABSOLUTE COORDINATE
  415. 1414 REM   REFERENCE RELATIVE TO HOME.
  416. 1415 :
  417. 1416 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  418. 1417 [143]"CLOSE(null)  PLOTTING A SINE CURVE   (null)
  419. 1418 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  420. 1419 :
  421. 1420 [143] EJECT ENOUGH PAPER
  422. 1421 :
  423. 1422 :   [152]1,"M",  0,[171]200
  424. 1423 :
  425. 1424 [143] ESTABLISH NEW HOME POSITION
  426. 1425 :
  427. 1426 :   [152]4
  428. 1427 :
  429. 1428 [143] DRAW BOX 400 HIGH BY 479 WIDE
  430. 1429 :
  431. 1430 :   [152]1,"D",  0, 200
  432. 1431 :   [152]1,"D",479, 200
  433. 1432 :   [152]1,"D",479,[171]200
  434. 1433 :   [152]1,"D",  0,[171]200
  435. 1434 :   [152]1,"D",  0,   0
  436. 1435 :   [152]1,"D",479,   0
  437. 1436 :
  438. 1437 [143] RETURN TO HOME
  439. 1438 :
  440. 1439 :   [152]1,"H"
  441. 1440 :
  442. 1441 [143] DRAW A SINE WAVE IN THE BOX.
  443. 1442 :
  444. 1443 [143] THE VARIABLE I WILL TAKE
  445. 1444 [143] VALUES FROM 0 TO 360 DEGREES
  446. 1445 [143] (2*[255] RADIANS). THE STEP VALUE
  447. 1446 [143] WILL PRODUCE 200 SAMPLES
  448. 1447 [143] ALONG THE X AXIS VARYING FROM
  449. 1448 [143] 0 TO 479. THE SINE WILL VARY
  450. 1449 [143] BETWEEN +1 AND -1. THE VALUE
  451. 1450 [143] OF Y, THEREFORE VARIES BETWEEN
  452. 1451 [143] +200 AND -200.
  453. 1452 :
  454. 1453 :   [129] I[178]0 [164] 2[172][255] [169] [255][173]100
  455. 1454 :      X[178]I[172]479[173](2[172][255])
  456. 1455 :      Y[178][191](I)[172]200
  457. 1456 :      [152]1,"D",X,Y
  458. 1457 :   [130] I
  459. 1458 :
  460. 1459 [143] EJECT THE DRAWING
  461. 1460 :
  462. 1461 :   [152]1,"M",  0,[171]300
  463. 1462 :
  464. 1463 [143] ESTABLISH NEW HOME POSITION
  465. 1464 :
  466. 1465 :   [152]4
  467. 1466 :
  468. 1467 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  469. 1468 REM" [221]    PLOTTING A CIRCLE     [221]
  470. 1469 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  471. 1470 :
  472. 1471 REM EJECT ENOUGH PAPER
  473. 1472 :
  474. 1473 :   PRINT#1,"M",  0,-239-20
  475. 1474 :
  476. 1475 REM ESTABLISH NEW HOME POSITION
  477. 1476 :
  478. 1477 :   PRINT#4
  479. 1478 :
  480. 1479 REM DRAW A SQUARE BOX 479 BY 479
  481. 1480 :
  482. 1481 :   PRINT#1,"D",  0, 239
  483. 1482 :   PRINT#1,"D",479, 239
  484. 1483 :   PRINT#1,"D",479,-239
  485. 1484 :   PRINT#1,"D",  0,-239
  486. 1485 :   PRINT#1,"D",  0,   0
  487. 1486 :   PRINT#1,"D",479,   0
  488. 1487 :
  489. 1488 REM MOVE TO CENTER OF THE CIRCLE
  490. 1489 :
  491. 1490 :   PRINT#1,"M",239,   0
  492. 1491 :
  493. 1492 REM ESTABLISH A RELATIVE ORIGIN
  494. 1493 :
  495. 1494 :   PRINT#1,"I"
  496. 1495 :
  497. 1496 REM DRAW A CIRCLE IN THE BOX USING
  498. 1497 REM THE "J" COMMAND, REFERENCING
  499. 1498 REM THE RELATIVE ORIGIN. BEFORE
  500. 1499 REM PLOTTING THE FIRST POINT (WHEN
  501. 1500 REM I=0) USE THE "R" COMMAND TO
  502. 1501 REM MOVE WITH THE PEN UP TO THE
  503. 1502 REM FIRST POINT ON THE CIRCLE, SO
  504. 1503 REM WE DON'T DRAW FROM THE CENTER
  505. 1504 REM TO THE FIRST POINT. THE SINE
  506. 1505 REM AND COSINE WILL VARY BETWEEN
  507. 1506 REM +1 AND -1 YIELDING VALUES FOR
  508. 1507 REM X AND Y BETWEEN +239 AND -239.
  509. 1508 :
  510. 1509 :   FOR I=0 TO 2*(null) STEP (null)/100
  511. 1510 :      X=SIN(I)*239
  512. 1511 :      Y=COS(I)*239
  513. 1512 :      IF I=0 THEN PRINT#1,"R",X,Y
  514. 1513 :      PRINT#1,"J",X,Y
  515. 1514 :   NEXT I
  516. 1515 :
  517. 1516 REM EJECT THE DRAWING
  518. 1517 :
  519. 1518 :   PRINT#1,"M",  0,-239-80
  520. 1519 :
  521. 1520 REM ESTABLISH NEW HOME POSITION
  522. 1521 :
  523. 1522 :   PRINT#4
  524. 1523 :
  525. 1524 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  526. 1525 [143]" (null)     PLOT POSITIONING     (null)
  527. 1526 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  528. 1527 :
  529. 1528 [143]   THE FOLLOWING EXAMPLES
  530. 1529 [143]   DEMONSTRATE POSITIONING
  531. 1530 [143]   THE PLOT ON THE PLOTTER BED.
  532. 1531 :
  533. 1532 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  534. 1533 REM"[160][221] PLOTTING A GIANT LETTER  [221]
  535. 1534 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  536. 1535 :
  537. 1536 REM     (0,0)      (240,0)
  538. 1537 REM"   [206]                  [205]
  539. 1538 [143]"  (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  540. 1539 REM"  [221]     (80,80)        [221]
  541. 1540 [143]"  (null)    (null)               (null)
  542. 1541 REM"  [221]   [209][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][209]
  543. 1542 [143]"  (null)   (null) (80,160)      (null)
  544. 1543 REM"  [221]   [221][206]      (240,80)
  545. 1544 [143]"  (null)   (null)TANTANTANTANTANTANTANTAN(null)
  546. 1545 REM"  [221]            [221][205]
  547. 1546 [143]"  (null)            (null) (160,160)
  548. 1547 REM"  [221]   [209][192][192][192][192][192][192][192][192][209]
  549. 1548 [143]"  (null)   (null)(null)        (null)
  550. 1549 REM"  [221]   [221] (80,240) (160,240)
  551. 1550 [143]"  (null)   (null)
  552. 1551 REM"  [221]   [221] (80,400)
  553. 1552 [143]"  (null)   (null)(null)
  554. 1553 REM"  [209][192][192][192][209]
  555. 1554 [143]"   (null)
  556. 1555 REM     (0,400)
  557. 1556 :
  558. 1557 REM GIANT LETTER DATA POINTS
  559. 1558 :
  560. 1559 REM       X , Y
  561. 1560 REM"     [192][192][192] [192][192][192]
  562. 1561 :   [131]   0,  0
  563. 1562 :   [131] 240,  0
  564. 1563 :   [131] 240, 80
  565. 1564 :   [131]  80, 80
  566. 1565 :   [131]  80,160
  567. 1566 :   [131] 160,160
  568. 1567 :   [131] 160,240
  569. 1568 :   [131]  80,240
  570. 1569 :   [131]  80,400
  571. 1570 :   [131]   0,400
  572. 1571 :   [131]   0,  0
  573. 1572 :
  574. 1573 [143] DIMENSION DATA ARRAYS
  575. 1574 :
  576. 1575 :   [134] X(11) :[143] X-AXIS VALUES
  577. 1576 :   [134] Y(11) :[143] Y-AXIS VALUES
  578. 1577 :
  579. 1578 [143] LOAD DATA INTO ARRAYS
  580. 1579 :
  581. 1580 :   [129] I[178]1 [164] 11
  582. 1581 :     [135] X,Y
  583. 1582 :     X(I)[178]X
  584. 1583 :     Y(I)[178]Y
  585. 1584 :   [130]
  586. 1585 :
  587. 1586 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  588. 1587 REM"[160][221]  PLOT THE GIANT LETTER   [221]
  589. 1588 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  590. 1589 :
  591. 1590 REM DRAW A SQUARE BOX 479 BY 479
  592. 1591 :
  593. 1592 :   PRINT#4
  594. 1593 :   PRINT#4,"INITIAL POSITION:"
  595. 1594 :
  596. 1595 :   PRINT#1,"D",479,   0
  597. 1596 :   PRINT#1,"D",479,-479
  598. 1597 :   PRINT#1,"D",  0,-479
  599. 1598 :   PRINT#1,"D",  0,   0
  600. 1599 :
  601. 1600 REM MOVE TO THE INITIAL POINT
  602. 1601 :
  603. 1602 :   PRINT#1,"M",X(1),-Y(1)
  604. 1603 :
  605. 1604 REM PLOT THE POINTS FROM THE ARRAY
  606. 1605 :
  607. 1606 :   FOR I=1 TO 11
  608. 1607 :     PRINT#1,"D",X(I),-Y(I)
  609. 1608 :   NEXT
  610. 1609 :
  611. 1610 REM EJECT THE DRAWING
  612. 1611 :
  613. 1612 :   PRINT#1,"M",  0,-479
  614. 1613 :
  615. 1614 REM ESTABLISH NEW HOME POSITION
  616. 1615 :
  617. 1616 :   PRINT#4
  618. 1617 :
  619. 1618 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  620. 1619 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  621. 1620 REM" [221]  ON THE RIGHT SIDE OF    [221]
  622. 1621 [143]" (null)  THE PLOTTER BED.        (null)
  623. 1622 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  624. 1623 :
  625. 1624 [143] DRAW A SQUARE BOX 479 BY 479
  626. 1625 :
  627. 1626 :   [152]4
  628. 1627 :   [152]4,"X-AXIS MOVED RIGHT:"
  629. 1628 :
  630. 1629 :   [152]1,"D",479,   0
  631. 1630 :   [152]1,"D",479,[171]479
  632. 1631 :   [152]1,"D",  0,[171]479
  633. 1632 :   [152]1,"D",  0,   0
  634. 1633 :
  635. 1634 [143] ADD 240 TO THE X-AXIS AND MOVE
  636. 1635 [143] TO THE INITIAL POINT.
  637. 1636 :
  638. 1637 :   [152]1,"M",X(1)[170]240,[171]Y(1)
  639. 1638 :
  640. 1639 [143] PLOT THE POINTS FROM THE ARRAY
  641. 1640 [143] ADDING 240 TO THE X-AXIS VALUE
  642. 1641 :
  643. 1642 :   [129] I[178]1 [164] 11
  644. 1643 :     [152]1,"D",X(I)[170]240,[171]Y(I)
  645. 1644 :   [130]
  646. 1645 :
  647. 1646 [143] EJECT THE DRAWING
  648. 1647 :
  649. 1648 :   [152]1,"M",  0,[171]479
  650. 1649 :
  651. 1650 [143] ESTABLISH NEW HOME POSITION
  652. 1651 :
  653. 1652 :   [152]4
  654. 1653 :
  655. 1654 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  656. 1655 REM"[160][221]  PLOT THE GIANT LETTER   [221]
  657. 1656 [143]" (null)  ON THE BOTTOM OF THE    (null)
  658. 1657 REM" [221]  PLOTTER BED.            [221]
  659. 1658 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  660. 1659 :
  661. 1660 REM DRAW A SQUARE BOX 479 BY 479
  662. 1661 :
  663. 1662 :   PRINT#4
  664. 1663 :   PRINT#4,"Y-AXIS MOVED DOWN:"
  665. 1664 :
  666. 1665 :   PRINT#1,"D",479,   0
  667. 1666 :   PRINT#1,"D",479,-479
  668. 1667 :   PRINT#1,"D",  0,-479
  669. 1668 :   PRINT#1,"D",  0,   0
  670. 1669 :
  671. 1670 REM ADD 80 TO THE Y-AXIS AND
  672. 1671 REM MOVE TO THE INITIAL POINT.
  673. 1672 :
  674. 1673 :   PRINT#1,"M",X(1),-(Y(1)+80)
  675. 1674 :
  676. 1675 REM PLOT THE POINTS FROM THE ARRAY
  677. 1676 REM ADDING 80 TO THE Y-AXIS.
  678. 1677 :
  679. 1678 :   FOR I=1 TO 11
  680. 1679 :     PRINT#1,"D",X(I),-(Y(I)+80)
  681. 1680 :   NEXT
  682. 1681 :
  683. 1682 REM EJECT THE DRAWING
  684. 1683 :
  685. 1684 :   PRINT#1,"M",  0,-479
  686. 1685 :
  687. 1686 REM ESTABLISH NEW HOME POSITION
  688. 1687 :
  689. 1688 :   PRINT#4
  690. 1689 :
  691. 1690 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  692. 1691 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  693. 1692 REM" [221]  IN THE LOWER RIGHT HAND [221]
  694. 1693 [143]" (null)  CORNER OF THE PLOT BED. (null)
  695. 1694 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  696. 1695 :
  697. 1696 [143] DRAW A SQUARE BOX 479 BY 479
  698. 1697 :
  699. 1698 :   [152]4
  700. 1699 :   [152]4,"X-AXIS MOVED RIGHT,"
  701. 1700 :   [152]4,"Y-AXIS MOVED DOWN:"
  702. 1701 :
  703. 1702 :   [152]1,"D",479,   0
  704. 1703 :   [152]1,"D",479,[171]479
  705. 1704 :   [152]1,"D",  0,[171]479
  706. 1705 :   [152]1,"D",  0,   0
  707. 1706 :
  708. 1707 [143] ADD 240 TO THE X-AXIS AND
  709. 1708 [143] ADD 80 TO THE Y-AXIS THEN
  710. 1709 [143] MOVE TO THE INITIAL POINT.
  711. 1710 :
  712. 1711 :  [152]1,"M",X(1)[170]240,[171](Y(1)[170]80)
  713. 1712 :
  714. 1713 [143] PLOT THE POINTS FROM THE ARRAY
  715. 1714 [143] ADDING 240 TO THE X-AXIS AND
  716. 1715 [143] ADDING 80 TO THE Y-AXIS.
  717. 1716 :
  718. 1717 :  [129] I[178]1 [164] 11
  719. 1718 :  [152]1,"D",X(I)[170]240,[171](Y(I)[170]80)
  720. 1719 :  [130]
  721. 1720 :
  722. 1721 [143] EJECT THE DRAWING
  723. 1722 :
  724. 1723 :   [152]1,"M",  0,[171]479
  725. 1724 :
  726. 1725 [143] ESTABLISH NEW HOME POSITION
  727. 1726 :
  728. 1727 :   [152]4
  729. 1728 :
  730. 1729 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  731. 1730 REM" [221]     PLOT REFLECTIONS     [221]
  732. 1731 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  733. 1732 :
  734. 1733 REM   THE FOLLOWING EXAMPLES
  735. 1734 REM   DEMONSTRATE PLOTTING THE
  736. 1735 REM   REFLECTIONS OF A FIGURE,
  737. 1736 REM   THAT IS, FLIPPING THE FIGURE
  738. 1737 REM   SIDEWAYS AND/OR ENDWAYS.
  739. 1738 :
  740. 1739 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  741. 1740 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  742. 1741 REM" [221]  FLIPPED SIDE TO SIDE.   [221]
  743. 1742 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  744. 1743 :
  745. 1744 REM DRAW A SQUARE BOX 479 BY 479
  746. 1745 :
  747. 1746 :  PRINT#4
  748. 1747 :  PRINT#4,"FLIPPED SIDE TO SIDE:"
  749. 1748 :
  750. 1749 :  PRINT#1,"D",479,   0
  751. 1750 :  PRINT#1,"D",479,-479
  752. 1751 :  PRINT#1,"D",  0,-479
  753. 1752 :  PRINT#1,"D",  0,   0
  754. 1753 :
  755. 1754 REM SUBTRACT THE X-AXIS VALUE FROM
  756. 1755 REM THE PLOTTER BED WIDTH AND MOVE
  757. 1756 REM TO THE INITIAL POSITION.
  758. 1757 :
  759. 1758 :   PRINT#1,"M",479-X(1),-Y(1)
  760. 1759 :
  761. 1760 REM PLOT THE POINTS FROM THE ARRAY
  762. 1761 REM SUBTRACTING THE X-AXIS VALUE
  763. 1762 REM FROM THE PLOTTER BED WIDTH.
  764. 1763 :
  765. 1764 :   FOR I=1 TO 11
  766. 1765 :     PRINT#1,"D",479-X(I),-Y(I)
  767. 1766 :   NEXT
  768. 1767 :
  769. 1768 REM EJECT THE DRAWING
  770. 1769 :
  771. 1770 :   PRINT#1,"M",  0,-479
  772. 1771 :
  773. 1772 REM ESTABLISH NEW HOME POSITION
  774. 1773 :
  775. 1774 :   PRINT#4
  776. 1775 :
  777. 1776 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  778. 1777 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  779. 1778 REM" [221]  FLIPPED TOP TO BOTTOM.  [221]
  780. 1779 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  781. 1780 :
  782. 1781 REM DRAW A SQUARE BOX 479 BY 479
  783. 1782 :
  784. 1783 : PRINT#4
  785. 1784 : PRINT#4,"FLIPPED TOP TO BOTTOM:"
  786. 1785 :
  787. 1786 : PRINT#1,"D",479,   0
  788. 1787 : PRINT#1,"D",479,-479
  789. 1788 : PRINT#1,"D",  0,-479
  790. 1789 : PRINT#1,"D",  0,   0
  791. 1790 :
  792. 1791 REM SUBTRACT THE Y-AXIS VALUE FROM
  793. 1792 REM THE PLOTTER BED HEIGHT, IN
  794. 1793 REM THIS CASE THE BOX SIZE,
  795. 1794 REM AND MOVE TO THE INITIAL POINT.
  796. 1795 :
  797. 1796 :   PRINT#1,"M",X(1),-(479-Y(1))
  798. 1797 :
  799. 1798 REM PLOT THE POINTS FROM THE ARRAY
  800. 1799 REM SUBTRACTING THE Y-AXIS VALUES
  801. 1800 REM FROM THE PLOTTER BED HEIGHT.
  802. 1801 :
  803. 1802 :   FOR I=1 TO 11
  804. 1803 :     PRINT#1,"D",X(I),-(479-Y(I))
  805. 1804 :   NEXT
  806. 1805 :
  807. 1806 REM EJECT THE DRAWING
  808. 1807 :
  809. 1808 :   PRINT#1,"M",  0,-479
  810. 1809 :
  811. 1810 REM ESTABLISH NEW HOME POSITION
  812. 1811 :
  813. 1812 :   PRINT#4
  814. 1813 :
  815. 1814 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  816. 1815 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  817. 1816 REM" [221]  FLIPPED BOTH SIDE TO    [221]
  818. 1817 [143]" (null)  SIDE AND TOP TO BOTTOM. (null)
  819. 1818 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  820. 1819 :
  821. 1820 [143] DRAW A SQUARE BOX 479 BY 479
  822. 1821 :
  823. 1822 :  [152]4
  824. 1823 :  [152]4,"FLIPPED SIDE TO SIDE,"
  825. 1824 :  [152]4,"AND TOP TO BOTTOM:"
  826. 1825 :
  827. 1826 :  [152]1,"D",479,   0
  828. 1827 :  [152]1,"D",479,[171]479
  829. 1828 :  [152]1,"D",  0,[171]479
  830. 1829 :  [152]1,"D",  0,   0
  831. 1830 :
  832. 1831 [143] SUBTRACT THE X-AXIS AND Y-AXIS
  833. 1832 [143] POINT VALUES FROM THE PLOTTER
  834. 1833 [143] BED SIZE AND MOVE TO THE
  835. 1834 [143] INITIAL POINT.
  836. 1835 :
  837. 1836 : [152]1,"M",479[171]X(1),[171](479[171]Y(1))
  838. 1837 :
  839. 1838 [143] PLOT THE POINTS FROM THE ARRAY
  840. 1839 [143] SUBTRACTING THE X-AXIS AND
  841. 1840 [143] Y-AXIS POINT VALUES FROM THE
  842. 1841 [143] PLOTTER BED SIZE.
  843. 1842 :
  844. 1843 : [129] I[178]1 [164] 11
  845. 1844 : [152]1,"D",479[171]X(I),[171](479[171]Y(I))
  846. 1845 : [130]
  847. 1846 :
  848. 1847 [143] EJECT THE DRAWING
  849. 1848 :
  850. 1849 :   [152]1,"M",  0,[171]479
  851. 1850 :
  852. 1851 [143] ESTABLISH NEW HOME POSITION
  853. 1852 :
  854. 1853 :   [152]4
  855. 1854 :
  856. 1855 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  857. 1856 REM" [221]     PLOT ORIENTATION     [221]
  858. 1857 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  859. 1858 :
  860. 1859 REM   THE FOLLOWING EXAMPLE
  861. 1860 REM   DEMONSTRATES PLOTTING THE
  862. 1861 REM   FIGURE AT AN ORIENTATION
  863. 1862 REM   THAT IS VERTICAL RATHER
  864. 1863 REM   THAN HORIZONTAL.
  865. 1864 :
  866. 1865 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  867. 1866 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  868. 1867 REM" [221]  ORIENTED VERTICALLY.    [221]
  869. 1868 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  870. 1869 :
  871. 1870 REM DRAW A SQUARE BOX 479 BY 479
  872. 1871 :
  873. 1872 :  PRINT#4
  874. 1873 :  PRINT#4,"VERTICAL ORIENTATION:"
  875. 1874 :
  876. 1875 :  PRINT#1,"D",479,   0
  877. 1876 :  PRINT#1,"D",479,-479
  878. 1877 :  PRINT#1,"D",  0,-479
  879. 1878 :  PRINT#1,"D",  0,   0
  880. 1879 :
  881. 1880 REM USE THE X-AXIS VALUE FOR THE
  882. 1881 REM Y-AXIS AND THE Y-AXIS VALUE
  883. 1882 REM FOR THE X-AXIS AND MOVE TO
  884. 1883 REM THE INITIAL POSITION.
  885. 1884 :
  886. 1885 :   PRINT#1,"M",Y(1),-X(1)
  887. 1886 :
  888. 1887 REM PLOT THE POINTS FROM THE ARRAY
  889. 1888 REM USING THE X-AXIS VALUES FOR
  890. 1889 REM THE Y-AXIS AND THE Y-AXIS
  891. 1890 REM VALUES FOR THE X-AXIS.
  892. 1891 REM NOTE:
  893. 1892 REM THIS WILL INTRODUCE A
  894. 1893 REM REFLECTION WHICH CAN BE
  895. 1894 REM ELIMINATED BY INVERTING THE
  896. 1895 REM X- OR Y-AXIS.
  897. 1896 :
  898. 1897 :   FOR I=1 TO 11
  899. 1898 :     PRINT#1,"D",Y(I),-X(I)
  900. 1899 :   NEXT
  901. 1900 :
  902. 1901 REM EJECT THE DRAWING
  903. 1902 :
  904. 1903 :   PRINT#1,"M",  0,-479
  905. 1904 :
  906. 1905 REM ESTABLISH NEW HOME POSITION
  907. 1906 :
  908. 1907 :   PRINT#4
  909. 1908 :
  910. 1909 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  911. 1910 [143]" (null)      PLOT SCALING        (null)
  912. 1911 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  913. 1912 :
  914. 1913 [143]   THE FOLLOWING EXAMPLES
  915. 1914 [143]   DEMONSTRATE PLOTTING THE
  916. 1915 [143]   SAME FIGURE IN DIFFERENT
  917. 1916 [143]   SIZE SCALINGS.
  918. 1917 :
  919. 1918 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  920. 1919 REM"[160][221]  PLOT THE GIANT LETTER   [221]
  921. 1920 [143]" (null)  SCALED DOWN IN SIZE     (null)
  922. 1921 REM" [221]  ALONG THE X-AXIS ONLY.  [221]
  923. 1922 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  924. 1923 :
  925. 1924 REM DRAW A SQUARE BOX 479 BY 479
  926. 1925 :
  927. 1926 :   PRINT#4
  928. 1927 :   PRINT#4,"REDUCED X-AXIS:"
  929. 1928 :
  930. 1929 :   PRINT#1,"D",479,   0
  931. 1930 :   PRINT#1,"D",479,-479
  932. 1931 :   PRINT#1,"D",  0,-479
  933. 1932 :   PRINT#1,"D",  0,   0
  934. 1933 :
  935. 1934 REM DIVIDE THE X-AXIS VALUE BY 2
  936. 1935 REM AND MOVE TO THE INITIAL
  937. 1936 REM POSITION.
  938. 1937 :
  939. 1938 :   PRINT#1,"M",X(1)/2,-Y(1)
  940. 1939 :
  941. 1940 REM PLOT THE POINTS FROM THE ARRAY
  942. 1941 REM DIVIDING THE X-AXIS VALUES
  943. 1942 REM BY 2.
  944. 1943 :
  945. 1944 :   FOR I=1 TO 11
  946. 1945 :     PRINT#1,"D",X(I)/2,-Y(I)
  947. 1946 :   NEXT
  948. 1947 :
  949. 1948 REM EJECT THE DRAWING
  950. 1949 :
  951. 1950 :   PRINT#1,"M",  0,-479
  952. 1951 :
  953. 1952 REM ESTABLISH NEW HOME POSITION
  954. 1953 :
  955. 1954 :   PRINT#4
  956. 1955 :
  957. 1956 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  958. 1957 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  959. 1958 REM" [221]  SCALED DOWN IN SIZE     [221]
  960. 1959 [143]" (null)  ALONG THE Y-AXIS ONLY.  (null)
  961. 1960 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  962. 1961 :
  963. 1962 [143] DRAW A SQUARE BOX 479 BY 479
  964. 1963 :
  965. 1964 :   [152]4
  966. 1965 :   [152]4,"REDUCED Y-AXIS:"
  967. 1966 :
  968. 1967 :   [152]1,"D",479,   0
  969. 1968 :   [152]1,"D",479,[171]479
  970. 1969 :   [152]1,"D",  0,[171]479
  971. 1970 :   [152]1,"D",  0,   0
  972. 1971 :
  973. 1972 [143] DIVIDE THE Y-AXIS VALUE BY 2
  974. 1973 [143] AND MOVE TO THE INITIAL
  975. 1974 [143] POSITION.
  976. 1975 :
  977. 1976 :   [152]1,"M",X(1),[171]Y(1)[173]2
  978. 1977 :
  979. 1978 [143] PLOT THE POINTS FROM THE ARRAY
  980. 1979 [143] DIVIDING THE Y-AXIS VALUES
  981. 1980 [143] BY 2.
  982. 1981 :
  983. 1982 :   [129] I[178]1 [164] 11
  984. 1983 :     [152]1,"D",X(I),[171]Y(I)[173]2
  985. 1984 :   [130]
  986. 1985 :
  987. 1986 [143] EJECT THE DRAWING
  988. 1987 :
  989. 1988 :   [152]1,"M",  0,[171]479
  990. 1989 :
  991. 1990 [143] ESTABLISH NEW HOME POSITION
  992. 1991 :
  993. 1992 :   [152]4
  994. 1993 :
  995. 1994 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  996. 1995 REM"[160][221]  PLOT THE GIANT LETTER   [221]
  997. 1996 [143]" (null)  SCALED DOWN IN SIZE     (null)
  998. 1997 REM" [221]  ALONG THE X-AXIS AND    [221]
  999. 1998 [143]" (null)  ALONG THE Y-AXIS.       (null)
  1000. 1999 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  1001. 2000 :
  1002. 2001 [143] DRAW A SQUARE BOX 479 BY 479
  1003. 2002 :
  1004. 2003 :   [152]4
  1005. 2004 :
  1006. 2005 :   [152]4
  1007. 2006 :   [152]4,"REDUCED X-AXIS AND"
  1008. 2007 :   [152]4,"REDUCED Y-AXIS:"
  1009. 2008 :
  1010. 2009 :   [152]1,"D",479,   0
  1011. 2010 :   [152]1,"D",479,[171]479
  1012. 2011 :   [152]1,"D",  0,[171]479
  1013. 2012 :   [152]1,"D",  0,   0
  1014. 2013 :
  1015. 2014 [143] DIVIDE THE X-AXIS AND THE
  1016. 2015 [143] Y-AXIS VALUES BY 2 AND MOVE
  1017. 2016 [143] TO THE INITIAL POSITION.
  1018. 2017 :
  1019. 2018 :   [152]1,"M",X(1)[173]2,[171]Y(1)[173]2
  1020. 2019 :
  1021. 2020 [143] PLOT THE POINTS FROM THE ARRAY
  1022. 2021 [143] DIVIDING THE X-AXIS AND THE
  1023. 2022 [143] Y-AXIS VALUES BY 2.
  1024. 2023 :
  1025. 2024 :   [129] I[178]1 [164] 11
  1026. 2025 :     [152]1,"D",X(I)[173]2,[171]Y(I)[173]2
  1027. 2026 :   [130]
  1028. 2027 :
  1029. 2028 [143] EJECT THE DRAWING
  1030. 2029 :
  1031. 2030 :   [152]1,"M",  0,[171]479
  1032. 2031 :
  1033. 2032 [143] ESTABLISH NEW HOME POSITION
  1034. 2033 :
  1035. 2034 :   [152]4
  1036. 2035 :
  1037. 2036 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  1038. 2037 REM" [221]      PLOT ROTATION       [221]
  1039. 2038 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  1040. 2039 :
  1041. 2040 REM   THE FOLLOWING EXAMPLES
  1042. 2041 REM   DEMONSTRATE PLOTTING THE
  1043. 2042 REM   SAME FIGURE ROTATED THROUGH
  1044. 2043 REM   ANY ANGLE.
  1045. 2044 :
  1046. 2045 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  1047. 2046 [143]"CLOSE(null)  PLOT THE GIANT LETTER   (null)
  1048. 2047 REM" [221]  ROTATED THROUGH AN      [221]
  1049. 2048 [143]" (null)  ANGLE OF 45 DEGREES.    (null)
  1050. 2049 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  1051. 2050 :
  1052. 2051 [143] DRAW A SQUARE BOX 479 BY 479
  1053. 2052 :
  1054. 2053 :   [152]4
  1055. 2054 :   [152]4,"45 DEGREE ROTATION,"
  1056. 2055 :   [152]4,"WITH X-AXIS OFFSET:"
  1057. 2056 :
  1058. 2057 :   [152]1,"D",479,   0
  1059. 2058 :   [152]1,"D",479,[171]479
  1060. 2059 :   [152]1,"D",  0,[171]479
  1061. 2060 :   [152]1,"D",  0,   0
  1062. 2061 :
  1063. 2062 [143] DEFINE THE ROTATION ANGLE
  1064. 2063 [143] FUNCTIONS:
  1065. 2064 :
  1066. 2065 :   RA[178]45       :[143] ANGLE
  1067. 2066 :   CF[178][255][173]180    :[143] RADIAN FACTOR
  1068. 2067 :   RA[178]RA[172]CF    :[143] CONVERT ANGLE
  1069. 2068 :   SR[178][191](RA)  :[143] ANGLE SINE
  1070. 2069 :   CR[178][190](RA)  :[143] ANGLE COSINE
  1071. 2070 :
  1072. 2071 [143] ROTATE THE POINTS USING THE
  1073. 2072 [143] FOLLOWING FORMULA:
  1074. 2073 [143]   XP=CR*X-SR*Y
  1075. 2074 [143]   YP=SR*X+CR*Y
  1076. 2075 :
  1077. 2076 [143] MOVE TO THE INITIAL POINT
  1078. 2077 :
  1079. 2078 :   XP[178]CR[172]X(1)[171]SR[172]Y(1)
  1080. 2079 :   YP[178]SR[172]X(1)[170]CR[172]Y(1)
  1081. 2080 :   [152]1,"M",XP,[171]YP
  1082. 2081 :
  1083. 2082 [143] PLOT THE POINTS FROM THE ARRAY
  1084. 2083 [143] ROTATING THE X- AND Y-AXIS
  1085. 2084 [143] POINTS BY THE ROTATION ANGLE
  1086. 2085 [143] NOTE:
  1087. 2086 [143] ROTATION AROUND THE ORIGIN
  1088. 2087 [143] WILL CAUSE MOST OF THE LETTER
  1089. 2088 [143] TO MOVE OUT OF THE PLOT
  1090. 2089 [143] WINDOW. THEREFORE, THE LETTER
  1091. 2090 [143] WILL BE PLOTTED WITH OFFSET.
  1092. 2091 [143] ADDING 240 TO THE X-AXIS
  1093. 2092 [143] WILL KEEP THE LETTER WITHIN
  1094. 2093 [143] VIEW.
  1095. 2094 :
  1096. 2095 :   [129] I[178]1 [164] 11
  1097. 2096 :     XP[178]CR[172]X(I)[171]SR[172]Y(I)
  1098. 2097 :     YP[178]SR[172]X(I)[170]CR[172]Y(I)
  1099. 2098 :     [152]1,"D",XP[170]240,[171]YP
  1100. 2099 :   [130]
  1101. 2100 :
  1102. 2101 [143] EJECT THE DRAWING
  1103. 2102 :
  1104. 2103 :   [152]1,"M",  0,[171]479
  1105. 2104 :
  1106. 2105 [143] ESTABLISH NEW HOME POSITION
  1107. 2106 :
  1108. 2107 :   [152]4
  1109. 2108 :
  1110. 2109 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  1111. 2110 REM"[160][221]  PLOT THE GIANT LETTER   [221]
  1112. 2111 [143]" (null)  ROTATED AROUND ANGLES   (null)
  1113. 2112 REM" [221]  WHICH ARE MULTIPLES OF  [221]
  1114. 2113 [143]" (null)  45 DEGREES, WITH        (null)
  1115. 2114 REM" [221]  SCALING AND OFFSETS.    [221]
  1116. 2115 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  1117. 2116 :
  1118. 2117 REM DRAW A SQUARE BOX 479 BY 479
  1119. 2118 :
  1120. 2119 :  PRINT#4
  1121. 2120 :  PRINT#4,"ROTATION, SCALING AND"
  1122. 2121 :  PRINT#4,"X AND Y-AXIS OFFSETS:"
  1123. 2122 :
  1124. 2123 :  PRINT#1,"D",479,   0
  1125. 2124 :  PRINT#1,"D",479,-479
  1126. 2125 :  PRINT#1,"D",  0,-479
  1127. 2126 :  PRINT#1,"D",  0,   0
  1128. 2127 :
  1129. 2128 REM DEFINE THE ROTATION ANGLE
  1130. 2129 REM FUNCTIONS AND STORE THEM
  1131. 2130 REM INTO AN ARRAY.
  1132. 2131 :
  1133. 2132 REM DEFINE ARRAYS TO HOLD FUNCTIONS
  1134. 2133 :
  1135. 2134 :   DIM SR(8)  :REM SINE ARRAY
  1136. 2135 :   DIM CR(8)  :REM COSINE ARRAY
  1137. 2136 :
  1138. 2137 REM LOAD FUNCTIONS INTO ARRAYS
  1139. 2138 :
  1140. 2139 :   CF=(null)/180    :REM RADIAN FACTOR
  1141. 2140 :   FOR I=1 TO 8
  1142. 2141 :     RA=I*45   :REM NEXT ANGLE
  1143. 2142 :     RA=RA*CF  :REM CONVERT ANGLE
  1144. 2143 :     SR(I)=SIN(RA)  :REM SINE
  1145. 2144 :     CR(I)=COS(RA)  :REM COSINE
  1146. 2145 :   NEXT
  1147. 2146 :
  1148. 2147 REM DEFINE THE SCALING AND OFFSETS
  1149. 2148 :
  1150. 2149 :   SF=.5   :REM SCALING FACTOR
  1151. 2150 :   XO=240  :REM X-AXIS OFFSET
  1152. 2151 :   YO=240  :REM Y-AXIS OFFSET
  1153. 2152 :
  1154. 2153 REM LOOP EIGHT TIMES, DRAWING
  1155. 2154 REM A ROTATED LETTER EACH TIME.
  1156. 2155 :
  1157. 2156 :   FOR I=1 TO 8
  1158. 2157 :     FOR J=1 TO 11
  1159. 2158 :       REM ROTATE X AND Y
  1160. 2159 :         XP=CR(I)*X(J)-SR(I)*Y(J)
  1161. 2160 :         YP=SR(I)*X(J)+CR(I)*Y(J)
  1162. 2161 :       REM SCALE X AND Y
  1163. 2162 :         XP=XP*SF
  1164. 2163 :         YP=YP*SF
  1165. 2164 :       REM OFFSET X AND Y
  1166. 2165 :         XP=XP+XO
  1167. 2166 :         YP=YP+YO
  1168. 2167 :       REM MOVE TO FIRST POINT
  1169. 2168 :         IF J>1 THEN 2171
  1170. 2169 :         PRINT#1,"M",XP,-YP
  1171. 2170 :       REM DRAW LINE OF A LETTER
  1172. 2171 :         PRINT#1,"D",XP,-YP
  1173. 2172 :     NEXT  :REM J
  1174. 2173 :   NEXT  :REM I
  1175. 2174 :
  1176. 2175 REM EJECT THE DRAWING
  1177. 2176 :
  1178. 2177 :   PRINT#1,"M",  0,-479
  1179. 2178 :
  1180. 2179 REM ESTABLISH NEW HOME POSITION
  1181. 2180 :
  1182. 2181 :   PRINT#4
  1183. 2182 :
  1184. 2183 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  1185. 2184 [143]" (null)    COMBINED FUNCTIONS    (null)
  1186. 2185 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  1187. 2186 :
  1188. 2187 [143]   THE FOLLOWING EXAMPLES
  1189. 2188 [143]   DEMONSTRATE PLOTTING THE
  1190. 2189 [143]   SAME FIGURE ROTATED THROUGH
  1191. 2190 [143]   POINTS ON THE CIRCUMFERENCE
  1192. 2191 [143]   OF A CIRCLE.
  1193. 2192 :
  1194. 2193 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  1195. 2194 REM"[160][221]  PLOT THE GIANT LETTER   [221]
  1196. 2195 [143]" (null)  ROTATED THROUGH ANGLES  (null)
  1197. 2196 REM" [221]  OF 45 DEGREES WHILE     [221]
  1198. 2197 [143]" (null)  THE POINT OF ORIGIN     (null)
  1199. 2198 REM" [221]  MOVES AROUND THE CIR-   [221]
  1200. 2199 [143]" (null)  CUMFERENCE OF A CIRCLE. (null)
  1201. 2200 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  1202. 2201 :
  1203. 2202 [143] DRAW A SQUARE BOX 479 BY 479
  1204. 2203 :
  1205. 2204 :   [152]4
  1206. 2205 :   [152]4,"ROTATION, SCALING,"
  1207. 2206 :   [152]4,"OFFSETS AND RELATIVE"
  1208. 2207 :   [152]4,"ORIGIN REFERENCE:"
  1209. 2208 :
  1210. 2209 :   [152]1,"D",479,   0
  1211. 2210 :   [152]1,"D",479,[171]479
  1212. 2211 :   [152]1,"D",  0,[171]479
  1213. 2212 :   [152]1,"D",  0,   0
  1214. 2213 :
  1215. 2214 [143] DEFINE THE SCALING FACTOR AND
  1216. 2215 [143] AND CIRCLE PARAMETERS.
  1217. 2216 :
  1218. 2217 :   SF[178].25  :[143] SCALING FACTOR
  1219. 2218 :   CR[178]120  :[143] RADIUS OF CIRCLE
  1220. 2219 :   XC[178]239  :[143] X-AXIS OF CENTER
  1221. 2220 :   YC[178]239  :[143] Y-AXIS OF CENTER
  1222. 2221 :
  1223. 2222 [143] LOOP EIGHT TIMES, DRAWING
  1224. 2223 [143] A ROTATED LETTER EACH TIME.
  1225. 2224 [143] ROTATE THE POINTS USING THE
  1226. 2225 [143] FOLLOWING FORMULA:
  1227. 2226 [143]   XP=CR*X-SR*Y
  1228. 2227 [143]   YP=SR*X+CR*Y
  1229. 2228 :
  1230. 2229 :   [129] I[178]1 [164] 8
  1231. 2230 :     [143] COMPUTE POINT ON CIRCLE
  1232. 2231 :       XP[178]CR(I)[172]CR[170]XC
  1233. 2232 :       YP[178]SR(I)[172]CR[170]YC
  1234. 2233 :     [143] MOVE TO CIRCLE POINT
  1235. 2234 :     [143] AND ESTABLISH A RELATIVE
  1236. 2235 :     [143] ORIGIN OF REFERENCE.
  1237. 2236 :       [152]1,"M",XP,[171]YP
  1238. 2237 :       [152]1,"I"
  1239. 2238 :     [129] J[178]1 [164] 11
  1240. 2239 :       [143] ROTATE X AND Y
  1241. 2240 :         XP[178]CR(I)[172]X(J)[171]SR(I)[172]Y(J)
  1242. 2241 :         YP[178]SR(I)[172]X(J)[170]CR(I)[172]Y(J)
  1243. 2242 :       [143] SCALE X AND Y
  1244. 2243 :         XP[178]XP[172]SF
  1245. 2244 :         YP[178]YP[172]SF
  1246. 2245 :       [143] DRAW LINE OF A LETTER
  1247. 2246 :       [143] USING THE "J" COMMAND,
  1248. 2247 :       [143] REFERENCING THE
  1249. 2248 :       [143] RELATIVE ORIGIN (THE
  1250. 2249 :       [143] POINT ON THE CIRCLE).
  1251. 2250 :         [152]1,"J",XP,[171]YP
  1252. 2251 :     [130]  :[143] J
  1253. 2252 :   [130]  :[143] I
  1254. 2253 :
  1255. 2254 [143] EJECT THE DRAWING
  1256. 2255 :
  1257. 2256 :   [152]1,"M",  0,[171]479
  1258. 2257 :
  1259. 2258 [143] ESTABLISH NEW HOME POSITION
  1260. 2259 :
  1261. 2260 :   [152]4
  1262. 2261 :
  1263. 2262 [143]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  1264. 2263 REM" [221]  RESETTING THE PLOTTER   [221]
  1265. 2264 [143]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  1266. 2265 :
  1267. 2266 REM   THE PLOTTER CAN BE RESET AT
  1268. 2267 REM   ANY TIME BY PRINTING A BLANK
  1269. 2268 REM   LINE THROUGH PORT 7 USING
  1270. 2269 REM   FILE NUMER #7. THE POWER ON
  1271. 2270 REM   CYCLE WILL THEN TAKE PLACE.
  1272. 2271 REM   ALL PARAMETERS WILL BE RESET
  1273. 2272 REM   TO THEIR DEFAULT VALUES AND
  1274. 2273 REM   THE POWER ON TEST PATTERN
  1275. 2274 REM   WILL BE DRAWN.
  1276. 2275 :
  1277. 2276 :   PRINT#4
  1278. 2277 :   PRINT#4,"RESETTING PLOTTER..."
  1279. 2278 :   PRINT#7
  1280. 2279 :
  1281. 2280 REM" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  1282. 2281 [143]"CLOSE(null)  CLOSING PLOTTER FILES   (null)
  1283. 2282 REM" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  1284. 2283 :
  1285. 2284 :   [129] I[178]1 [164] 7
  1286. 2285 :      [160] I
  1287. 2286 :   [130] I
  1288. 2287 :   [160] 44
  1289. 2288 :
  1290. 2289 :   [128]
  1291.