home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / fox-texto (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  931b  |  40 lines
  1. 100 REM       FOX-TEXTO
  2. 110 REM
  3. 120 REM  01.03.87  BY P.ENGELS
  4. 130 REM  ---------------------
  5. 140 REM
  6. 150 PRINTCHR$(14)"[147][208]RINT[198]OX -> [212]EXTOMAT"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:PRINT:GET#1,A$:REM TEXTKENNUNG
  12. 210 GET#1,A$:IFA$=""THENA$=CHR$(0)
  13. 220 A=ASC(A$):B=0
  14. 230 IF(A>96)AND(A<123)THENB=A-32:GOTO370:REM KLEIN
  15. 240 IF(A>64)AND(A<91)THENB=A+128:GOTO370:REM GROSS
  16. 250 IF(A>31)AND(A<65)THENB=A:GOTO370:REM ZIFFERN & ZEICHEN
  17. 260 IFA=2THENGOTO470:REM FORMATZEILE IGNORIEREN
  18. 270 IFA=160THENB=127:REM SHIFT SPACE
  19. 280 IFA=13THENB=95:REM ABSATZ
  20. 290 IFA=91THENB=169:REM AE
  21. 300 IFA=92THENB=168:REM OE
  22. 310 IFA=93THENB=170:REM UE
  23. 320 IFA=123THENB=165:REM AE
  24. 330 IFA=124THENB=161:REM OE
  25. 340 IFA=125THENB=166:REM UE
  26. 350 IFA=126THENB=167:REM SZ
  27. 360 :
  28. 370 IF(A>31)THEN PRINTCHR$(A);
  29. 380 IFA=13THEN PRINTCHR$(A);
  30. 390 IFST=2GOTO430:REM FILE-ENDE
  31. 400 IF B=0GOTO210
  32. 410 PRINT#2,CHR$(B);:GOTO210
  33. 420 :
  34. 430 PRINT#2
  35. 440 CLOSE1:CLOSE2
  36. 450 PRINT:PRINT:PRINT"[212]EXT IST KONVERTIERT !![146]":END
  37. 460 :
  38. 470 GET#1,A$:IFASC(A$)<>13GOTO470:ZEILE UEBERLESEN
  39. 480 GOTO210
  40.