home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 January / 64er_Magazin_87-01_1987_Markt__Technik_de.d64 / pinboardmaker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  4.8 KB  |  229 lines
  1. 100 poke55,8192and255
  2. 110 poke56,8192/256:clr
  3. 120 print"[147]einen moment......."
  4. 130 fort=49156to49454:reada$
  5. 140 c1=asc(left$(a$,1))
  6. 150 c2=asc(right$(a$,1))
  7. 160 ifc2<59thenz=c2-48:goto180
  8. 170 z=c2-55
  9. 180 ifc1<59thenz=z+16*(c1-48):goto200
  10. 190 z=z+16*(c1-55)
  11. 200 poket,z
  12. 210 next
  13. 220 dimf$(16):f$(16)=" ":open4,4
  14. 230 dimf(16):dimy$(16)
  15. 240 y$(0)="schwarz    "
  16. 250 y$(1)="weiss      "
  17. 260 y$(2)="rot        "
  18. 270 y$(3)="tuerkies   "
  19. 280 y$(4)="violett    "
  20. 290 y$(5)="gruen      "
  21. 300 y$(6)="blau       "
  22. 310 y$(7)="gelb       "
  23. 320 y$(8)="orange     "
  24. 330 y$(9)="braun      "
  25. 340 y$(10)="rosa       "
  26. 350 y$(11)="dunkelbraun"
  27. 360 y$(12)="mittelgrau "
  28. 370 y$(13)="hellgruen  "
  29. 380 y$(14)="hellblau   "
  30. 390 y$(15)="hellgrau   "
  31. 400 y$(16)="hintergrund"
  32. 410 fort=0to79:pw$=pw$+" ":mm$=mm$+"-":next
  33. 420 fort=0to15:f$(t)=chr$(t+65):next
  34. 430 rem hauptmenue
  35. 440 print"[147]    *** pinboardmaker ***"
  36. 450 print"einstellungen (f1)"
  37. 460 print"pic load (f3)"
  38. 470 print"pic zeigen (f5)"
  39. 480 print"druck (f7)"
  40. 490 geta$:ifa$=""then490
  41. 500 ifa$="[133]"thengoto 550
  42. 510 ifa$="[134]"thengoto 720
  43. 520 ifa$="[135]"thengoto 1370
  44. 530 ifa$="[136]"thengoto 1510
  45. 540 goto 490
  46. 550 rem einstellungen
  47. 560 print"[147]        **** pinboardgroesse ****"
  48. 570 print"breite"
  49. 580 input"40cm *";br
  50. 590 ifbr>10orbr=7orbr=9thenprint"nicht moeglich!!!!!":goto580
  51. 600 print"laenge"
  52. 610 input"84cm *";la
  53. 620 print"breite * laenge => ";br*40;"cm * ";la*84;"cm"
  54. 630 input"ok (j/n)";q$
  55. 640 ifq$="n"then560
  56. 650 input"farbeneinstellung ok (j/n)";q$
  57. 660 ifq$="j"thengoto440
  58. 670 print"[147]         **** chr$ => farben ****"
  59. 680 fort=0to16:l$=f$(t):printy$(t),f$(t);:input"[157][157][157][157][157]=>";f$(t)
  60. 690 iflen(f$(t))<>1thenprint"illegal !!!!":f$(t)=l$:t=t-1
  61. 700 next
  62. 710 goto440
  63. 720 print"[147] ***** pic load *****"
  64. 730 print"koala painter   (1)"
  65. 740 print"blazing paddles (2)"
  66. 750 print"paint magic     (3)"
  67. 760 print"$2000           (4)"
  68. 770 input"ihre wahl ";w2
  69. 780 input"progammname ";pn$
  70. 790 on w2 goto800,1000,1200,1360
  71. 800 pn$="[129]pic ? "+pn$+"               "
  72. 810 gosub 1170
  73. 820 poke780,15
  74. 830 poke781,0
  75. 840 poke782,4
  76. 850 sys 65469
  77. 860 poke780,0
  78. 870 poke781,8
  79. 880 poke782,0
  80. 890 sys 65466
  81. 900 poke780,0
  82. 910 poke781,0
  83. 920 poke782,32
  84. 930 sys65493
  85. 940 if(peek(783)and1)<>0thenprint"diskettenfehler !!!":goto780
  86. 950 s=0
  87. 960 print"[147]einen moment...."
  88. 970 fort=1024to0step-1:poke17408+t,peek(17192+t):next
  89. 980 fort=1024to0step-1:poke16384+t,peek(16192+t):next
  90. 990 goto440
  91. 1000 pn$="pi."+pn$
  92. 1010 gosub1170
  93. 1020 s=0
  94. 1030 poke780,len(pn$)
  95. 1040 poke781,0
  96. 1050 poke782,4
  97. 1060 sys 65469
  98. 1070 poke780,0
  99. 1080 poke781,8
  100. 1090 poke782,0
  101. 1100 sys 65466
  102. 1110 poke780,0
  103. 1120 poke781,0
  104. 1130 poke782,32
  105. 1140 sys65493
  106. 1150 if(peek(783)and1)<>0thenprint"diskettenfehler !!!":goto780
  107. 1160 goto440
  108. 1170 fort=0to(len(pn$)-1)
  109. 1180 poke1024+t,asc(mid$(pn$,t+1,1))
  110. 1190 nextt:return
  111. 1200 gosub1170
  112. 1210 s=2
  113. 1220 poke780,len(pn$)
  114. 1230 poke781,0
  115. 1240 poke782,4
  116. 1250 sys 65469
  117. 1260 poke780,0
  118. 1270 poke781,8
  119. 1280 poke782,0
  120. 1290 sys 65466
  121. 1300 poke780,0
  122. 1310 poke781,142
  123. 1320 poke782,31
  124. 1330 sys65493
  125. 1340 if(peek(783)and1)<>0thenprint"diskettenfehler !!!":goto780
  126. 1350 goto440
  127. 1360 s=3:gosub1170:goto1030
  128. 1370 poke53281,1
  129. 1380 poke53265,59
  130. 1390 poke53272,peek(53272)or8
  131. 1400 ifs=0thenpoke53270,216
  132. 1410 ifs=2thenpoke53270,216:print"[147]":goto1440
  133. 1420 ifs=3thenpoke53270,200:print"[147]":goto1450
  134. 1430 fort=17408to18427:poke55296+p,peek(t):p=p+1:next
  135. 1440 fort=16384to17403:poke1024+y,peek(t):y=y+1:next
  136. 1450 getq$:ifq$=""then1450
  137. 1460 poke53281,240
  138. 1470 poke53265,27
  139. 1480 poke53270,200
  140. 1490 poke53272,peek(53272)and247
  141. 1500 goto440
  142. 1510 ifbr=0orla=0then550
  143. 1520 ifs=3thengoto1730
  144. 1530 forl1=0tobr*2-1:print#4,mm$
  145. 1540 fory=0to199
  146. 1550 forl2=0to80/br-1
  147. 1560 x=int(l1*80/br+l2)
  148. 1570 poke49152,y
  149. 1580 poke49153,x
  150. 1590 sys49348:r=peek(49155):f(r)=f(r)+1
  151. 1600 forl3=1tobr
  152. 1610 p$=p$+f$(r)
  153. 1620 next:next
  154. 1630 iflen(p$)<80thenp$=p$+" ":goto1630
  155. 1640 xa=la+1
  156. 1650 xa=xa-1:ifxa=0thenp$="":goto1690
  157. 1660 ifp$=pw$thenprint#4:goto1650
  158. 1670 print#4,p$
  159. 1680 goto1650
  160. 1690 next
  161. 1700 print#4,mm$:print#4:print#4:print#4:print#4:print#4
  162. 1710 next
  163. 1720 goto1960
  164. 1730 ifbr/2<>int(br/2)thenprint"bitte neue breite eingeben !!!":goto 570
  165. 1740 forl1=0tobr*2-1:print#4,mm$
  166. 1750 fory=0to199
  167. 1760 forl2=0to160/br-1
  168. 1770 x=int(l1*160/br+l2)
  169. 1780 poke49152,y
  170. 1790 ifx>=256thenpoke49153,x-256:poke49154,1:goto1810
  171. 1800 poke49153,x:poke49154,0
  172. 1810 sys49326:r=peek(49155)
  173. 1820 ifr<>16thenr=0
  174. 1830 f(r)=f(r)+1
  175. 1840 forl3=1tobr/2
  176. 1850 p$=p$+f$(r)
  177. 1860 next:next
  178. 1870 iflen(p$)<80thenp$=p$+" ":goto1870
  179. 1880 xa=la+1
  180. 1890 xa=xa-1:ifxa=0thenp$="":goto1930
  181. 1900 ifp$=pw$thenprint#4:goto1890
  182. 1910 print#4,p$
  183. 1920 goto1890
  184. 1930 next
  185. 1940 print#4,mm$:print#4:print#4:print#4:print#4:print#4
  186. 1950 next
  187. 1960 print#4,"sie benoetigen:"
  188. 1970 ifs=3thenbr=br/2
  189. 1980 fort=0to16:print#4,"chr=>";f$(t);"  ";f(t)*br*la*0.014;"gramm ";y$(t):next
  190. 1990 clr:goto220
  191. 2000 dataa9,00,85,fb,a9,20,85,fc
  192. 2010 dataad,00,c0,29,f8,48,4a,4a
  193. 2020 data4a,85,fe,4a,4a,18,65,fe
  194. 2030 data85,fe,68,48,0a,0a,0a,85
  195. 2040 datafd,0a,0a,18,65,fd,85,fd
  196. 2050 dataa5,fe,69,00,85,fe,18,a5
  197. 2060 datafb,65,fd,85,fb,a5,fc,65
  198. 2070 datafe,85,fc,a9,00,85,fe,68
  199. 2080 data85,fd,ad,00,c0,38,e5,fd
  200. 2090 data85,fd,ad,01,c0,29,f8,18
  201. 2100 data65,fd,85,fd,a5,fe,6d,02
  202. 2110 datac0,85,fe,18,a5,fb,65,fd
  203. 2120 data85,fb,a5,fc,65,fe,85,fc
  204. 2130 dataad,01,c0,29,f8,85,fe,ad
  205. 2140 data01,c0,38,e5,fe,aa,a9,80
  206. 2150 datae0,00,f0,05,4a,ca,4c,7c
  207. 2160 datac0,85,fe,b1,fb,25,fe,c9
  208. 2170 data00,f0,02,38,60,18,60,38
  209. 2180 dataa5,fc,e9,20,85,fc,a2,03
  210. 2190 data18,66,fc,66,fb,ca,e0,00
  211. 2200 datad0,f6,18,a5,fc,69,40,85
  212. 2210 datafc,60,20,04,c0,90,0b,20
  213. 2220 data93,c0,a0,00,b1,fb,8d,03
  214. 2230 datac0,60,a9,10,8d,03,c0,60
  215. 2240 dataad,01,c0,0a,8d,01,c0,90
  216. 2250 data08,a9,01,8d,02,c0,4c,da
  217. 2260 datac0,a9,00,8d,02,c0,20,04
  218. 2270 datac0,b0,22,ad,01,c0,09,01
  219. 2280 data8d,01,c0,20,04,c0,90,0f
  220. 2290 data20,93,c0,a0,00,b1,fb,4a
  221. 2300 data4a,4a,4a,8d,03,c0,60,a9
  222. 2310 data10,8d,03,c0,60,ad,01,c0
  223. 2320 data09,01,8d,01,c0,20,04,c0
  224. 2330 datab0,0d,20,93,c0,a0,00,b1
  225. 2340 datafb,29,0f,8d,03,c0,60,20
  226. 2350 data93,c0,a5,fc,18,69,04,85
  227. 2360 datafc,a0,00,b1,fb,29,0f,8d
  228. 2370 data03,c0,60
  229.