home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / titel-master (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  5KB  |  201 lines
  1. 10 rem *******************************
  2. 20 rem         titel - master
  3. 30 rem        ================
  4. 40 rem  written by: rudolf sussmann
  5. 50 rem
  6. 60 rem (c) 1986 markt & technik verlag
  7. 70 rem *******************************
  8. 80 dimr$(15):dimrl(15):dimn$(15):dimnl(15):dimt$(15):dimzr$(15):dimm$(15,39)
  9. 90 si=54272:fl=si:fh=si+1:we=si+4:a=si+5:h=si+6:l=si+24:hi=34:lo=207
  10. 100 rem *********************
  11. 110 rem       anleitung
  12. 120 rem *********************
  13. 130 poke53280,12:poke53281,12:print"[147]"chr$(14)
  14. 140 print"[196]ie [193]ngaben fuer die [212]itelei sind in
  15. 150 [153]"folgender (NULL)eihenfolge zu machen:
  16. 160 print"-[194]estimmung der [200]intergrund- und der
  17. 170 [153]" (NULL)chriftfarbe;
  18. 180 print"-[194]ezeichnung der [210]ubriken (z.[194]. [203]amera);
  19. 190 [153]"-valingabe der (NULL)amen;
  20. 200 print"-[193]ngabe eines [212]ones.
  21. 210 [153]"(NULL)enn nur  (NULL)val(NULL)(NULL)(NULL)(NULL) wait gedrueckt wird, ist
  22. 220 print"die [197]ingabe in dieser [210]ubrik beendet.
  23. 230 [153]"       (NULL)eiter ==> (NULL)aste druecken      "
  24. 240 [143] ****************************
  25. 250 [143]       hintergrundfarbe
  26. 260 [143] ****************************
  27. 270 [161]a$:[139]a$[178]""[167]270
  28. 280 rl[178]0:nl[178]0:nb[178]0
  29. 290 [141]1820
  30. 300 [153]"                            "f
  31. 310 [133]"on(NULL)ummer der left$intergrundfarbe";f
  32. 320 [139]f[179]0[176]f[177]15[167][153]"    (NULL)ur (NULL)ahlen zwischen 0 und 15! ononon":[137]300
  33. 330 [153]"load":[151]53280,f:[151]53281,f
  34. 340 [143] *************************
  35. 350 [143]       schriftfarbe
  36. 360 [143] *************************
  37. 370 [139]f[178]0[167][153]"clr":[137]390
  38. 380 [153]"stop"
  39. 390 [141]1820
  40. 400 [153]"                        "s
  41. 410 [133]"on(NULL)ummer der (NULL)chriftfarbe";s
  42. 420 [139]s[179]0[176]s[177]15[167][153]"    (NULL)ur (NULL)ahlen zwischen 0 und 15!    ononon":[137]400
  43. 430 [139]f[179][177]s[167]460
  44. 440 [153]"   (NULL)chriftfarbe und left$intergrund sind   "
  45. 450 [153]"     identisch! peekitte neu waehlen!     ":[137] 400
  46. 460 [145]s[170]1[137] 470,480,490,500,510,520,530,540,550,560,570,580,590,600,610,620
  47. 470 [153]"stop":[137]630
  48. 480 [153]"":[137]630
  49. 490 [153]"":[137]630
  50. 500 [153]"open":[137]630
  51. 510 [153]"clr":[137]630
  52. 520 [153]"":[137]630
  53. 530 [153]"":[137]630
  54. 540 [153]"sys":[137]630
  55. 550 [153]"for":[137]630
  56. 560 [153]"verify":[137]630
  57. 570 [153]"def":[137]630
  58. 580 [153]"poke":[137]630
  59. 590 [153]"print#":[137]630
  60. 600 [153]"print":[137]630
  61. 610 [153]"cont":[137]630
  62. 620 [153]"list"
  63. 630 [153]"loadstr$ies ist die (NULL)chriftfarbe"
  64. 640 [153]"            atnlles in (NULL)rdnung ?      "
  65. 650 [161]a$:[139]a$[178]""[167]650
  66. 660 [139]a$[178]"n"[167]130
  67. 670 [139]a$[179][177]"j"[167]650
  68. 680 [143] ********************
  69. 690 [143]       rubriken
  70. 700 [143] ********************
  71. 710 [153]"load":r[178]1
  72. 720 [153]""[163]13)[200](r$(r),25)
  73. 730 [153]"on"r;:[133]"cmd. (NULL)ubrik";r$(r)
  74. 740 rl(r)[178][195](r$(r))
  75. 750 [139]rl(r)[179]26[167]800
  76. 760 [153]"   valingabe zu lang! (NULL)eiter mit (NULL)val(NULL)(NULL)(NULL)(NULL)   "
  77. 770 [161]a$:[139]a$[179][177][199](13)[167]770
  78. 780 [153]"on                                        "
  79. 790 rl(r)[178]0:[137]720
  80. 800 [139]rl(r)[177]rl[167]rl[178]rl(r)
  81. 810 [139]r$(r)[179][177]""[167]r[178]r[170]1:[137]720
  82. 820 [153]"on                                       "
  83. 830 [153]"             atnlles in (NULL)rdnung?        "
  84. 840 [161]a$:[139]a$[178]""[167]840
  85. 850 [139]a$[178]"n"[167]710
  86. 860 [139]a$[179][177]"j"[167]840
  87. 870 [143] ***************************
  88. 880 [143]     eingabe der namen
  89. 890 [143] ***************************
  90. 900 [153]"load":[129]n[178]1[164]r[171]1
  91. 910 [153]""[163]rl(n)[170]2)n$(n)
  92. 920 [153]"on"r$(n);:[133]n$(n)
  93. 930 nl(n)[178][195](n$(n))
  94. 940 [139]nl(n)[170]rl(n)[179]38[167]990
  95. 950 [153]"  valingabe zu lang! (NULL)eiter mit >(NULL)val(NULL)(NULL)(NULL)(NULL)<  "
  96. 960 [161]a$:[139]a$[179][177][199](13)[167]960
  97. 970 [153]"onon                                        "
  98. 980 n$(n)[178][200](n$(n),37[171]rl(n)):[137]910
  99. 990 [139]nl(n)[177]nl[167]nl[178]nl(n)
  100. 1000 [130]n
  101. 1010 [153]"             atnlles in (NULL)rdnung?        "
  102. 1020 [161]a$:[139]a$[178]""[167]1020
  103. 1030 [139]a$[178]"n"[167]900
  104. 1040 [139]a$[179][177]"j"[167]1020
  105. 1050 [143] ********************
  106. 1060 [143]       musikton
  107. 1070 [143] ********************
  108. 1080 [153]"loadpeekestimmung des (NULL)ones"
  109. 1090 [153]"        "hi
  110. 1100 [133]"onleft$i-peekyte";hi
  111. 1110 [139]hi[179]1[176]hi[177]255[167][153]"on":[137]1100
  112. 1120 [153]"        "lo
  113. 1130 [133]"on(NULL)o-peekyte";lo
  114. 1140 [143] ***   ausgabe   ***
  115. 1150 [139]lo[179]1[176]lo[177]255[167][153]"on":[137]1130
  116. 1160 [153]"                                 "wa
  117. 1170 [133]"on(NULL)elche (NULL)ellenform (17-33-65-129)";wa
  118. 1180 [139]wa[178]0[176]wa[178]17[176]wa[178]33[176]wa[178]65[176]wa[178]129[167]1200
  119. 1190 [153]"on":[137]1170
  120. 1200 [129]ve[178]1[164]10:[141]1920:[130]ve
  121. 1210 [153]"            atnlles in (NULL)rdnung?         "
  122. 1220 [161]a$:[139]a$[178]""[167]1220
  123. 1230 [139]a$[178]"n"[167]1080
  124. 1240 [139]a$[179][177]"j"[167]1220
  125. 1250 [143] *****************************
  126. 1260 [143]      bildschirmparameter
  127. 1270 [143] *****************************
  128. 1280 [153]"loadpeekildschirmparameter":nb[178]0
  129. 1290 [139]rl[170]nl[177]37[167]1350
  130. 1300 [153]" (NULL)ollen die (NULL)amen untereinander stehen? "
  131. 1310 [161]a$:[139]a$[178]""[167]1310
  132. 1320 [139]a$[178]"n"[167]1350
  133. 1330 [139]a$[179][177]"j"[167]1310
  134. 1340 nb[178]1
  135. 1350 [153]"right$n welcher (NULL)eile soll die (NULL)itelei
  136. 1360 print"                "ze
  137. 1370 input"[145]beginnen (0-23)";ze
  138. 1380 ifze<0orze>23thenprint"[145][145][145][145][145][145]":goto    1350
  139. 1390 print"                     "lf
  140. 1400 input"[145][218]ahl der [204]eerzeilen ";lf
  141. 1410 print" [193]chtung! [146]   [196]er [194]ildschirm bleibt
  142. 1420 [153]"nach der ascestlegung der chr$eschwindigkeit
  143. 1430 print"fuer ca. 10 [211]ekunden leer. [196]ann beginnt"
  144. 1440 print"die [212]itelei zu laufen."
  145. 1450 print"                 "g
  146. 1460 input"[145][199]eschwindigkeit ";g
  147. 1470 rem *******************
  148. 1480 rem       ausgabe
  149. 1490 rem *******************
  150. 1500 print"[147]":forw=0to5000:nextw
  151. 1510 forpo=0toze:print:nextpo
  152. 1520 forx=1tor-1
  153. 1530 ifnb<1then1580
  154. 1540 zr$="......................................"
  155. 1550 zr$(x)=left$(zr$,37-nl-rl(x))
  156. 1560 t$(x)=r$(x)+": "+zr$(x)+n$(x)
  157. 1570 goto1590
  158. 1580 t$(x)=r$(x)+": "+n$(x)
  159. 1590 l=len(t$(x))
  160. 1600 fory=1tol
  161. 1610 m$(x,y)=mid$(t$(x),y,1)
  162. 1620 print"[145]"tab(y-1)m$(x,y)
  163. 1630 ifm$(x,y)=chr$(32)then1660
  164. 1640 ifm$(x,y)=chr$(46)then1670
  165. 1650 gosub1920
  166. 1660 forw=1tog*20:nextw
  167. 1670 nexty
  168. 1680 forw=0tog*20:nextw
  169. 1690 forv=0tolf:print:nextv
  170. 1700 nextx
  171. 1710 wait198,1
  172. 1720 forz=1to25:print:forw=1tog:nextw:nextz:poke198,0
  173. 1730 wait198,1:print"[147][215]iederholung?"
  174. 1740 geta$:ifa$=""then1740
  175. 1750 ifa$="j"then230
  176. 1760 ifa$="n"thensys64738
  177. 1770 goto1740
  178. 1780 rem *************************
  179. 1790 rem       unterprogramm
  180. 1800 rem         farbnamen
  181. 1810 rem *************************
  182. 1820 print"[147]":forz=0to15
  183. 1830 readf$
  184. 1840 printz" = "f$
  185. 1850 nextz:restore:return
  186. 1860 dataschwarz,weiss,rot,tuerkis,violett,gruen,blau,gelb,orange,braun,hellrot
  187. 1870 datagrau 1,grau 2,hellgruen,hellblau,grau 3
  188. 1880 rem *************************
  189. 1890 rem       unterprogramm
  190. 1900 rem       tonerzeugung
  191. 1910 rem *************************
  192. 1920 ifwa=0thenreturn
  193. 1930 pokel,15
  194. 1940 pokea,1*16+5
  195. 1950 pokeh,0*16+0
  196. 1960 pokefh,hi:pokefl,lo
  197. 1970 pokewe,wa
  198. 1980 fort=1to030:nextt
  199. 1990 pokewe,0
  200. 2000 return
  201.