home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / string-kurs (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  974b  |  61 lines
  1. 200 rem ****** listing 2/2 *******
  2. 202 :
  3. 204 printchr$(14)chr$(147)
  4. 206 open 1,4,7
  5. 208 dim z$(600)
  6. 210 :
  7. 212 input"zeichen pro zeile";z
  8. 214 if z>80 then 212
  9. 216 :
  10. 218 input"linker rand";l
  11. 220 if l+z>79 then 218
  12. 228 :
  13. 230 get a$
  14. 232 :
  15. 234 print"*[157]";
  16. 236 for t=0 to 30:next
  17. 238 print" [157]";
  18. 240 for t=0 to 30:next
  19. 242 :
  20. 244 if a$="" then 230
  21. 246 if asc(a$)=1 then close 1:end:rem vc-20 133
  22. 247 if asc(a$)=2 then gosub 310:rem vc-20 134
  23. 248 if asc(a$)=157 then 230
  24. 250 if asc(a$)=145 then 230
  25. 252 if asc(a$)=17 then 230
  26. 254 if len(t$)=z and asc(a$)<>13 and asc(a$)<>20 then 230
  27. 256 if asc(a$)=20 and len(t$)=0 then 230
  28. 258 if asc(a$)=20 then t$=left$(t$,len(t$)-1):goto 264
  29. 260 :
  30. 262 t$=t$+a$
  31. 264 print a$;
  32. 266 if len(t$)=z-5 then gosub 286
  33. 268 if asc(a$)<>13 then 230
  34. 270 :
  35. 272 for j=1 to l
  36. 274 t$=" "+t$
  37. 276 next j
  38. 278 print#1,t$;
  39. 279 z$(x)=t$
  40. 280 t$=""
  41. 281 x=x+1
  42. 282 goto 230
  43. 284 :
  44. 286 rem ++++ unterprogramm klingel ++++
  45. 287 rem         (beispiel c-64)
  46. 288 :
  47. 289 poke 54277,28
  48. 290 poke 54273,26
  49. 292 poke 54276,33
  50. 294 poke 54296,5
  51. 296 for k=1 to 100:next k
  52. 298 poke 54276,32
  53. 299 return
  54. 300 :
  55. 310 rem++ unterprogramm ganzer text +++
  56. 312 :
  57. 314 for y=0 to x
  58. 316 print#1,z$(y);
  59. 318 next y
  60. 320 return
  61.