home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / printerbloc.demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  45 lines
  1. 0 poke53280,12:poke53281,12
  2. 1 ifpeek(49153)<>77thenaw=1:print"[147]laden sie bitte das programm 'printer-
  3. 2 [139]aw[167][153]"blocksatz' und starten sie dieses !":[128]
  4. 10 [153]"loadstoptexteingabe zum 'printerblocksatz'"[166]23)"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  5. 11 print"programmiert von n. heusler, 181286
  6. 12 [153]"(c) nig software nss.     fuer mps 801/3
  7. 13 print"bitte text eingeben und mit f1[146] beenden
  8. 14 [153]"('return')":[151]198,.:[146]198,1:[151]198,.
  9. 20 [153]"load";:[151]53280,11
  10. 25 [151]204,0
  11. 26 [161]a$:[139]a$[178]""[167]26
  12. 27 [151]205,2:[146]207,1,1:[151]204,1
  13. 28 [139]a$[178]"input"[167]30
  14. 29 [153]a$;:[151]216,.:[151]212,.:[153]"stop";:[137]25
  15. 30 [153]"";:[134]w$(500)
  16. 31 n[178][171]1:[159]3,3:[137]40
  17. 32 [141]100:[139]a$[178]" "[167]39
  18. 33 w$(n)[178]w$(n)[170]a$:[137]32
  19. 39 [139]n[177][171]1[167]w$(n)[178]w$(n)[170]" "
  20. 40 n[178]n[170]1:tr[178].:[151]53280,0
  21. 41 [139]([194](214)[178]24[175][194](211)[178]39)[176]tr[177]37[167]50
  22. 42 [151][194](214)[172]40[170][194](211)[170]55296,1:tr[178]tr[170]1
  23. 43 [141]100:[139]a$[178]" "[167]41
  24. 44 w$(n)[178]a$:[151]53280,1:[137]32
  25. 50 ag$[178]"":g[178].:[151]53280,12:[159]4,4
  26. 51 [153]"loaddie geduld hat sich gelohnt.            tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  27. 52 input"pixel/zeile   479[157][157][157][157][157]";pz
  28. 53 ifpz<20orpz>479then52
  29. 54 input"z[146]entrieren/b[146]locksatz   b[157][157][157]";ar$
  30. 55 ifar$<>"b"andar$<>"z"then54
  31. 56 mo=2:ifar$="z"thenmo=1+mo
  32. 60 iflen(ag$+w$(g))*6>pzthen80
  33. 62 ag$=ag$+w$(g):g=g+1:ifg<=nthen60
  34. 63 gosub200
  35. 65 ifmo=2thenprint#4,ag$:goto70
  36. 66 sys49152,4,pz,3,ag$
  37. 70 close4:input"selben text nochmal j/n ";jn$:ifjn$<>"j"andjn$<>"n"then70
  38. 72 ifjn$="j"then50
  39. 74 end
  40. 80 gosub200:sys49152,4,pz,mo,ag$:ag$="":goto60
  41. 100 get#3,a$:ifa$=chr$(13)then100
  42. 101 return
  43. 200 ifright$(ag$,1)=" "thenag$=left$(ag$,len(ag$)-1):goto200
  44. 201 return
  45.