home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / lodraw2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  26KB  |  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$[