home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / texto-fox (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  848b  |  37 lines
  1. 100 REM       TEXTO-FOX
  2. 110 REM
  3. 120 REM  01.03.87  BY P.ENGELS
  4. 130 REM  ---------------------
  5. 140 REM
  6. 150 PRINTCHR$(14)"[147][212]EXTOMAT -> [208]RINT[198]OX"CHR$(13)"   [212]EXTKONVERTER"
  7. 160 INPUT"[209]UELL-[212]EXT:";QF$:QF$=QF$+",P,R"
  8. 170 INPUT" [218]IEL-[212]EXT:";ZF$:ZF$=ZF$+",P,W"
  9. 180 OPEN1,8,3,QF$
  10. 190 OPEN2,8,4,ZF$
  11. 200 PRINT#2,CHR$(84);:REM TEXT-KENNUNG
  12. 210 :
  13. 220 GET#1,A$:IFA$=""THENA$=CHR$(0)
  14. 230 A=ASC(A$):B=0
  15. 240 IF(A>64)AND(A<91)THENB=A+32:GOTO370:REM KLEIN
  16. 250 IF(A>192)AND(A<219)THENB=A-128:GOTO370:REM GROSS
  17. 260 IF(A>31)AND(A<65)THENB=A:GOTO370:REM ZIFFERN & ZEICHEN
  18. 270 IFA=160THENB=127:REM SHIFT SPACE
  19. 280 IFA=95THENB=13:REM ABSATZ
  20. 290 IFA=169THENB=91:REM AE
  21. 300 IFA=168THENB=92:REM OE
  22. 310 IFA=170THENB=93:REM UE
  23. 320 IFA=165THENB=123:REM AE
  24. 330 IFA=161THENB=124:REM OE
  25. 340 IFA=166THENB=125:REM UE
  26. 350 IFA=167THENB=126:REM SZ
  27. 360 :
  28. 370 IFA=95 THEN PRINT CHR$(13);:GOTO390
  29. 380 PRINTCHR$(A);
  30. 390 IFST=2GOTO430:REM FILE-ENDE
  31. 400 IF B=0GOTO220
  32. 410 PRINT#2,CHR$(B);:GOTO220
  33. 420 :
  34. 430 PRINT#2,CHR$(0);CHR$(0)
  35. 440 CLOSE1:CLOSE2
  36. 450 PRINT:PRINT:PRINT" [212]EXT IST KONVERTIERT !![146]"
  37.