home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s035 / 3.img / PDEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-11-25  |  24.3 KB  |  581 lines
  1. 1000 '
  2. 1010 '  *******************************************************************
  3. 1020 '  *                                                                 *
  4. 1030 '  *   Ñ╗╡{ªí¼O¿╧Ñ╬ñΓÑU¿╥ñl¬║│íÑ≈╕╤╡¬íA¿╤º@░╤ª╥ñºÑ╬íC                *
  5. 1040 '  *                                                                 *
  6. 1050 '  *   ¡n▒NÑ╗╡{ªíªCªLÑX¿╙«╔íA╜╨ѲÑ╬ó┘ó╤ó▐┐∩▓─ñ¡ñj╢╡¬║▓─ó┤ñp╢╡        *
  7. 1060 '  *   í]│]⌐wªC¬φ╛≈½e╕m╜Xí^íA▒NªC¬φ╛≈½e╕m╜Xº∩ª¿½D7E(~)¬║╜XíC         *
  8. 1070 '  *   ⌐╬Ñ╬ BASIC ░⌡ªµ PRINT CHR$(27)+"(SLC &H7F)"íC                 *
  9. 1080 '  *   íi¬`╖Níj╜╨░O▒oªbªCªL½ß▒NªC¬φ╛≈½e╕m┴┘¡∞                        *
  10. 1090 '  *                                                                 *
  11. 1100 '  *                                      ░∞ñh╣q╕ú(¡╗┤Σ)ª│¡¡ñ╜Ñq     *
  12. 1110 '  *                                      ░Ω│∞ñññσ¿t▓╬╡o«iñp▓╒ ╖qñW  *
  13. 1120 '  *                                                                 *
  14. 1130 '  *******************************************************************
  15. 1140 '
  16. 1150 DEFINT A-Z
  17. 1160              '
  18. 1170 WIDTH LPRINT 255    : '  Ñ╬ó╨ó╧óßó╫ó╤«╔íA│╠ªnÑ[ñWª╣½ⁿÑO
  19. 1180              '
  20. 1190 '
  21. 1200 '
  22. 1210 '
  23. 1220 KEY OFF : CLS : LOCATE 1,1,0
  24. 1230 ESC$ = CHR$(27)
  25. 1240 '
  26. 1250 A1$ = "░Ω│∞ñññσ¿t▓╬"
  27. 1260 A2$ = "ú┴ ░Ω│∞¿╞░╚╣q╕ú╣Ω╖~¬╤Ñ≈ª│¡¡ñ╜Ñq"
  28. 1270 '
  29. 1280 PRINT ESC$+"(area 005,000,630,390,40,0,0)"
  30. 1290 PRINT ESC$+"(squ  005,000,630,390,5,5,-1,0,0)"
  31. 1300 PRINT ESC$+"(area 030,030,585,90,32,0,0)"
  32. 1310 PRINT ESC$+"(squ  030,030,585,90,03,03,-1,0,0)"
  33. 1320 PRINT ESC$+"(font 0,0,0,1,0,,0,0)"
  34. 1330 PRINT ESC$+"(str  '";A1$;"',100,51,3,3,40,0,0,0,0)"
  35. 1340 PRINT ESC$+"(area 030,250,585,120,34,0,0)"
  36. 1350 PRINT ESC$+"(squ  030,250,585,120,03,03,-1,0,0)"
  37. 1360 PRINT ESC$+"(font 0,0,0,0,0,,0,0)"
  38. 1370 PRINT ESC$+"(str  'ªC',80,265,6,6,15,0,0,1,0)"
  39. 1380 PRINT ESC$+"(str  'ªL',280,265,6,6,15,0,0,1,0)"
  40. 1390 PRINT ESC$+"(str  'ññ',480,265,6,6,15,0,0,1,0)"
  41. 1400 PRINT ESC$+"(font 0,0,0,0,0,,0,0)"
  42. 1410 PRINT ESC$+"(str  '";A2$;"',555,560,1,1,12,0,0,0,0)"
  43. 1420 '
  44. 1430 '
  45. 1440 '
  46. 1450 LPRINT "~(pbw 960)~(RIM 8;8;1;1)";
  47. 1460 '
  48. 1470 '
  49. 1480 '
  50. 1490 LPRINT "~(MAG 0;7;7)~M╣Ω┼Θªr~m
  51. 1500 LPRINT "~(MAG 1;7;7)~MñΦ┬Iªr~m
  52. 1510 LPRINT "~(MAG 2;7;7)~Mññ¬┼ªr~m
  53. 1520 LPRINT "~(MAG 3;7;7)ñ@ªí~MÑ▀┼Θªr~m
  54. 1530 LPRINT "~(MAG 4;7;7)ñGªí~MÑ▀┼Θªr~m
  55. 1540 LPRINT "~(MAG 5;7;7)ñTªí~MÑ▀┼Θªr~m
  56. 1550 LPRINT "~(MAG 6;7;7)Ñ|ªí~MÑ▀┼Θªr~m
  57. 1560 LPRINT "~(MAG 7;7;7)ñ⌠Ñ¡╣Ω┼ΘñΦ┬I~M▓╒ªXªr~m
  58. 1570 LPRINT "~(MAG 8;7;7)½½¬╜╣Ω┼ΘñΦ┬I~M▓╒ªXªr~m
  59. 1580 LPRINT "~(MAG 9;7;7)ñΦ┬I~Mññ¬┼ªr~m
  60. 1590 '
  61. 1600 LPRINT "~F~(RIM 4;0;1;1)"
  62. 1610 '
  63. 1620 '
  64. 1630 '
  65. 1640 LPRINT "ÑN╜X 0  ▒█┬α  0½╫
  66. 1650 LPRINT "~(fon 0;2;0;0; 0;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  67. 1660 LPRINT
  68. 1670 LPRINT "ÑN╜X 1  ▒█┬α 90½╫
  69. 1680 LPRINT "~(fon 0;2;0;0; 1;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  70. 1690 LPRINT
  71. 1700 LPRINT "ÑN╜X 2  ▒█┬α180½╫
  72. 1710 LPRINT "~(fon 0;2;0;0; 2;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  73. 1720 LPRINT
  74. 1730 LPRINT "ÑN╜X 3  ▒█┬α270½╫
  75. 1740 LPRINT "~(fon 0;2;0;0; 3;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  76. 1750 LPRINT
  77. 1760 LPRINT "ÑN╜X 4  Ñ²Ñ¬Ñk─A¡╦íAªA▒█┬α  0½╫
  78. 1770 LPRINT "~(fon 0;2;0;0; 4;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  79. 1780 LPRINT
  80. 1790 LPRINT "ÑN╜X 5  Ñ²Ñ¬Ñk─A¡╦íAªA▒█┬α 90½╫
  81. 1800 LPRINT "~(fon 0;2;0;0; 5;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  82. 1810 LPRINT
  83. 1820 LPRINT "ÑN╜X 6  Ñ²Ñ¬Ñk─A¡╦íAªA▒█┬α180½╫
  84. 1830 LPRINT "~(fon 0;2;0;0; 6;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  85. 1840 LPRINT
  86. 1850 LPRINT "ÑN╜X 7  Ñ²Ñ¬Ñk─A¡╦íAªA▒█┬α270½╫
  87. 1860 LPRINT "~(fon 0;2;0;0; 7;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  88. 1870 LPRINT
  89. 1880 LPRINT "ÑN╜X 8  Ñ²ñWñU─A¡╦íAªA▒█┬α  0½╫
  90. 1890 LPRINT "~(fon 0;2;0;0; 8;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  91. 1900 LPRINT
  92. 1910 LPRINT "ÑN╜X 9  Ñ²ñWñU─A¡╦íAªA▒█┬α 90½╫
  93. 1920 LPRINT "~(fon 0;2;0;0; 9;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  94. 1930 LPRINT
  95. 1940 '
  96. 1950 LPRINT "~F"
  97. 1960 '
  98. 1970 LPRINT "ÑN╜X10  Ñ²ñWñU─A¡╦íAªA▒█┬α180½╫
  99. 1980 LPRINT "~(fon 0;2;0;0;10;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  100. 1990 LPRINT
  101. 2000 LPRINT "ÑN╜X11  Ñ²ñWñU─A¡╦íAªA▒█┬α270½╫
  102. 2010 LPRINT "~(fon 0;2;0;0;11;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  103. 2020 LPRINT
  104. 2030 LPRINT "ÑN╜X12  Ñ²▒█┬α  0½╫íAªAѬÑk─A¡╦
  105. 2040 LPRINT "~(fon 0;2;0;0;12;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  106. 2050 LPRINT
  107. 2060 LPRINT "ÑN╜X13  Ñ²▒█┬α 90½╫íAªAѬÑk─A¡╦
  108. 2070 LPRINT "~(fon 0;2;0;0;13;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  109. 2080 LPRINT
  110. 2090 LPRINT "ÑN╜X14  Ñ²▒█┬α180½╫íAªAѬÑk─A¡╦
  111. 2100 LPRINT "~(fon 0;2;0;0;14;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  112. 2110 LPRINT
  113. 2120 LPRINT "ÑN╜X15  Ñ²▒█┬α270½╫íAªAѬÑk─A¡╦
  114. 2130 LPRINT "~(fon 0;2;0;0;15;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  115. 2140 LPRINT
  116. 2150 LPRINT "ÑN╜X16  Ñ²▒█┬α  0½╫íAªAñWñU─A¡╦
  117. 2160 LPRINT "~(fon 0;2;0;0;16;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  118. 2170 LPRINT
  119. 2180 LPRINT "ÑN╜X17  Ñ²▒█┬α 90½╫íAªAñWñU─A¡╦
  120. 2190 LPRINT "~(fon 0;2;0;0;17;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  121. 2200 LPRINT
  122. 2210 LPRINT "ÑN╜X18  Ñ²▒█┬α180½╫íAªAñWñU─A¡╦
  123. 2220 LPRINT "~(fon 0;2;0;0;18;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  124. 2230 LPRINT
  125. 2240 LPRINT "ÑN╜X19  Ñ²▒█┬α270½╫íAªAñWñU─A¡╦
  126. 2250 LPRINT "~(fon 0;2;0;0;19;;0;0)~(str '▒█┬α╗P─A¡╦';100;010;4;4;60;00;0;0;0)~(ipb)~(cpb)
  127. 2260 '
  128. 2270 LPRINT "~F~(RIM 8;8;1;1)"
  129. 2280 '
  130. 2290 '
  131. 2300 '
  132. 2310 LPRINT "~(fon 0;2;0;3;0;;0;9)~(str 'ó»íDѬñWñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  133. 2320 LPRINT
  134. 2330 LPRINT "~(fon 0;2;0;3;0;;1;9)~(str 'ó░íDѬ├ΣñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  135. 2340 LPRINT
  136. 2350 LPRINT "~(fon 0;2;0;3;0;;2;9)~(str 'ó▒íDѬñUñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  137. 2360 LPRINT
  138. 2370 LPRINT "~(fon 0;2;0;3;0;;3;9)~(str 'ó▓íDñU├ΣñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  139. 2380 LPRINT
  140. 2390 LPRINT "~(fon 0;2;0;3;0;;4;9)~(str 'ó│íDÑkñUñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  141. 2400 LPRINT
  142. 2410 LPRINT "~(fon 0;2;0;3;0;;5;9)~(str 'ó┤íDÑk├ΣñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  143. 2420 LPRINT
  144. 2430 LPRINT "~(fon 0;2;0;3;0;;6;9)~(str 'ó╡íDÑkñWñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  145. 2440 LPRINT
  146. 2450 LPRINT "~(fon 0;2;0;3;0;;7;9)~(str 'ó╢íDñW├ΣñΦªV';50;010;5;5;70;00;0;0;0)~(ipb)~(cpb)
  147. 2460 '
  148. 2470 LPRINT "~F~(RIM 0;0;1;1)"
  149. 2480 '
  150. 2490 '
  151. 2500 '
  152. 2510 LPRINT "╡e╜u
  153. 2520 LPRINT "~(LIN 100;20;600;20;&hFFFF;0;0)
  154. 2530 LPRINT "~(LIN 100;20;600;20;&hFF33;0;0)
  155. 2540 LPRINT "~(LIN 100;20;600;20;&hAAAA;0;0)
  156. 2550 LPRINT "~(LIN 100;20;600;20;&h8888;0;0)
  157. 2560 LPRINT "~(LIN 100;20;600;20;&hFF0F;0;0)
  158. 2570 LPRINT "~(LIN 100;20;600;20;&hF0F0;0;0)
  159. 2580 LPRINT
  160. 2590 LPRINT "~(LIN 100;20;400;260;&hFFFF;0;0)";
  161. 2600 LPRINT "~(LIN 120;20;420;260;&hFF33;0;0)";
  162. 2610 LPRINT "~(LIN 140;20;440;260;&hAAAA;0;0)";
  163. 2620 LPRINT "~(LIN 160;20;460;260;&h8888;0;0)";
  164. 2630 LPRINT "~(LIN 180;20;480;260;&hFF0F;0;0)";
  165. 2640 LPRINT "~(LIN 200;20;500;260;&hF0F0;0;0)~(IPB)~(CPB)"
  166. 2650 LPRINT
  167. 2660 LPRINT "╡e«╪
  168. 2670 LPRINT "~(SQU 100;10;600;200;10;9;&hFFFF;0;0)~(IPB)~(CPB)
  169. 2680 LPRINT
  170. 2690 LPRINT "╡e╢Ω
  171. 2700 LPRINT "~(CIR 200;100;100;100;&HFFFF;0)
  172. 2710 LPRINT "~(CIR 500;100;100;100;&HF0F0;0)~(IPB)~(CPB)
  173. 2720 LPRINT
  174. 2730 LPRINT "╡e⌐╖
  175. 2740 LPRINT "~(ARC 200;100;100;100;0;200;&HFFFF;0;0)
  176. 2750 LPRINT "~(ARC 500;100;100;100;0;200;&H8888;0;0)~(IPB)~(CPB)
  177. 2760 LPRINT
  178. 2770 LPRINT "╡e¼ú ( «░╣╧ )
  179. 2780 LPRINT "~(PIE 200;100;100;100;0;200;&HFFFF;0;0)
  180. 2790 LPRINT "~(PIE 500;100;100;100;0;200;&HAAAA;0;0)~(IPB)~(CPB)
  181. 2800 LPRINT
  182. 2810 LPRINT "╡e░╧
  183. 2820 LPRINT "~(ARE 100;0;300;200;59;0)~(ARE 500;0;300;200;63;0)~(IPB)~(CPB)
  184. 2830 '
  185. 2840 LPRINT "~F~(RIM 4;2;1;1)"
  186. 2850 '
  187. 2860 '
  188. 2870 '
  189. 2880 LPRINT
  190. 2890 LPRINT "~D~ZÑk▒╫»╛íG~d~z
  191. 2900 LPRINT
  192. 2910 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  193. 2920 LPRINT "         &HFF00       &HFFFF      &H0001
  194. 2930 LPRINT "             ~(STP 0;&HFF00;&HFFFF;&H0001)~(REV 0)
  195. 2940 LPRINT "             ~R                      ~r
  196. 2950 LPRINT "             ~R                      ~r
  197. 2960 LPRINT "             ~R                      ~r
  198. 2970 LPRINT "             ~R                      ~r
  199. 2980 LPRINT "             ~R                      ~r
  200. 2990 LPRINT
  201. 3000 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  202. 3010 LPRINT "         &HFF00       &HFFFF      &H0004
  203. 3020 LPRINT "             ~(STP 0;&HFF00;&HFFFF;&H0004)~(REV 0)
  204. 3030 LPRINT "             ~R                      ~r
  205. 3040 LPRINT "             ~R                      ~r
  206. 3050 LPRINT "             ~R                      ~r
  207. 3060 LPRINT "             ~R                      ~r
  208. 3070 LPRINT "             ~R                      ~r
  209. 3080 LPRINT
  210. 3090 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  211. 3100 LPRINT "         &HFF00       &HFAFA      &H0004
  212. 3110 LPRINT "             ~(STP 0;&HFF00;&HF8F8;&H0004)~(REV 0)
  213. 3120 LPRINT "             ~R                      ~r
  214. 3130 LPRINT "             ~R                      ~r
  215. 3140 LPRINT "             ~R                      ~r
  216. 3150 LPRINT "             ~R                      ~r
  217. 3160 LPRINT "             ~R                      ~r
  218. 3170 LPRINT
  219. 3180 LPRINT "~D~ZѬ▒╫»╛íG~d~z
  220. 3190 LPRINT
  221. 3200 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  222. 3210 LPRINT "         &HFF00       &HFFFF      &H0002
  223. 3220 LPRINT "             ~(STP 0;&HFF00;&HFFFF;&H0002)
  224. 3230 LPRINT "             ~R                      ~r
  225. 3240 LPRINT "             ~R                      ~r
  226. 3250 LPRINT "             ~R                      ~r
  227. 3260 LPRINT "             ~R                      ~r
  228. 3270 LPRINT "             ~R                      ~r
  229. 3280 LPRINT
  230. 3290 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  231. 3300 LPRINT "         &HFF00       &HFFFF      &H0008
  232. 3310 LPRINT "             ~(STP 0;&HFF00;&HFFFF;&H0008)
  233. 3320 LPRINT "             ~R                      ~r
  234. 3330 LPRINT "             ~R                      ~r
  235. 3340 LPRINT "             ~R                      ~r
  236. 3350 LPRINT "             ~R                      ~r
  237. 3360 LPRINT "             ~R                      ~r
  238. 3370 LPRINT
  239. 3380 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  240. 3390 LPRINT "         &H8800       &HFFFF      &H0003
  241. 3400 LPRINT "             ~(STP 0;&H8800;&HFFFF;&H0003)
  242. 3410 LPRINT "             ~R                      ~r
  243. 3420 LPRINT "             ~R                      ~r
  244. 3430 LPRINT "             ~R                      ~r
  245. 3440 LPRINT "             ~R                      ~r
  246. 3450 LPRINT "             ~R                      ~r
  247. 3460 '
  248. 3470 LPRINT "~F"
  249. 3480 '
  250. 3490 LPRINT "~D~Z╛ε▒°»╛íG~d~z
  251. 3500 LPRINT
  252. 3510 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  253. 3520 LPRINT "         &HFFFF       &HF0F0      &H4000
  254. 3530 LPRINT "             ~(STP 0;&HFFFF;&HF0F0;&H4000)
  255. 3540 LPRINT "             ~R                      ~r
  256. 3550 LPRINT "             ~R                      ~r
  257. 3560 LPRINT "             ~R                      ~r
  258. 3570 LPRINT "             ~R                      ~r
  259. 3580 LPRINT "             ~R                      ~r
  260. 3590 LPRINT
  261. 3600 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  262. 3610 LPRINT "         &HFFFF       &HFF00      &H4000
  263. 3620 LPRINT
  264. 3630 LPRINT "             ~(STP 0;&HFFFF;&HFF00;&H4000)
  265. 3640 LPRINT "             ~R                      ~r
  266. 3650 LPRINT "             ~R                      ~r
  267. 3660 LPRINT "             ~R                      ~r
  268. 3670 LPRINT "             ~R                      ~r
  269. 3680 LPRINT "             ~R                      ~r
  270. 3690 LPRINT
  271. 3700 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  272. 3710 LPRINT "         &HFFFF       &HFCE4      &H4000
  273. 3720 LPRINT "             ~(STP 0;&HFFFF;&HFCE4;&H4000)
  274. 3730 LPRINT "             ~R                      ~r
  275. 3740 LPRINT "             ~R                      ~r
  276. 3750 LPRINT "             ~R                      ~r
  277. 3760 LPRINT "             ~R                      ~r
  278. 3770 LPRINT "             ~R                      ~r
  279. 3780 LPRINT
  280. 3790 LPRINT "~D~Z¬╜▒°»╛íG~d~z
  281. 3800 LPRINT
  282. 3810 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  283. 3820 LPRINT "         &HF0F0       &HFFFF      &H4000
  284. 3830 LPRINT "             ~(STP 0;&HF0F0;&HFFFF;&H4000)
  285. 3840 LPRINT "             ~R                      ~r
  286. 3850 LPRINT "             ~R                      ~r
  287. 3860 LPRINT "             ~R                      ~r
  288. 3870 LPRINT "             ~R                      ~r
  289. 3880 LPRINT "             ~R                      ~r
  290. 3890 LPRINT
  291. 3900 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  292. 3910 LPRINT "         &HFF00       &HFFFF      &H4000
  293. 3920 LPRINT "             ~(STP 0;&HFF00;&HFFFF;&H4000)
  294. 3930 LPRINT "             ~R                      ~r
  295. 3940 LPRINT "             ~R                      ~r
  296. 3950 LPRINT "             ~R                      ~r
  297. 3960 LPRINT "             ~R                      ~r
  298. 3970 LPRINT "             ~R                      ~r
  299. 3980 LPRINT
  300. 3990 LPRINT "        ñ⌠Ñ¡¬ß»╛     ½½¬╜¬ß»╛    ¬ß»╛ª∞▓╛
  301. 4000 LPRINT "         &HFCE4       &HFFFF      &H4000
  302. 4010 LPRINT "             ~(STP 0;&HFCE4;&HFFFF;&H4000)
  303. 4020 LPRINT "             ~R                      ~r
  304. 4030 LPRINT "             ~R                      ~r
  305. 4040 LPRINT "             ~R                      ~r
  306. 4050 LPRINT "             ~R                      ~r
  307. 4060 LPRINT "             ~R                      ~r
  308. 4070 '
  309. 4080 LPRINT "~F~(RIM 4;4;4;4)"
  310. 4090 '
  311. 4100 '
  312. 4110 '
  313. 4120 LPRINT "ªCªL¿t▓╬ñ║⌐w¬║ó▓ó▒║╪╣╧╝╦"
  314. 4130 LPRINT
  315. 4140 LPRINT
  316. 4150 LPRINT "32 ~(REV 32)~R           ~r 33 ~(REV 33)~R           ~r 34 ~(REV 34)~R           ~r 35 ~(REV 35)~R           ~r
  317. 4160 LPRINT "   ~(REV 32)~R           ~r    ~(REV 33)~R           ~r    ~(REV 34)~R           ~r    ~(REV 35)~R           ~r
  318. 4170 LPRINT "   ~(REV 32)~R           ~r    ~(REV 33)~R           ~r    ~(REV 34)~R           ~r    ~(REV 35)~R           ~r
  319. 4180 LPRINT "   ~(REV 32)~R           ~r    ~(REV 33)~R           ~r    ~(REV 34)~R           ~r    ~(REV 35)~R           ~r
  320. 4190 LPRINT
  321. 4200 LPRINT "36 ~(REV 36)~R           ~r 37 ~(REV 37)~R           ~r 38 ~(REV 38)~R           ~r 39 ~(REV 39)~R           ~r
  322. 4210 LPRINT "   ~(REV 36)~R           ~r    ~(REV 37)~R           ~r    ~(REV 38)~R           ~r    ~(REV 39)~R           ~r
  323. 4220 LPRINT "   ~(REV 36)~R           ~r    ~(REV 37)~R           ~r    ~(REV 38)~R           ~r    ~(REV 39)~R           ~r
  324. 4230 LPRINT "   ~(REV 36)~R           ~r    ~(REV 37)~R           ~r    ~(REV 38)~R           ~r    ~(REV 39)~R           ~r
  325. 4240 LPRINT
  326. 4250 LPRINT "40 ~(REV 40)~R           ~r 41 ~(REV 41)~R           ~r 42 ~(REV 42)~R           ~r 43 ~(REV 43)~R           ~r
  327. 4260 LPRINT "   ~(REV 40)~R           ~r    ~(REV 41)~R           ~r    ~(REV 42)~R           ~r    ~(REV 43)~R           ~r
  328. 4270 LPRINT "   ~(REV 40)~R           ~r    ~(REV 41)~R           ~r    ~(REV 42)~R           ~r    ~(REV 43)~R           ~r
  329. 4280 LPRINT "   ~(REV 40)~R           ~r    ~(REV 41)~R           ~r    ~(REV 42)~R           ~r    ~(REV 43)~R           ~r
  330. 4290 LPRINT
  331. 4300 LPRINT "44 ~(REV 44)~R           ~r 45 ~(REV 45)~R           ~r 46 ~(REV 46)~R           ~r 47 ~(REV 47)~R           ~r
  332. 4310 LPRINT "   ~(REV 44)~R           ~r    ~(REV 45)~R           ~r    ~(REV 46)~R           ~r    ~(REV 47)~R           ~r
  333. 4320 LPRINT "   ~(REV 44)~R           ~r    ~(REV 45)~R           ~r    ~(REV 46)~R           ~r    ~(REV 47)~R           ~r
  334. 4330 LPRINT "   ~(REV 44)~R           ~r    ~(REV 45)~R           ~r    ~(REV 46)~R           ~r    ~(REV 47)~R           ~r
  335. 4340 LPRINT
  336. 4350 LPRINT "48 ~(REV 48)~R           ~r 49 ~(REV 49)~R           ~r 50 ~(REV 50)~R           ~r 51 ~(REV 51)~R           ~r
  337. 4360 LPRINT "   ~(REV 48)~R           ~r    ~(REV 49)~R           ~r    ~(REV 50)~R           ~r    ~(REV 51)~R           ~r
  338. 4370 LPRINT "   ~(REV 48)~R           ~r    ~(REV 49)~R           ~r    ~(REV 50)~R           ~r    ~(REV 51)~R           ~r
  339. 4380 LPRINT "   ~(REV 48)~R           ~r    ~(REV 49)~R           ~r    ~(REV 50)~R           ~r    ~(REV 51)~R           ~r
  340. 4390 LPRINT
  341. 4400 LPRINT "52 ~(REV 52)~R           ~r 53 ~(REV 53)~R           ~r 54 ~(REV 54)~R           ~r 55 ~(REV 55)~R           ~r
  342. 4410 LPRINT "   ~(REV 52)~R           ~r    ~(REV 53)~R           ~r    ~(REV 54)~R           ~r    ~(REV 55)~R           ~r
  343. 4420 LPRINT "   ~(REV 52)~R           ~r    ~(REV 53)~R           ~r    ~(REV 54)~R           ~r    ~(REV 55)~R           ~r
  344. 4430 LPRINT "   ~(REV 52)~R           ~r    ~(REV 53)~R           ~r    ~(REV 54)~R           ~r    ~(REV 55)~R           ~r
  345. 4440 LPRINT
  346. 4450 LPRINT "56 ~(REV 56)~R           ~r 57 ~(REV 57)~R           ~r 58 ~(REV 58)~R           ~r 59 ~(REV 59)~R           ~r
  347. 4460 LPRINT "   ~(REV 56)~R           ~r    ~(REV 57)~R           ~r    ~(REV 58)~R           ~r    ~(REV 59)~R           ~r
  348. 4470 LPRINT "   ~(REV 56)~R           ~r    ~(REV 57)~R           ~r    ~(REV 58)~R           ~r    ~(REV 59)~R           ~r
  349. 4480 LPRINT "   ~(REV 56)~R           ~r    ~(REV 57)~R           ~r    ~(REV 58)~R           ~r    ~(REV 59)~R           ~r
  350. 4490 LPRINT
  351. 4500 LPRINT "60 ~(REV 60)~R           ~r 61 ~(REV 61)~R           ~r 62 ~(REV 62)~R           ~r 63 ~(REV 63)~R           ~r
  352. 4510 LPRINT "   ~(REV 60)~R           ~r    ~(REV 61)~R           ~r    ~(REV 62)~R           ~r    ~(REV 63)~R           ~r
  353. 4520 LPRINT "   ~(REV 60)~R           ~r    ~(REV 61)~R           ~r    ~(REV 62)~R           ~r    ~(REV 63)~R           ~r
  354. 4530 LPRINT "   ~(REV 60)~R           ~r    ~(REV 61)~R           ~r    ~(REV 62)~R           ~r    ~(REV 63)~R           ~r
  355. 4540 '     
  356. 4550 '
  357. 4560 '
  358. 4570 LPRINT
  359. 4580 LPRINT "~(REVERSE 0)"
  360. 4590 LPRINT "~(MAS 0;&H0420;&H0240;&H0180;&H1818;&H1818;&H8421;";
  361. 4600 LPRINT "        &H4242;&H2184;&H2184;&H4242;&H8421;&H1818;";
  362. 4610 LPRINT "        &H1818;&H0180;&H0240;&H0420)"
  363. 4620 LPRINT "ª█⌐w╣╧╝╦┤·╕╒"
  364. 4630 LPRINT
  365. 4640 LPRINT "~(POS 100)~R                         ~r
  366. 4650 LPRINT "~(POS 100)~R                         ~r
  367. 4660 LPRINT "~(POS 100)~R                         ~r
  368. 4670 LPRINT "~(POS 100)~R                         ~r
  369. 4680 LPRINT "~(POS 100)~R                         ~r
  370. 4690 '
  371. 4700 LPRINT "~F"
  372. 4710 '          
  373. 4720 '
  374. 4730 '
  375. 4740 LPRINT "├╕╣╧╝╥ªíÑN╜X ó»íG├╕ñW ( Write )
  376. 4750 LPRINT
  377. 4760 LPRINT "~(area 100;0;400;300;33;0;0)~(area 150;50;300;200;60;0;0)~(┤╝ªL)~(cpb)
  378. 4770 LPRINT
  379. 4780 LPRINT
  380. 4790 LPRINT "├╕╣╧╝╥ªíÑN╜X ó░íG¡½┼| ( Or )
  381. 4800 LPRINT
  382. 4810 LPRINT "~(area 100;0;400;300;34;0;0)~(area 150;50;300;200;60;1;0)~(┤╝ªL)~(cpb)
  383. 4820 LPRINT
  384. 4830 LPRINT
  385. 4840 LPRINT "├╕╣╧╝╥ªíÑN╜X ó▒íG▓M░ú ( Not And )
  386. 4850 LPRINT
  387. 4860 LPRINT "~(area 100;0;400,300;33;0;0)~(area 150;50;300;200;56;2;0)~(┤╝ªL)~(cpb)
  388. 4870 LPRINT
  389. 4880 LPRINT
  390. 4890 LPRINT "├╕╣╧╝╥ªíÑN╜X ó▓íGñ╧Ñ╒ ( Xor )
  391. 4900 LPRINT
  392. 4910 LPRINT "~(area 100;0;400;300;56;0;0)~(area 150;50;300;200;33;3;0)~(┤╝ªL)~(cpb)
  393. 4920 '
  394. 4930 LPRINT "~F"
  395. 4940 '
  396. 4950 LPRINT "├╕╣╧╝╥ªíÑN╜X ó│íGñ╧ªΓ├╕ñW ( Not Write )
  397. 4960 LPRINT
  398. 4970 LPRINT "~(area 100;0;400;300;56;0;0)~(area 150;50;300;200;55;4;0)~(┤╝ªL)~(cpb)
  399. 4980 LPRINT
  400. 4990 LPRINT
  401. 5000 LPRINT "├╕╣╧╝╥ªíÑN╜X ó┤íGñ╧ªΓ¡½┼| ( Not Or )
  402. 5010 LPRINT
  403. 5020 LPRINT "~(area 100;0;400;300;34;0;0)~(area 150;50;300;200;63;5;0)~(┤╝ªL)~(cpb)
  404. 5030 LPRINT
  405. 5040 LPRINT
  406. 5050 LPRINT "├╕╣╧╝╥ªíÑN╜X ó╡íGñ╧ªΓ▓M░ú ( And )
  407. 5060 LPRINT
  408. 5070 LPRINT "~(area 100;0;400;300;33;0;0)~(area 150;50;300;200;60;6;0)~(┤╝ªL)~(cpb)
  409. 5080 LPRINT
  410. 5090 LPRINT
  411. 5100 LPRINT "├╕╣╧╝╥ªíÑN╜X ó╢íGñ╧ªΓñ╧Ñ╒ ( Not Xor )
  412. 5110 LPRINT
  413. 5120 LPRINT "~(area 100;0;400;300;56;0;0)~(area 150;50;300;200;32;7;0)~(┤╝ªL)~(cpb)
  414. 5130 '
  415. 5140 LPRINT "~F"
  416. 5150 '
  417. 5160 '
  418. 5170 '
  419. 5180 LPRINT "~(POS 100)~(MAG 2;8;8)~M~(WEB 35)~Jªr   ~(MAG 2;8;8)~M~(WEB 51)~Jº╬
  420. 5190 LPRINT "~(POS 100)~(MAG 2;8;8)~M~(WEB 42)~JÑi   ~(MAG 2;8;8)~M~(WEB 57)~J«M
  421. 5200 LPRINT "~(POS 100)~(MAG 2;8;8)~M~(WEB 45)~JªU   ~(MAG 2;8;8)~M~(WEB 59)~J║╪
  422. 5210 LPRINT "~(POS 100)~(MAG 2;8;8)~M~(WEB 48)~J╣╧   ~(MAG 2;8;8)~M~(WEB 61)~J╝╦~j~m
  423. 5220 LPRINT
  424. 5230 '                         
  425. 5240 '
  426. 5250 '
  427. 5260 LPRINT "~(back 36)~A~M
  428. 5270 LPRINT "~(MAG 0;8;8)~(POS 200)~M╣Ω┼Θªr~m
  429. 5280 LPRINT "~(MAG 2;8;8)~(POS 200)~Mññ¬┼ªr~m
  430. 5290 LPRINT "~(MAG 3;8;8)~(POS 200)~MÑ▀┼Θªr~m
  431. 5300 LPRINT
  432. 5310 LPRINT "~(POS 200)~(BACK 34)⌐│ªΓÑiÑ╬ó╡ó│║╪íA¿t▓╬┤ú¿╤ó▓ó▒║╪íAÑtÑ~
  433. 5320 LPRINT "~(POS 200)¿╧Ñ╬¬╠ÑiªAª█⌐wó▓ó▒║╪╣╧╝╦íC
  434. 5330 LPRINT
  435. 5340 LPRINT "~m~a
  436. 5350 '
  437. 5360 LPRINT "~F"
  438. 5370 '
  439. 5380 '
  440. 5390 '
  441. 5400 LPRINT "~(mag 3;5;5)~(LH -1)
  442. 5410 LPRINT "~(POS 100)~M╝╨├D~m ~(pos 400)╝sºi│]¡p
  443. 5420 LPRINT "~(pos 400)Ñ╬├π│]¡p
  444. 5430 LPRINT "~(pos 400)ªrº╬│]¡p
  445. 5440 LPRINT "~(pos 400)⌐±ñj┴Yñp~(LH 0)
  446. 5450 LPRINT
  447. 5460 LPRINT
  448. 5470 LPRINT "~(POS 100)~M╝sºi~m~D~Z╗sº@~d~z╝╨├D│]¡p
  449. 5480 LPRINT
  450. 5490 LPRINT
  451. 5500 LPRINT "~(LH 20)~D~Z
  452. 5510 LPRINT "~(POS 100)┬°╗x
  453. 5520 LPRINT "~(POS 100)    ╝╨├D
  454. 5530 LPRINT "~(POS 100)        ñ╜Ñq
  455. 5540 LPRINT "~(POS 100)            ╝sºi
  456. 5550 LPRINT "~(IPB)~(CPB)~d~z~(LH 0)
  457. 5560 LPRINT
  458. 5570 LPRINT
  459. 5580 LPRINT "~(rim 24;4;4;4)    ~(pos 100) n               n";
  460. 5590 LPRINT "~(rim 50;0;1;1)~D~Z~(pos 100)úU a c  = úU a c  = ~d~z";
  461. 5600 LPRINT "~(rim 80;0;1;1)    ~(pos 200)ji  jk             ij  kj";
  462. 5610 LPRINT "~(rim 93;0;1;1)    ~(pos 100) j=1                j=1";
  463. 5620 LPRINT "~(rim  0;0;1;1)    ~(pos 600)~(mag 0;2;6)~M{~m";
  464. 5630 LPRINT "~(rim 15;0;1;1)    ~(pos 640)~D~ZD~d~z~(rim 25;0;1;1) ╖φ i í╫ k";
  465. 5640 LPRINT "~(rim 75;0;1;1)    ~(pos 640)~D~Z0~d~z~(rim 85;0;1;1) ╖φ i í┌ k";
  466. 5650 LPRINT "~(rim  4;4;4;4)~d~z~m"
  467. 5660 LPRINT
  468. 5670 '
  469. 5680 '
  470. 5690 '
  471. 5700 LPRINT "~(MAGNIFY 0;6;6)~M╝sºi│]¡pªCªL";
  472. 5710 LPRINT "~(PDL 30)~(PDL 60)~(PDL 90)~(IPB)~(CPB)~m"
  473. 5720 LPRINT
  474. 5730 LPRINT
  475. 5740 LPRINT "~(RIM 0;0;0;0)~(MAG 0;6;6)~M╝sºi│]¡pªCªL";
  476. 5750 LPRINT "~(PDC  1)~(SP  1)";
  477. 5760 LPRINT "~(PDC  2)~(SP  2)";
  478. 5770 LPRINT "~(PDC  3)~(SP  3)";
  479. 5780 LPRINT "~(PDC  4)~(SP  4)";
  480. 5790 LPRINT "~(PDC  5)~(SP  5)";
  481. 5800 LPRINT "~(PDC  6)~(SP  6)";
  482. 5810 LPRINT "~(PDC  7)~(SP  7)";
  483. 5820 LPRINT "~(PDC  8)~(SP  8)";
  484. 5830 LPRINT "~(PDC  9)~(SP  9)";
  485. 5840 LPRINT "~(PDC 10)~(SP 10)";
  486. 5850 LPRINT "~(PDC 11)~(SP 11)";
  487. 5860 LPRINT "~(PDC 12)~(SP 12)";
  488. 5870 LPRINT "~(PDC 13)~(SP 13)";
  489. 5880 LPRINT "~(PDC 14)~(SP 14)";
  490. 5890 LPRINT "~(PDC 15)~(SP 15)";
  491. 5900 LPRINT "~(IPB)~(CPB)~m~(RIM 4;4;4;4)
  492. 5910 '
  493. 5920 '
  494. 5930 '
  495. 5940 LPRINT
  496. 5950 LPRINT "~M";
  497. 5960 LPRINT "~(MAG 0;5;8)ññ~(PDC 48)";
  498. 5970 LPRINT "~(MAG 0;5;6)ñσ~(PDC 48)";
  499. 5980 LPRINT "~(MAG 0;5;4)¿t~(PDC 48)";
  500. 5990 LPRINT "~(MAG 0;5;2)▓╬";
  501. 6000 LPRINT "~m"
  502. 6010 '
  503. 6020 LPRINT "~F
  504. 6030 '
  505. 6040 LPRINT "~>~(SUP '╢Wñj';3;35;35,100)~^
  506. 6050 '
  507. 6060 LPRINT "~F
  508. 6070 '
  509. 6080 LPRINT "~(mag 0;3;3)~M
  510. 6090 LPRINT "~(REVERSE 41)│]⌐w~R║⌠⌐│Ñ╒ªr~r
  511. 6100 LPRINT
  512. 6110 LPRINT "~(REVERSE 34)│]⌐w~Q║⌠⌐│╢┬ªr~q
  513. 6120 LPRINT "~(REVERSE 35)    ~QªCªLÑ\»α~q~m
  514. 6130 '
  515. 6140 '
  516. 6150 '
  517. 6160 LPRINT
  518. 6170 LPRINT
  519. 6180 LPRINT "~(TS 0;0;0;0)~D~ZA~d~z~T2~t~D~Z + B~d~z~T2~t~d~z
  520. 6190 LPRINT
  521. 6200 LPRINT "~(ñW╝╨ 4;4;4;4)~(ªr╢Z 10;10;1;1)";
  522. 6210 LPRINT "~D~Z(A+B)~d~z~T2~D~Z~t= A~d~z~T2~D~Z~t+ 2AB + B~d~z~T2
  523. 6220 LPRINT
  524. 6230 LPRINT "~(ñU╝╨ 30;30;1;1)~(ªr╢Z 10;10;1;1)";
  525. 6240 LPRINT "~D~Z2H~d~z~V2~D~Z~v + O~d~z~V2~D~Z~t = 2H~d~z~V2~D~Z~vO~d~z
  526. 6250 LPRINT "~(RIM 4;4;4;4)
  527. 6260 LPRINT
  528. 6270 LPRINT "~M";
  529. 6280 LPRINT "~(MAG 3;3;3)╗⌠";
  530. 6290 LPRINT "~(MAG 3;3;4)└Y";
  531. 6300 LPRINT "~(MAG 3;3;5)ªí";
  532. 6310 LPRINT "~(MAG 3;3;6)Ñ¡";
  533. 6320 LPRINT "~(MAG 3;3;7)╡Ñ";
  534. 6330 LPRINT "~(MAG 3;3;6)Ñ¡";
  535. 6340 LPRINT "~(MAG 3;3;5)ªí";
  536. 6350 LPRINT "~(MAG 3;3;4)└Y";
  537. 6360 LPRINT "~(MAG 3;3;3)╗⌠";
  538. 6370 LPRINT "~m"
  539. 6380 LPRINT
  540. 6390 LPRINT "~U~M~(UNDER 1;5;5)";
  541. 6400 LPRINT "~(RIM 100;10;1;1)~(MAG 3;3;3)Ñ▀";
  542. 6410 LPRINT "~(RIM  75;10;1;1)~(MAG 3;3;4)¿¼";
  543. 6420 LPRINT "~(RIM  50;10;1;1)~(MAG 3;3;5)┬I";
  544. 6430 LPRINT "~(RIM  25;10;1;1)~(MAG 3;3;6)Ñ¡";
  545. 6440 LPRINT "~(RIM   0;10;1;1)~(MAG 3;3;7)╡Ñ";
  546. 6450 LPRINT "~(RIM  25;10;1;1)~(MAG 3;3;6)Ñ¡";
  547. 6460 LPRINT "~(RIM  50;10;1;1)~(MAG 3;3;5)┬I";
  548. 6470 LPRINT "~(RIM  75;10;1;1)~(MAG 3;3;4)¿¼";
  549. 6480 LPRINT "~(RIM 100;10;1;1)~(MAG 3;3;3)Ñ▀";
  550. 6490 LPRINT "~m~u~(RIM 4;4;4;4)"
  551. 6500 '
  552. 6510 '
  553. 6520 '
  554. 6530 LPRINT
  555. 6540 LPRINT
  556. 6550 LPRINT "~(RIM 4;4;6;6)~(UND 0;2;4)
  557. 6560 LPRINT "│o¼O~U~D~ZñW├Σ╜u~u~d~z
  558. 6570 LPRINT
  559. 6580 LPRINT "~(UND 1;2;4)
  560. 6590 LPRINT "│╠▒`Ñ╬¬║¼O~U~D~ZñU├Σ╜u~u~d~z
  561. 6600 LPRINT
  562. 6610 LPRINT "~(UND 2;2;4)
  563. 6620 LPRINT "ÑiÑ╬¿╙╝╨Ñ▄«╤ªW⌐╬ñHªW¬║ ~D~Z~UѬ~u~d~z
  564. 6630 LPRINT "                       ~D~Z~U├Σ~u~d~z
  565. 6640 LPRINT "                       ~D~Z~U╜u~u~d~z
  566. 6650 LPRINT
  567. 6660 LPRINT "~(UND 3;2;4)
  568. 6670 LPRINT "┴┘ª│~D~Z~UÑk~u~z~d¿╙╕╔Ѭ├Σ╜u¬║ñú¿¼
  569. 6680 LPRINT "    ~D~Z~U├Σ~u~z~d
  570. 6690 LPRINT "    ~D~Z~U╜u~u~z~d
  571. 6700 LPRINT "~(RIM 4;4;4;4)
  572. 6710 '
  573. 6720 '
  574. 6730 '
  575. 6740 LPRINT "~(pbw)~(RIM 4;4;1;1)~F"
  576. 6750 '
  577. 6760 '
  578. 6770 '
  579. 6780 CLS : END
  580. 
  581.