home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 22 / Tiger_Disk_022_19xx_Tiger-Crew-Disk_de_Side_B.d64 / graf.-file_zeich (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  85 lines
  1. 10 ifpeek(49152)<>76thenload"grafik-file*",8,1
  2. 15 gosub1000
  3. 20 x=100:y=100:d=0:a=0:b=1:poke788,52
  4. 30 print"[147][154]         grafik-file / zeichnen         "
  5. 40 print"       im editor [nach 'space'] :"
  6. 50 print"      steuerung: joystick / port 2"
  7. 60 print"       d [feuer] = loeschen"
  8. 70 print"       z [feuer] = zeichnen"
  9. 80 print"               i = invertieren"
  10. 90 print"       f1 / f3   = zeichenfarbe  + / -"
  11. 100 print"       f5 / f7   = hintergrundf. + / -"
  12. 110 print"               s = speichern * kennbuch-"
  13. 120 print"               l = laden     * staben [157][157][157][157][157][157][157]eingeben!"
  14. 130 print"               e = prg.-ende"
  15. 140 poke198,0:wait198,1:poke198,0:sys49152:gosub630
  16. 150 gosub440:j=31-(31andpeek(56320))
  17. 160 ifj=0then150
  18. 170 ifj=>16then200
  19. 180 onjgosub220,230,,240,250,260,,270,280,290
  20. 190 goto150
  21. 200 onj-15gosub300,310,320,,330,340,350,,360,370,380
  22. 210 goto150
  23. 220 y=y-1:goto390
  24. 230 y=y+1:goto390
  25. 240 x=x-1:goto390
  26. 250 x=x-1:y=y-1:goto390
  27. 260 x=x-1:y=y+1:goto390
  28. 270 x=x+1:goto390
  29. 280 x=x+1:y=y-1:goto390
  30. 290 x=x+1:y=y+1:goto390
  31. 300 sys49164+d,x,y:goto390
  32. 310 y=y-1:sys49164+d,x,y:goto390
  33. 320 y=y+1:sys49164+d,x,y:goto390
  34. 330 x=x-1:sys49164+d,x,y:goto390
  35. 340 x=x-1:y=y-1:sys49164+d,x,y:goto390
  36. 350 x=x-1:y=y+1:sys49164+d,x,y:goto390
  37. 360 x=x+1:sys49164+d,x,y:goto390
  38. 370 x=x+1:y=y-1:sys49164+d,x,y:goto390
  39. 380 x=x+1:y=y+1:sys49164+d,x,y
  40. 390 ifx>320thenx=0:goto410
  41. 400 ifx<1thenx=320
  42. 410 ify>200theny=0:goto430
  43. 420 ify<1theny=200
  44. 430 return
  45. 440 geta$
  46. 450 ifa$=chr$(133)thengosub560:return
  47. 460 ifa$=chr$(134)thengosub580:return
  48. 470 ifa$=chr$(135)thengosub600:return
  49. 480 ifa$=chr$(136)thengosub620:return
  50. 490 ifa$="i"thensys49161:return
  51. 500 ifa$="z"thend=0  : return
  52. 510 ifa$="d"thend=3  : return
  53. 520 ifa$="s"thengosub640:sys49173,"pic."+x$,8
  54. 530 ifa$="l"thengosub640:sys49170,"pic."+x$+"*",8
  55. 540 ifa$="e"thensys49179:list
  56. 550 return
  57. 560 a=a+1:ifa>15thena=0
  58. 570 goto630
  59. 580 a=a-1:ifa<0thena=15
  60. 590 goto630
  61. 600 b=b+1:ifb>15thenb=0
  62. 610 goto630
  63. 620 b=b-1:ifb<0thenb=15
  64. 630 sys49158,a*16+b:return
  65. 640 getx$:ifx$=""then640
  66. 650 m=asc(x$):ifm<48orm>90then640
  67. 660 return
  68. 1000 print"[147]      grafik-file/zeichnen - info       [146]";
  69. 1001 print"   leider straeubte sich das programm      ganz energisch, ein sprite";
  70. 1002 print" unter-":print"   zubringen!  -  s o r r y !!!!
  71. 1003 [153]"   falls die 'infoseite' wegen 'load'      und  'save' etwas unklar ist:
  72. 1004 print"   man gibt nach entsprechender            anwahl ganz einfach 'blind'
  73. 1005 [153]"   einen kennbuchstaben [a - z] ein.
  74. 1006 print"   das bild wird dann unter 'pic.a'
  75. 1007 [153]"   (oder welcher buchstabe immer...)
  76. 1008 print"   auf disc gespeichert. ausser buch-      staben ist kein zeichen";
  77. 1009 print" erlaubt!"
  78. 1010 print"   es besteht jedoch die moeglichkeit,     die files nachtraeglich";
  79. 1011 print" umzube-"
  80. 1012 print"   nennen. - dabei muss jedoch der         kennbuchstaben als kennung
  81. 1013 [153]"   erhalten bleiben! -weitere zusaetze     spielen zum laden keine";
  82. 1014 [153]" rolle!":[153]"   ich hoffe, dass euch meine 'erwei-      terung' gefaellt...
  83. 1015 print"                                                         michael";
  84. 1016 poke198,0:wait198,1:poke198,0:return
  85.