home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9209.d64 / t-puffer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.