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

 

 

Valid HTML 4.01 Transitional Valid CSS
View content labeling at ICRA.
Copyright ©2007 Steven Whitney. Last modified 09/25/2007.