home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh31.d64 / master-convert (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  676b  |  28 lines
  1. 5 CLOSE 1:CLOSE 2:CLOSE 3
  2. 10 PRINT"[147]";CHR$(14):INPUT"[206]AME DER [212]EXT-[196]ATEI: ";NA$
  3. 15 INPUT"[206]AME DER [193]USGABE-DATEI: ";AUS$
  4. 20 OPEN 2,8,2,NA$+",P,R"
  5. 30 OPEN3,8,3,"@:"+AUS$+",S,W"
  6. 35 GET#2,A$:GET#2,A$:PRINT"[147]"
  7. 36 :
  8. 37 FOR I = 1TO 80:EN =0
  9. 40 GET#2,A$:IFA$="" THEN A$=CHR$(0)
  10. 50 IF ST <> 64 THEN GOSUB 100:IF EN=1 THEN 37
  11. 60 IF ST = 64 THEN PRINT#3,CHR$(64):CLOSE 2:CLOSE 3
  12. 65 NEXT I
  13. 70 PRINT "[147][198]ERTIG!":END
  14. 90 :
  15. 95 :
  16. 100 IF ASC(A$)=0 THEN RETURN
  17. 102 IF ASC(A$) >=1 AND ASC(A$) <=26 THENA$ = CHR$(ASC(A$)+64):GOSUB 500:RETURN
  18. 103 IF ASC(A$) >=32AND ASC(A$) <=64 THEN GOSUB 500:RETURN
  19. 105 IF ASC(A$) >=65 AND ASC(A$) <=90 THEN A$ =CHR$(ASC(A$)+128):GOSUB500:RETURN
  20. 111 IFASC(A$)=142THEN A$=CHR$(13)+CHR$(10):GOSUB500:GOSUB 200: EN=1: RETURN
  21. 115 IF ASC(A$) >=127 AND ASC(A$) <= 192 THEN RETURN
  22. 150 RETURN
  23. 160 :
  24. 200 X= 80 - I
  25. 205 FOR Z = 1 TO X : GET#2,A$::NEXT Z:RETURN
  26. 499 :
  27. 500 PRINT#3,A$;:PRINTA$;:RETURN
  28.