home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 July / 64er_Magazin_88-07_1988_Markt__Technik_de_Side_A.d64 / eingabeh.korr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  540b  |  21 lines
  1. 10 rem eingabeprg max. 16 zeichen
  2. 11 rem rupp, nagel, korr. von ponnath
  3. 12 printchr$(14):printchr$(8):rem kleinschrift,verriegeln
  4. 15 poke 788,52:rem run/stop aus
  5. 20 printchr$(147):rem bildschirm loeschen
  6. 30 print"[201]hr [206]ame:"
  7. 40 print" "chr$(125):rem cursor
  8. 45 x=x+1
  9. 50 get x$:if x$="" then 50
  10. 60 if x$=chr$(13) then 80:rem return
  11. 66 if x$=chr$(32) then 75:rem space
  12. 67 if asc(x$)<65 then 50
  13. 68 if asc(x$)>90 and asc(x$)<193 then 50
  14. 70 if asc(x$)>218 then 50
  15. 75 if x>16 then 50
  16. 79 printtab(x)chr$(145)x$chr$(125):te$=te$+x$:goto45
  17. 80 printtab(x+1)chr$(145)chr$(20)
  18. 84 print"[211]ie heissen:"
  19. 85 printte$
  20. 90 printchr$(9):poke 788,49:rem normalyustand wiederherstellen
  21.