home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / compuserve / Basic / CHAR.MRG < prev    next >
Text File  |  2006-10-19  |  1KB  |  37 lines
  1.  
  2. 100 REM CHAR/CODER BY B.A. TRAVER, 552 SEVILLE ST., PHILA., PA 19128
  3. 110 REM FOR FURTHER INFORMATION, SEND S.A.S.E.
  4. 120 CALL CLEAR :: PRINT "CHAR/CODER"
  5. 130 PRINT :"DIRECTIONS:  ENTER DATA AS  INDICATED FOR EACH LINE OF  YOUR PROGRAM
  6.  WHICH INCLUDES A CALL CHAR STATEMENT."
  7. 140 PRINT :"UNLESS YOU INDICATE OTHER-":"WISE, LINE NUMBERING STARTS AT 100 AND 
  8. INCREMENTS BY 10 AUTOMATICALLY."
  9. 150 PRINT :"ALSO, UNLESS YOU INDICATE   OTHERWISE, CHARACTER NUMBERSARE INCREMEN
  10. TED BY 1 AUTO-  MATICALLY.": :
  11. 160 DEF L$(L)=CHR$(INT(L/256))&CHR$(L-256*INT(L/256))
  12. 170 DEF A199$(M$)=CHR$(199)&CHR$(LEN(M$))&M$
  13. 180 DEF A200$(M$)=CHR$(200)&CHR$(LEN(M$))&M$
  14. 190 L=100
  15. 200 OPEN #1:"DSK1.CHARACTERS",VARIABLE 163
  16. 210 GOSUB 320
  17. 220 GOSUB 310
  18. 230 PRINT :"ANOTHER (Y/N)? ";
  19. 240 CALL KEY(0,K,S):: IF S=0 THEN 240
  20. 250 IF K<>78 AND K<>89 THEN 240 ELSE PRINT CHR$(K): :
  21. 260 IF K=89 THEN L=L+10 :: C$=STR$(VAL(C$)+1):: GOTO 210
  22. 270 PRINT #1:CHR$(255)&CHR$(255)
  23. 280 CLOSE #1
  24. 290 PRINT :"NOW ENTER THE FOLLOWING TO  SEE YOUR PROGRAM, WHICH YOU CAN SAVE AND
  25.  MODIFY LATER:": :"  NEW":"  MERGE DSK1.CHARACTERS"
  26. 300 END
  27. 310 PRINT #1:L$(L)&CHR$(157)&A200$("CHAR")&CHR$(183)&A200$(C$)&CHR$(179)&A199$(D
  28. $)&CHR$(182)&CHR$(0):: RETURN
  29. 320 REM ACCEPT INPUT
  30. 330 PRINT "LINE:";L
  31. 340 ACCEPT AT(23,7)SIZE(-4):L
  32. 350 PRINT :"CALL CHAR"
  33. 360 PRINT "CHAR NUMBER: ";C$
  34. 370 ACCEPT AT(23,14)SIZE(-3):C$
  35. 380 PRINT "CHAR STRING:"
  36. 390 ACCEPT AT(23,14):D$ :: RETURN
  37.