home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 September / 64er_Magazin_92-09_1992_Markt__Technik_de.d64 / t-puffer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  756b  |  25 lines
  1. 10 print"[147]":rem ordnung ins bild
  2. 20 ifpeek(2)=1then220:rem fuer den 2. durchgang
  3. 30 poke2,1
  4. 40 print"[147]"
  5. 50 goto80: die eingegebene zeile wird uebersprungen
  6. 60 x=12+34*1234-sqr(89)+12*12
  7. 70 return
  8. 80 geta$:rem ein zeichen eingeben
  9. 90 printa$;
  10. 100 ifa$<>chr$(13)then80:rem ende, wenn return gedrueckt wird
  11. 110 print"[145][145][145][145]";:rem cursor neu positioneieren
  12. 120 poke631,asc("[148]"):rem zwei stellen fuer
  13. 130 poke632,asc("[148]"):rem zeilennummer einfuegen
  14. 140 poke633,asc("1"):rem erste ziffer der zeilennummer
  15. 150 poke634,asc("5"):rem zweite ziffer der zeilennummer
  16. 160 poke635,13:rem ende der zeile
  17. 170 poke636,asc("r"):rem eingabe von
  18. 180 poke637,asc("[213]"):rem run simulieren
  19. 190 poke638,13:rem ende der eingabe
  20. 200 poke198,8:rem acht zeichen im puffer
  21. 210 stop:rem in direktmodus schalten
  22. 220 poke2,0:rem flag wieder loeschen
  23. 230 gosub60:rem eingegebene zeile ausfuehren
  24. 240 printx
  25.