home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / zeichen-demo (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  3.4 KB  |  217 lines
  1. 100 :
  2. 101 D_   D    D{$60}
  3. 102 :
  4. 103 D
  5. 104 :
  6. 105 D_   D   D{$60}
  7. 106 :
  8. 107 D1
  9. 108 Cx:DsC3:C\0,14,15:Cy
  10. 109 :
  11. 110 D_   D   D{$60}
  12. 111 :
  13. 112 D0,0,1
  14. 113 :
  15. 114 D_    D
  16.     D{$60}
  17. 115 :
  18. 116 D
  19. ".**..**."
  20. 117 D
  21. "........"
  22. 118 D
  23. "..****.."
  24. 119 D
  25. ".....**."
  26. 120 D
  27. "..*****."
  28. 121 D
  29. ".**..**."
  30. 122 D
  31. "..*****."
  32. 123 D
  33. "........"
  34. 124 D0,28,1
  35. 125 D
  36. ".**..**."
  37. 126 D
  38. "........"
  39. 127 D
  40. "..****.."
  41. 128 D
  42. ".**..**."
  43. 129 D
  44. ".**..**."
  45. 130 D
  46. ".**..**."
  47. 131 D
  48. "..****.."
  49. 132 D
  50. "........"
  51. 133 D0,30,1
  52. 134 D
  53. ".**..**."
  54. 135 D
  55. "........"
  56. 136 D
  57. ".**..**."
  58. 137 D
  59. ".**..**."
  60. 138 D
  61. ".**..**."
  62. 139 D
  63. ".**..**."
  64. 140 D
  65. "..*****."
  66. 141 D
  67. "........"
  68. 142 Cu11,3,"Zeichensatz - Demo"
  69. 143 Cv" Im ge@nderten Zeichensatz k\nnen"
  70. 144 Cv" nat^rlich auch Umlaute dargestellt"
  71. 145 Cv" werden , wie zum Beispiel  :"
  72. 146 Cv"  F@hre , K\ln , T^r"
  73. 147 Cu5,18,"Bitte nun eine Taste dr^cken !"
  74. 148 Cta$
  75. 149 :
  76. 150 D_  D   D{$60}
  77. 151 :
  78. 152 D0,1,1,128,1
  79. 153 D28,1,1,156,1
  80. 154 D30,1,1,158,1
  81. 155 :
  82. 156 D_   D   D{$60}
  83. 157 :
  84. 158 D128,1
  85. 159 D156,1
  86. 160 D158,1
  87. 161 C_0,6,40,8,32
  88. 162 Cu6,6,"Die Zeichen k\nnen nat^rlich"
  89. 163 Cv"sowohl normal , als auch revers"
  90. 164 Cv"dargestellt werden  :"
  91. 165 Cu9,13," @ @ @  \ \ \  ^ ^ ^ "
  92. 166 CJ11,20
  93. 167 Cta$
  94. 168 CJ
  95. 169 :
  96. 170 D_   D    D{$60}
  97. 171 :
  98. 172 fora=1to14:readi
  99. 173 Di,0,0,i+64,0:Di+64,0,1:Di,0,0,i+128,0:Di+128,0,3
  100. 174 Di,0,0,i+192,0:Di+192,0,2
  101. 175 next
  102. 176 data19,16,5,3,9,1,12,2,20,14,4,18,21,11
  103. 177 Cy:Cw:C\0,15,14
  104. 178 Cu1,18
  105. 179 C[1,"SPECIAL BASIC"
  106. 180 Cu0,1
  107. 181 Cv"special basic"
  108. 182 Cu39,5
  109. 183 C[5,"specialbasic"
  110. 184 Cu28,23
  111. 185 C[7,"SPECIALBASIC"
  112. 186 Cu17,7,"bitte"
  113. 187 Cu24,10
  114. 188 C[5,"eine"
  115. 189 Cu23,18
  116. 190 C[7,"TASTE"
  117. 191 Cu15,16
  118. 192 C[1,"DRUECKEN"
  119. 193 C]15,7,9,12,1
  120. 194 C;
  121. 195 CH1,1,38,1,1
  122. 196 CG38,1,1,23,1
  123. 197 CI1,23,38,1,1
  124. 198 CF1,1,1,23,1
  125. 199 fori=1to30:next
  126. 200 geta$
  127. 201 C@a$<>""
  128. 202 :
  129. 203 D_   D   D{$60}
  130. 204 :
  131. 205 D:C\0,6,3:C{$60}0,0,40,25,87,6
  132. 206 Cu6,11,"O";C("{CBM-Y}",25);"P"
  133. 207 printtab(6)"{CBM-H}bitte eine taste druecken{CBM-N}"
  134. 208 printtab(6)"L";C("{CBM-P}",25);"{SHIFT-@}"
  135. 209 C;
  136. 210 Dr87,0,1,1:Du87,0,1,1
  137. 211 geta$
  138. 212 C@a$<>""
  139. 213 :
  140. 214 D_   C   D{$60}
  141. 215 :
  142. 216 D48,0,0,28,0:D48,0,0,0,0:C\12,15,15
  143. 217 Cy:Cu14,11,"O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P"
  144. 218 Cu14,12,"{CBM-H}0000@\ km{CBM-N}"
  145. 219 Cu14,13,"L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}":Dq1
  146. 220 fori=49to50
  147. 221 :  forj=49to57
  148. 222 :    fora=1to8
  149. 223 :      Du28,0,1,0
  150. 224 :      D0,28,0
  151. 225 :      D
  152. C(j,0,0,a),8
  153. 226 :      fort=1to100:next
  154. 227 :    next
  155. 228 :    fort=1to100:next
  156. 229 :  next
  157. 230 :  fora=1to8
  158. 231 :    Du0,0,1,0:D0,0,0
  159. 232 :    D
  160. C(i,0,0,a),8
  161. 233 :    Du28,0,1,0:D0,28,0
  162. 234 :    D
  163. C(48,0,0,a),8
  164. 235 :    fort=1to100:next
  165. 236 :  next
  166. 237 :  fort=1to100:next
  167. 238 next
  168. 239 :
  169. 240 D_    D    D{$60}
  170. 241 :
  171. 242 D_      &     D{$60}
  172. 243 :
  173. 244 D_    D    D{$60}
  174. 245 :
  175. 246 C\7,14,9:Cy:Cu4,3,"natuerlich koennen alle zeichen"
  176. 247 Cv"auch gespiegelt werden ."
  177. 248 Cu7,16,C
  178. (65,90)
  179. 249 fora=0to1
  180. 250 Cu12,12,"in ";chr$(88+a);" - richtung :"
  181. 251 Dq2
  182. 252 fori=1to26
  183. 253 ifathenDi,0:C7Di,0
  184. 254 fort=1to80:nextt,i
  185. 255 Dq2
  186. 256 fori=26to1step-1
  187. 257 ifathenDi,0:C7Di,0
  188. 258 fort=1to80:nextt,i
  189. 259 next
  190. 260 Cu7,21,"bitte eine taste druecken"
  191. 261 Cta$
  192. 262 :
  193. 263 D_   D    D{$60}
  194. 264 :
  195. 265 Ca
  196. 266 D0,0
  197. 267 :
  198. 268 D_   D    D{$60}
  199. 269 :
  200. 270 Cu0,8,""
  201. 271 Cv"@@@@@@@@@@@@@@@@@@
  202.  
  203. 272 Cv"@@@@@@@@@@@@@
  204.  
  205. 273 Cv"@@@@@@@@@@@@@
  206.  
  207. 274 Cv"@@@@@@@@@@@@@@@@@@
  208.  
  209. 275 Cv"@@@@@@@@@@@@@@@@@@
  210.  
  211. 276 Cv"@@@@@@@@@@@@@
  212.  
  213. 277 Cv"@@@@@@@@@@@@@
  214.  
  215. 278 Cv"@@@@@@@@@@@@@@@@@@
  216.  
  217. 279 s$="{CBM-M}{CBM-T}{CBM-@}{CBM-G} CB {CBM-+}   "
  218. 280 fori=1tolen(s$)
  219. 281 geta$
  220. 282 ifa$<>""thenD0:Cy:C\0,6,15:end
  221. 283 D0,0,1,C(asc(mid$(s$,i))),0,0,0,0
  222. 284 fort=1to200:next
  223. 285 next
  224. 286 Cc
  225. 287 :
  226.