home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / dafbm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  878b  |  30 lines
  1. 0 rem ** verschiedene drucker am     **
  2. 1 rem ** btx-modul ii anpassen       **
  3. 2 rem ** (umlaute und sek.adresse    **
  4. 3 ifb=0thenb=1:load"drucker daten",8,1
  5. 4 a=3841:print"[147]eingabe der umlaute"
  6. 5 print"orginal wert (190)"
  7. 6 input"        (ss)";ss:poke a,ss
  8. 7 print"orginal wert (187)"
  9. 8 input"kleines (ae)";a1:poke a+5,a1
  10. 9 print"orginal wert (219)"
  11. 10 input"grosses (ae)";a2:poke a+10,a2
  12. 11 print"orginal wert (188)"
  13. 12 input"kleines (oe)";o1:poke a+15,o1
  14. 13 print"orginal wert (220)"
  15. 14 input"grosses (oe)";o2:poke a+20,o2
  16. 15 print"orginal wert (189)"
  17. 16 input"kleines (ue)";u1:poke a+25,u1
  18. 17 print"orginal wert (221)"
  19. 18 input"grosses (ue)";u2:poke a+30,u2
  20. 19 print"eingabe der sek.adresse"
  21. 20 print"orginal wert (07)"
  22. 21 input" sek.adresse";sa:poke a+35,sa+96
  23. 22 print"alles richtig j[146]a/n[146]ein"
  24. 23 geta$:ifa$=""then23
  25. 24 ifa$="j"then26
  26. 25 ifa$="n"then run
  27. 26 print"daten werden abgespeichert!!!"
  28. 27 poke43,0:poke44,15:poke3839,0:poke45,44:poke46,15
  29. 28 save"btx-extra.mas",8,1:end
  30.