home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 67 / Digital_Talk_67_2004-06-30_Digital_Talk_de_Side_B.d64 / !hiresbilder03 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  14KB  |  345 lines
  1. 2 qa=peek(821):onqagoto6,8:print"[147]":poke1020,10
  2. 3 printtab(11)"- hiresbilder 03 -"
  3. 4 print"[154] bitte warten -- dateien werden geladen"
  4. 5 poke821,1:load"tramysalon01",8,1
  5. 6 poke821,2:load"hiresgrafik03",8,1
  6. 8 print"[147]":poke53280,peek(1020):poke53281,11:poke646,7:gosub11:goto110
  7. 9 qp=27:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
  8. 11 q$="hiresbilder":qv$="03":qt$=q$+qv$:qd$="210404":return
  9. 12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
  10. 18 gosub12:print"   g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
  11. 61 cy=int(c/100):cx=c-(cy*100)
  12. 62 poke211,cx:poke214,cy:sys58640:return
  13. 68 lc=int(l/100):ll=l-(lc*100)
  14. 69 foru=lctoll:poke781,u:sys59903:next:return
  15. 110 gosub9002:c=804:gosub61:print"[155]bitte bitmap-bereich auswaehlen:"
  16. 122 printtab(12)"0[155]  = 57344-65343":printtab(12)"1[155]  = 24576-32575"
  17. 124 r$="":getr$:ifr$=""then124
  18. 126 br=val(r$):ifbr<0orbr>1then124
  19. 128 c=1705:gosub61:print"[155]der bereich [158]"br"[155] wurde gewaehlt"
  20. 132 poke51151,br:poke51146,2:poke51144,120:poke51148,92:poke51150,96
  21. 146 sys50465,br:gosub9102:on-(br=1)goto150:gosub9994:goto110
  22. 150 fr=peek(1020):gosub9002
  23. 152 print"[155]z[155]eichnen / a[155]usgabe / h[155]ilfe / e[155]nde?"
  24. 153 r$="":getr$:ifr$=""then153
  25. 154 on-(r$="z")-2*(r$="a")-3*(r$="h")-4*(r$="e")goto9222,202,159,9332:goto150
  26. 159 hs=1:goto9702
  27. 162 poke53280,fr:gosub982:goto282
  28. 172 poke56322,224:jt=peek(56320):poke56322,255
  29. 182 r$="":getr$:return
  30. 202 l=824:gosub68:c=804:gosub61:print"[153]ausgabe auf bildschirm oder disk"
  31. 204 printtab(7)"[155]grafik erst laden?   <j[155]/n[155]>":ps=2
  32. 205 r$="":getr$:ifr$=""then205
  33. 206 on-(r$="j")-2*(r$="n")goto228,212:goto205
  34. 212 printtab(5)"ausgabe auf b[155]ildschirm / d[155]isk?":fr=peek(1020)
  35. 214 r$="":getr$:ifr$=""then214
  36. 216 on-(r$="b")-2*(r$="d")goto162,9262:goto214
  37. 222 gosub9242:on-(r$="l")-2*(r$="g")goto228,341
  38. 228 gosub9302:on-(en<>0)-2*(ps>1)goto222,162
  39. 234 x=0:y=0:x1=0:y1=0:zs=50:goto341
  40. 242 fr=(peek(53280)and15):poke24552,fr:gosub9202
  41. 258 printtab(7)"[153]daten  werden gespeichert![155]":ba=23552:be=32576
  42. 262 poke646,peek(53281):sys49489,pr$,ba,be:en=0
  43. 266 gosub9902:on-(en=63andr$="j")goto258:goto150
  44. 282 r$="":getr$:ifr$=""then282
  45. 284 on-(r$=" ")-2*(r$="s")goto287,288:goto282
  46. 287 gosub992:goto150
  47. 288 gosub992:goto9262
  48. 302 print"[153]bitte zunaechst farben festlegen":gg=15
  49. 304 printtab(8)"[155]rahmen      (0-15): ":printtab(8)"[155]hintergrund (0-15): "
  50. 306 printtab(8)"[155]punktfarbe  (0-15): "
  51. 310 c=1430:gosub61:gosub9212:fr=gf:c=1429:iffr<10thenc=c+1
  52. 316 gosub61:print"[158]"fr:poke1020,fr
  53. 320 c=1630:gosub61:gosub9212:gd=gf:c=1629:ifgd<10thenc=c+1
  54. 326 gosub61:print"[158]"gd
  55. 330 c=1830:gosub61:gosub9212:pt=gf:c=1829:ifpt<10thenc=c+1
  56. 336 gosub61:print"[158]"pt
  57. 341 l=724:gosub68:c=1100:gosub61:pa=0
  58. 342 print"p[155]unkte bearbeiten / l[155]inien ziehen?":print"r[155]echtecke ";
  59. 343 print" /  k[155]reise/ellipsen?":printtab(8)"e[155]inzelheiten veraendern?"
  60. 345 r$="":getr$:ifr$=""then345
  61. 346 ifr$="p"thenpl=0:goto362
  62. 348 ifr$="l"thenpl=1:goto362
  63. 350 ifr$="r"thenpl=2:goto362
  64. 352 ifr$="k"thenpl=3:goto362
  65. 354 ifr$="e"thenpl=4:goto374
  66. 356 goto345
  67. 362 fr=peek(1020):poke53280,fr:poke24552,fr:gosub982:on-(ps>0)goto371
  68. 365 poke2,gd:poke781,pt:sys50507:sys49402,24576,32575,0
  69. 371 gosub482:gosub496
  70. 374 gosub172:onpagoto381:on-(jt=111)goto476
  71. 381 on-(jt=117)-2*(jt=118)-3*(jt=119)-4*(jt=121)goto466,462,448,456
  72. 385 on-(jt=122)-2*(jt=123)-3*(jt=125)-4*(jt=126)goto452,446,444,442
  73. 389 on-(r$=" ")-2*(r$="s")goto486,398:onpagoto471
  74. 392 onplgoto393,402,412,652,422:goto374
  75. 393 on-(r$="a")-2*(r$="e")goto504,512:goto374
  76. 398 gosub992:goto9262
  77. 399 gosub992:goto150
  78. 402 on-(r$="o")-2*(r$="u")goto542,546:goto374
  79. 412 on-(r$="m")-2*(r$="h")-3*(r$="v")-4*(r$="g")goto562,566,572,602:goto374
  80. 422 on-(r$="n")-2*(r$="a")gosub762,766:goto374
  81. 442 y1=y1-1:ify1<0theny1=0
  82. 443 goto486
  83. 444 y1=y1+1:ify1>199theny1=199
  84. 445 goto486
  85. 446 x1=x1-1:ifx1<0thenx1=0
  86. 447 goto486
  87. 448 x1=x1+1:ifx1>319thenx1=319
  88. 449 goto486
  89. 452 x1=x1-8:y1=y1-8:ifx1<0thenx1=0
  90. 454 ify1<0theny1=0
  91. 455 goto486
  92. 456 x1=x1-8:y1=y1+8:ifx1<0thenx1=0
  93. 458 ify1>199theny1=199
  94. 459 goto486
  95. 462 x1=x1+8:y1=y1-8:ifx1>319thenx1=319
  96. 464 ify1<0theny1=0
  97. 465 goto486
  98. 466 x1=x1+8:y1=y1+8:ifx1>319thenx1=319
  99. 468 ify1>199theny1=199
  100. 469 goto486
  101. 471 on-(r$="z")-2*(r$="l")goto473,474:goto374
  102. 473 onplgoto522,552,582
  103. 474 onplgoto526,553,583
  104. 476 ifpz=0thenpz=1:goto478
  105. 477 ifpz=1thenpz=0
  106. 478 pa=1:goto374
  107. 482 sys50661,x,y:pz=peek(251):return
  108. 486 gosub492
  109. 487 x=x1:y=y1:pa=0:on-(r$=" ")goto399:goto371
  110. 492 ifpz=0thenzm=1:goto494
  111. 493 ifpz=1thenzm=0
  112. 494 goto497
  113. 496 zm=2
  114. 497 sys50625,x,y,zm:return
  115. 504 xa=x:ya=y:goto476
  116. 512 x2=x:y2=y:x1=xa:y1=ya:goto476
  117. 522 zm=0:goto530
  118. 526 zm=1
  119. 530 sys50688,x1,y1,x2,y2,zm:xa=x2:ya=y2:x1=x2:y1=y2:goto487
  120. 542 lx=x:ly=y:goto476
  121. 546 rx=x:ry=y:goto476
  122. 552 zm=0:goto554
  123. 553 zm=1
  124. 554 sys50688,lx,ly,rx,ly,zm:sys50688,rx,ly,rx,ry,zm
  125. 556 sys50688,lx,ry,rx,ry,zm:sys50688,lx,ly,lx,ry,zm
  126. 558 x1=rx:y1=ry:goto487
  127. 562 xm=x:ym=y:goto476
  128. 566 hr=abs(xm-x):goto476
  129. 572 vr=abs(ym-y):goto476
  130. 582 zm=0:goto584
  131. 583 zm=1
  132. 584 forwg=b1tob2:wb=wg*3.14/180:x=xm+hr*cos(wb):y=ym+vr*sin(wb)
  133. 588 sys50625,x,y,zm:nextwg:x1=xm:y1=ym:goto487
  134. 602 gosub992:gosub9002:l=724:gosub68:c=700:gosub61
  135. 614 print"[155]angabe der zeichnungs-bogengrade":printtab(18)"270"
  136. 618 printtab(15)"180   360":printtab(22)"1":printtab(18)"90"
  137. 624 printtab(7)"bogenanfang  (1-359)":printtab(7)"bogenende    (2-360)"
  138. 630 c=1730:gosub61:gg=360:gosub9212:b1=gf:c=1728:ifb1<100thenc=c+1
  139. 635 ifb1<10thenc=c+1
  140. 636 gosub61:print"[158] "b1:c=1930:gosub61:gosub9212:b2=gf:c=1928:ifb2<100thenc=c+1
  141. 644 ifb2<10thenc=c+1
  142. 645 gosub61:print"[158] "b2:gosub9102:gosub982:goto476
  143. 652 l=724:gosub68:c=809:gosub61:print"[153]einzelheiten aendern ?"
  144. 654 printtab(11)"r[155]ahmenfarbe":printtab(11)"b[155]lockfarben fuer"
  145. 656 printtab(11)"hintergrund/punkte"
  146. 660 r$="":getr$:ifr$=""then660
  147. 661 on-(r$="r")-2*(r$="b")goto671,682:goto660
  148. 671 fr=peek(1020):c=1806:gosub61:print"[155]bisherige rahmenfarbe:"
  149. 673 c=1832:iffr<10thenc=c+1
  150. 674 gosub61:print"[158]"fr:c=2006:gosub61:print"[155]neue rahmenfarbe (0-15):"
  151. 676 c=2033:gosub61:gg=15:gosub9212:fr=gf:c=2032:iffr<10thenc=c+1
  152. 678 gosub61:print"[158]"fr:poke1020,fr:pl=0:gosub9102:goto362
  153. 682 gosub702:gosub712:c=1806:gosub61
  154. 684 print"[155]alte hintergrundfarbe:":c=1832:ifha<10thenc=c+1
  155. 688 gosub61:print"[158]"ha:c=2006:gosub61:gosub722:c=1906:gosub61
  156. 692 print"[155]alte punktfarbe:":c=1932:ifpf<10thenc=c+1
  157. 696 gosub61:print"[158]"pf:c=2006:gosub61:goto732
  158. 702 xd=int(x/8):yd=int(y/8)*40:ifbr=0thenh0=52224
  159. 706 ifbr=1thenh0=23552
  160. 708 h7=h0+xd+yd:return
  161. 712 ha=(peek(h7)and15):return
  162. 722 pf=(peek(h7)and240)/16:return
  163. 732 c=2106:gosub61:print"[155]neue hg-farbe    (0-15):"
  164. 736 printtab(6)"[155]neue punkt-farbe (0-15):"
  165. 738 c=2133:gosub61:gg=15:gosub9212:hn=gf:c=2132:ifhn<10thenc=c+1
  166. 742 gosub61:print"[158]"hn:poke1021,hn:c=2233:gosub61:gg=15:gosub9212
  167. 746 pn=gf:c=2232:ifpn<10thenc=c+1
  168. 748 gosub61:print"[158]"pn:poke1022,pn
  169. 752 ba=pf*16+ha:bn=pn*16+hn:pl=5:gosub9102:goto362
  170. 762 gosub702:pokeh7,bn:return
  171. 766 gosub702:pokeh7,ba:return
  172. 982 sys50545,br:return
  173. 992 r$="":poke198,0:sys50589:poke24552,peek(1020):return
  174. 9002 print"[147][158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  175. 9004 print"[221] [153]hires-grafik-programm von kahate [158][221]"
  176. 9006 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return
  177. 9012 ts=35:ifhs<10thents=ts+1
  178. 9014 printtab(ts)"[144]"hs"[145]":return
  179. 9102 l=2424:gosub68:c=2412:gosub61:print"[158]weiter mit taste[145][145][145][145][155]"
  180. 9106 poke198,0:wait198,1:poke198,0:l=2424:gosub68:return
  181. 9122 l=2424:gosub68:c=2405:gosub61:print"z[152]urueck  h[152]auptmenue  v[152]orwaerts";
  182. 9124 print"[145][145][145][145][155]":poke198,0:wait198,1:l=2424:gosub68:return
  183. 9202 print"[155]bitte dateinamen eingeben:"
  184. 9204 print"       [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][158][145][145]":print"       ";
  185. 9206 poke19,1:inputpr$:poke19,0:print:return
  186. 9212 poke19,1:input"    [157][157][157][157]";gf$:poke19,0:print:gf=val(gf$)
  187. 9216 ifgf<0orgf>ggthengosub61:goto9212
  188. 9218 return
  189. 9222 l=724:gosub68:c=802:gosub61
  190. 9224 print"[155]bild n[155]eu zeichnen / bild v[155]eraendern?"
  191. 9226 r$="":getr$:ifr$=""then9226
  192. 9228 on-(r$="n")-2*(r$="v")goto9234,9236:goto9226
  193. 9234 ps=0:goto302
  194. 9236 ps=1:goto222
  195. 9242 l=724:gosub68:c=805:gosub61:print"[155]grafik  l[155]aden / schon g[155]eladen?"
  196. 9246 r$="":getr$:ifr$=""then9246
  197. 9248 on-(r$="l")-2*(r$="g")goto9250,9250:goto9246
  198. 9250 return
  199. 9262 l=724:gosub68:c=807:gosub61:print"[155]grafik  speichern?   <j[155]/n[155])"
  200. 9266 r$="":getr$:ifr$=""then9266
  201. 9268 on-(r$="j")-2*(r$="n")goto242,150:goto9266
  202. 9302 gosub9202:l=1024:gosub68:c=1109:gosub61:print"[153]daten werden geladen ![155]"
  203. 9306 fz=peek(646):poke646,peek(53281):ba=23552:en=0
  204. 9310 sys49676,pr$,ba:poke646,fz:gosub9902:ifen<>0then9328
  205. 9322 fr=peek(24552):poke1020,fr
  206. 9328 return
  207. 9332 l=724:gosub68:c=707:gosub61:print"[155]vor programm-ende pruefen:"
  208. 9336 printtab(7)"grafik erst noch auf disk?":printtab(14)"taste  <j[155]/n[155]>"
  209. 9340 r$="":getr$:ifr$=""then9340
  210. 9342 on+(r$="j")-2*(r$="n")goto9262,9352:goto9340
  211. 9352 l=724:gosub68: c=707:gosub61
  212. 9354 print"[153]programm wirklich beenden?":printtab(15)"j[155]a -- n[155]ein"
  213. 9360 r$="":getr$:ifr$=""then9360
  214. 9362 on-(r$="j")-2*(r$="n")goto9372,150:goto9360
  215. 9372 print"[147]":poke53280,0:c=700:gosub61:pe=10:aw=1:aw$="auf wiedersehen![145]"
  216. 9374 poke646,aw:printtab(12)aw$:fori=0to300:next:aw=aw-1:ifaw=-1thenaw=1
  217. 9380 pe=pe-1:on-(pe>0)goto9374:sys64738
  218. 9702 ifhs<1thenhs=12
  219. 9703 ifhs>12thenhs=1
  220. 9704 onhsgoto9711,9721,9731,9741,9751,9761,9771,9781,9791,9801,9811,9823
  221. 9709 gosub9994:goto150
  222. 9711 gosub9002:gosub9012:rem ---hilfe seite 1---
  223. 9712 print"[155]das programm  wurde  weitestgehend":print"selbsterklae";
  224. 9713 print"rend geschrieben.":print"vor dem einschalten  eines grafik-"
  225. 9714 print"bildschirmes  sollten jedoch  alle":print"funktionen be";
  226. 9715 print"kannt sein,  die auch":print"bei  eingeschalteter grafik  ueber"
  227. 9716 print"tasten ausgeloest werden koennen.":goto9891
  228. 9721 gosub9002:gosub9012:rem ---hilfe seite 2---
  229. 9722 print"[153]aus  der   eingeschalteten  grafik":print"fuehren wieder";
  230. 9723 print" heraus:":print"[155]<[158]space[155]>  zurueck zum hauptmenue"
  231. 9724 print"[155]  <[158]s[155]>    zum menue 'speichern'":print"ein versehent";
  232. 9725 print"licher  druck auf die":print"taste <run/stop> bewirkt, dass der"
  233. 9726 print"computer  den eindruck erweckt, er":print"waere abgestuerzt,";
  234. 9727 print"    [158]aber:   [155] -->":goto9891
  235. 9731 gosub9002:gosub9012:rem ---hilfe seite 3---
  236. 9732 print"[155]im hintergrund laeuft das programm":print"ja weiter.  nur ";
  237. 9733 print"durch das gfx-bild":print"werden keine meldungen sichtbar."
  238. 9734 print"nach einem <return> und nach blin-":print"der eingabe  von ";
  239. 9735 print" [158]goto399[155] <return>":print"erscheint wieder das hauptmenue."
  240. 9736 print"aus  dem  hauptmenue  gelangt  man":print"ueber z[155]eichnen";
  241. 9737 print" (u.weitere angaben)":print"in den gfx-screen zum editieren."
  242. 9738 print"alle  64000 punkte  sind mit einem":print"[158]joystick in port";
  243. 9739 print" 2 [155]erreichbar. -->":goto9891
  244. 9741 gosub9002:gosub9012:rem ---hilfe seite 4---
  245. 9742 print"[155]der erste  'angepeilte'  punkt des":print"gfx-bildschirms ";
  246. 9743 print"liegt links oben.":print"der punkt ist  bereits invertiert,"
  247. 9744 print"vergleichbar mit einem cursor.":print"der 'angepeilte' gra";
  248. 9745 print"fik-punkt kann":print"nun mit  dem  joystick  verschoben"
  249. 9746 print"werden  und zwar horizontal  sowie":print"auch  vertikal  je";
  250. 9747 print" um einen punkt.":print"mit  <joystick diagonal> wird auch"
  251. 9748 print"der punkt  diagonal verschoben und":print"zwar  jeweils um  ";
  252. 9749 print"8 punkte,  damit":print"bewegungen  ueber  den  bildschirm"
  253. 9750 print"etwas schneller moeglich sind. -->":goto9891
  254. 9751 gosub9002:gosub9012:rem ---hilfe seite 5---
  255. 9752 print"[155]jeder druck auf die [158]feuertaste[155] des":print"joysticks be";
  256. 9753 print"wirkt, dass der gerade":print"angefahrene punkt invertiert wird."
  257. 9754 print"mit  der  [158]feuertaste[155]  werden  also":print"einzelne  punk";
  258. 9755 print"te  gesetzt und auch":print"bereits gesetzte gfx-punkte wieder"
  259. 9756 print"geloescht.":print"die geometrischen markierungspunk-"
  260. 9757 print"te fuer linien und figuren dagegen":print"werden mit  einzel";
  261. 9758 print"-tasten gesetzt.":print"je nach gewaehltem arbeits-bereich"
  262. 9759 print"sind  folgende tasten zu druecken:":goto9891
  263. 9761 gosub9002:gosub9012:rem ---hilfe seite 6---
  264. 9762 printtab(6)"[158] linien [146][155]  zeichnen/loeschen":print"[152]erst mit dem ";
  265. 9763 print"'joystick-cursor' den":print"anfangspunkt einer linie anfahren!"
  266. 9764 print"[155]<[158]a[155]>   markiert den linien-anfang":print"[152]nun den  end";
  267. 9765 print"punkt der gewuenschten":print"linie anfahren":print"[155]<[158]e[155]>";
  268. 9766 print"   markiert  das  linien-ende":print"[155]der endpunkt wird  auto";
  269. 9767 print"matisch als":print"naechster anfangspunkt im programm"
  270. 9768 print"festgehalten,  kann aber  auch neu":print"bestimmt werden."
  271. 9769 goto9891
  272. 9771 gosub9002:gosub9012:rem ---hilfe seite 7---
  273. 9772 printtab(7)"[155]<[158]z[155]> zeichnet   [155]<[158]l[155]> loescht":print"eine  mit  a -";
  274. 9773 print" e  markierte linie.":print"[153]die tasten <z> und <l> stehen auch"
  275. 9774 print"in  den  weiteren  grafikbereichen":print"fuer  'z[158]eich";
  276. 9775 print"nen[153]'  und  'l[158]oeschen[153]'!":printtab(5)"[158] rechtecke [146][155] zeich";
  277. 9776 print"nen/loeschen":print"[152]erst mit dem 'joystick-cursor' die"
  278. 9777 print"recht-ecke  oben  links  anfahren!":print"[155]<[158]o[155]>   markie";
  279. 9778 print"rt  die  obere  ecke":goto9891
  280. 9781 gosub9002:gosub9012:rem ---hilfe seite 8---
  281. 9782 print"[152]nun die  diagonale unten ansteuern":print"[155]<[158]u[155]>   mar";
  282. 9783 print"kiert  die  ecke  unten":print"[155]mit den tasten <z> oder <l> ";
  283. 9784 print"wieder":print"die figur  zeichnen oder loeschen!"
  284. 9785 printtab(8)"[158] kreise [146][155] oder [158] ellipsen [146]":print"[152]den 'joystick-";
  285. 9786 print"cursor' jeweils erst":print"in position bringen und mit tasten"
  286. 9787 print"[155]<[158]m[155]>   [152]fuer  [155]mittelpunkt":print"[155]<[158]h[155]>   [152]fuer  [155]hori";
  287. 9788 print"zontalen  radius":print"[155]<[158]v[155]>   [152]fuer  [155]vertikalen radius"
  288. 9789 print"[155]einzelne markierungspunkte setzen!":goto9891
  289. 9791 gosub9002:gosub9012:rem ---hilfe seite 9---
  290. 9792 print"[152]nun die bogengrade festlegen durch":printtab(8)"[155]druecken de";
  291. 9793 print"r taste   <[158]g[155]>":print"[152]es wird  ein bildschirm geoeffnet,"
  292. 9794 print"mit dem die grade des zu zeichnen-":print"den kreisbogens fe";
  293. 9795 print"stzulegen sind.":print"der  [155]kreisbogen beginnt rechts[152] mit"
  294. 9796 print"dem grad 1, fuehrt dann nach unten":print"ueber den  grad 90";
  295. 9797 print"  nach links zum":print"grad  180  und von dort  nach oben"    "
  296. 9798 [153]"ueber grad 270  wieder nach rechts":[153]"zu grad 360,  womi";
  297. 9799 [153]"t ein  kreis ge-":[153]"schlossen wird.":[153]"auch teile vo";
  298. 9800 [153]"n kreisboegen koennen":[153]"gezeichnet werden.":[137]9891
  299. 9801 [141]9002:[141]9012:[143] ---hilfe seite 10---
  300. 9802 [153]"print#ein halber kreisbogen links fuehrt":[153]"z.b. exakt von ";
  301. 9803 [153]"grad 90 zu grad 270":[153]"nach dem festlegen  der bogengrade"
  302. 9804 [153]"mit taste zur grafik zurueckkehren":[153]"listauch ellipsen od";
  303. 9805 [153]"er kreisbogenteile":[153]"mit <syszlist> zeichnen-mit <sysllist> loeschen!"
  304. 9806 [153][163]7)"sys einzelheiten wait  listveraendern":[153]"print#zu veraendernde";
  305. 9807 [153]"  einzelheiten  sind":[153][163]7)"die listrahmenfarbe":[153]"print#(d";
  306. 9808 [153]"iese wird  gleichzeitig  mit den":[153]"bild-daten  abgespei";
  307. 9809 [153]"chert) und -->":[137]9891
  308. 9811 [141]9002:[141]9012:[143] ---hilfe seite 11---
  309. 9812 [153][163]7)"print#die listgrund- und punktfarben":[153]"print#(diese  sind  in ei";
  310. 9813 [153]"nem  als  bild-":[153]"schirmspeicher  extra  verwendeten"
  311. 9814 [153]"speicherteil fuer eine 8x8 punkte-":[153]"matrix gesondert ";
  312. 9815 [153]"abgelegt und wer-":[153]"den ebenfalls gleichzeitig mit den"
  313. 9816 [153]"bild-daten abgespeichert)":[153]"listim  abfrage-bildschirm  ";
  314. 9817 [153]"werden als":[153]"bisherige  alte  farben  immer die"
  315. 9818 [153]"grund- und punktfarben des zuletzt":[153]"mit dem 'joystick-";
  316. 9819 [153]"cursor' angefah-":[153]"renen 8x8-punkte-feldes angezeigt."
  317. 9820 [153]"nach eingabe der gewuenschten neu-":[153]"farben mit taste ";
  318. 9821 [153]"wieder zur grafik":[153]"zurueckgehen  und hier nun mit dem"
  319. 9822 [137]9891
  320. 9823 [141]9002:[141]9012:[143] ---hilfe seite 12---
  321. 9824 [153]"listjoystick alle einzufaerbenden 8x8-":[153]"punkte-felder ";
  322. 9825 [153]"ansteuern!":[153]"<sysnlist>  setzt neue farben  print#undlist"
  323. 9826 [153]"<sysalist>  bringt alte farben":[153]"fuer grund und punkte";
  324. 9827 [153]" zurueck.":[153]"printfuer den  weiteren umgang  mit dem"
  325. 9828 [153]"programm kann nur  geraten werden:":[153]"print#ueben, listueben ";
  326. 9829 [153]"printund nochmals uebenlist...":[153]"der verfasser steht fuer alle ";
  327. 9830 [153]"fra-":[153]"gen jederzeit gerne zur verfuegung":[137]9891    "
  328. 9891 gosub9122
  329. 9892 r$="":getr$:ifr$=""then9891
  330. 9893 on-(r$="v")-2*(r$="z")-3*(r$="h")goto9898,9899,150:goto9892
  331. 9898 hs=hs+1:goto9702
  332. 9899 hs=hs-1:goto9702
  333. 9902 close15:open15,8,15:input#15,en,em$,et,es
  334. 9906 on-(en=0)-2*(en=63)goto9936,9921
  335. 9912 printtab(9)"disk-fehler nr: "en
  336. 9914 printtab(9)" "em$" [146]":gosub9102:goto9936
  337. 9921 c=1907:gosub61:print"[153]die datei [158]"pr$:printtab(7)"[153]existiert bereits!"
  338. 9923 printtab(7)"[155]ersetzen?   <j[155]/n[155]>"
  339. 9924 r$="":getr$:ifr$=""then9924
  340. 9925 on-(r$="j")-2*(r$="n")goto9930,9936:goto9924
  341. 9930 print#15,"s:"+pr$:l=1524:gosub68:c=1300:gosub61
  342. 9936 close15:return
  343. 9994 l=2424:gosub68:c=2406:gosub61:print"  noch nicht programmiert!  [146][145][145][145][155]"
  344. 9996 fori=0to1500:next:goto9106
  345.