home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / CBTERM-KEYS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.4 KB  |  99 lines
  1. 5 REM CBTKEY.BAS (C) 1985 BY CHRISDOS
  2. 10 REM FUNCTION KEY FILE MAKER FOR
  3. 20 REM CBTERM/C64 (C) (TM) 1985 BY
  4. 30 REM CHRISDOS. ALL RIGHTS RESERVED.
  5. 95 DIM V$(60),V(60):GOSUB20008
  6. 99 PRINTCHR$(14)
  7. 100 PRINT"ô     ╞UNCTION ╦EY ╞ILE ╨ROCESSOR"
  8. 110 PRINT"     FOR ├┬TERM/├64 (C) (TM) 1985"
  9. 120 PRINT"            BY  ├HRISDOS."
  10. 130 RR$=CHR$(18):NV$=CHR$(146):RV$=NV$
  11. 140 FOR Z=1TO32:ZZ$=ZZ$+CHR$(0):NEXT
  12. 150 PRINT"   1 ═AKE A ╬┼╫ ╞UNCTION ╦EY ╞ILE."
  13. 160 PRINT"   2 ╠OAD AND ┼DIT AN ╧╠─ ╞ILE."
  14. 170 PRINT"   3 ╙AVE THE ╞UNCTION ╦EY ╞ILE."
  15. 180 PRINT"   4 ╠IST AND ┼DIT ╞UNCTION ╦EYS."
  16. 190 PRINT"   5 ┼╬─"
  17. 200 INPUT"        ├HOICE";C
  18. 210 ON C GOSUB 1000,2000,3000,4000,5000
  19. 220 GOTO 100
  20. 300 REM GET FILE NAME
  21. 310 INPUT" ╞ILE ╬AME:";F$
  22. 320 RETURN
  23. 400 REM DISPLAY LINES
  24. 410 FOR L=1TO6
  25. 420 PRINT"╞ ╦EY"L;
  26. 430 FOR M=1TO31
  27. 440 A$=MID$(L$(L),M,1)
  28. 450 A=ASC(A$+CHR$(0))
  29. 460 GOSUB20010:PRINTRV$;A$;NV$;
  30. 470 NEXT M:PRINT:NEXT L
  31. 480 RETURN
  32. 500 REM INPUT A NEW LINE
  33. 510 L=0:INPUT"╫HAT ╞ ╦EY ╬UMBER. (0 TO END.)";L
  34. 520 IFL=0THEN RETURN
  35. 530 IF L<1 OR L>6 THEN 510
  36. 540 PRINT"┼NTER NEW LINE FOR ╞"L" (31 MAX)"
  37. 550 PRINT"╨RESS <├╥╙╥ ╥╔╟╚╘> WHEN FINISHED."
  38. 560 CC=0:AA$=""
  39. 570 GETA$:IFA$=""GOTO570
  40. 575 IFA$=CHR$(29)THEN610
  41. 580 AA$=AA$+A$:A=ASC(A$):GOSUB20010:PRINTRV$;A$;NV$;
  42. 590 CC=CC+1:IFCC=31THEN610
  43. 600 GOTO 570
  44. 610 L$(L)=LEFT$(AA$+ZZ$,32)
  45. 620 RETURN
  46. 1000 REM     
  47. 1010 FOR H=1 TO 6
  48. 1020 L$(H)=ZZ$:NEXT
  49. 1030 GOTO 2020
  50. 2000 REM LOAD DISPLAY AND EDIT
  51. 2010 GOSUB 10000
  52. 2020 PRINT"ô":GOSUB 400
  53. 2030 PRINT"":GOSUB 500
  54. 2040 IFL=0THEN RETURN
  55. 2050 GOTO 2020
  56. 3000 GOTO 10100
  57. 4000 REM LIST AND EDIT
  58. 4010 GOTO 2020
  59. 5000 PRINT"┴RE YOU ╙URE?"
  60. 5010 INPUT X$:IFLEFT$(X$,1)<>"Y"THEN 100
  61. 5020 STOP
  62. 10000 REM OPEN FILE FOR INPUT
  63. 10010 GOSUB 300
  64. 10020 OPEN8,8,8,F$+",R,S"
  65. 10030 FOR L=1TO6:L$(L)=""
  66. 10040 FOR M=1TO32
  67. 10050 GET#8,A$:PRINTASC(A$+CHR$(0));
  68. 10060 L$(L)=L$(L)+A$
  69. 10070 NEXT M:NEXT L
  70. 10080 CLOSE 8
  71. 10090 RETURN
  72. 10100 REM WRITE FILE OUT
  73. 10110 GOSUB 300
  74. 10120 OPEN8,8,8,F$+",W,S"
  75. 10130 FOR L=1TO6
  76. 10140 PRINT#8,L$(L);
  77. 10150 NEXT L
  78. 10160 CLOSE 8
  79. 10170 RETURN
  80. 20000 DATA "┴",    
  81. 20001 DATA "╔",162,"╩",181,"╦",161,"╠",182,"═",167,"╬",170,"╧",185,"╨",175
  82. 20002 DATA "╤",171,"╥",178,"╙",174,"╘",163,"╒",184,"╓",190,"╫",179,"╪",186
  83. 20003 DATA "┘",183,"┌",173,"1",129,"2",149,"3",150,"4",151,"5",152,"6",153
  84. 20004 DATA "7",154,"8",155,"9", 41,"$", 95
  85. 20005 DATA "<╞1>",133,"<╞2>",137,"<╞3>",134,"<╞4>",138,"<╞5>",136,"<╞6>",139
  86. 20006 DATA "<╞7>",136,"<╞8>",140,"+",166,"-",220,"@",164,"*",223,"^",222
  87. 20008 KC=49:FORX=1TOKC:READV$(X),V(X):NEXT:RETURN
  88. 20010 REM CHECK C= VALUE
  89. 20015 RV$=N    
  90. 20016 IF A<32 THEN 20100
  91. 20017 IF(A>=32ANDA<=90)OR(A>=193ANDA<=218)THENRETURN
  92. 20020 FOR CK=1TOKC
  93. 20040 IF A=V(CK)THEN A$=V$(CK):CK=KC:R
  94. $=RR$
  95. 20050 NEXT CK
  96. 20060 RETURN
  97. 20100 RV$=RR$
  98. 20110 A$="^"+CHR$(A+64+128)
  99. 20120 RETURN
  100.