home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64 / MASKENGENERATOR (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  181 lines
  1. 1 poke50257,16:goto1000
  2. 10 print"[147]        >>> maskengenerator <<<"
  3. 20 print:print
  4. 30 input"startadresse49152[157][157][157][157][157][157][157]";an
  5. 40 print"maschinenprogramm wird erzeugt ..."
  6. 50 print"bitte warten."
  7. 60 fora=1to10:readw(a):next
  8. 70 fora=antoan+607
  9. 80 reada$
  10. 90 b=val(a$)
  11. 100 cs=cs+b
  12. 110 ifa$="*"thengosub460
  13. 120 ifb>255orb<0thenprint"fehler in zeile"peek(63)+peek(64)*256:end
  14. 130 ifb<>int(b)thenprint"fehler in zeile"peek(63)+peek(64)*256:end
  15. 140 pokea,b
  16. 150 next a
  17. 160 if cs<>69488thenprint"[145]pruefsummenfehler !!":end
  18. 170 fora=1to5
  19. 180 readb:b=b+an
  20. 190 hb=int(b/256)
  21. 200 lb=b-hb*256
  22. 210 readc:pokec+an,lb
  23. 220 readd:poked+an,hb
  24. 230 next a
  25. 240 print"o.k."
  26. 250 print"aufruf mit 'sys"an"'"
  27. 260 print"man kann dann den bildschirm editieren."
  28. 270 print"mit 'return' wird der vorgang beendet."
  29. 280 print"mit crsr up/down wird die erste zeilen- nummer gewaehlt."
  30. 290 :
  31. 300 print"nochmaliges 'return' generiert die "
  32. 310 print"basic-zeilen."
  33. 320 print"programm speichern ? ";
  34. 330 geta$:ifa$<>"j"anda$<>"n"then330
  35. 340 printa$:ifa$="n"thenend
  36. 350 fs$="maske"+str$(an):fora=1tolen(fs$):poke703+a,asc(mid$(fs$,a,1)):next
  37. 360 poke183,len(fs$):poke185,1:poke187,192:poke188,02
  38. 370 poke782,int((an+700)/256)
  39. 380 poke781,an+700-peek(782)*256
  40. 390 poke780,251:poke252,int(an/256)
  41. 400 poke251,an-peek(252)*256
  42. 410 print"(d)iskette oder (c)assette ? ";
  43. 420 geta$:ifa$<>"d"anda$<>"c"then420
  44. 425 printa$
  45. 430 ifa$="d"thenpoke186,8:goto450
  46. 440 poke186,1
  47. 450 sys65496:end
  48. 460 read a$:b=val(a$)
  49. 470 w=an+w(b)
  50. 480 hb=int(w/256)
  51. 490 lb=w-hb*256
  52. 500 b=hb:pokea,lb
  53. 510 a=a+1
  54. 520 return
  55. 530 data150,136,591,370,406,583,429,302,547,472
  56. 540 data32,51,165,165,34,24,105,2,133,45,133,47,133,49,165,35,105
  57. 550 data0,133,46,133,48,133,50,24,169,147,32,210,255,32,207,255,201
  58. 560 data13,208,249,32,210,255,174,136,2,134,252,169,0,133,251,169,95
  59. 570 data133,253,169,194,133,254,162,4,160,0,177,251,145,253,200,208,249
  60. 580 data230,252,230,254,202,208,240,169,95,133,251,169,198,133,252,169,0
  61. 590 data133,253,169,216,133,254,162,4,160,0,177,253,41,15,145,251,200
  62. 600 data208,247,230,252,230,254,202,208,238,162,147,32,210,255,169,146,32
  63. 610 data210,255,169,14,141,134,2,162,100,142,60,3,169,0,141,61,3
  64. 620 data169,147,32,210,255,174,60,3,173,61,3,32,205,189,32,159,255
  65. 630 data32,228,255,201,13,240,76,201,17,240,7,201,145,240,37,76,*
  66. 640 data1,173,61,3,208,8,173,60,3,208,3,76,*,2,56,173,60
  67. 650 data3,233,10,141,60,3,173,61,3,233,0,141,61,3,24,76,*
  68. 660 data2,173,61,3,201,248,208,3,76,*,2,24,173,60,3,105,10
  69. 670 data141,60,3,173,61,3,105,0,141,61,3,24,76,*,2,173,17
  70. 680 data208,41,239,141,17,208,169,95,133,251,169,194,133,252,169,95,133
  71. 690 data253,169,198,133,254,169,255,141,63,3,141,64,3,169,40,141,65
  72. 700 data3,169,147,32,210,255,173,61,3,174,60,3,32,205,189,169,63
  73. 710 data32,210,255,169,34,32,210,255,169,25,141,62,3,160,0,177,253
  74. 720 data205,63,3,240,22,141,63,3,162,0,189,*,3,236,63,3,240
  75. 730 data3,232,208,245,142,63,3,32,210,255,160,0,177,251,41,128,240
  76. 740 data16,169,18,205,64,3,240,22,141,64,3,32,210,255,76,*,4
  77. 750 data169,146,205,64,3,240,6,141,64,3,32,210,255,160,0,177,251
  78. 760 data41,127,201,96,48,6,24,105,64,76,*,5,201,64,48,6,24
  79. 770 data105,32,76,*,5,201,32,48,3,76,*,5,24,105,64,201,34
  80. 780 data208,16,162,0,189,*,6,32,210,255,232,224,8,208,245,76,*
  81. 790 data7,32,210,255,24,165,251,105,1,133,251,165,252,105,0,133,252
  82. 800 data24,165,253,105,1,133,253,165,254,105,0,133,254,24,206,62,3
  83. 810 data240,3,76,*,8,206,65,3,208,3,76,*,9,169,34,32,210
  84. 820 data255,169,59,32,210,255,169,13,32,210,255,173,65,3,240,63,169
  85. 830 data83,32,210,255,169,121,32,210,255,169,193,162,17,32,205,189,173
  86. 840 data60,3,24,105,5,141,60,3,173,61,3,105,0,141,61,3,24
  87. 850 data169,19,141,119,2,169,13,141,120,2,169,13,141,121,2,169,3
  88. 860 data133,198,96,169,20,32,210,255,76,*,10,169,19,141,119,2,169
  89. 870 data13,141,120,2,169,147,141,121,2,169,3,133,198,173,17,208,9
  90. 880 data16,141,17,208,96,34,67,104,40,51,52,41,34,144,5,28,159
  91. 890 data156,30,31,158,129,149,150,151,152,153,154,155,128
  92. 900 data607,50,54,1631,76,80
  93. 910 data607,245,249,1631,253,257
  94. 920 data273,505,503
  95. 1000 poke53280,0:poke53281,7:print"[147]"chr$(14)chr$(8);
  96. 1030 print"[144]     [205] a s k e n g e n e ";
  97. 1035 print"r a t o r                ";
  98. 1040 print"       v o n             ";
  99. 1045 print"          [211] v e n   [200] e s";
  100. 1050 print" s e l b a c h       [166][166][166][166]";
  101. 1055 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  102. 1060 print"[166][166][166][166][166][166][166][166][166][144]  [154][146]              ";
  103. 1065 print"                        [144] ";
  104. 1070 print" [146]  [211]ie kennen das: [211]ie wo";
  105. 1075 print"llen eine       [154][146]  [144]ansprec";
  106. 1080 print"hende [194]ildschirmausgabe e";
  107. 1085 print"r-[154]  [144]  [146]  stellen - mit far";
  108. 1090 print"bigen [194]alken         [154][146]  [144]un";
  109. 1095 print"d[154]                        ";
  110. 1100 print"         [144]  [146]  -[144] richtig ab";
  111. 1105 print"gesetzten [211]palten        ";
  112. 1110 print" [154][146]  -[154] [144]einer guten [193]ufteilu";
  113. 1115 print"ng[154]            [144]  [146]  - [144]usw. ";
  114. 1120 print"                         ";
  115. 1125 print"      [154][146]                   ";
  116. 1130 print"                   [144]  [146]  [193]l";
  117. 1135 print"so: [208]rint-[218]eilen schreibe";
  118. 1140 print"n, aus-    [154][146]        [144]probie";
  119. 1145 print"ren ob's stimmt, die[154]    [144] ";
  120. 1150 print" [146]        [218]eilen wieder ae";
  121. 1155 print"ndern und       [154][146]        [144]u";
  122. 1160 print"nd und ...[154]               ";
  123. 1165 print"   [144]   [146]                   ";
  124. 1170 print"                     [154][146]  [144][205]i";
  125. 1175 print"t dem [205]askengenerator[154] [144]spa";
  126. 1180 print"ren [211]ie    [146]  sich das.   ";
  127. 1185 print"                         ";
  128. 1190 print" [154][146]                        ";
  129. 1195 print"              [144]  [146]         ";
  130. 1200 print"                         ";
  131. 1205 print"      [166][166][166][166][166][166][166][166][166][166][144][146][215]eiter: [212]";
  132. 1210 print"aste !![166][166][166][166][166][166][166][166][166][166][166][166][144]      ";
  133. 1215 print"                         ";
  134. 1220 print"          [154][146]               ";
  135. 1225 print"                        ";
  136. 1390 fori=1980to2023:pokei,160:pokei+54272,0:next
  137. 1400 getw$:ifw$=""then1400
  138. 1500 print"[147]";
  139. 1600 print"[154][146]                         ";
  140. 1605 print"                 [144][211]ie star";
  141. 1610 print"ten den [205][193][211][203][197][206][199][197][206][197][210][193][212][207][210], ";
  142. 1615 print"     [154]  [144]erstellen den [194]ild";
  143. 1620 print"schirm [201]hrer        [154]  [144][215]ah";
  144. 1625 print"l, druecken 2* "chr$(34)"[210][197][212][213][210][206]"chr$(34)" -";
  145. 1630 print"[154]         [144]  [160]und haben das";
  146. 1635 print" [197]rgebnis abrufbar[154]     [144]  ";
  147. 1640 print"[154]  [144]in [208]rogrammzeilen.[154]     ";
  148. 1645 print" [144]                        ";
  149. 1650 print"               [154]          ";
  150. 1655 print"       [144][193]llerdings: [193]us na";
  151. 1660 print"heliegenden  [154]     [144]  [154]  [144][199]ru";
  152. 1665 print"enden koennen [211]ie dieses ";
  153. 1670 print"          [154]  [144][208]rogramm nich";
  154. 1675 print"t innerhalb von[154]         [144] ";
  155. 1680 print"[154]  [201][206][208][213][212][160]64[144][146] verwenden - wi";
  156. 1685 print"r lassen[154]       [154]  [144]sie naem";
  157. 1690 print"lich nicht in den [196]irekt-";
  158. 1695 print"[154]       [144]modus. [154]           ";
  159. 1700 print"                         ";
  160. 1705 print"                         ";
  161. 1710 print"            [144][196]eswegen: [215]ol";
  162. 1715 print"len [211]ie mit dem [205][193][211][203][197][206]-  ";
  163. 1720 print"[154]  [144][199][197][206][197][210][193][212][207][210] arbeiten, dan";
  164. 1725 print"n[154]                        ";
  165. 1730 print"                         ";
  166. 1735 print"   [144]  [154]  [144]* [196]ruecken [211]ie <ct";
  167. 1740 print"rl> und <s> -       [154]    [144]d";
  168. 1745 print"amit koennen sie das [208]rog";
  169. 1750 print"ramm [154]    [144] [154]    [144]saven.[154]     ";
  170. 1755 print"                         ";
  171. 1760 print"                         ";
  172. 1765 print"                 [144]* [204]oesch";
  173. 1770 print"en [211]ie vor dem [206]eustart d";
  174. 1775 print"ie[154]       [144][218]eile 1[154]    [144]     ";
  175. 1780 print"                    [154]     ";
  176. 1785 print"                         ";
  177. 1790 print"                         ";
  178. 1795 print"  [215]eiter: [212]aste[144][146]         ";
  179. 1900 getw$:ifw$=""then1900
  180. 2000 sys50283
  181.