home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh17b.d64 / miniedit (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  540b  |  22 lines
  1. 100 REM *******************************
  2. 110 REM *   MINI-EDITOR FUER GROSSE   *
  3. 120 REM *                             *
  4. 130 REM *      LAUFSCHRIFT            *
  5. 140 REM *                             *
  6. 150 REM *******************************
  7. 160 REM
  8. 170 REM
  9. 180 REM
  10. 190 ADRESSE=50944
  11. 200 INPUT"TEXT";A$
  12. 210 PRINT"[147]"A$
  13. 220 IF ADRESSE>53160 THEN PRINT"ZU VIEL TEXT!!!!":ADRESSE=ADRESSE-5:GOTO270
  14. 230 FORI=0TOLEN(A$)
  15. 240 POKE ADRESSE+I,PEEK(1024+I)
  16. 245 IF PEEK(1024+I)=32 THEN POKE ADRESSE+I,27
  17. 247 NEXT
  18. 250 ADRESSE=ADRESSE+LEN(A$)
  19. 260 INPUT"NOCH MEHR";B$:IF B$="J"THEN 200
  20. 270 FORI=0TO5:POKEADRESSE+I,0:NEXT
  21. 280 SYS 49152
  22.