home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TERM / FUNKEY.BAS < prev    next >
BASIC Source File  |  2000-06-30  |  9KB  |  227 lines
  1. 10 REM *************FUNKEY.BAS 9/17/86********************************
  2. 20 REM WRITTEN IN MICROSOFT BASIC
  3. 30 REM AL BRENDEL... 9/20/86
  4. 40 REM TERMINAL FUNCTION KEY PROGRAMMER AND LABELER
  5. 50 REM WORKS WITH EITHER WYSE OR TELEVIDEO..MAYBE OTHERS
  6. 60 REM COULD BE CONVERTED TO .COM PROGRAM BUT I CHANGE MY MIND SO OFTEN I WANTED
  7. 70 REM SOMETHING EASY TO CHANGE..
  8. 80 REM COULD BE USED FOR ALL 32 FUNCTION KEYS BUT ONLY THOSE CAPABLE OF BEING
  9. 90 REM DISPLAYED WERE USED.
  10. 100 REM TO USE..CHANGE FUNCTIONS AND LABELS TO SUIT,SAVE,REMOVE STATEMENT 500
  11. 110 REM AND THEN TYPE...... MBASIC FUNKEY
  12. 120 REM **************** DEFINITIONS *****************************
  13. 130 DIM M$(16),C$(16)
  14. 140 CLR$=CHR$(26)        'CLEAR SCREEN
  15. 150 CR$=CHR$(13)            'CARRIAGE RETURN
  16. 160 ESC$=CHR$(27)        'ESCAPE
  17. 170 DEL$=CHR$(127)        'DELETE
  18. 180 DEF FNWYSE$=ESC$+"A"+"1"+"4"        'REVERSE FUNCTION MESSAGE--WYSE ONLY
  19. 190 DEF FNTVI$=ESC$+"\"+"1"+"4"        'REVERSE FUNCTION MESSAGE--TVI-920 ONLY
  20. 200 DEF FNHEAD$(MSG$)=ESC$+"F"+MSG$+CR$    'HEADER MESSAGE
  21. 210 DEF FNMSG$(N,MSG$)=ESC$+"z"+CHR$(N)+MSG$+CR$    'FUNCTION KEY FIELD MSG.
  22. 220 DEF FNFUN$(V,SEQ$)=ESC$+"z"+CHR$(V)+SEQ$+DEL$    'FUNCTION KEY FUNCTION
  23. 230 REM ******************PROGRAM *******************************
  24. 240 PRINT FNWYSE$;FNTVI$;
  25. 250 PRINT CLR$;
  26. 260 PRINT"    FUNCTION KEY PROGRAMMER AND LABELER PROGRAM":PRINT:PRINT
  27. 270 PRINT"PROGRAM WILL PROGRAM AND LABEL F1 THRU F8 AND (SHIFT)F1 THRU (SHIFT)F8"
  28. 280 PRINT:PRINT
  29. 290 PRINT"FUNCTIONS AVAILABLE:":PRINT:PRINT
  30. 300 PRINT"1.....NO FUNCTIONS"
  31. 310 PRINT"2.....TURBODOS"
  32. 320 PRINT"3.....WORDSTAR"
  33. 330 PRINT"4.....BASIC"
  34. 340 PRINT"5.....MEX"
  35. 350 PRINT"6.....DBASE II"
  36. 360 PRINT"7.....ADVENTURE"
  37. 370 PRINT "INPUT CHOICE";
  38. 380 N=ASC(INPUT$(1))-48
  39. 390 IF N<0 OR N>7 THEN 380
  40. 400 IF N=1 THEN PRINT ESC$+"A"+"1"+"1":PRINT ESC$+"\"+"1"+"1"
  41. 410 ON N GOSUB 560,750,940,1130,1320,1510,1700
  42. 420 PRINT FNHEAD$(HEAD$)"
  43. 430 FOR X=1 TO 8
  44. 440 PRINT FNMSG$(47+X,M$(X));FNFUN$(63+X,C$(X));
  45. 450 NEXT X
  46. 460 FOR X=9 TO 16
  47. 470 PRINT FNMSG$(71+X,M$(X));FNFUN$(87+X,C$(X));
  48. 480 NEXT X
  49. 490 PRINT CLR$
  50. 500 END    'REMOVE THIS STATEMENT AFTER CHECKING AND SAVING YOUR VERSION****
  51. 510 SYSTEM
  52. 520 REM******************DATA***********************************
  53. 530 REM DATA FORMAT:   M$(N)="MSG DISPLAYED AT SCREEN BOTTOM" (8 CHARACTERS)
  54. 540 REM                C$(N)=COMMAND STRING STORED UNDER F(N) KEY (8 CHARACTERS)
  55. 550 REM                HEAD$="MSG DISPLAYED AT TOP OF SCREEN"(46 CHARACTERS)
  56. 560 REM***********NO FUNCTIONS**************
  57. 570 HEAD$=""
  58. 580 M$(1)="        ":C$(1)=""
  59. 590 M$(2)="        ":C$(2)=""
  60. 600 M$(3)="        ":C$(3)=""
  61. 610 M$(4)="        ":C$(4)=""
  62. 620 M$(5)="        ":C$(5)=""
  63. 630 M$(6)="        ":C$(6)=""
  64. 640 M$(7)="        ":C$(7)=""
  65. 650 M$(8)="        ":C$(8)=""
  66. 660 M$(9)="        ":C$(9)=""
  67. 670 M$(10)="        ":C$(10)=""
  68. 680 M$(11)="        ":C$(11)=""
  69. 690 M$(12)="        ":C$(12)=""
  70. 700 M$(13)="        ":C$(13)=""
  71. 710 M$(14)="        ":C$(14)=""
  72. 720 M$(15)="        ":C$(15)=""
  73. 730 M$(16)="        ":C$(16)=""
  74. 740 RETURN
  75. 750 REM***********TURBODOS******************
  76. 760 HEAD$="                            TURBODOS FUNCTIONS"
  77. 770 M$(1)="  DIR   ":C$(1)="DIR"+CR$
  78. 780 M$(2)=" BISHOW ":C$(2)="BISHOW "
  79. 790 M$(3)=" NSWPT  ":C$(3)="NSWPT"+CR$
  80. 800 M$(4)="WORDSTAR":C$(4)="WS"+CR$
  81. 810 M$(5)="FAST-WS ":C$(5)="FWS"+CR$
  82. 820 M$(6)=" HELP   ":C$(6)="HELP"+CR$
  83. 830 M$(7)="MBASIC  ":C$(7)="MBASIC"+CR$
  84. 840 M$(8)="SYSTEM  ":C$(8)="SYSTEM"+CR$
  85. 850 M$(9)="  0A:   ":C$(9)="0A:"+CR$
  86. 860 M$(10)="  2A:   ":C$(10)="2A:"+CR$
  87. 870 M$(11)="  6A:   ":C$(11)="6A:"+CR$
  88. 880 M$(12)="  10A:  ":C$(12)="10A:"+CR$
  89. 890 M$(13)="  30A:  ":C$(13)="30A:"+CR$
  90. 900 M$(14)="        ":C$(14)=""
  91. 910 M$(15)="        ":C$(15)=""
  92. 920 M$(16)="        ":C$(16)=""
  93. 930 RETURN
  94. 940 REM***********WORDSTAR******************
  95. 950 HEAD$="                            WORDSTAR FUNCTIONS"
  96. 960 M$(1)=" DONE   ":C$(1)=CHR$(11)+"D"
  97. 970 M$(2)="SAV&CONT":C$(2)=CHR$(11)+"S"
  98. 980 M$(3)="ABANDON ":C$(3)=CHR$(11)+"Q"
  99. 990 M$(4)="READFILE":C$(4)=CHR$(11)+"R"
  100. 1000 M$(5)="PAGE UP ":C$(5)=CHR$(17)+"R"
  101. 1010 M$(6)="PAGE DN ":C$(6)=CHR$(17)+"C"
  102. 1020 M$(7)=" FIND   ":C$(7)=CHR$(17)+"F"
  103. 1030 M$(8)=" TAB    ":C$(8)=CHR$(15)+"G"
  104. 1040 M$(9)="        ":C$(9)=""
  105. 1050 M$(10)="        ":C$(10)=""
  106. 1060 M$(11)="        ":C$(11)=""
  107. 1070 M$(12)="        ":C$(12)=""
  108. 1080 M$(13)="        ":C$(13)=""
  109. 1090 M$(14)="        ":C$(14)=""
  110. 1100 M$(15)="        ":C$(15)=""
  111. 1110 M$(16)="        ":C$(16)=""
  112. 1120 RETURN
  113. 1130 REM***********BASIC*********************
  114. 1140 HEAD$="                              MBASIC FUNCTIONS"
  115. 1150 M$(1)=" LIST   ":C$(1)="LIST"+CR$
  116. 1160 M$(2)=" LLIST  ":C$(2)="LLIST"+CR$
  117. 1170 M$(3)="  AUTO  ":C$(3)="AUTO"+CR$
  118. 1180 M$(4)=" FILES  ":C$(4)="FILES"+CR$
  119. 1190 M$(5)="  RUN   ":C$(5)="RUN"+CR$
  120. 1200 M$(6)=" RENUM  ":C$(6)="RENUM"+CR$
  121. 1210 M$(7)=" MBASIC ":C$(7)="MBASIC"+CR$
  122. 1220 M$(8)=" SYSTEM ":C$(8)="SYSTEM"+CR$
  123. 1230 M$(9)="        ":C$(9)=""
  124. 1240 M$(10)="        ":C$(10)=""
  125. 1250 M$(11)="        ":C$(11)=""
  126. 1260 M$(12)="        ":C$(12)=""
  127. 1270 M$(13)="        ":C$(13)=""
  128. 1280 M$(14)="        ":C$(14)=""
  129. 1290 M$(15)="        ":C$(15)=""
  130. 1300 M$(16)="        ":C$(16)=""
  131. 1310 RETURN
  132. 1320 REM***********MEX***********************
  133. 1330 HEAD$="                                 MEX FUNCTIONS"
  134. 1340 M$(1)="CMD LEVL":C$(1)=CHR$(10)+"E"
  135. 1350 M$(2)="COPY TXT":C$(2)=CHR$(10)+"S"
  136. 1360 M$(3)="NO COPY ":C$(3)=CHR$(10)+"U"
  137. 1370 M$(4)="  HELP  ":C$(4)=CHR$(10)+"?"
  138. 1380 M$(5)="PRT TOGL":C$(5)=CHR$(10)+"P"
  139. 1390 M$(6)="XMITFILE":C$(6)=CHR$(10)+"T"
  140. 1400 M$(7)="XMODEM _":C$(7)="XMODEM "
  141. 1410 M$(8)="TURBODOS":C$(8)="CPM"+CR$
  142. 1420 M$(9)="ALBERT  ":C$(9)=CHR$(10)+"A"
  143. 1430 M$(10)="BRENDEL ":C$(10)=CHR$(10)+"B"
  144. 1440 M$(11)="PASSWORD":C$(11)=CHR$(10)+"C"
  145. 1450 M$(12)="XMODEM S":C$(12)=CHR$(10)+"D"
  146. 1460 M$(13)="        ":C$(13)=""
  147. 1470 M$(14)="        ":C$(14)=""
  148. 1480 M$(15)="        ":C$(15)=""
  149. 1490 M$(16)="        ":C$(16)=""
  150. 1500 RETURN
  151. 1510 REM***********DBASEII*******************
  152. 1520 HEAD$=""
  153. 1530 M$(1)="        ":C$(1)=""
  154. 1540 M$(2)="        ":C$(2)=""
  155. 1550 M$(3)="        ":C$(3)=""
  156. 1560 M$(4)="        ":C$(4)=""
  157. 1570 M$(5)="        ":C$(5)=""
  158. 1580 M$(6)="        ":C$(6)=""
  159. 1590 M$(7)="        ":C$(7)=""
  160. 1600 M$(8)="        ":C$(8)=""
  161. 1610 M$(9)="        ":C$(9)=""
  162. 1620 M$(10)="        ":C$(10)=""
  163. 1630 M$(11)="        ":C$(11)=""
  164. 1640 M$(12)="        ":C$(12)=""
  165. 1650 M$(13)="        ":C$(13)=""
  166. 1660 M$(14)="        ":C$(14)=""
  167. 1670 M$(15)="        ":C$(15)=""
  168. 1680 M$(16)="        ":C$(16)=""
  169. 1690 RETURN
  170. 1700 REM***********ADVENTURE*****************
  171. 1710 HEAD$="                           ADVENTURE FUNCTIONS"
  172. 1720 M$(1)=" LOOK   ":C$(1)="LOOK"+CR$
  173. 1730 M$(2)="INVNTORY":C$(2)="INVENT"+CR$
  174. 1740 M$(3)="  TAKE  ":C$(3)="TAKE "
  175. 1750 M$(4)="  DROP  ":C$(4)="DROP "
  176. 1760 M$(5)="  HELP  ":C$(5)="HELP"+CR$
  177. 1770 M$(6)="  QUIT  ":C$(6)="QUIT"+CR$
  178. 1780 M$(7)="  SAVE  ":C$(7)="SAVE"+CR$
  179. 1790 M$(8)="RESTORE ":C$(8)="RESTORE"+CR$
  180. 1800 M$(9)="        ":C$(9)=""
  181. 1810 M$(10)="        ":C$(10)=""
  182. 1820 M$(11)="        ":C$(11)=""
  183. 1830 M$(12)="        ":C$(12)=""
  184. 1840 M$(13)="        ":C$(13)=""
  185. 1850 M$(14)="        ":C$(14)=""
  186. 1860 M$(15)="        ":C$(15)=""
  187. 1870 M$(16)="        ":C$(16)=""
  188. 1880 RETURN
  189. 1890 REM***********         *****************
  190. 1900 HEAD$=""
  191. 1910 M$(1)="        ":C$(1)=""
  192. 1920 M$(2)="        ":C$(2)=""
  193. 1930 M$(3)="        ":C$(3)=""
  194. 1940 M$(4)="        ":C$(4)=""
  195. 1950 M$(5)="        ":C$(5)=""
  196. 1960 M$(6)="        ":C$(6)=""
  197. 1970 M$(7)="        ":C$(7)=""
  198. 1980 M$(8)="        ":C$(8)=""
  199. 1990 M$(9)="        ":C$(9)=""
  200. 2000 M$(10)="        ":C$(10)=""
  201. 2010 M$(11)="        ":C$(11)=""
  202. 2020 M$(12)="        ":C$(12)=""
  203. 2030 M$(13)="        ":C$(13)=""
  204. 2040 M$(14)="        ":C$(14)=""
  205. 2050 M$(15)="        ":C$(15)=""
  206. 2060 M$(16)="        ":C$(16)=""
  207. 2070 RETURN
  208. 2080 REM***********         *****************
  209. 2090 HEAD$=""
  210. 2100 M$(1)="        ":C$(1)=""
  211. 2110 M$(2)="        ":C$(2)=""
  212. 2120 M$(3)="        ":C$(3)=""
  213. 2130 M$(4)="        ":C$(4)=""
  214. 2140 M$(5)="        ":C$(5)=""
  215. 2150 M$(6)="        ":C$(6)=""
  216. 2160 M$(7)="        ":C$(7)=""
  217. 2170 M$(8)="        ":C$(8)=""
  218. 2180 M$(9)="        ":C$(9)=""
  219. 2190 M$(10)="        ":C$(10)=""
  220. 2200 M$(11)="        ":C$(11)=""
  221. 2210 M$(12)="        ":C$(12)=""
  222. 2220 M$(13)="        ":C$(13)=""
  223. 2230 M$(14)="        ":C$(14)=""
  224. 2240 M$(15)="        ":C$(15)=""
  225. 2250 M$(16)="        ":C$(16)=""
  226. 2260 RETURN
  227.