home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 26 / 64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_A.d64 / graphic-art (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.9 KB  |  181 lines
  1. 5 poke56,61:poke55,192
  2. 10 poke53280,0:poke53281,0:poke650,128:poke53272,23:print"[147]"
  3. 11 ::
  4. 12 ifa=0thena=1:load"mt-grafik-art",8,1
  5. 99 ::
  6. 100 rem+++++++++++++++++++++++++++++
  7. 101 rem+                           +
  8. 102 rem+     grafik-art            +
  9. 103 rem+                           +
  10. 104 rem+           andreas a. holz +
  11. 105 rem+           zikadenweg 15   +
  12. 106 rem+ [3017728] 1   berlin 19   +
  13. 107 rem+                           +
  14. 108 rem+++++++++++++++++++++++++++++
  15. 109 ::
  16. 120 for x=704to766:reada:pokex,a:next:rem single cusour [11. block]
  17. 130 for x=896to958:reada:pokex,a:next:rem multi  cusour [14. block]
  18. 135 forx=1to9:readsp(x):next:rem +++++speed-datas
  19. 140 v=53248:pokev+21,143:pokev+14,0:pokev+15,29:pokev+46,7:pokev+29,134:pokev+23,140
  20. 150 v$="7654321[154]0":l$="                                       ":poke198,0
  21. 155 gosub710:gosub830:sys49702:rem bildschirmaufbau+sprite loeschen [13.block]
  22. 170 poke2040,13:pokev+16,6:pokev,255:pokev+1,51:pokev+39,14:rem+  sprite 0
  23. 180 poke2041,13:pokev+2,28:pokev+3,51:pokev+40,14:rem+++++++++++  sprite 1
  24. 190 poke2042,13:pokev+4,28:pokev+5,80:pokev+41,14:rem+++++++++++  sprite 2
  25. 200 poke2043,13:pokev+6,255:pokev+7,80:pokev+42,14:rem++++++++++  sprite 3
  26. 298 ::
  27. 299 poke198,0
  28. 300 sys49152
  29. 305 geta$:ifa$=""goto300
  30. 310 ifa$="[134]"thensys49682:goto300
  31. 320 ifa$="[138]"thensys49692:goto300
  32. 322 ifa$=""thensys50559:goto300
  33. 324 ifa$="[157]"thensys50542:goto300
  34. 326 ifa$=""thensys49879:goto300
  35. 328 ifa$="[145]"thensys49931:goto300
  36. 350 ifa$="d"thensys49778:gosub800:goto299
  37. 355 ifa$="[196]"thensys49794:gosub800:goto299
  38. 360 ifa$="[147]"thensys49702:goto299
  39. 370 ifa$=""thenpokev+14,0:pokev+15,29:goto299
  40. 380 ifa$=chr$(13)thenifpeek(v+15)<>189thenpokev+14,0:pokev+15,peek(v+15)+8:goto299
  41. 390 ifa$="s"thensys49821:gosub800:goto299
  42. 392 ifa$="[133]"thensys49720:goto300
  43. 393 ifa$="[137]"thensys49735:goto300
  44. 394 ifa$="[135]"thensys50502:goto300
  45. 395 ifa$="[139]"thensys50522:goto300
  46. 396 ifa$="[136]"thensys50512:goto300
  47. 397 ifa$="[140]"thensys50532:goto300
  48. 400 ifa$=" "thenifpeek(49405)=176thensys49844:goto300
  49. 410 ifa$="0"thenforx=832to894:pokex,255-peek(x):next:sys49548:goto299
  50. 490 ifa$="m"thensys50065:gosub710:gosub830:sys49548:goto299
  51. 495 ifa$="a"thengosub1010:goto300
  52. 497 ifa$="@"goto3005
  53. 500 ifa$="!"thenifpeek(49236)=15thenpoke49997,128:poke49996,peek(v+39):gosub760:goto299
  54. 510 ifa$=chr$(34)thenifpeek(49236)=15thenpoke49997,64:poke49996,peek(v+37):gosub760:goto299
  55. 520 ifa$="#"thenifpeek(49236)=15thenpoke49997,192:poke49996,peek(v+38):gosub760:goto299
  56. 525 ifa$="_"thengosub4000:goto299
  57. 527 ifasc(a$)>48andasc(a$)<58thenpoke1661,128+asc(a$):poke49294,sp(asc(a$)-48):goto300
  58. 528 ifa$="+"thenifpeek(v+46)<>255thenpokev+46,peek(v+46)+1:goto299
  59. 529 ifa$="-"thenifpeek(v+46)<>0thenpokev+46,peek(v+46)-1:goto299
  60. 535 ifa$="^"goto7010
  61. 540 ifa$="*"goto7050
  62. 550 goto300
  63. 700 rem++++++++++++++++++++++++
  64. 701 rem+                      +
  65. 702 rem+  bildschirmaufbau    +
  66. 703 rem+                      +
  67. 704 rem++++++++++++++++++++++++
  68. 705 ::
  69. 710 pokev+14,0:pokev+15,29
  70. 715 print"[147]";:ifpeek(49236)=15goto740
  71. 720 forx=1to21:print"++++++++++++++++++++++++"x:next:forx=0to2:printv$;:next
  72. 730 poke2047,11:pokev+28,0:goto800
  73. 740 forx=1to21:print"[172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187]"x:next:forx=0to2:printv$;:next
  74. 750 poke2047,14:pokev+28,15
  75. 760 poke214,17:poke211,28:sys58640:print"[159][218]eichen= ";:poke646,peek(49996):print"  [157][157]  [146]"
  76. 765 poke214,18:poke211,31:sys58640:print"[159]farbe"
  77. 770 poke214,20:poke211,28:sys58640:print"[150][198]arbe #1 ";:poke646,peek(53287):print"  [146]"
  78. 780 poke214,21:poke211,28:sys58640:print"[198]arbe #2 ";:poke646,peek(53285):print"  [146]"
  79. 790 poke214,22:poke211,28:sys58640:print"[156][198]arbe #3 ";:poke646,peek(53286):print"  [146]"
  80. 800 poke214,11:poke211,28:sys58640:print"[196][210][193][215]  a";
  81. 805 ifpeek(49280)<>234goto808
  82. 806 print"n  [146]":goto810
  83. 808 print"us [146]"
  84. 810 poke214,13:poke211,28:sys58640:print"[154][211]/[204]-[205]odus-[211]":ifpeek(49404)=43thenpoke1582,128+peek(1582)
  85. 820 ifpeek(49404)<>43thenforx=1572to1574:pokex,128+peek(x):next:return
  86. 825 return
  87. 830 poke214,15:poke211,28:sys58640:print"[211][208][197][197][196] #  5 [146]":poke49294,64:return
  88. 839 ::
  89. 840 rem++++  single-sprite-data's  ++++
  90. 845 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,7,,,8,128,,16,64,,16,64,,8,192,,7,224,,,48
  91. 850 data,,24,,,,,,,,,,,,
  92. 900 :
  93. 905 rem++++  multi -sprite-data's  ++++
  94. 910 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,31,252,,32,2,,32,2,,32,2,,32,2,,31,252,,
  95. 915 data,,,,,,,,,,,,
  96. 920 :
  97. 925 rem++++  speed - datas ++++++++++++
  98. 930 data80,75,68,64,58,48,35,25,17
  99. 935 ::
  100. 1000 rem+++++++++++++++++++++++
  101. 1001 rem+                     +
  102. 1002 rem+     ausgabe         +
  103. 1003 rem+                     +
  104. 1004 rem+++++++++++++++++++++++
  105. 1005 :
  106. 1010 poke198,0:poke214,23:poke211,0:sys58640:print"[154][193]usgabe..."
  107. 1020 print"1. [196]isk   2. [196]rucker   3. [211]creen";
  108. 1030 geta$:ifa$="1"goto2001
  109. 1035 ifa$="2"goto1050
  110. 1040 ifa$="3"thengosub1055:goto1080
  111. 1042 ifa$=chr$(13)thengosub1095:goto300
  112. 1045 goto1030
  113. 1050 open4,4:cmd4:gosub1060:print#4:close4:gosub1095:return
  114. 1055 print"[147]";:pokev+21,0
  115. 1060 forx=0to4:printx+1"data";:forx1=0to10:printpeek(832+x1+x*12)"[157],";
  116. 1065 next:printpeek(832+x1+x*12)
  117. 1070 next:printx+1"data";:forx=892to893:printpeek(x)",";:next:printpeek(894):return
  118. 1080 input"[208]rogramm [197]nde";a$:ifmid$(a$,1,1)="j"goto5000
  119. 1090 gosub710:gosub830:pokev+21,143:sys49548:return
  120. 1095 forx=0to1:poke214,23+x:poke211,0:sys58640:printl$;:next:return
  121. 1097 poke53280,2:poke53265,peek(53265)and239:return
  122. 1098 poke53265,peek(53265)or16:poke53280,0:return
  123. 1099 open2,8,2,n$+",s,w":return
  124. 1100 ::
  125. 1101 close2:gosub1099:gosub1095:sys50607:gosub1098:wait198,1:gosub1095:sys65511:return
  126. 2000 ::
  127. 2001 gosub1095:gosub4101:ifn$=""thengosub1095:goto300
  128. 2010 gosub1097:gosub1099:open15,8,15:input#15,a$:ifa$<>"00"goto1101
  129. 2015 forx=832to832+62:print#2,peek(x)
  130. 2020 next
  131. 2025 close2:close15:gosub1095:gosub1098:return
  132. 3000 rem+++++++++++++++++++++++++++
  133. 3001 rem+                         +
  134. 3002 rem+   disk......            +
  135. 3003 rem+                         +
  136. 3004 rem+++++++++++++++++++++++++++
  137. 3005 poke214,23:poke211,0:sys58640:print"[154][196]isk...":print"1. [196][207][211]   2. [196]isk-[211]tatus";
  138. 3010 geta$:ifa$="1"goto3050
  139. 3015 ifa$="2"goto3070
  140. 3016 ifa$=chr$(13)thengosub1095:goto299
  141. 3020 goto3010
  142. 3050 gosub1095:poke214,23:poke211,0:sys58640:gosub4100:ifn$=""thengosub1095:goto300
  143. 3055 open1,8,15,n$:close1:gosub1095:goto300
  144. 3070 gosub1095:sys50709:wait198,1:gosub1095:poke198,0:goto299
  145. 3100 rem+++++++++++++++++++++++++++
  146. 3101 rem+                         +
  147. 3102 rem+   eingabe               +
  148. 3103 rem+                         +
  149. 3104 rem+++++++++++++++++++++++++++
  150. 3998 open2,8,2,n$+",s,r":return
  151. 3999 close2:gosub3998:gosub1095:sys50607:gosub1098:wait198,1:gosub1095:sys65511:return
  152. 4000 gosub4101:ifn$=""thengosub1095:goto300
  153. 4001 gosub1097:gosub3998:open15,8,15:input#15,a$:ifa$<>"00"goto3999
  154. 4005 forx=832to832+62:input#2,a:pokex,a:next
  155. 4010 close2:close15:gosub1095:sys49548:gosub1098:return
  156. 4091 ::
  157. 4092 rem +++  get  name  +++
  158. 4093 ::
  159. 4100 n$="":poke214,23:poke211,0:sys58640:print"[154][194]efehl? ";:n=29:goto4105
  160. 4101 n$="":poke214,23:poke211,0:sys58640:print"[154][198]ilename? ";:n=16
  161. 4105 a$="":poke198,0:poke204,0
  162. 4110 geta$:ifa$=""then4110
  163. 4114 ifa$=chr$(13)thenpoke204,1:print" ";:return
  164. 4120 ifa$=chr$(20)thenifn$<>""thenpoke204,1:print"[157]  [157][157]";:n$=left$(n$,len(n$)-1):goto4105
  165. 4125 ifn$=""thenifa$=chr$(20)then4110
  166. 4130 iflen(n$)=nthen4110
  167. 4135 poke204,1:printa$;:n$=n$+a$:goto4105
  168. 5000 poke631,19:forx=632to632+6:pokex,13:next:poke198,7:new
  169. 7003 ::
  170. 7004 rem **** sprite-speicher
  171. 7005 ::
  172. 7010 poke214,23:poke211,0:sys58640:print"[154][211]prite speichern"
  173. 7015 n$="":n=1:print"[211]pritenr. (1-8)? ";:gosub4105:ifn$=""thengoto7065
  174. 7016 x=val(n$):ifx<1orx>8goto7065
  175. 7020 forx1=0to62:poke15808+(64*(x-1))+x1,peek(832+x1):next:gosub1095:goto299
  176. 7030 ::
  177. 7050 poke214,23:poke211,0:sys58640:print"[154][211]prite einlesen"
  178. 7055 n$="":n=1:print"[211]pritenr. (1-8)? ";:gosub4105:ifn$=""thengosub1095:goto299
  179. 7060 x=val(n$):forx1=0to62:poke832+x1,peek(15808+(64*(x-1))+x1):next
  180. 7065 gosub1095:sys49548:goto299
  181.