home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / basic-eing. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  38 lines
  1. 10 REM ***************************
  2. 12 REM"*                         *
  3. 14 [143]"*     (null)ILLI PEEKURMEISTER    *
  4. 16 REM"*                         *
  5. 18 [143]"*     LEFT$OLZKRUGWEG 30      *
  6. 22 REM"*     2390 [198]LENSBURG      *
  7. 24 [143]"*                         *
  8. 26 REM"*     [212]EL.: 0461/92164    *
  9. 28 [143]"*                         *
  10. 30 REM"*         [194]ASIC -         *
  11. 32 [143]"*     VALINGABEROUTINE      *
  12. 34 REM"*                         *
  13. 36 [143]"***************************
  14. 40 GOTO 1000
  15. 50 REM ***************************
  16. 60 REM *    BEGIN DER ROUTINE    *
  17. 70 REM ***************************
  18. 100 PRINT IN$; : ZT=TI : ZC=4 : IF (LT<1) THEN LT=1
  19. 110 GET Z$ : IF Z$<>"" THEN 140
  20. 120 IF (ZT<=TI) THEN PRINT MID$(" [145] [146]",ZC,3);"[157]"; : ZC=5-ZC : ZT=TI+25
  21. 130 GOTO 110
  22. 140 Z=ASC(Z$) : ZL=LEN(IN$)
  23. 150 IF (ZL<LT) AND ((Z AND 127)>31) THEN IN$=IN$+Z$ : PRINT Z$; : POKE 212,0 : GOTO 110
  24. 160 PRINT" [157]";
  25. 170 IF (Z=13) AND (ZL>0) THEN RETURN
  26. 180 IF (Z=20) AND (ZL>0) THEN IN$=LEFT$(IN$,ZL-1) : PRINT "[157]"; : GOTO110
  27. 190 IF (Z=141) AND (ZL>0) THEN FOR Z=1 TO ZL : PRINT "[157] [157]"; : NEXT : IN$=""
  28. 200 GOTO 110
  29. 210 REM ***************************
  30. 220 REM *    ENDE DER ROUTINE     *
  31. 230 REM ***************************
  32. 1000 PRINT"[147]"
  33. 1010 PRINT"[194]ASIC-[197]INGABEROUTINE [194]EISPIEL"
  34. 1020 PRINT : PRINT
  35. 1030 IN$="[214]ORBESETZUNG" : LT=15
  36. 1040 GOSUB 100
  37. 1050 PRINT "" : PRINT IN$
  38.