home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / graphic-art (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  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.