home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / lodraw2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  25.2 KB  |  674 lines
  1. 1 remczsfxvgrab^rungotoq0hrestoreifdegosub:;/pwclosetload=DP{$7f}{$7c}LQ{$7b}ETBUAVGJYOKRNCX{$7e}S{$7d}WMFH\I67890
  2. 2 remstepinput(NULL)asc(NULL)stependinput(NULL)spc((NULL)fn(NULL)input(NULL)stepinput(NULL)to(NULL)pos(NULL)%(NULL)val(NULL)(NULL)fn(NULL)(NULL)input(NULL)(NULL)left$tan(NULL)(NULL)fn(NULL)cmdstr$f(NULL)(NULL)(NULL)(NULL)(NULL){$60}890
  3. 3 remnewmid$expleft$input(NULL)stepinput(NULL))input(NULL)stependinput(NULL)closefn(NULL)%(NULL)val(NULL)(NULL)fn(NULL)(NULL)input(NULL)f(NULL)(NULL)let(NULL)(NULL)fn(NULL)cmdleft$(NULL)(NULL) (NULL)(NULL){$60}5
  4. 50 print"dir:
  5. 100 [145]ll[137]2207,,610
  6. 144 [139][194](49152)[178]169[175][194](49153)[178]76[175][194](49154)[178]133[167]150
  7. 145 [147]"lodrawsuite3",8,1
  8. 150 [158]49152:trap7400:[151]55,255:[151]56,111:[156]:[141]2720:[137]200
  9. 160 [139]f9[179]k0[167][139]f3[178]k0[167]360
  10. 170 [139]zw[178]k0[176](f3[179]k0[175]zw[179]k0)[167]kq[178][198](b$)[171]49:dx[178]k0:[137]1210
  11. 180 dx[178]k0:bb[178][198](b$):[137]1030
  12. 190 f5[178][198](b$)[171]48:f1%[178]k0:[137]610
  13. 200 js[178][194](jp):[139]js[179]127[167][139]js[177]118[167]dx[178]pt(js[171]119)
  14. 210 [139]f6[178]k0[167][151]pp[170]vm,qr:[151]pp[170]vn,dp
  15. 212 [139][194](653)[178]k6[167][141]1650:[137]200
  16. 215 [139][194](653)[178]k4[167]f1%[178]k1:[158]p5,k0,24:[153]"projection #?";
  17. 220 [161]b$:[139]f1%[178]k1[167][139]b$[177]"/"[175]b$[179]":"[167]190
  18. 222 [139]b$[179][177]""[167]f1%[178]k0
  19. 225 [139]b$[177]"0"[175]b$[179]"9"[167]160
  20. 230 [139]b$[178]"_"[167]f3[178][168]f3:[151]d6,33:[151]d6,16:[151]vm[170]961,(f3[176]61)[170]k1:[137]200
  21. 240 [139]b$[178][199](187)[176]b$[178][199](174)[176]b$[178][199](180)[167]dx[178]k0:[137]360
  22. 250 [139]js[178]111[167]f7[178]k1:[137]200
  23. 252 [139]js[178]109[176]js[178]110[176]js[178]107[176]js[178]103[167]1590
  24. 256 [139]f7[178]k1[167]f7[178]k0:bb[178]136:[137]510
  25. 260 [139]b$[178]"on"[167]dx[178]114
  26. 270 [139]f9[178]k0[175]zw[178]k0[167][139]b$[178]"."[176]b$[178]","[167]dx[178]114[170](b$[178]",")[172]k7
  27. 280 [139]b$[178]""[167]dx[178]113
  28. 290 [139]b$[178]"cmd"[167]dx[178]107
  29. 310 [139]b$[178]""[167]dx[178]115
  30. 320 [139]f3[179]k0[167][139]dx[177]k0[167]1610
  31. 330 [139]dx[177]k0[167][141]615:[137]200
  32. 340 [139]f6[178]k0[167][151]pp[170]vn,dq
  33. 350 [139]b$[178]""[167]200
  34. 360 bb[178][198](b$):[139]f9[179]k0[167]1380
  35. 370 [139]bb[179]96[167]650
  36. 380 [139]f3[178]k0[167]430
  37. 390 [139]bb[177]132[175]bb[179]137[167]t%[178]qq:[137]2330
  38. 400 [139]bb[178]140[167]ll[178]k2:b$[178]"sc":a$[178]"@":[137]2030
  39. 410 [139]bb[178]139[167]ll[178]k3:b$[178]"lc":a$[178]"@":[137]2030
  40. 430 [139]bb[178]148[167]zx[178]zx[171]kf[171]16[172][180](zx[171]kf):[151]53280,zx
  41. 435 [139]bb[178]131[167][151]788,49:[151]vc[170]21,k0:[128]
  42. 440 [139]bb[179][177]137[167]450
  43. 445 rp[178][182](f4):[141]1550:zy[178][194](51177):[141]2950:[151]53281,zy
  44. 448 kp[178][194](pp[170]vn)[175]kf:qp[178][194](pp[170]vm)
  45. 450 [139]bb[178]138[167][141]1520:[153]"load";:[141]1550
  46. 470 [139]bb[177]148[167][139]bb[179]156[167]kq[178]bb[171]140:[137]1210
  47. 480 [139]bb[178]160[167]qq[178]qp
  48. 490 [139]bb[178]129[167]kq[178]k8:[137]1210
  49. 500 [139]bb[178]147[167]rp[178]k0:[141]1530:[153]"load";:qp[178]p4
  50. 510 [139]bb[178]136[167][139]f8[178]k6[167]zv[178][168]zv
  51. 520 [139]bb[178]136[167]zv[178][168]zv:[158]p5,p4,24:[153]gg$([182](zv)[170]k2);:f8[178]k0
  52. 530 [139]bb[178]140[167]ll[178]k0:b$[178]"sv":a$[178]"_":[137]2030
  53. 540 [139]bb[178]139[167]ll[178]k1:b$[178]"lv":a$[178]"_":[137]2030
  54. 550 [139]bb[178]135[167]zz[178][168]zz:[158]p5,24,24:[153]gg$([182](zz));
  55. 560 [139]bb[178]141[167]f8[178]k6:[158]p5,p4,24:[153]"paint ";
  56. 570 [139]bb[178]133[167]zw[178][168]zw:[158]p5,k0,24:[153]gg$([182](zw)[170]k4);
  57. 580 [139]bb[178]134[167]zr[178][168]zr:[158]p5,k7,24:[153]gg$([182](zr)[170]k6);
  58. 590 [139]bb[177]160[167][139]bb[179]192[167]qq[178]bb[171]64[171]zr[172]n9
  59. 600 [139]bb[177]191[167]qq[178]bb[171]n9[171]zr[172]n9
  60. 610 [151]d6,33:[151]d6,16:f3[178]k0:dx[178]k0:[141]2950:[137]200
  61. 615 py[178]pp:[139]dx[178]114[167]pp[178]pp[171]p1:[139]pp[179]k0[167]pp[178]pp[170]p2
  62. 620 [139]dx[178]113[167]pp[178]pp[170]p1:[139]pp[177][178]p2[167]pp[178]pp[171]p2
  63. 625 [139]dx[178]107[167]pp[178]pp[171]k1:[139](pp[170]k1)[173]p1[178][181]((pp[170]k1)[173]p1)[167]pp[178]pp[170]p1
  64. 630 [139]dx[178]115[167]pp[178]pp[170]k1:[139]pp[173]p1[178][181](pp[173]p1)[167]pp[178]pp[171]p1
  65. 635 qy[178]qp:ky[178]kp:qp[178][194](pp[170]vm):kp[178][194](pp[170]vn)[175]kf:[158]p5,18,24:[153]qp"cmd  ";
  66. 640 dx[178]k0:[139]f8[178]k6[167][151]py[170]vn,kq:[151]py[170]vm,qy:[142]
  67. 645 [139]zv[179]k0[167][151]py[170]vn,ky:[151]py[170]vm,qy:[142]
  68. 648 [151]py[170]vn,kq:[151]py[170]vm,[165]fx(qq):[142]
  69. 650 [139]f3[179]k0[167][139]bb[178]20[167]f3[178]k0:[141]3200:[137]610
  70. 655 [139]bb[178]20[167]zy[178]zy[171]kf[171]16[172][180](zy[171]kf):[151]53281,zy:[141]2940
  71. 660 [139]bb[178]19[167]1880
  72. 665 [139]bb[178]k3[167]ll[178][171]k1:[141]6000
  73. 670 [139]bb[178]13[167][151]pp[170]vn,kp:[151]pp[170]vm,qp:pp[178][181](pp[173]p1)[172]p1:dx[178]113:[137]1510
  74. 680 [139]bb[179]p4[167]f3[178]k0:[141]2950:[137]200
  75. 682 [139]bb[179][177]61[167]690
  76. 684 [139]f3[179]k0[167]f3[178]k0:[137]1180
  77. 685 sw[178]1:[158]p5,k0,24:[153]"screen character code?    cmdcmdcmd";
  78. 686 [141]3560:[153]"cmdcmdcmd   ";:[139]a$[179][177]"let"[167][139][197](b$)[179]f2%[167]qq[178][197](b$)
  79. 688 [137]1190
  80. 690 [139]f3[178]k0[167]1020
  81. 695 [139]bb[178]89[167]1230
  82. 700 [139]bb[178]72[167]f6[178][168]f6:[139]f6[179]k0[167][151]pp[170]vn,kp:[151]pp[170]vm,qp
  83. 705 [139]bb[178]74[176]bb[178]75[167]6980
  84. 706 [139]bb[178]76[167]7260
  85. 710 [139]bb[178]87[167][141]5100
  86. 750 [139]bb[178]77[167]mx[178]3030:t%[178]1999:[141]1700
  87. 760 [139]bb[179][177]42[167]770
  88. 765 dv[178][168]dv:[158]p5,k0,24:[153]"new device number    ";:[151]vm[170]978,[182](dv)[170]48
  89. 766 [129]r[178]1[164]1999:[130]
  90. 770 [139]bb[178]66[167]rp[178]k0:[141]1530:[137]1840
  91. 775 [139]bb[178]78[167]r%[178][194](vc[170]21):[151]vc[170]21,k0[171](r%[178]k0)[172]240
  92. 780 [139]bb[178]81[167]f4[178][168]f4
  93. 782 [139]bb[178]82[167]r%[178]k7:qd[178]k0:[137]970
  94. 783 [139]bb[178]84[167][139]qq[179]253[167]r%[178]31:qd[178][171]k1:[137]970
  95. 785 [139]bb[178]68[176]bb[178]69[167]ll[178]k9[170](bb[178]69):a$[178]"":[137]2030
  96. 790 [139]bb[178]47[167]dx[178]113:[137]1310
  97. 792 [139]bb[178]58[176]bb[178]59[167]dx[178]107[171](bb[178]59)[172]k8:[137]1310
  98. 794 [139]bb[178]80[167]dx[178]114:[137]1310
  99. 800 [139]bb[178]67[167][141]1015:[151]252,qp:[151]253,qq:[158]49857:qp[178]qq
  100. 810 [139]bb[178]90[176]bb[178]83[176]bb[178]70[167]2410
  101. 840 [139]bb[179][177]88[167]860
  102. 850 [141]1015:rm[178](qp[175][168]n9)[176]([168]qp[175]n9)
  103. 855 [151]252,qp:[151]253,rm:[158]49857:qp[178]rm
  104. 860 [139]bb[178]86[176]bb[178]71[167][141]1015:[151]252,k0[171](bb[178]71)[172]p4:[158]49899:qp[178][194](pp[170]vm)
  105. 880 [139]bb[178]48[167]f3[178]0:[137]1140
  106. 890 [139]bb[178]94[167][141]1570:qp[178][194](pp[170]vm):kp[178][194](pp[170]vn)
  107. 920 [139]bb[178]65[167]f9[178][168]f9:qr[178]k0:[139]f9[179]k0[167]qr[178]31
  108. 930 [151]d6,33:[151]d6,16:f3[178]k0:[141]2950:[137]200
  109. 970 tx[178]831:[129]r[178]vm[164]r[170]r%:[151]tx,[194](r):tx[178]tx[170]k1:[130]:rx[178]qq:[139]r%[178]k7[167][141]4695
  110. 980 [139]r%[178]31[167][141]4680
  111. 990 tx[178]vm:[129]r[178]831[164]r[170]r%:[151]tx,[194](r):tx[178]tx[170]k1:[130]:qd[178]k0:[137]930
  112. 1015 [151]pp[170]vn,kp:[151]pp[170]vm,qp:rp[178]k0:[141]1530:[142]
  113. 1020 [139]zw[178]0[167]1050
  114. 1030 [139]bb[179]64[167]1180
  115. 1040 qq[178]bb[171]64[171]zr[172]n9:[137]1190
  116. 1050 [139]bb[178]45[167]qq[178]93[170]zz[171]zr[172]n9:[137]1190
  117. 1060 [139]bb[178]47[176]bb[178]58[176]bb[178]59[167]790
  118. 1100 [139]bb[178]43[167]qq[178]91[171]zz[172]11[171]zr[172]n9:[137]1190
  119. 1110 [139]bb[178]92[167]qq[178]105[170]zz[171]zr[172]n9:[137]1190
  120. 1120 [139]bb[178]42[167]qq[178]67[171]zz[172]28[171]zr[172]n9:[137]1190
  121. 1130 [139]bb[178]64[167]qq[178]122[170]zz[172]22[171]zr[172]n9:[137]1190
  122. 1140 [139]bb[178]48[167]f5[178]f5[170]10:f5[178]f5[170]40[172](f5[177]39):[137]1190
  123. 1160 [139]bb[179]64[167]1180
  124. 1170 [139]zz[179]k0[167]qq[178][194](bb[171]64[170]2088)[171]zr[172]n9:[137]1190
  125. 1180 qq[178]bb[171]zr[172]n9
  126. 1190 [141]2950:[137]200
  127. 1210 f3[178]0:[129]r[178]43[164]46:[151]vc[170]r,kq:[130]:[137]610
  128. 1230 r%[178]qq:[158]p5,k0,24:[153]"screen code"[166]11)"press <,> or <.>";
  129. 1240 [158]p5,11,24:[153]r%"cmd  ";:[151]977[170]vm,r%
  130. 1250 [161]a$:[139]a$[178]""[167]1250
  131. 1260 [139]a$[178]"."[167]r%[178]r%[170]k1[170]256[172](r%[178]255):[137]1240
  132. 1270 [139]a$[178]","[167]r%[178]r%[171]k1[171]256[172](r%[178]k0):[137]1240
  133. 1280 [139]a$[178][199](13)[167]qq[178]r%
  134. 1290 [137]610
  135. 1310 rm[178]pp:rx[178]qp:rq[178]kp:rp[178]rm[170]f5[171]k1:[139]f5[178]k0[167]rp[178]rm[170]38
  136. 1320 [139]dx[178]113[176]dx[178]114[167][139]f5[177]24[176]f5[178]k0[167]rp[178]rm[170]23
  137. 1330 [129]r[178]rm[164]rp:px[178]rm:[141]1920:[139]f5[178]k0[167][139]qx[178]p4[167]r[178]rp
  138. 1335 [151]px[170]vm,rx:[151]px[170]vn,rq:rx[178]qx:rq[178]kx:rm[178]px:[130]:qp[178]p4:[137]1915
  139. 1380 [139](bb[177]127[175]bb[179]142)[176](bb[177]146[175]bb[179]161)[167]380
  140. 1390 [139]bb[178]19[176]bb[178]20[176]bb[178]13[176]bb[178]k3[167]650
  141. 1400 [139]bb[179]p4[167]dx[178]k0:[137]200
  142. 1410 [139]f3[178]k0[167]1460
  143. 1420 [139]bb[178]61[167]f3[178]k0:[137]685
  144. 1430 [139]bb[179]96[167]695
  145. 1460 [139]bb[179]64[167]1490
  146. 1470 bb[178]bb[170](bb[179]192)[172]64[170](bb[177]191)[172]n9
  147. 1490 [139]zw[179]k0[167]qq[178]bb[171]zr[172]n9
  148. 1500 dx[178]115:[151]pp[170]vn,kq:[151]pp[170]vm,[165]fx(bb)
  149. 1510 px[178]pp:[141]1920:pp[178]px:qp[178]qx:kp[178]kx:[137]1915
  150. 1520 [151]51177,zy:rp[178][182](f4):[151]pp[170]vn,kp:[151]pp[170]vm,qp
  151. 1530 rm[178]50176:rx[178]53248:rq[178]40960[171]rp[172]4096:[141]2290
  152. 1540 rm[178]55296:rx[178]56319:rq[178]37887[171]rp[172]4096:[141]2290:[142]
  153. 1550 rm[178]37888[171]rp[172]4096:rx[178]40960[171]rp[172]4096:rq[178]53248:[141]2290
  154. 1560 rm[178]36864[171]rp[172]4096:rx[178]37887[171]rp[172]4096:rq[178]56319:[141]2290:[142]
  155. 1570 rm[178]37888:rx[178]38911:rq[178]51199:[141]2290:rm[178]36864:rx[178]37887:rq[178]56319:[141]2290
  156. 1580 [142]
  157. 1590 t%[178]pp[173]p1:[139]js[178]110[176]js[178]109[167]r%[178]pp[171]t%[172]p1:r%[178]r%[171]920[172](js[178]109)
  158. 1595 [139]js[178]107[176]js[178]103[167]r%[178]t%[172]p1:r%[178]r%[171]39[172](js[178]103)
  159. 1600 [151]pp[170]vm,qp:[151]pp[170]vn,kp:pp[178]r%:qp[178][194](pp[170]vm):kp[178][194](pp[170]vn)[175]kf
  160. 1605 f7[178]k0:[129]r[178]1[164]99:[130]:[137]200
  161. 1610 px[178]pp:[129]r[178]k1[164]f5:[151]px[170]vn,kq:[151]px[170]vm,[165]fx(qq):[141]1920:[130]:[137]2208
  162. 1650 [151]pp[170]vm,qp:[151]pp[170]vn,kp
  163. 1660 [129]r[178]k1[164]k5:pp[178]pp[170]k1:[139]pp[173]p1[178][181](pp[173]p1)[167]pp[178]pp[171]p1
  164. 1670 [130]:qp[178][194](pp[170]vm):kp[178][194](pp[170]vn):[137]2980
  165. 1700 r%[178]mx[173]f2%:[151]904,r%:[151]903,mx[171]r%[172]f2%:[158]49700
  166. 1710 rm[178][194](905)[170][194](906)[172]f2%[170]k5:[141]1730:mx[178]3030:[129]r[178]1[164]t%:[130]:[142]
  167. 1730 rx[178]k0:[129]r[178]962[164]981:[151]r[170]vn,k1[170]rp[172]14:[151]r[170]vm,k0:[130]
  168. 1740 [129]r[178]vm[170]963[164]r[170]17:[151]r[171]k1,[194](r):[130]
  169. 1750 rq[178][194](rm):[139]rq[178]k0[167]rm[178]rm[170]k6:[137]1750
  170. 1760 [161]b$:js[178][194](jp):[139]b$[178]" "[167][151]r[171]k1,p4:[129]rq[178]k0[164]222:[130]:[137]1750
  171. 1780 [139]b$[178]"z"[176]b$[178]"x"[167]rx[178][171](rx[178]k0)[172]99:[129]rq[178]1[164]99:[130]:[137]1750
  172. 1790 [139]b$[179][177]""[176]js[178]111[167][151]r[171]k1,p4:[142]
  173. 1820 rq[178]rq[170](rq[177]64)[172]64:[151]r,p4:[139]rq[178]64[167][151]r[171]k1,p4:[142]
  174. 1830 [151]r[171]k1,rq:[129]rq[178]k0[164]rx:[130]:rm[178]rm[170]k1:[137]1740
  175. 1840 bp[178]f5[171]k1:t%[178]bp:x%[178]bp:px[178]pp:dx[178]115:[141]1870:dx[178]114:[141]1870
  176. 1860 dx[178]107:bp[178]t%:[141]1870:dx[178]113:bp[178]x%:[141]1870:qp[178]qq:kp[178]kq:[137]610
  177. 1870 [129]r[178]k1[164]bp:r%[178]px
  178. 1874 [139]dx[178]115[167]px[178]px[170]k1:[139]px[173]p1[178][181](px[173]p1)[167]px[178]r%:t%[178]r[171]k1:r[178]bp[170]k1
  179. 1875 [139]dx[178]114[167]px[178]px[171]p1:[139]px[179]k0[167]px[178]r%:x%[178]r[171]k1:r[178]bp[170]k1
  180. 1876 [139]dx[178]107[167]px[178]px[171]k1
  181. 1877 [139]dx[178]113[167]px[178]px[170]p1
  182. 1878 [151]px[170]vn,kq:[151]px[170]vm,[165]fx(qq):[130]:[142]
  183. 1880 px[178]pp:dx[178]115:[129]r[178]k0[164]k3:[139]r[178]k2[167]px[178]pp:dx[178]113:[141]1920:dx[178]115
  184. 1900 [141]1920:qx[178]qq[170]r:[139]qx[177]255[167]qx[178]qx[171]f2%
  185. 1910 [151]px[170]vn,kq:[151]px[170]vm,qx:[130]
  186. 1915 dx[178]k0:f3[178]k0:[141]2950:[137]200
  187. 1920 [139]dx[178]114[167]px[178]px[171]p1:[139]px[179]k0[167]px[178]px[170]p2
  188. 1925 [139]dx[178]113[167]px[178]px[170]p1:[139]px[177][178]p2[167]px[178]px[171]p2
  189. 1930 [139]dx[178]107[167]px[178]px[171]k1:[139](px[170]k1)[173]p1[178][181]((px[170]k1)[173]p1)[167]px[178]px[170]p1
  190. 1935 [139]dx[178]115[167]px[178]px[170]k1:[139]px[173]p1[178][181](px[173]p1)[167]px[178]px[171]p1
  191. 1940 qx[178][194](px[170]vm):kx[178][194](px[170]vn)[175]kf:[142]
  192. 1950 [151]vc[170]21,k0:[153]"load";:[159]kf,[182](dv),k0,"$":[161]#kf,a$,a$,a$,a$
  193. 1960 [161]#kf,a$,b$:rm[178][198](a$[170][199](k0)):rx[178][198](b$[170][199](k0))
  194. 1970 [153][202]([196](rm[170]rx[172]f2%),k2)" ";
  195. 1980 [161]#kf,a$:rm[178][198](a$[170][199](k0)):[139]rm[179][177]k0[167][153]a$;:[137]1980
  196. 1990 [153]:[161]#kf,a$,a$:[139][198](a$[170][199](k0))[179][177]k0[167]1960
  197. 2000 [160]kf:[158]p5,k3,24:[153]"   press space bar when ready   ";
  198. 2010 [161]b$:[139]b$[178]""[167]2010
  199. 2020 [151]vc[170]21,240:[141]1570:[137]610
  200. 2030 t%[178]99:[158]p5,k0,24:[153]""b$;:[158]p5,23,24:[153]"               ";
  201. 2050 [151]51177,zy:[151]51176,zx:[151]pp[170]vn,kp:[151]pp[170]vm,qp
  202. 2060 mx[178]rp:rp[178]k0:[141]1530:rp[178]mx:[139]ll[178]k9[167]2140
  203. 2070 mx[178]2240:[141]1700:[158]p5,22,24:[153]a$" ";:r[178]k1:[139]ll[178]k8[167]r[178]k0
  204. 2080 [161]b$:rm[178][195](a$):[139]b$[178]"let"[167]610
  205. 2090 [139]b$[178]""[167][139]rm[177]r[167]a$[178][200](a$,rm[171]k1):[137]2130
  206. 2100 [139]b$[178][199](13)[175]rm[177]k1[167]2140
  207. 2110 [139]rm[178]16[176]b$[179]" "[176]b$[177]"_"[176](b$[178]" "[175]rm[178]r)[176]b$[178]""[167]2080
  208. 2120 a$[178]a$[170]b$
  209. 2130 [158]p5,22,24:[153]a$" ";:[137]2080
  210. 2140 mx[178]2250:[141]1700
  211. 2150 [161]b$:[139]b$[178]""[167]2150
  212. 2160 [139]b$[179][177]" "[167]610
  213. 2170 [139]ll[178]k9[167]1950
  214. 2180 [139]ll[178]k8[167]mx[178]2280:[141]1700:[159]kf,[182](dv),kf
  215. 2190 [139]ll[178]k8[167][152]kf,"s0:"a$:[160]kf:[137]610
  216. 2200 mx[178]2270:[139]ll[173]2[178][181](ll[173]2)[167]2210
  217. 2205 [141]1700:[147]a$,[182](dv),k1
  218. 2207 rp[178]k0:[141]1550:[151]53281,[194](51177):[151]53280,[194](51176)
  219. 2208 kp[178][194](pp[170]vn)[175]kf:qp[178][194](pp[170]vm):[137]610
  220. 2210 mx[178]2260:[141]1700:rm[178]36864:rx[178]40960:[139]ll[178]k2[167]rm[178]51200:rx[178]53248
  221. 2220 [158]57812 a$,[182](dv):[151]173,rm[173]f2%:[151]172,rm[171][194](173)[172]f2%:[151]780,172
  222. 2230 [151]782,rx[173]f2%:[151]781,rx[171][194](782)[172]f2%:[158]65496:[137]610
  223. 2240 [143]enter file name & press return:   @
  224. 2250 [143]insert disk * press space bar @
  225. 2260 [143]saving: @
  226. 2270 [143]loading: @
  227. 2280 [143]erasing @
  228. 2290 r%[178]rm[173]f2%:[151]49725,rm[171]r%[172]f2%:[151]49729,r%
  229. 2300 r%[178](rx[170]k1)[173]f2%:[151]49733,rx[170]k1[171]r%[172]f2%:[151]49737,r%
  230. 2310 r%[178](rq[170]k1)[173]f2%:[151]49741,rq[170]k1[171]r%[172]f2%:[151]49745,r%:[158]49724:[142]
  231. 2330 rp[178]k0:[141]1530:r[178]k0:rm[178]pp:rx[178]p1:[139]bb[178]133[176]bb[178]134[167]rx[178][171]rx
  232. 2340 [151]rm[170]vn,kq:[151]rm[170]vm,[165]fx(t%):[139]bb[178]134[176]bb[178]136[167]2380
  233. 2360 [139]rm[173]p1[178][181](rm[173]p1)[167]2208
  234. 2370 rm[178]rm[171]k1:[137]2390
  235. 2380 rm[178]rm[170]k1:[139]rm[173]p1[178][181](rm[173]p1)[167]2208
  236. 2390 rm[178]rm[170]rx:[139]rm[179]k0[176]rm[177]959[167]2208
  237. 2395 r[178]r[170]k1:[139]r[179]f5[167]2340
  238. 2400 [137]2208
  239. 2410 [151]pp[170]vn,kp:[151]pp[170]vm,qp:rp[178]k0:[141]1530
  240. 2420 [151]252,qp:[151]2038,kp:[151]2039,k1[171](bb[178]90):[151]2036,215[170](bb[178]70)[172]20
  241. 2430 [151]253,[171]qq[172](bb[178]70)[171]kq[172](bb[179][177]70):[151]2038,kp:[158]49952:[158]49660
  242. 2440 [139]bb[178]70[167]qp[178]qq:[137]930
  243. 2450 kp[178]kq:[137]930
  244. 2720 [158]50029:r%[178]0:[129]r[178]54272[164]54296:[151]r,r%:[130]
  245. 2728 [129]r[178]57344[164]57358:[151]r,255:[130]:[129]r[178]57359[164]57407:[151]r,0:[130]
  246. 2730 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]0
  247. 2740 [151]53272,18:[151]648,196:[151]788,52
  248. 2750 [151]650,128:[151]53281,0:[151]53280,14:[153][199](8)"listload"
  249. 2770 [151]54296,5:[151]54278,136:[151]54277,255:[151]54273,25:[151]54272,177
  250. 2780 b$[178]"":vm[178]50176:vn[178]55296:pp[178]500:np[178]57:p1[178]40:p2[178]960:p5[178]49677
  251. 2790 qp[178]32:kp[178]12:qy[178]32:py[178]pp:kq[178]15:js[178]127:vc[178]53248:dq[178]1:jp[178]56320
  252. 2800 [134]dx,px,qx,rp,kx,rx,t%,dp,qr,qq,f8,f9,rq,rm,zy,zz,zv,zw,zr,f3,f6,f7
  253. 2810 f5[178]9:n9[178]128:d6[178]54276:f1%[178]0:f2%[178]256:zx[178]14:f4[178]1:p4[178]32:dv[178]8:vp[178]51192
  254. 2820 k0[178]0:k1[178]1:k2[178]2:k3[178]3:k4[178]4:k5[178]5:k6[178]6:k7[178]7:k8[178]8:k9[178]9:kf[178]15:en[178]0:ln[178]0:em$[178]""
  255. 2830 p3[178]320:a$[178]"":ca[178]51200:[134]xm,qa,sw,zp,ll,hp,pk,x%,bp,cy,ry,wf,pb,qd,tx
  256. 2835 [150][165]fx(r)[178]r[171]zr[172]n9[170](r[175]n9)[172]zr[172]k2:mx[178]3030
  257. 2840 pt(0)[178]115:pt(2)[178]107:pt(3)[178]114:pt(4)[178]107:pt(5)[178]115:pt(6)[178]113:pt(7)[178]114
  258. 2860 [134]gg$(9):gg$(0)[178]"5>shift":gg$(1)[178]"5> c=  wait"
  259. 2870 gg$(2)[178]"7>draw ":gg$(3)[178]"7>keepwait ":gg$(4)[178]"1>graf"
  260. 2880 gg$(5)[178]"1>alfawait"
  261. 2890 gg$(6)[178]"3>rvs":gg$(7)[178]"3>rvswait"
  262. 2900 gg$(8)[178]"paint ":gg$(9)[178]"paint ":[134]by(k7):[151]2026,k0:[151]2027,k0
  263. 2910 [151]vc[170]29,240:[151]vc[170]27,k0
  264. 2915 [129]r[178]k9[164]kf[169]k2:[151]vc[170]r,234:[130]:[129]r[178]43[164]46:[151]vc[170]r,kq:[130]
  265. 2916 [151]vc[170]k8,37:[151]vc[170]10,73:[151]vc[170]12,229:[151]vc[170]16,n9:[151]vc[170]14,21
  266. 2920 [151]51177,zy:[141]3000:[139][194](828)[178]k1[175][194](829)[178]k2[175][194](830)[178]k3[167]2940
  267. 2930 [151]828,k1:[151]829,k2:[151]830,k3:rp[178]k1:[141]1530:rp[178]k2:[141]1530
  268. 2940 [151]vc[170]21,240:[151]51177,zy:dq[178][180](zy):dp[178]k0:[139]dq[178]k0[167]dp[178]k1
  269. 2950 [158]49660:r[178](zy[179]k3[176]zy[178]k6[176]zy[178]k9[176]zy[178]11):[153][199](144[171]r[172]11);:rp[178]k0[171]r
  270. 2970 [158]p5,k0,24:[153]gg$([182](zw)[170]k4)" "gg$([182](zr)[170]k6)" "f5"cmd  ";
  271. 2975 [151]vn[170]977,rp[172]kf:[151]vm[170]977,qq:[151]vn[170]999,rp[172]kf:[151]vm[170]999,[182](f4)[170]48
  272. 2980 [158]p5,18,24:[153]qp"cmd   ";:[158]p5,24,24:[153]gg$([182](zz))" "gg$([182](zv)[170]k2[170]f8);
  273. 2985 [142]
  274. 2995 [151]vc[170]21,240:[141]1570:zy[178][194](51177):[151]53281,zy
  275. 3000 [151]51200,k0:[151]51201,k0:[151]51206,k0:[151]51207,k0
  276. 3010 [129]r[178]51202[164]51205:[151]r,255:[130]:[153]"wait";:[142]
  277. 3030 [143]welcome to lodraw * any scrolling message can be paused by holding down
  278. 3040 [143] space bar * press z or x key to switch scrolling speed * press any
  279. 3050 [143] other key or fire button to quit a message anytime * use joystick in
  280. 3055 [143] port 2 * press <run stop> then <m> to display menu@
  281. 3200 rp[178]k0:[151]51177,zy:[141]1530:[151]vc[170]21,k0
  282. 3205 [151]2028,k0:[151]51200,255:[151]51207,255:[129]r[178]51201[164]51206:[151]r,129:[130]
  283. 3210 xm[178]k0:cy[178][171]k1:[151]53281,k0:[151]53280,14:[153]"sysload":wf[178]k0
  284. 3220 [139]b$[178][199](kf)[167]2995
  285. 3225 wf[178][168]wf:[139]wf[179]k0[167][141]3270:[139]b$[178][199](20)[167]2995
  286. 3230 [139]wf[179][177]k0[167]3260
  287. 3240 pb[178]180:qa[178][194](pb[170]vm):zp[178]k0:hp[178]k7:[151]50448,rx:[139]xm[178]k0[167][151]2024,rx
  288. 3250 bb[178][171]k1:[141]4340:bb[178]k0:[141]3440:sw[178]k0
  289. 3260 [129]r[178]1[164]99:[130]:[137]3220
  290. 3270 [153]"loadview character: press f7 key & code or:-"
  291. 3280 [153]"sys""character  key ? list";
  292. 3290 [139]xm[177]k0[167]b$[178][196](xm):[137]3330
  293. 3300 [161]b$:[139]b$[178]""[167]3300
  294. 3310 [139]b$[178][199](20)[167][142]
  295. 3320 [139]b$[179][177]"let"[167]3360
  296. 3330 [151]vm[170]96,163:ry[178][194](211):[139]xm[178]k0[167][141]3560
  297. 3340 rx[178][197](b$):[139]rx[177]255[167]xm[178]k0:[153]"wait";:[137]3270
  298. 3350 [151]211,ry:[153]" ";:[137]3410
  299. 3360 rx[178][198](b$):[139](rx[177]63[175]rx[179]96)[176](rx[177]159[175]rx[179]192)[167]rx[178]rx[171]64:[137]3400
  300. 3370 [139]rx[177]191[175]rx[179]224[167]rx[178]rx[171]n9:[137]3400
  301. 3380 [139]rx[177]31[175]rx[179]64[167]3400
  302. 3390 [137]3300
  303. 3400 [153]b$;
  304. 3410 [153]"contwait  @@@@@@@@   list";rx:[153]
  305. 3420 bb[178]0:[129]r[178]ca[170]rx[172]8[164]r[170]7:bb[178]bb[170]k1:pk[178][194](r):[153]"byte";bb;r;pk,:by(bb[171]1)[178]pk
  306. 3430 [141]3660:[130]:[129]r[178]vm[164]r[170]39:[151]r,p4:[130]:[142]
  307. 3440 [139]cy[179]k0[167]sw[178]k1:xm[178]k0:[137]3700
  308. 3450 [153]:[153]"sysedit character";rx;"?list"
  309. 3455 [158]p5,k1,24:[153]"<return> byte edit      <f7> bit edit";:[158]p5,k0,kf
  310. 3460 sw[178]2:[141]3560:sw[178]1:[139]a$[178]"let"[167][129]r[178]1[164]299:[130]:[137]3700
  311. 3480 [139]a$[178][199](20)[176]xm[179][177]k0[167][142]
  312. 3485 [129]r[178]961[170]vm[164]r[170]37:[151]r,p4:[130]
  313. 3490 [129]r[178]ca[170]rx[172]8[164]r[170]k7:bb[178]bb[170]k1:pk[178][194](r):[153]"byte";bb;r;"?";
  314. 3500 [151]211,[194](211)[171]k1:[139]sw[178]k4[167]3530
  315. 3510 [141]3560:[139]b$[179][177]""[175][197](b$)[179]f2%[167]pk[178][197](b$)
  316. 3520 [139]a$[178]"let"[167]sw[178]4
  317. 3530 [151]r,pk:[151]211,rq:[153]pk;:[139]pk[179]10[167][151]211,[194](211)[171]k1:[153]" ";
  318. 3540 [153],:[141]3660:[130]:[129]r[178]1[164]40:[153]"-";:[130]
  319. 3550 [153]" press <f7>/fire button or <f5> or <f3>";:sw[178]2
  320. 3560 b$[178]"":ll[178]k0:rm[178][194](214):rq[178][194](211)
  321. 3570 [161]a$:[139]sw[177]1[167]3600
  322. 3580 [139]a$[177]"/"[175]a$[179]":"[167]b$[178]b$[170]a$:ll[178][195](b$):[151]214,rm:[151]211,rq:[153]b$;
  323. 3590 [139]ll[178]k3[167][151]d6,33:[151]d6,16
  324. 3600 [139]a$[178][199](13)[176]ll[178]3[176]a$[178][199](20)[167]xm[178]k0:[142]
  325. 3610 [139]a$[178]"let"[176][194](jp)[178]111[167][139]sw[177]k0[167]a$[178]"let":xm[178]k0:[142]
  326. 3620 [139]sw[179]2[167]3570
  327. 3630 [139]a$[178]"dim"[167]xm[178]rx[170]k1:[142]
  328. 3640 [139]a$[178]"read"[167]xm[178]rx[171]k1:[142]
  329. 3650 [137]3570
  330. 3660 bp[178]n9:[129]rp[178]k1[164]k8:r%[178]pk[173]bp:[139]r%[178]k1[167][153]"@";:pk[178]pk[171]bp:[137]3670
  331. 3665 [153]" ";
  332. 3670 bp[178]bp[173]k2:[130]:[153]:[142]
  333. 3700 [141]4370
  334. 3710 js[178][194](jp):[139]js[179]127[167][139]js[177]118[167]dx[178]pt(js[171]119)
  335. 3720 [161]b$:[139]b$[177]"c"[175]b$[179]"m"[176]b$[178]"on"[167]dx[178]114
  336. 3730 [139]b$[178]" "[176]b$[178]""[167]dx[178]113
  337. 3740 [139]b$[178]","[176]b$[178]"cmd"[167]dx[178]107
  338. 3750 [139]b$[178]"."[176]b$[178]""[167]dx[178]115
  339. 3760 [139]b$[178]"y"[167][139]rx[179]253[167]qd[178][168]qd:[151]d6,33:[151]d6,16:[141]4750
  340. 3770 [139]qd[178]k0[167]3810
  341. 3771 [139]b$[179][177]"let"[167]3775
  342. 3772 [151]2026,[182](([194](2026)[178]k0))
  343. 3773 bp[178]kf[170]([194](2026)[178]k1)[172]k8:[129]r[178]960[170]vn[164]r[170]16:[151]r,bp:[130]
  344. 3775 [139]b$[179][177]"read"[167]3779
  345. 3776 bp[178][194](2027):[158]p5,28,24:[153][199](158[171]bp[172]k3)"draw/"[199](155[170]bp[172]k3)"erase";
  346. 3777 [153]"list";:[151]2027,[182](([194](2027)[178]k0))
  347. 3779 [139]dx[178]k0[167]3790
  348. 3780 [139][194](2026)[178]k0[167]3784
  349. 3783 [139]([194](2027)[178]k0)[172]([171]p4)[179][177]qa[167][141]4980
  350. 3784 [151]pb[170]vm,qa:[141]4830:dx[178]k0
  351. 3790 [139]b$[178][199](13)[176]js[178]111[167][141]4980
  352. 3793 [139]b$[178]"b"[167][141]5300
  353. 3794 [139]b$[178]"s"[167]bp[178]ca[170][194](2024)[172]k8:ry[178]bp[171]k8:[141]4235
  354. 3795 [139]b$[178]"r"[167]rx[178][194](2024):r%[178]31:[141]4680
  355. 3796 [139]b$[178]"n"[167]rx[178][194](2024):[141]5200
  356. 3797 [139]b$[178]"c"[167]bp[178]rx:rx[178][194](2024):[141]4650:rx[178]bp
  357. 3800 [137]4006
  358. 3810 [139]dx[177]k0[167][151]pb[170]vm,qa:[141]4050:dx[178]k0:[137]4010
  359. 3820 [139]b$[178][199](13)[176]js[178]111[167]r[178]k2[174]hp:ll[178]ca[170]rx[172]k8:[141]4100:[151]50448,rx
  360. 3830 [139]b$[178]"n"[167][141]4270:[141]4370
  361. 3840 [139]b$[178]"w"[176]b$[178]"q"[167]ry[178][182](b$[178]"q"):kx[178][182](p4[172](b$[178]"w")):[141]4240
  362. 3850 [139]b$[178]"c"[167]b$[178]"":r[178]11:[158]p5,18,23:[153]"character code?    ";:[141]4510
  363. 3860 [139]b$[178]"r"[167]r%[178]k7:[141]4695
  364. 3900 [139]b$[178]"p"[167][139]rx[179]253[167]5030
  365. 3910 [139]b$[178]"b"[167][141]4170
  366. 3930 [139]b$[178]"a"[176]b$[178]"s"[167]by(zp)[178]k0[171](b$[178]"s")[172]255:qa[178]k0[171](b$[178]"a")[172]p4:[141]4260
  367. 3970 [139]b$[178]"m"[167]cy[178][168]cy:[151]d6,33:[151]d6,16:[141]4045
  368. 3975 [139]b$[178][199](20)[167]b$[178][199](kf):[142]
  369. 3980 [139]b$[178]"let"[167][142]
  370. 3990 [139]b$[179][177]"dim"[167]4000
  371. 3992 xm[178]rx[171]k1[172](rx[179]255):bp[178][194](2024):[151]2028,xm[171]bp:[151]2024,bp[171](xm[171]bp[178]k4)[172]k4
  372. 3995 [142]
  373. 4000 [139]b$[179][177]"read"[167]4006
  374. 4002 xm[178]rx[171]k1:bp[178][194](2024):[151]2024,bp[170](bp[171]xm[178]k4)[172]k4:[139]xm[178]252[167][151]2024,xm
  375. 4005 [142]
  376. 4006 [139]b$[178]"z"[176]b$[178]"x"[167]t%[178]k0[171]255[172](b$[178]"x"):r%[178]31[170](qd[178]k0)[172]24:[141]4320
  377. 4009 [139]b$[178]"v"[167]t%[178]255:r%[178]31[170](qd[178]k0)[172]24:[141]4210
  378. 4010 [139]x%[178]k0[167][151]pb[170]vm,qa
  379. 4020 [139]x%[178]k3[167][151]pb[170]vm,42
  380. 4040 x%[178]x%[170]1[170](x%[177]4)[172]6:[137]3710
  381. 4045 bp[178]k1[171](cy[178]k0)[172]k6:[129]r[178]841[170]vn[164]r[170]12:[151]r,bp:[130]:[142]
  382. 4050 [139]dx[178]114[167]pb[178]pb[171]p1:zp[178]zp[171]k1:[139]pb[179]180[167]pb[178]pb[170]p3:zp[178]k7
  383. 4060 [139]dx[178]113[167]pb[178]pb[170]p1:zp[178]zp[170]k1:[139]pb[177]467[167]pb[178]pb[171]p3:zp[178]k0
  384. 4070 [139]dx[178]107[167]pb[178]pb[171]k1:hp[178]hp[170]k1:bp[178](pb[170]k1)[173]20:[139]bp[178][181](bp)[167]pb[178]pb[170]k8:hp[178]k0
  385. 4080 [139]dx[178]115[167]pb[178]pb[170]k1:hp[178]hp[171]k1:[139](pb[170]12)[173]p1[178][181]((pb[170]12)[173]p1)[167]pb[178]pb[171]k8:hp[178]7
  386. 4090 qa[178][194](pb[170]vm):[151]pb[170]vm,42:[129]r[178]1[164]99:[130]:x%[178]k0:[142]
  387. 4100 qa[178]p4[170](qa[178]p4)[172]p4:by(zp)[178]by(zp)[170]r[170]k2[172]r[172](qa[178]p4)
  388. 4120 b$[178][196](by(zp)):[151]ll[170]zp,by(zp)
  389. 4130 a$[178][200]("  ",[182]([195](b$)[171]k4)):[158]p5,14,zp[170]k4:[153]b$a$,:[142]
  390. 4170 [129]r[178]k0[164]k3:px[178]k6[171]r[170]k1:qx[178]by(r):by(r)[178]by(px):by(px)[178]qx:[130]
  391. 4180 bp[178]ca[170]rx[172]k8:[129]r[178]bp[164]r[170]k7:[151]r,by(r[171]bp):[130]:[141]4330:[142]
  392. 4210 [139]r%[178]31[167]rx[178][194](2024)
  393. 4220 bp[178]ca[170]rx[172]k8:[129]r[178]bp[164]r[170]r%:bb[178]t%[171][194](r):[151]r,bb:[139]r[171]bp[179]k8[167]by(r[171]bp)[178]bb
  394. 4225 [130]:[139]qd[179]k0[167]4756
  395. 4230 [137]4330
  396. 4235 t%[178]ry[173]f2%:r%[178]ry[171]t%[172]f2%:[151]251,r%:[151]252,t%:[158]50079
  397. 4236 ry[178]ry[170]16:[139]ry[178]bp[170]k8[167]4235
  398. 4237 [137]4754
  399. 4240 qx[178]zp:r[178]k2[174]hp:ll[178]ca[170]rx[172]k8
  400. 4245 [129]zp[178]k0[164]k7:[139][180](by(zp)[175]r)[178]ry[167]qa[178]kx:[141]4100
  401. 4250 pk[178]by(zp):[158]p5,20,zp[170]k4:[141]3660:[130]:zp[178]qx:qa[178][194](pb[170]vm):[142]
  402. 4260 ll[178]ca[170]rx[172]k8:[141]4120
  403. 4265 [151]50448,rx:pk[178]by(zp):[158]p5,20,zp[170]k4:[141]3660:b$[178]"":[142]
  404. 4270 kx[178]ca[170]rx[172]k8:[129]px[178]k0[164]k7:qx[178]k0:[129]r[178]k7[164]k0[169][171]k1:r%[178]k2[174]r:t%[178][180](by(px)[171]r%)
  405. 4280 [139]t%[177][171]k1[167]by(px)[178]by(px)[171]r%:r%[178]k2[174](k7[171]r):qx[178]qx[170]r%
  406. 4290 [130]:by(px)[178]qx:[151]kx[170]px,by(px):[158]p5,14,px[170]k4:pk[178]by(px)
  407. 4310 [153]"    cmdcmdcmdcmd"pk,:[141]3660:[130]:qa[178][194](pb[170]vm):[151]vm[170]97,rx:[142]
  408. 4320 [139]r%[178]31[167]rx[178][194](2024)
  409. 4327 bp[178]ca[170]rx[172]k8:[129]r[178]bp[164]r[170]r%:[151]r,t%:[139]r[171]bp[179]k8[167]by(r[171]bp)[178]t%
  410. 4328 [130]:[139]qd[179]k0[167]4756
  411. 4330 [158]p5,18,k2:[151]vm[170]97,rx:bb[178]k0:[129]r[178]ca[170]rx[172]k8[164]r[170]k7:bb[178]bb[170]k1
  412. 4334 pk[178][194](r):a$[178][196](pk):[158]p5,14,bb[170]k3
  413. 4336 [153]a$[200]("  ",[182]([195](a$)[171]k4)),:by(bb[171]k1)[178]pk:[141]3660:[130]
  414. 4340 r[178][194](2024)
  415. 4350 [139]r[179]253[167][151]50452,r:[151]50453,r[170]k1:[151]50492,r[170]k2:[151]50493,r[170]k3
  416. 4360 qa[178][194](pb[170]vm):[139]bb[179]k0[167][142]
  417. 4370 [158]p5,10,k0:[153]"sys<inst del> quit"
  418. 4390 [158]p5,k0,12:[153]"joystick/cursor keys to move or:-"
  419. 4400 [153]" <comma> move left   <dot> move right"
  420. 4410 [153]" <space> move down   <d> -> <l> move up"
  421. 4420 [153]" <z> blank character <x> fill character"
  422. 4430 [153]" <a> blank row       <s> fill row"
  423. 4440 [153]" <q> blank column    <w> fill column"
  424. 4450 [153]" <c> copy character  <r> rotate char."
  425. 4460 [153]" <v> reverse character"
  426. 4470 [153]" <b> vert. inverse   <n> horiz. inverse"
  427. 4475 [139]cy[179]k0[167][153]"";
  428. 4480 [153]" <m> auto editsys       <p> quade expand"
  429. 4490 [153]"   <return> or fire button to edit":[153]" <y> quade edit"
  430. 4500 [153]"listpress <f7> or <f5> or <f3> to quit edit";:[142]
  431. 4510 [161]a$:r[178]r[170]k1:[139]r[178]12[167]r[178]k0:[129]ll[178]938[170]vn[164]ll[170]kf:[151]ll,k1:[130]
  432. 4520 [139]r[178]k6[167][129]ll[178]938[170]vn[164]ll[170]kf:[151]ll,k7:[130]
  433. 4530 [139]a$[177]"/"[175]a$[179]":"[167]b$[178]b$[170]a$:[158]p5,34,23:[153]b$;
  434. 4540 [139][195](b$)[178]k3[176]a$[178][199](13)[167][151]d6,33:[151]d6,16:[137]4570
  435. 4550 [139]a$[178]"let"[167][142]
  436. 4560 [137]4510
  437. 4570 ll[178][197](b$):[139]ll[178]k0[176]ll[177]255[167][158]p5,33,23:[153]"    ";:[142]
  438. 4580 [129]r[178]938[170]vm[164]r[170]kf:[151]r,p4:[130]:[139]bb[179]k0[167][142]
  439. 4590 bp[178]ca[170]ll[172]k8:tx[178]ca[170]rx[172]k8:[129]r[178]k0[164]k7:[151]bp[170]r,[194](tx[170]r):[130]:b$[178]"":[142]
  440. 4620 [129]r[178]k0[164]k7:by(r)[178][194](ry[170]r):[158]p5,14,r[170]k4:pk[178]by(r)
  441. 4630 [153]"    cmdcmdcmdcmd"pk,:[141]3660:[130]:qa[178][194](pb[170]vm):[151]vm[170]97,rx:[142]
  442. 4650 b$[178]"":r[178]11:[158]p5,18,23:[153]"character code?    ";
  443. 4660 bb[178][171]k1:ll[178]k0:[141]4510:bb[178]k0:[139]ll[178]k0[176]ll[177]252[176](ll[177][178]rx[175]ll[179]rx[170]k4)[167][142]
  444. 4670 kx[178]ca[170]ll[172]k8:rq[178]ca[170]rx[172]k8:[129]r[178]k0[164]31:[151]kx[170]r,[194](rq[170]r):[130]:[142]
  445. 4680 kx[178]127:rq[178]rx:[151]2177,k8:[141]4720:kx[178]125:rq[178]rx[170]k1:[151]2177,24:[141]4720
  446. 4690 kx[178]126:rq[178]rx[170]k3:[151]2177,16:[141]4720
  447. 4695 kx[178]n9:rq[178]rx[171]k2[172](qd[179]k0):[151]2177,k0:[141]4720:[151]2177,16:ry[178]ca[170]rx[172]k8
  448. 4700 [129]r[178]k0[164]r%:bp[178][194](vm[170]r):[151]ry[170]r,bp:[151]vm[170]r,p4
  449. 4705 [130]:[139]f3[179]k0[167][142]
  450. 4708 [139]qd[178]k0[167]4620
  451. 4710 [137]4756
  452. 4720 ry[178]ca[171]kx[172]k8:tx[178]ca[170]rq[172]k8:rq[178]2040
  453. 4730 [129]r[178]k0[164]k7:t%[178][194](r[170]tx):[151]ry[170]r,t%:[151]rq[170]r,t%:[130]:[158]2130:[142]
  454. 4750 [139]qd[179]k0[167]4755
  455. 4751 [139][194](2028)[178]k4[167][151]2028,k0
  456. 4752 rx[178][194](2024)[170][194](2028):pb[178]180:[153]"load";:[158]p5,18,k2:[141]3410
  457. 4753 [151]vm[170]97,rx:[141]4340:zp[178]k0:hp[178]k7:[142]
  458. 4754 [129]r[178]k0[164]k7:by(r)[178][194](bp[170]r):[130]:[137]4756
  459. 4755 [153]"load";
  460. 4756 rx[178][194](2024):[151]2026,k0:[151]2027,k0
  461. 4760 [158]p5,10,k0:[153]"sys@@@@@@@@@@@@@@@@list"rx;
  462. 4770 rq[178]ca[170]rx[172]k8:px[178]40:qx[178]50266:[129]kx[178]k1[164]k2:[129]r[178]rq[164]r[170]k7
  463. 4780 t%[178]r[173]f2%:x%[178]r[171]t%[172]f2%:[151]2031,x%:[151]2032,t%
  464. 4790 t%[178]qx[173]f2%:x%[178]qx[171]t%[172]f2%:[151]2033,x%:[151]2034,t%
  465. 4800 [158]49752:qx[178]qx[170]px:[130]:rq[178]rq[170]16:[130]
  466. 4805 bb[178][171]k1:pb[178]90:r[178]rx:[141]4350:bb[178]k0:x%[178]k0
  467. 4810 zp[178]k0:hp[178]k7:[158]p5,k3,19:[153]"<return>/fire edit      <y> quit"
  468. 4820 [153]" <c> copy quade <v> reverse quade"
  469. 4822 [153]" <r> rotate     <n> horizontal inverse"
  470. 4823 [153]" <z> blank      <x> fill"
  471. 4824 [153]" <b> shift down <s> shift right"
  472. 4825 [153]" <f7> cursor edit      <f5> draw/syseraselist";:[142]
  473. 4830 [139]dx[179][177]114[167]4860
  474. 4840 pb[178]pb[171]p1:zp[178]zp[171]k1:[139]pb[179]90[167]pb[178]pb[170]640:zp[178]k7:rx[178]rx[170]k2:[137]5010
  475. 4850 [139]pb[170]p1[177]385[167][139]pb[179]410[167]zp[178]k7:rx[178]rx[171]k2:[137]5010
  476. 4860 [139]dx[179][177]113[167]4890
  477. 4870 pb[178]pb[170]p1:zp[178]zp[170]k1:[139]pb[177]705[167]pb[178]pb[171]640:zp[178]k0:rx[178]rx[171]k2:[137]5010
  478. 4880 [139]pb[171]p1[179]386[167][139]pb[177]385[167]zp[178]k0:rx[178]rx[170]k2:[137]5010
  479. 4890 [139]dx[179][177]107[167]4930
  480. 4900 pb[178]pb[171]k1:hp[178]hp[170]k1
  481. 4910 bp[178](pb[171]k9)[173]40:[139]bp[178][181](bp)[167]pb[178]pb[170]16:hp[178]k0:rx[178]rx[170]k1:[137]5010
  482. 4920 bp[178](pb[171]17)[173]40:[139]bp[178][181](bp)[167]hp[178]k0:rx[178]rx[171]k1:[137]5010
  483. 4930 [139]dx[179][177]115[167]4970
  484. 4940 pb[178]pb[170]k1:hp[178]hp[171]k1
  485. 4950 bp[178](pb[170]14)[173]p1:[139]bp[178][181](bp)[167]pb[178]pb[171]16:hp[178]k7:rx[178]rx[171]k1:[137]5010
  486. 4960 bp[178](pb[170]22)[173]p1:[139]bp[178][181](bp)[167]hp[178]k7:rx[178]rx[170]k1:[137]5010
  487. 4970 qa[178][194](pb[170]vm):[151]pb[170]vm,42:x%[178]k1:[142]
  488. 4980 qa[178]p4[170](qa[178]p4)[172]p4:bp[178]k2[174]hp:by(zp)[178]by(zp)[170]bp[170]k2[172]bp[172](qa[178]p4)
  489. 5000 [151]ca[170]rx[172]k8[170]zp,by(zp):[142]
  490. 5010 tx[178]ca[170]rx[172]k8:[129]r[178]k0[164]k7:by(r)[178][194](tx[170]r):[130]:[137]4970
  491. 5030 [129]r[178]vm[164]r[170]31:[151]r,k0:[130]
  492. 5040 [129]tx[178]k0[164]k7:[129]r[178]k0[164]k7:bb[178]k2[174]r[175]by(tx):[139]bb[178]k0[167]5090
  493. 5050 rq[178]tx[172]k2[170]vm:t%[178]k8[172](tx[177]k3):rq[178]rq[171]t%:[139]r[177]k3[167]5080
  494. 5060 bb[178]k2[174](r[172]k2):t%[178]k2[174](r[172]k2[170]k1):bb[178]bb[170]t%
  495. 5070 bp[178]rq[170]k8:[151]bp,[194](bp)[176]bb:bp[178]rq[170]k9:[151]bp,[194](bp)[176]bb:[137]5090
  496. 5080 t%[178](r[171]k4)[172]k2:bb[178]k2[174]t%:bb[178]bb[170]k2[174](t%[170]k1)
  497. 5085 [151]rq,[194](rq)[176]bb:[151]rq[170]k1,[194](rq[170]k1)[176]bb
  498. 5090 [130]:[130]:ry[178]ca[170]rx[172]k8:[129]r[178]k0[164]31:[151]ry[170]r,[194](vm[170]r):[151]vm[170]r,p4:[130]
  499. 5094 [141]4620:[158]p5,10,k0:[153]"sys<inst del> quit":[137]4010
  500. 5100 rx[178]ca[170]qq[172]k8:[129]r[178]ca[170]qp[172]k8[164]r[170]7:rm[178][194](r):[151]r,[194](rx):[151]rx,rm:rx[178]rx[170]k1
  501. 5110 [130]:[142]
  502. 5200 [129]tx[178]k0[164]16[169]16:ry[178]ca[170]tx[170]rx[172]k8:[129]r[178]ry[164]r[170]k7:t%[178][194](r):[151]r,[194](r[170]k8)
  503. 5210 [151]r[170]k8,t%:[130]:[130]:ry[178]ry[171]16:t%[178]ry[173]f2%:r%[178]ry[171]t%[172]f2%
  504. 5230 [151]2200,r%:[151]2201,t%:[151]2242,r%:[151]2243,t%:[158]2196
  505. 5240 [151]2200,k1:[151]2201,200:[151]2242,k1:[151]2243,200:bp[178]ry:[137]4754
  506. 5300 rx[178][194](2024):t%[178]k0:ry[178]ca[170]rx[172]k8[170]22
  507. 5310 ry[178]ry[170]t%:tx[178][194](ry[170]k1):bp[178]ry[171]k6
  508. 5320 [129]r[178]ry[164]ry[171]22[169][171]k1:r%[178][194](r):[151]r[170]k1,r%
  509. 5330 [139]r[178]bp[167]r[178]r[171]k9:r%[178][194](r):[151]r[170]k9,r%
  510. 5340 [130]:[151]r[170]k1,tx:t%[178]t%[170]k8:[139]t%[178]k8[167]5310
  511. 5350 bp[178]ca[170]rx[172]k8:[137]4754
  512. 6000 [161]b$:[139]b$[178]""[167]6000
  513. 6010 r[178][198](b$):[139]r[178]95[167]ll[178]99:[137]6000
  514. 6020 [139]ll[178]99[167]6350
  515. 6025 [139]r[178]77[167]8000
  516. 6030 [129]bp[178]2054[164]bp[170]33:[139]r[178][194](bp)[167]ll[178]bp[171]2054
  517. 6040 [130]
  518. 6330 [139]ll[177][171]k1[167]mx[178]55100[170]ll[172]100:t%[178]1999:[141]1700
  519. 6340 [142]
  520. 6350 ll[178][171]k1:[139]r[178]20[167]ll[178]11
  521. 6360 [139]r[178]140[176]r[178]139[167]ll[178]20[171](r[178]139)
  522. 6380 [137]6330
  523. 6980 rp[178]k0:[141]1530:r[178]k0:rq[178]k0:rm[178]pp:xm[178]qq:[141]7300:[139]f5[178]k0[176]rq[178]k2[167]610
  524. 7000 [139]xm[177]248[167]610
  525. 7010 rp[178][182]([180](rq[171]k1)):[139]bb[178]75[167]7170
  526. 7020 [139]tx[179]k0[167]7050
  527. 7030 [139]rq[178]k1[167]xm[178]xm[170]k2
  528. 7040 [137]7070
  529. 7050 [139]rq[178]k1[167]xm[178]xm[170]k1
  530. 7060 [139]rq[179]k0[167]xm[178]xm[170]k3
  531. 7070 rm[178]rm[170]rq:bp[178](rm[170]rp)[173]p1:[139]bp[178][181](bp)[167]610
  532. 7080 [151]rm[170]vn,kq:[151]rm[170]vm,xm:r[178]r[170]k1:[139]r[178]f5[167]610
  533. 7090 rm[178]rm[170]rq:bp[178](rm[170]rp)[173]p1:[139]bp[178][181](bp)[167]610
  534. 7100 [151]rm[170]vn,kq:[151]rm[170]vm,xm[170]tx:r[178]r[170]k1:[139]r[178]f5[167]610
  535. 7110 rm[178]rm[170]rx:[139]rm[179]k0[176]rm[177]959[167]610
  536. 7120 [137]7070
  537. 7170 [139]tx[178]k1[167]xm[178]xm[170]k4[171](rq[178]k1)[172]k2:[137]7190
  538. 7180 xm[178]xm[170]k5[171](rq[179]k0)[172]k2
  539. 7190 rm[178]rm[170]rx:[139]rm[179]k0[176]rm[177]919[167]610
  540. 7200 [151]rm[170]vn,kq:[151]rm[170]vm,xm:r[178]r[170]k1:[139]r[178]f5[167]610
  541. 7210 rm[178]rm[170]rx:[139]rm[179]k0[176]rm[177]919[167]610
  542. 7220 [151]rm[170]vn,kq:[151]rm[170]vm,xm[170]tx:r[178]r[170]k1:[139]r[178]f5[167]610
  543. 7230 rm[178]rm[170]rq:bp[178](rm[170]rp)[173]p1:[139]bp[178][181](bp)[167]610
  544. 7240 [137]7190
  545. 7260 rq[178]k0:[141]7300:[139]f5[178]k0[176]rq[178]k2[176]qq[179]k2[167]610
  546. 7290 bb[178][198](a$):t%[178]qq[171]k2[171](bb[178]134[176]bb[178]135):[137]2330
  547. 7300 [161]a$:[139]a$[178]"input"[167]rq[178][171]k1:rx[178][171]p1:tx[178]k1
  548. 7310 [139]a$[178]"dim"[167]rq[178]k1:rx[178][171]p1:tx[178]k1
  549. 7320 [139]a$[178]"read"[167]rq[178][171]k1:rx[178]p1:tx[178][171]k1
  550. 7330 [139]a$[178]"let"[167]rq[178]k1:rx[178]p1:tx[178][171]k1
  551. 7335 [139]a$[179][177]""[167][139]a$[179]"input"[176]a$[177]"let"[167]rq[178]k2
  552. 7340 [139]rq[178]k0[167]7300
  553. 7350 [142]
  554. 7400 [158]p5,k2,24:[139]en[178]k5[167][153]"device"[182](dv)"not present";
  555. 7405 [139]en[179][177]k4[167][160]kf:[137]7420
  556. 7410 [153]"file not found   ";
  557. 7415 [158]p5,k2,24:[153]"file not found   ";:[159]kf,[182](dv),kf:[152]kf,"i0":[160]kf
  558. 7420 [129]r[178]k1[164]33:[151]d6,33:[151]d6,16:[130]:[129]r[178]1[164]3333:[130]:[137]2020
  559. 8000 rp[178]k0:[141]1530:[151]53281,k0:[151]vc[170]21,k0
  560. 8010 a$[178]"list   <m> next menu    <return> to quit"
  561. 8020 [153]"load<_>sys"[166]14)"select on/off":[153]
  562. 8030 [153]"<inst del>sys       background color"
  563. 8040 [153]"<shift inst del>sys border color"
  564. 8050 [153]"<shift clr home>sys clear pad"
  565. 8060 [153]"<shift return>sys   paint: <f7> to quit"
  566. 8070 [153]"_<h>sys"[166]13)"hide/see pen":[153]
  567. 8080 [153]"_<q>sys        switch user buffer"
  568. 8090 [153]"<f4>sys        put screen in user buffer"
  569. 8100 [153]"<f2>sys        get screen from user buffer":[153]
  570. 8110 [153]"<=>sys      define pen by screen char.code"
  571. 8120 [153]"<shift space>sys pen as pad char.under pen"
  572. 8130 [153]"_<y>: <,>/<.>sys view character set"
  573. 8135 [153]"_<w>sys          swap pen char <-> pad char"
  574. 8140 [153]"_<a>sys"[166]10)"type on/off":[153]
  575. 8150 [153]"<:> or _<:>sys  shift row left from pen"
  576. 8160 [153]"<;> or _<;>sys  shift row right from pen"
  577. 8170 [153]"</> or _</>sys  shift column down from pen"
  578. 8180 [153]"_<p>sys"[166]9)"shift column up from pen":[153]:[153]a$;
  579. 8200 [161]b$:[139]b$[178]""[167]8200
  580. 8210 [139]b$[179][177]"m"[167]8900
  581. 8220 [153]"load<f8>sys    save screen/color/char. set"
  582. 8230 [153]"<f6>sys    load screen/color/char. set"
  583. 8240 [153]"_<f8>sys   save character set"
  584. 8250 [153]"_<f6>sys   load character set"
  585. 8260 [153]"_<d>sys    disk directory"
  586. 8270 [153]"_<e>sys    erase file"
  587. 8280 [153]"_<*>sys    drive number switch":[153]
  588. 8290 [153]"_<v>sys normal/reverse -> reverse/normal"
  589. 8300 [153]"_<g>sys as <<v> but not normal spaces"
  590. 8310 [153]"_<s>sys color: match character & color"
  591. 8320 [153]"_<z>sys color: match character (only)"
  592. 8330 [153]"_<c>sys characters:match character"
  593. 8340 [153]"_<f>sys characters:match character & color"
  594. 8350 [153]"_<x>sys inverse characters:match character":[153]
  595. 8360 [153]"_<inst del>sys character editor"
  596. 8365 [153]"<clr home>sys  draw quade":[153]
  597. 8370 [153]"_<^>sys    undo"
  598. 8380 [153]"_<m>sys    message"
  599. 8390 [153]"_<r>sys    rotate character"
  600. 8400 [153]"_<t>sys    rotate quade":[153]:[153]a$;
  601. 8420 [161]b$:[139]b$[178]""[167]8420
  602. 8430 [139]b$[179][177]"m"[167]8900
  603. 8440 [153]"load<return>sys move pen left/down of screen"
  604. 8450 [153]"<c= control>sys move pen right 5 places"
  605. 8460 [153]"fire up,down,left,rightsys move pen to edge"[166]28)"of pad":[153]
  606. 8470 [153]"<control>:<0>-<9>sys set projection number"
  607. 8480 [153]"<0> or _<0>sys       projection number + 10"
  608. 8490 [153]"_<b>sys"[166]12)"box projection"
  609. 8500 [153]"_<cursor key>sys   orthogonal  projection"
  610. 8510 [153]"_<f1>, _<f3>sys    diagonal projection up"
  611. 8520 [153]"_<f5>, _<f7>sys    diagonal projection down"
  612. 8530 [153]"_<j>: <f1,f3,f5,f7>sys project diagonals"
  613. 8540 [153]"_<k>: <f1,f3,f5,f7>sys project diagonals"
  614. 8550 [153]"_<l>: <f1,f3,f5,f7>sys project diagonals":[153]
  615. 8560 [153]"_<n>sys color bars off/on"
  616. 8562 [153]"<1>/_<1> to <8>/_<8>sys select pen color"
  617. 8564 [153]"<c=> <1> to <8>sys      select pen color":[153]
  618. 8566 [153]"<c=   run stop>sys      quit lodraw2":[153]:[153]a$
  619. 8570 [161]b$:[139]b$[178]""[167]8570
  620. 8580 [139]b$[178]"m"[167]8020
  621. 8900 rp[178]k0:[141]1550:[151]53281,zy:[137]2940
  622. 55100 [143]replace all pad characters that match character under pen, with pen
  623. 55110 [143] character@
  624. 55200 [143]replace color of all pad characters that match character under pen,
  625. 55210 [143] with pen color@
  626. 55300 [143]replace color of all pad characters that match both character and
  627. 55310 [143] color under pen, with pen color@
  628. 55400 [143]replace all pad characters that match both character and color under
  629. 55410 [143] pen, with pen character@
  630. 55500 [143]replace all pad characters that match the normal/reverse character
  631. 55510 [143] under pen, with the reverse/normal form of that character@
  632. 55600 [143]replace every normal/reverse character on pad (including spaces) with
  633. 55610 [143] the reverse/normal form of that character@
  634. 55700 [143]replace every normal/reverse character on pad (excluding normal spaces)
  635. 55710 [143] with the reverse/normal form of that character@
  636. 55800 [143]rotates the current pen character and all characters on screen same as
  637. 55810 [143] pen character@
  638. 55900 [143]type on/off switch: in type on mode, lodraw can be used like a typewrit
  639. 55910 [143]er@
  640. 56000 [143]draws a square from pen with side length equal to projection number@
  641. 56100 [143]undo: changes made by a projection, replace, get or clear pad operation
  642. 56110 [143] can be undone, restoring your original design@
  643. 56200 [143]character editor: for designing your own characters and quades@
  644. 56300 [143]put: for storing on-screen design, color and character set in current
  645. 56310 [143] user buffer@
  646. 56400 [143]get: for retrieving design, color and character set from current
  647. 56410 [143] user buffer@
  648. 56500 [143]quades: four characters with successive screen character codes are
  649. 56510 [143] drawn in a square to right of pen  *  first character is pen character@
  650. 56600 [143]user buffer switch: switches between buffer 1 and buffer 2, to/from
  651. 56610 [143] which screen/color/character set can be stored/retrieved@
  652. 56700 [143]adds 10 to the projection number@
  653. 56800 [143]hide/see pen switch@
  654. 56900 [143]disk save screen/color/character set@
  655. 57000 [143]disk load screen/color/character set@
  656. 57100 [143]disk save character set@
  657. 57200 [143]disk load character set@
  658. 57300 [143]display disk directory@
  659. 57400 [143]erase file from disk@
  660. 57500 [143]paint: pen will paint characters it passes over with pen color  *
  661. 57510 [143]  <f7> quits paint@
  662. 57600 [143]shift row left from pen@
  663. 57700 [143]shift row right from pen@
  664. 57800 [143]shift column down from pen@
  665. 57900 [143]shift column up from pen@
  666. 58000 [143]swap: transposes pen character with pad character under pen without
  667. 58010 [143] swapping their screen character codes * all characters on screen same
  668. 58020 [143] as character under pen will be changed@
  669. 58100 [143]defines pen character as the character on the pad under the pen@
  670. 58200 [143]rotates the current quade (which begins with current pen character) and
  671. 58210 [143] all characters on screen that are part of the current quade@
  672. 58300 [143]clear pad: <select> <^> will restore pattern if you made a mistake@
  673. 58400 [143]allows you to define pen character by screen character code@
  674.