home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8610b.d64 / vg-converter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  194 lines
  1. 10 IFPEEK(49152)=32 AND PEEK(49153)=84THEN210
  2. 20 LOAD"GRCONV.CODE.OBJ",8,1
  3. 30 REM ********************************
  4. 40 REM *                              *
  5. 50 REM * VIZAWRITE-GRAFIK-CONVERTER   *
  6. 60 REM *                              *
  7. 70 REM * (C) 1986 MARKT&TECHNIK VERLAG*
  8. 80 REM *                              *
  9. 90 REM *       WRITTEN BY             *
  10. 100 REM*                              *
  11. 110 REM*        RALF LENZ             *
  12. 120 REM*                              *
  13. 130 REM*     AM LANDGRABEN 12         *
  14. 140 REM*                              *
  15. 150 REM*    4290 BOCHOLT-BARLO        *
  16. 160 REM*                              *
  17. 170 REM*                              *
  18. 180 REM*                              *
  19. 190 REM********************************
  20. 200 :
  21. 210 VIC=53248:REM STARTADRESSE VIC-CHIP
  22. 220 LADEN = 12*4096:REM BILD LADEN
  23. 230 HIRES= LADEN+20:REM UMSCHALTEN AUF HIRES
  24. 240 LRES= LADEN+53:REM UMSCHALTEN AUF LORES
  25. 250 LCOL= LADEN+65:REM FARBE TEXTBILDSCHIRM
  26. 260 COLR= LADEN+76 :REM FARBE HIRES
  27. 270 INVERT= LADEN+103:REM BILD INVERTIEREN
  28. 280 SPEICHERN= LADEN+127:REM BILD SPEICHERN
  29. 290 CNVERT= LADEN+276:REM BILD CONVERTIEREN
  30. 300 SETSPRITE= LADEN+349:REM SPRITES INITIALISIEREN
  31. 310 DOWN= LADEN+436:REM SPRITES NACH UNTENBEWEGEN
  32. 320 UP=LADEN+453:REM SPRITES NACH OBEN BEWEGEN
  33. 330 :
  34. 340 SYS LCOL:PRINTCHR$(14):REM FARBE SETZEN UND UMSCHALTEN AUF KLEINSCHRIFT
  35. 350 PRINTCHR$(30):REM SCHRIFTFARBE BLAU
  36. 360 PRINT"[147]****************************************"
  37. 370 PRINT" [160][160]     [214]IZAWRITE-[199]RAFIK-[195]ONVERTER"
  38. 380 PRINT"      (C) 1986 [205]ARKT&[212]ECHNIK [214]ERLAG"
  39. 390 PRINT"                  BY
  40. 400 [153]"               (null)ALF (null)ENZ
  41. 410 PRINT"            [193]M [204]ANDGRABEN 12
  42. 420 [153]"           4290 PEEKOCHOLT-PEEKARLO
  43. 430 PRINT
  44. 440 PRINT"****************************************"
  45. 450 NAME$=""
  46. 460 PRINT"[206]AME DES [194]ILDES ('$' FUER [196]IRECTORY): ";
  47. 470 INPUTNAME$:IFNAME$=""THEN340
  48. 480 IFNAME$="$"THENGOSUB1650:GOTO340
  49. 490 PRINT"[204]EGEN [211]IE DIE [196]ISKETTE MIT DEM [194]ILD INS [204]AUFWERK UND DRUECKEN [211]IE ";
  50. 500 PRINT"[210][197][212][213][210][206][146]"
  51. 510 GOSUB980
  52. 520 SYS LADEN,NAME$:REM BILD NACH $2000 LADEN
  53. 530 GOSUB1080
  54. 540 IFA=0THEN590
  55. 550 PRINT"[196]ISK [198]EHLER![146] ";
  56. 560 PRINT"[196]RUECKEN [211]IE [210][197][212][213][210][206][146]";
  57. 570 GOSUB 980
  58. 580 GOTO340
  59. 590 GOSUB1010
  60. 600 PRINT"1[146] [194]ILD ANSEHEN"
  61. 610 PRINT"2[146] [199]ANZES [194]ILD CONVERTIEREN"
  62. 620 PRINT"3[146] [193]USSCHNITT CONVERTIEREN"
  63. 630 PRINT"4[146] [206]EUES [194]ILD LADEN"
  64. 640 PRINT"5[146] [196]ISC-[194]EFEHL SENDEN"
  65. 650 PRINT"6[146] [196]IRECTORY"
  66. 660 PRINT"7[146] [208]ROGRAMMENDE"
  67. 670 PRINT"[201]HRE [215]AHL (1-7) ? ";
  68. 680 GETA$:IFA$<"1" OR A$>"7"THEN 680
  69. 690 PRINTA$:ON VAL(A$) GOSUB 1160,1230,1290
  70. 700 IF A$="4"THEN340
  71. 710 IF A$="5"THENGOSUB1910:GOTO590
  72. 720 IF A$="6"THENGOSUB1680:GOTO590
  73. 730 IF A$="7"THENPRINT"[147]";:END
  74. 740 IFF3THEN 760:REM FLAG FUER ENDE DES CONVERTIERENS
  75. 750 GOTO590
  76. 760 SYSLRES:POKEVIC+21,0:REM SPRITES AUS
  77. 770 GOSUB1010
  78. 780 NAME$=""
  79. 790 PRINT"[213]NTER WELCHEM [206]AMEN SOLL DAS [194]ILD"
  80. 800 PRINT"GESPEICHERT WERDEN?"
  81. 810 INPUT"";NAME$:IFNAME$=""THEN900
  82. 820 NAME$="VG."+NA$+",S,W"
  83. 830 PRINT"[204]EGEN [211]IE DIE [196]ISKETTE, AUF DIE DAS [194]ILDGESPEICHERT WERDEN SOLL ";
  84. 840 PRINT"INS [204]AUFWERK UND";
  85. 850 PRINT"DRUECKEN [211]IE [210][197][212][213][210][206][146]"
  86. 860 GOSUB980
  87. 870 SYS SPEICHERN,NAME$,OBEN,UNTEN
  88. 880 GOSUB1080:IFA<>0THEN770
  89. 890 GOSUB1010
  90. 900 PRINT"[215]OLLEN [211]IE NOCH EIN [194]ILD CONVERTIEREN?"
  91. 910 PRINT"[198]ALLS JA, DRUECKEN [211]IE [210][197][212][213][210][206][146]"
  92. 920 GETA$:IFA$=""THEN920
  93. 930 IFA$=CHR$(13)THENRUN210
  94. 940 PRINT"[147]":END
  95. 950 :
  96. 960 REM WARTET AUF RETURNTASTE
  97. 970 :
  98. 980 GETA$:IFA$<>CHR$(13)THEN 980
  99. 990 RETURN
  100. 1000 :
  101. 1010 PRINT"[147]****************************************"
  102. 1020 PRINT" [160][160]     [214]IZAWRITE-[199]RAFIK-[195]ONVERTER      "
  103. 1030 PRINT"****************************************"
  104. 1040 RETURN
  105. 1050 :
  106. 1060 REM FEHLERKANAL ABFRAGEN
  107. 1070 :
  108. 1080 OPEN15,8,15:INPUT#15,A,B$,C,D:PRINT:PRINTB$:CLOSE15:RETURN
  109. 1090 :
  110. 1100 PRINT"[218]UM [193]USFUEHREN DRUECKEN [211]IE [210][197][212][213][210][206][146]"
  111. 1110 PRINT"[210]UECKKEHR ZUM [205]ENUE MIT [210][197][212][213][210][206][146]"
  112. 1120 GOSUB 980:RETURN
  113. 1130 :
  114. 1140 REM BILD ANSEHEN
  115. 1150 :
  116. 1160 GOSUB1100:SYSCOLR,1:SYSHIRES
  117. 1170 GETA$:IFA$="I"THEN SYS INVERT
  118. 1180 IFA$=CHR$(13)THEN SYSLRES :RETURN
  119. 1190 GOTO1170
  120. 1200 :
  121. 1210 REM GANZES BILD CONVERTIEREN
  122. 1220 :
  123. 1230 F3=-1:SYSCOLR,1:SYS HIRES:SYS CNVERT:SYS LRES
  124. 1240 OBEN=8192:UNTEN=8192+8000
  125. 1250 RETURN
  126. 1260 :
  127. 1270 REM AUSSCHNITT CONVERTIEREN
  128. 1280 :
  129. 1290 PRINT"[147][194]EWEGEN [211]IE DEN [218]EIGER MIT DEN [195]URSOR-  [212]ASTEN AUF UND AB"
  130. 1300 PRINT"[218]UERST LEGEN [211]IE DIE OBERE [199]RENZE FEST. [215]ENN [211]IE DIE GEWUENSCHTE [218]EILE"
  131. 1310 PRINT"ERREICHT HABEN, DRUECKEN [211]IE DIE [210]ETURN-[212]ASTE. [193]NALOG VERFAHREN [211]IE MIT"
  132. 1320 PRINT"DER UNTEREN [199]RENZE."
  133. 1330 PRINT"[200][207][205][197][146] BRINGT DEN [218]EIGER NACH OBEN UND"
  134. 1340 PRINT"[201][146] INVERTIERT DIE [199]RAFIK"
  135. 1350 PRINT"[218]UM [211]TART DRUECKEN [211]IE [210][197][212][213][210][206][146]":GOSUB 980
  136. 1360 SYSHIRES:SYSCOLR,1:SYS SETSPRITE
  137. 1370 GETA$:IFA$=""THEN 1370
  138. 1380 IFA$=CHR$(13)THENGOSUB1470 :IFF3THENRETURN
  139. 1390 IFA$=""THEN SYS DOWN
  140. 1400 IFA$="[145]"THEN SYS UP
  141. 1410 IFA$="I"THEN SYS INVERT:FORI=1TO200:NEXT
  142. 1420 IFA$=""THENFORI=VIC+1 TO VIC+14STEP2:POKEI,50:NEXT
  143. 1430 GOTO 1370
  144. 1440 :
  145. 1450 REM OBERE GRENZE BERECHNEN
  146. 1460 :
  147. 1470 IFF2THEN1580 :REM UNTERE GRENZE
  148. 1480 F2=-1
  149. 1490 OZ=INT((PEEK(VIC+1)-50)/8):REM BILDSCHIRMZEILENNUMMER DES SPRITES
  150. 1500 IFOZ=0THEN1520 :REM SPRITE IST GANZ OBEN
  151. 1510 FORI=1024TO1023+OZ*40:POKEI,0:NEXT:REM IM FARBRAM LOESCHEN
  152. 1520 OBEN=8192+OZ*320
  153. 1530 FORI=VIC+1 TO VIC+14STEP2:POKEI,242:NEXT:REM ALLE SPRITES NACH UNTEN
  154. 1540 RETURN
  155. 1550 :
  156. 1560 REM UNTERE GRENZE BERECHNEN
  157. 1570 :
  158. 1580 UZ=INT((PEEK(VIC+1)-50)/8):REM BILDSCHRIMZEILENNUMMER DES SPRITES
  159. 1590 IFUZ=250THEN 1610 :REM SPRITE IST GANZ UNTEN
  160. 1600 FORI=1024+UZ*40TO 2023:POKEI,0:NEXT:REM IM FARBRAM LOESCHEN
  161. 1610 UNTEN=8192+UZ*320
  162. 1620 F3=-1:FORI=1TO800:NEXT
  163. 1630 SYSCNVERT
  164. 1640 RETURN
  165. 1650 :
  166. 1660 REM INHALTSVERZEICHNIS ANZEIGEN
  167. 1670 :
  168. 1680 PRINT"[147]";
  169. 1690 OPEN1,8,0,"$0"
  170. 1700 GET#1,U$,V$
  171. 1710 GET#1,U$,V$
  172. 1720 GET#1,U$,V$
  173. 1730 BL=0
  174. 1740 IFU$<>""THENBL=ASC(U$)
  175. 1750 IFV$<>""THENBL=BL+ASC(V$)*256
  176. 1760 PRINTMID$(STR$(BL),2);TAB(4);
  177. 1770 GET#1,V$:IFST<>0THEN1890
  178. 1780 IFV$<>CHR$(34)THEN1770
  179. 1790 GET#1,V$:IFV$<>CHR$(34)THENPRINTV$;:GOTO1790
  180. 1800 GET#1,V$:IFV$=CHR$(32)THEN1800
  181. 1810 IFV$=CHR$(42)THENV$="[157]*"
  182. 1820 PRINTTAB(22);:W$=""
  183. 1830 W$=W$+V$:GET#1,V$:IFV$<>""THEN1830
  184. 1840 PRINTLEFT$(W$,5)
  185. 1850 GETX$
  186. 1860 IFX$="_"THENCLOSE1:RETURN
  187. 1870 IFX$=" "THENPOKE198,0:WAIT198,1:POKE198,0
  188. 1880 IFST=0THEN1710
  189. 1890 PRINT"BLOCKS FREE"
  190. 1900 CLOSE1:POKE198,0:WAIT198,1:POKE198,0:RETURN
  191. 1910 OPEN15,8,15:PRINT"[194]EFEHL: ";:POKE631,34:POKE198,1:INPUTDB$
  192. 1920 PRINT#15,DB$:CLOSE15:GOSUB1080
  193. 1930 POKE198,0:WAIT198,1:POKE198,0:RETURN
  194.