|
25 Years of Programming
An open source source for C, C++, OWL, BASIC, MDB, XLS, DOT, and more... |
Home Projects Up Sitemap Search Blog Forum+Chat About Us Privacy Terms of Use Feedback FAQ Images Services Ads Donate Humor |
10 'MAPDOWN.BAS 11-29-83 11 'COPYRIGHT (C)1983 BY STEVEN WHITNEY. 12 'Published under GNU GPL (General Public License) Version 2, with ABSOLUTELY NO WARRANTY. 13 'STRIPS THE PARITY BITS FROM ALL CHARACTERS IN A FILE, SO 14 'ALL CHARS ARE TRUE ASCII 0-127. 15 'USEFUL FOR MODEM SESSIONS CAPTURED TO A TEXT BUFFER. 16 'I DON'T RECALL IF THIS WAS FOR THE H89 OR H100. 17 'THE ONLY DIFFERENCE SHOULD BE THE SCREEN STATEMENT, 18 'WHICH ONLY CHANGES THE DISPLAY TO REVERSE VIDEO. 20 INPUT "WHAT IS THE NAME OF THE SOURCE FILE";FILE$ 30 INPUT "WHAT FILE DO YOU WANT TO CREATE?";FILE1$ 40 OPEN "I",1,FILE$ 50 OPEN "O",2,FILE1$ 60 WHILE NOT EOF(1) 70 A$=INPUT$(1,#1) 80 IF ASC(A$)>128 THEN SCREEN ,1:A$=CHR$(ASC(A$)-128) 90 PRINT A$; 100 SCREEN ,0 110 PRINT #2,A$; 120 WEND 130 END
|
|
|
|
|
|