home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 May / 64er_Magazin_86-05_1986_Markt__Technik_de.d64 / greatprint-demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  4.3 KB  |  94 lines
  1. 1000 rem 'greatprint' fuer c-64, von martin sprave, mai 1985
  2. 1010 a=53000:fori=0to247:readb:pokea+i,b:p=p+b:next
  3. 1020 ifp<>27293thenprint"pruefsummenfehler!":stop
  4. 1030 data 169, 47,133,  0,169, 55,133,  1, 32,241,183,224, 22,176, 33,134
  5. 1040 data   3, 32,241,183,224, 37,176, 24,134,  4, 32,253,174, 32,158,173
  6. 1050 data  36, 13, 48,  6, 32,221,189, 32,135,180, 32,166,182,170,208,  3
  7. 1060 data  76, 72,178,134,  5,160,  0,120,177, 34,170, 10,201, 64,138,176
  8. 1070 data   6, 32, 22,231, 76,230,207,132, 96, 10,176, 12,201,192,144,  3
  9. 1080 data  41,190, 44, 41,126, 76,104,207,201,254,208,  2,169,188,  9,128
  10. 1090 data 133, 92,173, 24,208, 41,  2,  9, 52,166,199,240,  2,  9,  1,  6
  11. 1100 data  92, 42,  6, 92, 42,133, 93,166,  3, 24,189,240,236,101,  4,133
  12. 1110 data  88,133, 90,181,217, 41,  3,109,136,  2,133, 89, 41,  3,  9,216
  13. 1120 data 133, 91,160,  0,162,  0,169, 51,133,  1,161, 92,133, 94,230, 92
  14. 1130 data 161, 92,133, 95,230, 92,169, 55,133,  1,169,  0,  6, 94, 42,  6
  15. 1140 data  94, 42,  6, 95, 42,  6, 95, 42,170,189,240,207,145, 88,173,134
  16. 1150 data   2,145, 90,200,152, 41,  3,208,225, 24,152,105, 36,168,192,160
  17. 1160 data 144,194,165,  4,105,  3,133,  4,201, 37,176, 10,164, 96,200,196
  18. 1170 data   5,176,  3, 76, 63,207, 88, 96, 32,108,123, 98,124,225,255,254
  19. 1180 data 126,127, 97,252,226,251,236,160
  20. 2000 k$=chr$(14):g$=chr$(142):c$=chr$(147):r$=chr$(13)
  21. 2010 poke53280,12:poke53281,12:sysa,0,0,k$+chr$(8)+c$+"[155][199]reatprint"
  22. 2020 print"[146][151][196]ieses [208]rogramm erlaubt die grossforma-"
  23. 2030 print"tige [196]arstellung von [218]eichenketten und"
  24. 2040 print"[215]erten auf dem [212]ext-[194]ildschirm. [196]ie"
  25. 2050 print"[194]uchstaben werden mit [200]ilfe von sechzehn";
  26. 2060 print"[199]raphikzeichen, der sogenannten [214]iertel-";
  27. 2070 print"punktgraphik, aufgebaut. [211]ie bestehen"
  28. 2080 print"aus einer [205]atrix von vier mal vier sol-"
  29. 2090 print"cher [218]eichen. [196]a nicht in den hochauf-"
  30. 2100 print"loesenden [205]odus gegangen wird, lassen"
  31. 2110 print"sich normale und grosse [218]eichen mitein-"
  32. 2120 print"ander mischen. [196]ie [218]eichen werden in der";
  33. 2130 print"aktuellen [195]ursorfarbe und eventuell auch";
  34. 2140 print"invertiert gedruckt. [193]ls [218]eichensatz"
  35. 2150 print"wird derjenige verwendet, der beim [193]uf-"
  36. 2160 print"ruf der [210]outine aktiviert ist. [201]nsgesamt";
  37. 2170 print"koennen auf einem [194]ildschirm sechs"
  38. 2180 print"[210]eihen mit je zehn [218]eichen geschrieben"
  39. 2190 print"werden.":gosub5230
  40. 3000 sysa,0,0,c$+"[211]yntax:":print:print:print:print:print:print
  41. 3010 print"[211][217][211] 53000 , [218]eile[146] , [211]palte[146] , [193]usdruck"
  42. 3020 print: print"[196]ie [218]eile und die [211]palte definieren die"
  43. 3030 print"linke, obere [197]cke, ab der der [193]usdruck"
  44. 3040 print"geschrieben werden soll. [194]eide duerfen"
  45. 3050 print"als beliebige numerische [212]erme angegeben";
  46. 3060 print"werden, sofern ihr [197]rgebnis sich im [194]e-"
  47. 3070 print"reich von 0-21 fuer die [218]eile und 0-36"
  48. 3080 print"fuer die [211]palte bewegt."
  49. 3090 print"[196]er '[193]usdruck' kann sowohl ein [211]tring-"
  50. 3100 print"als auch ein numerischer [212]erm sein."
  51. 3110 print"[206]umerische [193]usdruecke werden automatisch";
  52. 3120 print"in eine [218]eichenkette gewandelt. [197]s wer-"
  53. 3130 print"den so viele [218]eichen ausgegeben, bis der";
  54. 3140 print"rechte [210]and erreicht , oder der [211]tring"
  55. 3150 print"zu [197]nde ist. [212]auchen vor [197]rreichen des"
  56. 3160 print"rechten [210]andes [211]teuerzeichen auf,"
  57. 3170 gosub5230
  58. 4000 printc$;"so werden diese an die normale [193]usgabe-"
  59. 4010 print"routine weitergeleitet. [193]uf diese [215]eise"
  60. 4020 print"koennen innerhalb eines [211]trings z.[194]."
  61. 4030 print"verschiedene [198]arben angewaehlt, der"
  62. 4040 print"[210][197][214][197][210][211]-[205]odus ein- und ausgeschaltet,"
  63. 4050 print"oder der [194]ildschirm geloescht werden."
  64. 4060 print:print"[197]s folgen einige [196]emonstrationen, die"
  65. 4070 print"jeweils mit [210][197][212][213][210][206] unterbrochen werden"
  66. 4080 print"koennen.":gosub5230
  67. 5000 printc$;"[212]ext:":sysa,0,6,"[155]-64'er-[146]":sysa,5,14,"[151][196]as":sysa,9,6,"[205]agazin"
  68. 5010 sysa,13,12,"fuer":sysa,17,2,"[195]omputer-":sysa,21,12,"[198]ans"
  69. 5020 gosub5240:printg$;c$;"und graphik:"
  70. 5030 fori=0to59:z%=i/10:sysa,z%*4+1,(i-10*z%)*4,chr$(192+i):next:gosub5240
  71. 5040 sysa,1,6,k$+c$+"normale":sysa,7,14,"und"
  72. 5050 sysa,13,4,"negative":sysa,19,4,"[211]chrift![146]":gosub5240
  73. 5060 sysa,0,2,c$+"verschie-":sysa,4,12,"dene":sysa,8,6,"[198]arben:"
  74. 5070 sysa,13,0,"[144][166][166][166][166][166][166][159][166][166][156][166][166]"
  75. 5080 sysa,17,0,"[166][166][166][166][158][166][166][129][166][166][149][166][166]"
  76. 5090 sysa,21,0,"[150][166][166][151][166][166][153][166][166][154][166][166][155][166][166]":gosub5240
  77. 5100 sysa,2,4,c$+"[151][211]trings:":sysa,14,4,"[218]ahlen:"
  78. 5110 poke198,0:sysa,8,4,left$(ti$,2)+":"+mid$(ti$,3,2)+":"+right$(ti$,2)
  79. 5120 sysa,20,0,ti:getw$:ifw$<>r$then5110
  80. 5130 sysa,0,6,c$+"[210]iesen-":sysa,4,4,"graphik:"
  81. 5140 sysa,9,12,g$+"[186][185][175]":sysa,13,8,"-usa-[146][192][192]"
  82. 5150 sysa,17,0,"[176][192][203]===[202][192][192][201]":sysa,21,0,"[173][215][215][215][215][215][215][215][215][203]":gosub5240
  83. 5160 t$="   [204]ange [212]exte, die nicht mehr auf den [194]ildschirm passen, koennen "
  84. 5170 t$=t$+"z.[194]. durch eine [204]aufschrift (wie diese hier) dargestellt werden!"
  85. 5180 sysa,1,10,k$+c$+"[204]auf-":sysa,6,4,"schrift:[155]"
  86. 5190 poke198,0:sysa,20,0,t$:t$=mid$(t$,2)+left$(t$,1):fori=1to90:next
  87. 5200 getw$:ifw$<>r$then5190
  88. 5210 sysa,3,12,c$+"[151][197]nde":sysa,10,14,"deq":sysa,17,10,"[196]emos"
  89. 5220 end
  90. 5230 print"[194]itte '[210][197][212][213][210][206]' druecken!";
  91. 5240 poke198,0
  92. 5250 getw$:ifw$<>r$then5250
  93. 5260 return
  94.