home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902c.d64 / spritefinder (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  66 lines
  1. 0 F1=1:F2=2:F3=7:F4=1
  2. 1 IFF=1THEN10
  3. 5 GOSUB4000
  4. 10 PRINT"[147]";:POKE53280,0:POKE53281,0
  5. 20 PRINT:PRINTTAB(13)"  KLAU-MENUE  [146]":PRINT:PRINT
  6. 30 PRINT"  <_>   [146] SPRITE ABSPEICHERN":PRINT
  7. 40 PRINT"  <+>   [146] HOEHERER SPEICHERBEREICH":PRINT
  8. 50 PRINT"  <E>   [146] PROGRAMMENDE":PRINT
  9. 60 PRINT" <CRSR> [146] SPRITEBLOCK ERHOEHEN":PRINT
  10. 70 PRINT" <CRSD> [146] SPRITEBLOCK ERNIEDRIGEN":PRINT
  11. 80 PRINT"  <F1>  [146] FARBE 1 VERAENDERN":PRINT
  12. 90 PRINT"  <F3>  [146] FARBE 2 VERAENDERN":PRINT
  13. 100 PRINT"  <F5>  [146] FARBE 3 VERAENDERN":PRINT
  14. 105 PRINT"  <F7>  [146] FARBE 4 VERAENDERN":PRINT
  15. 110 PRINT"                 RETURN                 [146]"
  16. 120 GETA$:IFA$<>CHR$(13)THEN120
  17. 130 PRINT"[147]";
  18. 135 INPUT"SPEICHERNAME          ";C$
  19. 140 INPUT"SPEICHERBEREICH <0-3> ";S
  20. 145 IFS>3ORS<0THENS=0
  21. 150 INPUT"ANFANGSBLOCK <0-255>  ";B
  22. 155 IFB>255ORB<0THEN150
  23. 156 C$=LEFT$(C$,7):PRINT"[147]"
  24. 160 V=53248:D=56576:I=(S-3)*-1
  25. 170 POKEV,195:POKEV+1,75
  26. 180 POKEV+2,185:POKEV+3,125
  27. 185 POKEV+4,135:POKEV+5,75:POKEV+6,125:POKEV+7,125
  28. 190 POKEV+21,15:POKEV+28,12
  29. 200 POKEV+23,10:POKEV+29,10
  30. 210 POKE2040+S*16384,B:POKE2041+S*16384,B
  31. 220 POKEV+37,F1:POKEV+38,F2
  32. 230 POKEV+39,F3:POKEV+40,F3:POKEV+41,F4
  33. 235 POKED,PEEK(D)AND252ORI
  34. 240 GETA$:IFA$=""THEN240
  35. 250 IFA$="[133]"THENF1=F1+1
  36. 260 IFF1>15THENF1=0
  37. 270 IFA$="[134]"THENF2=F2+1
  38. 280 IFF2>15THENF2=0
  39. 290 IFA$="[135]"THENF3=F3+1
  40. 300 IFF3>15THENF3=0
  41. 302 IFA$="[136]"THENF4=F4+1
  42. 304 IFF4>15THENF4=0
  43. 305 POKEV+37,F1:POKEV+38,F2:POKEV+39,F4:POKEV+40,F4:POKEV+41,F3:POKEV+42,F3
  44. 310 IFA$="E"THENGOSUB2000:GOTO3000
  45. 320 IFA$="_"THENGOSUB1000
  46. 330 IFA$="+"THENGOSUB2000:PRINT"[147]":GOTO140
  47. 340 IFA$=""THENB=B+1:IFB>255THENB=255
  48. 350 IFA$=""THENB=B-1:IFB<0THENB=0
  49. 360 POKE2040+S*16384,B:POKE2041+S*16384,B
  50. 365 POKE2042+S*16384,B:POKE2043+S*16384,B
  51. 370 GOTO240
  52. 1000 M=S*16384+64*B:HI=INT(M/256):LO=M-HI*256
  53. 1005 F$=C$+STR$(S)+"."+STR$(B)
  54. 1010 POKE903,LO:POKE904,HI
  55. 1020 SYS896
  56. 1030 OPEN1,8,1,F$
  57. 1040 FORZ=832TO832+62
  58. 1050 PRINT#1,CHR$(PEEK(Z));
  59. 1060 NEXTZ
  60. 1090 CLOSE1:RETURN
  61. 2000 POKED,PEEK(D)AND252OR3:RETURN
  62. 3000 POKEV+21,0:PRINT"[147]":PRINTTAB(10)"BLOCK           : [146] ";B:PRINT
  63. 3010 PRINTTAB(10)"SPEICHERBEREICH : [146] ";S:PRINT
  64. 3020 PRINTTAB(10)"SPEICHERNAME    : [146]  ";C$:PRINT:END
  65. 4000 F=1:LOAD"KLAU OBJ.$037F",8,1
  66.