home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8605.d64 / hc1520 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  235 lines

  1. 10 REM ********************************
  2. 15 REM *                              *
  3. 20 REM *  MULTICOLOR  HIRESHARDCOPY   *
  4. 25 REM *                              *
  5. 30 REM *    FUER  C= 1520  PLOTTER    *
  6. 35 REM *                              *
  7. 40 REM *     ASCOMPILER QUELLCODE     *
  8. 45 REM *                              *
  9. 50 REM *  EMPFOHLENER SPEICHERBEREICH *
  10. 55 REM *          AB $ 8000           *
  11. 60 REM *                              *
  12. 65 REM *   (C) KARL-HEINZ TIMMERBEIL  *
  13. 70 REM *                              *
  14. 75 REM *          21.01.1986          *
  15. 80 REM *                              *
  16. 85 REM ********************************
  17. 90 REM
  18. 100 GOSUB 4000
  19. 105 GOSUB 2000
  20. 110 GOSUB 3000
  21. 120 SYS 36864
  22. 130 SYS 36881
  23. 140 LET A = 8192
  24. 150 LET B = 0
  25. 160 LET C = 0
  26. 170 LET F = 0
  27. 180 LET D = 48 + F
  28. 190 POKE 37031,D
  29. 200 LET N = PEEK(37077)
  30. 210 POKE 37066,N
  31. 220 LET N = PEEK(37078)
  32. 230 POKE 37067,N
  33. 240 LET N = PEEK(37079)
  34. 250 POKE 37068,N
  35. 260 SYS 37039
  36. 270 SYS 37025
  37. 280 LET D = B * 8
  38. 290 LET S = D + C
  39. 300 LET L = 0
  40. 310 LET Y = A
  41. 320 LET D = B * 320
  42. 330 LET Y = Y + D
  43. 340 LET D = 8 * L
  44. 350 LET Y = Y + D
  45. 360 LET Y = Y + C
  46. 370 LET X = PEEK(Y)
  47. 380 LET R = 0
  48. 390 LET I = 0
  49. 400 LET V = X AND 128
  50. 410 LET W = X AND 64
  51. 420 IF V = 0 THEN 440
  52. 430 LET R = 2
  53. 440 IF W = 0 THEN 460
  54. 450 LET R = R + 1
  55. 460 GOSUB 1000
  56. 470 LET X = PEEK(Y)
  57. 480 LET R = 0
  58. 490 LET I = 1
  59. 500 LET V = X AND 32
  60. 510 LET W = X AND 16
  61. 520 IF V = 0 THEN 540
  62. 530 LET R = 2
  63. 540 IF W = 0 THEN 560
  64. 550 LET R = R + 1
  65. 560 GOSUB 1000
  66. 570 LET X = PEEK(Y)
  67. 580 LET R = 0
  68. 590 LET I = 2
  69. 600 LET V = X AND 8
  70. 610 LET W = X AND 4
  71. 620 IF V = 0 THEN 640
  72. 630 LET R = 2
  73. 640 IF W = 0 THEN 660
  74. 650 LET R = R + 1
  75. 660 GOSUB 1000
  76. 670 LET X = PEEK(Y)
  77. 680 LET R = 0
  78. 690 LET I = 3
  79. 700 LET V = X AND 2
  80. 710 LET W = X AND 1
  81. 720 IF V = 0 THEN 740
  82. 730 LET R = 2
  83. 740 IF W = 0 THEN 760
  84. 750 LET R = R + 1
  85. 760 GOSUB 1000
  86. 770 LET L = L + 1
  87. 780 IF L < 40 THEN 310
  88. 790 LET F = F + 1
  89. 800 IF F < 4 THEN 180
  90. 810 LET C = C + 1
  91. 820 IF C < 8 THEN 170
  92. 830 LET B = B + 1
  93. 840 IF B < 25 THEN 160
  94. 850 SYS 36894
  95. 860 SYS 36900
  96. 870 POKE 53265,27
  97. 880 POKE 53270,200
  98. 890 POKE 53272,21
  99. 900 POKE 53280,245
  100. 910 POKE 53281,247
  101. 920 PRINT"[147] FERTIG"
  102. 930 END
  103. 1000 IF F = R THEN 1020
  104. 1010 RETURN
  105. 1020 LET O = S * 2
  106. 1030 LET Q = L * 4
  107. 1040 LET Q = Q + I
  108. 1050 LET Q = Q * 3
  109. 1060 IF Q = 0 THEN 1080
  110. 1070 LET Q = Q - 2
  111. 1080 LET M = Q
  112. 1090 GOSUB 1200
  113. 1100 POKE 37072,T
  114. 1110 POKE 37073,U
  115. 1120 POKE 37074,P
  116. 1130 LET M = O
  117. 1140 GOSUB 1200
  118. 1150 POKE 37077,T
  119. 1160 POKE 37078,U
  120. 1170 POKE 37079,P
  121. 1180 SYS 36913
  122. 1190 RETURN
  123. 1200 LET H = 100
  124. 1210 GOSUB 1300
  125. 1220 LET T = N
  126. 1230 LET H = 10
  127. 1240 GOSUB 1300
  128. 1250 LET U = N
  129. 1260 LET H = 1
  130. 1270 GOSUB1300
  131. 1280 LET P = N
  132. 1290 RETURN
  133. 1300 LET N = 48
  134. 1310 IF M < H THEN 1350
  135. 1320 LET M = M - H
  136. 1330 LET N = N + 1
  137. 1340 GOTO 1310
  138. 1350 RETURN
  139. 2000 PRINT"[147]"
  140. 2010 PRINT",KJ,AA,IF,LH,KJ,AB,KC,AG,KA,AB,CA,LK,PP,CA,MA,PP,GA,KJ,AA,IF,LH,KJ"
  141. 2020 PRINT",AC,KC,AG,KA,AC,EM,AK,JA,KJ,AB,CA,MD,PP,GA,KJ,AC,EM,CA,JA,KC,AB,CA"
  142. 2030 PRINT",MJ,PP,KC,AA,GA,CA,CJ,JA,LN,MO,JA,CA,NC,PP,OI,OA,AK,NA,PF,KC,AB,CA"
  143. 2040 PRINT",MJ,PP,KJ,EJ,CA,NC,PP,CA,CJ,JA,LN,OC,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA"
  144. 2050 PRINT",CJ,JA,LN,NN,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA,CJ,JA,LN,NI,JA,CA,NC,PP"
  145. 2060 PRINT",OI,OA,AF,NA,PF,CA,CJ,JA,LN,OH,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA,CJ,JA"
  146. 2070 PRINT",LN,MA,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA,CJ,JA,LN,OC,JA,CA,NC,PP,OI,OA"
  147. 2080 PRINT",AF,NA,PF,CA,MM,PP,GA,KC,AC,CA,MJ,PP,KJ,DA,CA,NC,PP,CA,MM,PP,GA,CA"
  148. 2090 PRINT",CJ,JA,LN,MF,JA,CA,NC,PP,OI,OA,AI,NA,PF,EM,JN,JA,EK,CM,DC,CM,DC,EN"
  149. 2100 PRINT",CM,DA,CM,CN,DA,DA,DA,PP,EN,CM,DA,DA,DA,CM,CN,DA,DA,DA,EK,CM,DA,CM"
  150. 2110 PRINT",DC,EK,CM,DD,CM,DC,EK,CM,DD,CM,DA,EK,CM,DB,CM,DA,AA"
  151. 2120 LET M = 36864
  152. 2130 LET N = 1064
  153. 2140 LET R = 0
  154. 2150 LET Q = 0
  155. 2160 LET O = PEEK(N)
  156. 2170 LET R = R + 1
  157. 2180 IF O = 44 THEN 2210
  158. 2190 LET N = N + 1
  159. 2200 GOTO 2160
  160. 2210 LET N = N + 1
  161. 2220 LET O = PEEK(N)
  162. 2230 LET O = O - 1
  163. 2240 LET O = O * 16
  164. 2250 LET N = N + 1
  165. 2260 LET P = PEEK(N)
  166. 2270 LET P = P - 1
  167. 2280 LET O = O + P
  168. 2290 POKE M , O
  169. 2300 LET Q = Q + O
  170. 2310 LET M = M + 1
  171. 2320 IF M = 37101 THEN 2340
  172. 2330 GOTO 2160
  173. 2340 IF R = 613 THEN 2360
  174. 2350 GOTO 2370
  175. 2360 IF Q = 29506 THEN 2390
  176. 2370 PRINT"[147]EINGABEFEHLER IN PRINTZEILEN 2010 - 2110"
  177. 2380 END
  178. 2390 RETURN
  179. 3000 PRINT"[147]"
  180. 3010 LET N = 1024
  181. 3020 POKE N , 101
  182. 3030 LET N = N + 1
  183. 3040 IF N = 2024 THEN 3060
  184. 3050 GOTO 3020
  185. 3060 LET N = 55296
  186. 3070 POKE N , 2
  187. 3080 LET N = N + 1
  188. 3090 IF N = 56296 THEN 3110
  189. 3100 GOTO 3070
  190. 3110 POKE 53280 , 1
  191. 3120 POKE 53281 , 0
  192. 3130 POKE 53265 , 187
  193. 3140 POKE 53270 , 216
  194. 3150 POKE 53272 , 29
  195. 3160 RETURN
  196. 4000 PRINT"[147]"
  197. 4010 PRINT"BITTE STARTADRESSE DES"
  198. 4020 PRINT"FARBHIRESBILDES EINGEBEN"
  199. 4030 PRINT"< 2 >  = $ 2000  ( #  8192 )"
  200. 4040 PRINT"< 4 >  = $ 4000  ( # 16384 )"
  201. 4050 PRINT"< 6 >  = $ 6000  ( # 24576 )"
  202. 4060 PRINT"< A >  = $ A000  ( # 40960 )"
  203. 4070 PRINT"< E >  = $ E000  ( # 57344 )"
  204. 4080 POKE 198,0
  205. 4090 LET B = PEEK (198)
  206. 4100 IF B = 0 THEN 4090
  207. 4110 LET B = PEEK (631)
  208. 4120 POKE198,0
  209. 4130 IF B = 50 THEN 4190
  210. 4140 IF B = 52 THEN 4200
  211. 4150 IF B = 54 THEN 4220
  212. 4160 IF B = 65 THEN 4240
  213. 4170 IF B = 69 THEN 4260
  214. 4180 GOTO 4080
  215. 4190 RETURN
  216. 4200 LET B = 16384
  217. 4210 GOTO 4280
  218. 4220 LET B = 24576
  219. 4230 GOTO 4280
  220. 4240 LET B = 40960
  221. 4250 GOTO 4280
  222. 4260 LET B = 57344
  223. 4270 GOTO 4280
  224. 4280 LET A = 8192
  225. 4290 POKE 56334,0
  226. 4300 POKE 1,53
  227. 4310 LET C = PEEK(B)
  228. 4320 POKE A , C
  229. 4330 LET A = A + 1
  230. 4340 LET B = B + 1
  231. 4350 IF A < 16384 THEN 4310
  232. 4360 POKE 1,55
  233. 4370 POKE56334,1
  234. 4380 RETURN
  235.