home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / graph formatter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.8 KB  |  102 lines
  1. 5 fori=49200to49227:reada:pokei,a:next
  2. 10 poke53280,0:poke53281,0:print"[147]"
  3. 20 print"graphics formatter"
  4. 30 print"geben sie ein: lo oder hi grafik:";
  5. 40 geta$:ifa$=""then40
  6. 50 ifa$="l"thenn$="saved pic.gfl":goto80
  7. 60 ifa$="h"thenn$="saved pic.gfh":goto80
  8. 70 goto40
  9. 80 printa$
  10. 90 print"diskette einlegen und taste drucken"
  11. 100 geta$:ifa$=""then100
  12. 110 print"[147]bitte warten.."
  13. 120 fori=1to13:a=asc(mid$(n$,i,1)):poke49151+i,a:next
  14. 130 poke184,1:poke186,8:poke185,0
  15. 140 poke183,13:poke187,0:poke188,192
  16. 150 poke780,0:poke781,0:poke782,32
  17. 160 sys65493
  18. 170 ifpeek(144)<>64then1000
  19. 280 print"bitte ausgabeformat waehlen:"
  20. 290 print"koala-painter"
  21. 300 print"paint magic"
  22. 310 print"multicolor format art studio"
  23. 315 print"hires format art studio"
  24. 320 geta$:ifa$=""then320
  25. 330 ifa$="k"then3000
  26. 340 ifa$="p"then4000
  27. 350 ifa$="m"then5000
  28. 355 ifa$="h"then2000
  29. 360 goto320
  30. 1000 print"diskfehler :"
  31. 1010 open15,8,15
  32. 1020 input#15,d1$,d2$,d3$,d4$,d5$
  33. 1030 printd1$" "d2$" "d3$" "d4$" "d5$
  34. 1040 close15
  35. 1050 print"taste!      "
  36. 1060 geta$:ifa$=""then1060
  37. 1070 run
  38. 1100 print"[147]ausgabe filename:";
  39. 1110 inputn$
  40. 1120 iflen(n$)=0then1100
  41. 1130 iflen(n$)>16then1100
  42. 1140 return
  43. 1200 poke184,1:poke186,8
  44. 1210 poke187,0:poke188,192:poke183,len(n$)
  45. 1215 fori=1tolen(n$):a=asc(mid$(n$,i,1)):poke49151+i,a:next
  46. 1220 return
  47. 2000 fori=17194to17198:pokei,0:next
  48. 2005 gosub1100
  49. 2007 print"[147]bitte warten.."
  50. 2010 n$=left$(n$+"               ",12)+" pic"
  51. 2020 gosub1200
  52. 2030 poke251,0:poke252,32:poke780,251:poke781,47:poke782,67
  53. 2040 sys65496
  54. 2050 ifpeek(144)<>0then1000
  55. 2060 sys64738
  56. 3000 print"[147]bild zeichencode   (a-p) :"
  57. 3001 geta$:ifa$=""then3001
  58. 3002 if(a$<"a")or(a$>"p")then3001
  59. 3003 q$=a$
  60. 3009 gosub1100
  61. 3010 print"[147]bitte warten.."
  62. 3020 n$=left$(chr$(129)+"pic "+q$+" "+n$+"        ",15)
  63. 3030 poke49201,0:poke49203,32:poke49209,43:poke49211,67
  64. 3035 poke49217,43:poke49219,131:sys49200
  65. 3040 b=peek(33578):c=peek(33577)
  66. 3050 fori=33576to34575:pokei,b:next
  67. 3060 poke34576,c
  68. 3070 gosub1200
  69. 3080 poke251,0:poke252,96:poke780,251:poke781,17:poke782,135
  70. 3090 sys65496
  71. 3100 ifpeek(144)<>0then1000
  72. 3110 sys64738
  73. 4000 gosub1100
  74. 4010 print"[147]bitte warten.."
  75. 4015 b=peek(17193):c=peek(17194)
  76. 4020 poke49201,64:poke49203,63:poke49209,40:poke49211,67
  77. 4025 poke49217,232:poke49219,99:sys49200
  78. 4030 poke49201,0:poke49203,32:poke49209,64:poke49211,63
  79. 4035 poke49217,64:poke49219,95:sys49200
  80. 4040 fori=0to113:poke16270+i,peek(04575+i):next
  81. 4050 fori=0to191:poke24384+i,peek(04689+i):next
  82. 4060 fori=25576to25599:pokei,0:next
  83. 4070 poke25592,254:poke24384,b:poke24387,c:poke24388,0
  84. 4080 gosub1200
  85. 4090 poke251,142:poke252,63:poke780,251:poke781,0:poke782,100
  86. 4100 sys65496
  87. 4110 ifpeek(144)<>0then1000
  88. 4120 sys64738
  89. 5000 b=peek(17194)
  90. 5002 fori=17194to17207:pokei,0:next
  91. 5005 gosub1100
  92. 5007 print"[147]bitte warten.."
  93. 5010 n$=left$(n$+"               ",11)+" mpic"
  94. 5015 fori=17208to18207:pokei,b:next
  95. 5020 gosub1200
  96. 5030 poke251,0:poke252,32:poke780,251:poke781,32:poke782,71
  97. 5040 sys65496
  98. 5050 ifpeek(144)<>0then1000
  99. 5060 sys64738
  100. 6000 data 169,0,160,0,133,95,132,96,169,0,160,0,133,90,132,91,169,0,160,0
  101. 6010 data 133,88,132,89,32,191,163,96
  102.