home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9002a.d64 / input (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  41 lines
  1. 1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 10 GOTO 1000
  3. 110 REM VON JENS J.LAUTERBACH
  4. 120 REM     6200 WIESBADEN
  5. 150 REM EI$ : VORGABE- UND EINGABESTRING
  6. 160 REM GL  : MAXIMAL ERLAUBTE EINGABELAENGE
  7. 170 REM FL  : LAENGE DES EINGABEFELDES
  8. 180 REM
  9. 190 REM SP$ MUSS MINDESTENS GL SPACE ENTHALTEN !!!
  10. 200 EI$=LEFT$(EI$+SP$,GL)
  11. 210 CS=POS(0):QQ=FL+2
  12. 220 POKE 198,0
  13. 230 P=1:PZ=1
  14. 240 POKE 211,CS
  15. 250 PRINT MID$(LEFT$(EI$,P-1)+""+MID$(EI$,P,1)+"[146]"+MID$(EI$,P+1),PZ,QQ);
  16. 260 WAIT 198,255:GET A$:REM AUF TASTE WARTEN
  17. 270 IF A$=CHR$(13) THEN POKE 211,CS:PRINT LEFT$(EI$,FL):RETURN
  18. 280 IF A$="" GOTO 230
  19. 290 IF A$="[147]" THEN EI$=LEFT$(SP$,GL):GOTO 240
  20. 300 IF A$="" GOTO 440
  21. 310 IF A$="[157]" GOTO 360
  22. 320 IF A$<>CHR$(20) GOTO 370
  23. 330 IF P=1 GOTO 260
  24. 340 IF P=2 THEN EI$=MID$(EI$,2)+" ":GOTO 240
  25. 350 EI$=LEFT$(EI$,P-2)+MID$(EI$,P)+" "
  26. 360 P=P-1-(P=1):PZ=PZ-1-(P=>PZ):GOTO 240
  27. 370 IF A$<>CHR$(148) GOTO 400
  28. 380 IF RIGHT$(EI$,1)<>" " GOTO 260
  29. 390 EI$=LEFT$(EI$,P-1)+" "+MID$(EI$,P,GL-P):GOTO 240
  30. 400 IF A$<" " GOTO 260
  31. 410 IF A$<CHR$(128) GOTO 430
  32. 420 IF A$<CHR$(160) GOTO 260
  33. 430 EI$=LEFT$(EI$,P-1)+A$+MID$(EI$,P+1)
  34. 440 P=P+1+(P=GL):PZ=PZ+1+(P-PZ<FL):GOTO 240
  35. 1000 REM --- STEUERPROGRAMM ---
  36. 1010 SP$="                                        "
  37. 1020 EI$="[214]ORGABESTRING":GL=50:FL=20:GOSUB 100
  38. 1030 PRINT"[211]IE GABEN EIN :"
  39. 1040 PRINT EI$
  40. 1050 END
  41.