home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / master-fox (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  959b  |  40 lines
  1. 100 REM        MASTER-FOX
  2. 110 REM
  3. 120 REM   01.03.87  BY  P.ENGELS
  4. 130 REM   ----------------------
  5. 140 REM
  6. 150 PRINTCHR$(14)"[147][205]ASTERTEXT -> [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$:PRINT#2,CHR$(84);:REM TEXT-KENNUNG
  11. 200 PRINT:PRINT
  12. 210 GET#1,A$:GET#1,A$:REM START ADRESSE UEBERLESEN
  13. 220 GET#1,A$:IFA$=""THENA$=CHR$(0)
  14. 230 A=ASC(A$):B=0
  15. 240 IF(A<27)THENB=A+96:GOTO360:REM KLEIN
  16. 250 IF(A>31)AND(A<91)THENB=A:GOTO360:REM ZIFFERN,ZEICHEN,GROSSBUCHST.
  17. 260 IFA=160THENB=127:REM SHIFT SPACE
  18. 270 IFA=142THENB=13:REM ABSATZ
  19. 280 IFA=91THENB=91:REM AE
  20. 290 IFA=92THENB=92:REM OE
  21. 300 IFA=93THENB=93:REM UE
  22. 310 IFA=27THENB=123:REM AE
  23. 320 IFA=28THENB=124:REM OE
  24. 330 IFA=29THENB=125:REM UE
  25. 340 IFA=30THENB=126:REM SZ
  26. 350 :
  27. 360 PRINTCHR$(B);
  28. 370 IFST=2GOTO420:REM FILE-ENDE
  29. 380 IF B=0GOTO220
  30. 390 PRINT#2,CHR$(B);:IFB=13GOTO460:REM SPACES UEBERLESEN
  31. 400 GOTO220
  32. 410 :
  33. 420 PRINT#2,CHR$(0);CHR$(0):REM ENDEKENNUNG
  34. 430 CLOSE1:CLOSE2
  35. 440 PRINT:PRINT:PRINT"[212]EXT IST KONVERTIERT !![146]":END
  36. 450 :
  37. 460 GET#1,A$:IFA$=""THENA$=CHR$(00):GOTO460
  38. 470 IFA$=CHR$(32)THEN460:SPACES UEBERLESEN
  39. 480 GOTO230
  40.