home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol020 / helpcom.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-11  |  15.4 KB  |  313 lines
  1. 10  REM ***********************************************************************         *                      PROGRAM1                                       *
  2. 20  REM *                    by Phil Grier                                    *         *                   Laurel Maryland                                   *
  3. 30  REM *                   (301) 498-2226                                    *         ***********************************************************************
  4. 43  DEF SEG:POKE 106,0:FALSE=0:TRUE=NOT FALSE:RESET
  5. 44  CLS:PRINT"MUSIC? (Y OR N)"
  6. 46  MUSIC$=INKEY$
  7. 47  FOR I=1 TO 2:IF MUSIC$=MID$("Yy",I,1) THEN MUSIC=TRUE:GOTO 50 ELSE NEXT
  8. 48  IF MUSIC$="" THEN 46
  9. 49  MUSIC=FALSE
  10. 50  IF MUSIC=FALSE THEN 61
  11. 60  S$="O3L16B.L16AL16G.L8GL16GL16AL16BO4L16CL8DDDO3B.":PLAY "XS$;"
  12. 61  DEF SEG:POKE 106,0:SCREEN 0,1,0,0:COLOR 7,0,0:WIDTH 80:CLS:FOR I=1 TO 20:A$=INKEY$:NEXT
  13. 70  KEY OFF:KEY 1,"LIST ":KEY 2,"RUN"+CHR$(13):KEY 3,"LOAD"+CHR$(34)+"B:":KEY 4,"SAVE"+CHR$(34)+"B:":KEY 5,"GOSUB ":KEY 9,"CLS":KEY 7,"FILES "+CHR$(34)+"B:*.*":KEY 8,"EDIT ":KEY 6,"RETURN":KEY 10,"SYSTEM"
  14. 79  GOTO 100
  15. 100  LOCATE 2,30:PRINT "Phil Grier's":LOCATE 4,31,0:COLOR 0,15:PRINT "PROGRAM 1":COLOR 7,0:FOR I=1 TO 3000:NEXT
  16. 110  PRINT:PRINT
  17. 120  PRINT"THE ";:COLOR 1,0:PRINT "COLOR";:COLOR 7,0:PRINT " STATEMENT IN MONOCHROME:
  18. 130  PRINT:PRINT"THE NORMAL COLOR SETTING IS 7,0";:LOCATE ,50:PRINT"NORMAL
  19. 140  PRINT "REVERSE COLOR IS 0,7";:COLOR 0,7:LOCATE ,50:PRINT"REVERSE
  20. 150  COLOR 7,0:PRINT "UNDERSCORE IS 1,0";:LOCATE ,50:COLOR 1,0:PRINT"UNDERSCORE
  21. 160  COLOR 7,0:PRINT "HIGH INTENSITY IS 15,0";:LOCATE ,50:COLOR 15,0:PRINT"HI-INTEN
  22. 170  COLOR 7,0:PRINT"BLINKING IS 18,0";:LOCATE ,50:COLOR 18,0:PRINT"BLINK
  23. 180  COLOR 7,0:PRINT "BLINKING UNDERLINED IS 17,0";:LOCATE ,50:COLOR 17,0:PRINT "BLINK & UNDERSCORE
  24. 190  COLOR 7,0:PRINT "HIGH INTENSITY BLINKING IS 26,0";:LOCATE ,50:COLOR 26,0:PRINT "HI-INTEN & BLINK
  25. 200  COLOR 7,0:PRINT "BLINK & UNDERSCORE & HI INTENSITY IS 25,0";:LOCATE ,50:COLOR 25,0:PRINT "BLINK & HI & UNDRSCR
  26. 210  COLOR 7,0
  27. 220  GOSUB 5000:GOSUB 6000:GOSUB 5000
  28. 300  CLS:LOCATE 1,25:COLOR 0,7:PRINT " A L T E R N A T I V E S ":COLOR 7,0:PRINT :PRINT "ALT + A = AUTO
  29. 310  PRINT "ALT + B = BSAVE
  30. 320  PRINT "ALT + C = COLOR
  31. 330  PRINT "ALT + D = DELETE
  32. 340  PRINT "ALT + E = ELSE
  33. 350   PRINT "ALT + F = FOR
  34. 360  PRINT "ALT + G = GOTO
  35. 370  PRINT "ALT + H = HEX$
  36. 380  PRINT "ALT + I = INPUT
  37. 390  PRINT "ALT + K = KEY
  38. 400  PRINT "ALT + L = LOCATE
  39. 410  PRINT "ALT + M = MOTOR
  40. 420  PRINT "ALT + N = NEXT
  41. 430  PRINT "ALT + O = OPEN
  42. 440  PRINT "ALT + P = PRINT
  43. 450  PRINT "ALT + R = RUN
  44. 460  PRINT "ALT + S = SCREEN
  45. 470  PRINT "ALT + T = THEN
  46. 480  PRINT "ALT + U = USING
  47. 490  PRINT "ALT + V = VAL
  48. 500  PRINT "ALT + W = WIDTH
  49. 510  PRINT "ALT + X = XOR";
  50. 520  LOCATE 3,40:PRINT "CTRL + G = BEL
  51. 530  LOCATE 5,40:PRINT "CTRL + Break = EXIT PROGRAM - EXIT AUTO
  52. 540  LOCATE 7,40:PRINT "Ctrl + Alt + Del = SYSTEM RESET
  53. 550  LOCATE 9,40:PRINT "Ctrl + Num Lock = PAUSE
  54. 555  LOCATE 10,58:PRINT "(any key to continue)
  55. 560  LOCATE 12,40:PRINT "Ctrl + Home = CLEAR SCREEN
  56. 570  LOCATE 14,40:PRINT "Ctrl + (CURSOR RIGHT) = NEXT WORD
  57. 580  LOCATE 16,40:PRINT "Ctrl + (CURSOR LEFT) = PREVIOUS WORD
  58. 590  LOCATE 18,40:PRINT "Ctrl + End = ERASE TO NEXT ENTER
  59. 595  GOSUB 5000
  60. 600  CLS:LOCATE 1,15:COLOR 0,7:PRINT " B A S I C :   G E N E R A L  S T A T E M E N T S ";:COLOR 7,0
  61. 610  PRINT:PRINT:PRINT"COMMON":LOCATE 3,15:PRINT"var list":LOCATE 3,30:PRINT"statement":LOCATE 3,52:PRINT"pass var to chained pgm
  62. 620  PRINT"DATA":LOCATE 4,15:PRINT"data list":LOCATE 4,30:PRINT"statement":LOCATE 4,52:PRINT"create data table
  63. 630  PRINT"DATE$":LOCATE 5,30:PRINT"function":LOCATE 5,52:PRINT"set system date
  64. 640  PRINT"DEF FN":LOCATE 6,15:PRINT"variable":LOCATE 6,30:PRINT"function":LOCATE 6,52:PRINT"define function
  65. 650  PRINT"DEF":LOCATE 7,15:PRINT"variable":LOCATE 7,30:PRINT"function":LOCATE 7,52:PRINT"define variable
  66. 660  PRINT"DIM":LOCATE 8,15:PRINT"var list":LOCATE 8,30:PRINT"statement":LOCATE 8,52:PRINT"allocate dimension space
  67. 670  PRINT"END":LOCATE 9,30:PRINT"statement":LOCATE 9,52:PRINT"return to command level
  68. 680  PRINT"ERASE":LOCATE 10,30:PRINT"statement":LOCATE 10,52:PRINT"eliminate arrays values
  69. 690  PRINT"ERROR":LOCATE 11,15:PRINT"number":LOCATE 11,30:PRINT"statement":LOCATE 11,52:PRINT"simulate error
  70. 700  PRINT"FOR X=A TO B":LOCATE 12,30:PRINT"statement":LOCATE 12,52:PRINT"program loop
  71. 710  PRINT"IF V THEN N ELSE M":LOCATE 13,30:PRINT"statement":LOCATE 13,52:PRINT"decision & transfer
  72. 720  PRINT"LET X=V":LOCATE 14,30:PRINT"statement":LOCATE 14,52:PRINT"evaluate expression
  73. 730  PRINT"NEXT":LOCATE 15,30:PRINT"statement":LOCATE 15,52:PRINT"terminates a for loop
  74. 740  PRINT"OPTION BASE":LOCATE 16,15:PRINT"(0 or 1)":LOCATE 16,30:PRINT"statement":LOCATE 16,52:PRINT"set minimum array subscript
  75. 750  PRINT"PEEK":LOCATE 17,30:PRINT"statement & function":LOCATE 17,52:PRINT"observe byte in memory
  76. 760  PRINT"POKE":LOCATE 18,30:PRINT"statement & function":LOCATE 18,52:PRINT"put byte in memory
  77. 770  PRINT"RANDOMIZE":LOCATE 19,15:PRINT"numeric":LOCATE 19,30:PRINT"statement":LOCATE 19,52:PRINT"generate random number
  78. 780  PRINT"RND":LOCATE 20,15:PRINT"(X)":LOCATE 20,30:PRINT"function":LOCATE 20,52:PRINT"random number generation
  79. 790  PRINT"READ":LOCATE 21,30:PRINT"statement":LOCATE 21,52:PRINT"read DATA statements
  80. 800  PRINT"REM":LOCATE 22,30:PRINT"statement":LOCATE 22,52:PRINT"listing remarks
  81. 810  PRINT"RESTORE":LOCATE 23,30:PRINT"statement":LOCATE 23,52:PRINT"reset data pointer
  82. 830  GOSUB 5000
  83. 850  CLS:PRINT"cont":LOCATE 1,15:COLOR 0,7:PRINT " B A S I C :   G E N E R A L  S T A T E M E N T S ";:COLOR 7,0
  84. 860  LOCATE 5,1:PRINT "STOP":LOCATE 5,30:PRINT"statement":LOCATE 5,50:PRINT"halt program execution
  85. 870  LOCATE 7,1:PRINT"SWAP":LOCATE 7,15:PRINT"numeric":LOCATE 7,30:PRINT"statement":LOCATE 7,50:PRINT"exchange values
  86. 880  LOCATE 9,1:PRINT"TIME$":LOCATE 9,15:PRINT"string":LOCATE 9,30:PRINT"function":LOCATE 9,50:PRINT"set system time
  87. 890  LOCATE 11,1:PRINT"WEND":LOCATE 11,30:PRINT"statement":LOCATE 11,50:PRINT"close while loop
  88. 900  LOCATE 13,1:PRINT"WHILE":LOCATE 13,15:PRINT"variable":LOCATE 13,30:PRINT"statement":LOCATE 13,50:PRINT"loop as long as true
  89. 950  GOSUB 5000
  90. 1000  CLS:LOCATE 1,15:COLOR 0,7:PRINT " B A S I C :   C O N T R O L  S T A T E M E N T S ";:COLOR 7,0
  91. 1010  PRINT:PRINT:PRINT"CALL":LOCATE 3,17:PRINT"(X,X,X)":LOCATE 3,30:PRINT"statement":LOCATE 3,50:PRINT"call M/L subroutine
  92. 1020  PRINT"CHAIN":LOCATE 4,17:PRINT"file spec.":LOCATE 4,30:PRINT"statement":LOCATE 4,50:PRINT"overlay programs
  93. 1030  PRINT"GOSUB":LOCATE 5,17:PRINT"line #":LOCATE 5,30:PRINT"statement":LOCATE 5,50:PRINT"call BASIC subroutine
  94. 1040  PRINT"GOTO":LOCATE 6,17:PRINT"line #":LOCATE 6,30:PRINT"statement":LOCATE 6,50:PRINT"transfer control
  95. 1050  PRINT"ON COM N GOSUB":LOCATE 7,17:PRINT"line #":LOCATE 7,30:PRINT"adv. statement":LOCATE 7,50:PRINT"communications trap
  96. 1060  PRINT"ON ERR GOSUB":LOCATE 8,17:PRINT"line #":LOCATE 8,30:PRINT"statement":LOCATE 8,50:PRINT"error trap
  97. 1070  PRINT"ON V GOTO":LOCATE 9,17:PRINT"line #":LOCATE 9,30:PRINT"statement":LOCATE 9,50:PRINT"conditional branch
  98. 1080  PRINT"ON KEY N GOSUB":LOCATE 10,17:PRINT"line #":LOCATE 10,30:PRINT"adv. statement":LOCATE 10,50:PRINT"function key trap
  99. 1090  PRINT"ON PEN GOSUB":LOCATE 11,17:PRINT"line #":LOCATE 11,30:PRINT"adv. statement":LOCATE 11,50:PRINT"trap off light pen
  100. 1100  PRINT"ON STRIG N GOSUB":LOCATE 12,17:PRINT"line #":LOCATE 12,30:PRINT"adv. statement":LOCATE 12,50:PRINT"trap off joystick
  101. 1110  PRINT"RESUME":LOCATE 13,17:PRINT"line #":LOCATE 13,30:PRINT"statement":LOCATE 13,50:PRINT"return from error trap
  102. 1120  PRINT"RETURN":LOCATE 14,30:PRINT"statement":LOCATE 14,50:PRINT"return from subroutine
  103. 1130  PRINT"USR":LOCATE 15,17:PRINT"var. list":LOCATE 15,30:PRINT"function":LOCATE 15,50:PRINT"call M/L subroutine
  104. 1140  PRINT"VARPTR":LOCATE 16,17:PRINT"numeric":LOCATE 16,30:PRINT"function":LOCATE 16,50:PRINT"gives address of variable
  105. 1150  GOSUB 5000
  106. 1200  CLS:LOCATE 1,17:COLOR 0,7:PRINT " B A S I C :   F I L E   S T A T E M E N T S ";:COLOR 7,0
  107. 1210  PRINT:PRINT:PRINT"CLOSE","numeric",,"statement","close file
  108. 1220  PRINT:PRINT"EOF","numeric",,"function","end of file condition
  109. 1230  PRINT:PRINT"ERL",,,"function","error line number
  110. 1240  PRINT:PRINT"ERR",,,"function","error number code
  111. 1250  PRINT:PRINT"FIELD","function: N AS X$","statement","format a buffer
  112. 1260  PRINT:PRINT"GET",,,"function","read rand. file record
  113. 1270  PRINT:PRINT"LSET","x$ = y$",,"func & stmnt","left justify a field
  114. 1280  PRINT:PRINT"OPEN","FS for md as fl#","statement","open file
  115. 1290  PRINT:PRINT"PUT",,,"statement","write from rand file rec
  116. 1300  PRINT"RSET","x$ = y$",,"func & stmnt","right justify a field
  117. 1350  GOSUB 5000
  118. 1400  CLS:LOCATE 1,17:COLOR 0,7:PRINT " B A S I C :   I / O    S T A T E M E N T S ";:COLOR 7,0
  119. 1410  PRINT:PRINT:PRINT"BEEP",,"statement","beep speaker (bel)
  120. 1420  PRINT"COM N","on/off/stop","statement","on/off comm trap
  121. 1430  PRINT"KEY","on/off","statement","function keys display
  122. 1440  PRINT"KEY","n,x$","statement","set function key
  123. 1450  PRINT"KEY","on/off/stop","statement","on/off function key trap
  124. 1460  PRINT"LOC","numeric","function","file pointer position
  125. 1470  PRINT"LOF","numeric","function","# of 128 byte blocks in file
  126. 1480  PRINT"LPOS","numeric","function","printer carrage position
  127. 1490  PRINT"MOTOR","numeric","statement","cassette motor switch
  128. 1500  PRINT"OPEN COM","n:parms","statement","open communications file
  129. 1510  PRINT"OUT","port,byte","statement","output byte to port
  130. 1520  PRINT"PEN","numeric","function","read light pen
  131. 1530  PRINT"PEN","on/off/stop","statement","on/off light pen trap
  132. 1540  PRINT"SOUND","f:duration","statement","generate speaker sound
  133. 1550  PRINT"STICK","(n)","function","joystick coordinates
  134. 1560  PRINT"STRIG","(n)","function","state of joystick button
  135. 1570  PRINT"WAIT","port/mask","function","suspend port until mask
  136. 1580  GOSUB 5000
  137. 1600  CLS:LOCATE 1,17:COLOR 0,7:PRINT " B A S I C :   K E Y B O A R D   &   S C R E E N ";:COLOR 7,0
  138. 1610  PRINT:PRINT:PRINT"CIRCLE","(x,y),z","statement","draw circle on screen
  139. 1620  PRINT"CLS",,"statement","clear screen
  140. 1630  PRINT"COLOR","x,y","statement","set screen colors
  141. 1640  PRINT"DRAW","x$","statement","draw figure in string
  142. 1650  PRINT"GET","(x1,y1)-(x2,y2) statement","read graphics from screen
  143. 1660  PRINT"INPUT","x$","statement","read from keyboard
  144. 1670  PRINT"LINE","(x1,y1)-(x2,y2) statement","draw line on display
  145. 1680  PRINT"LINE INPUT","x$","statement","read entire line from keyboard
  146. 1690  PRINT"LOCATE","n,m","statement","position cursor row & column
  147. 1700  PRINT"LPRINT","vl","statement","output to printer
  148. 1710  PRINT"LPRINT USING","vl","statement","formatted output to printer
  149. 1720  PRINT"PAINT","(n,m)x1,x2","statement","color an area on display
  150. 1730  PRINT"PRINT","vl","statement","display data on screen
  151. 1740  PRINT"PRESET","(n,m) x","statement","display color point background
  152. 1750  PRINT"PSET","(n,m) x","statement","display color point
  153. 1760  PRINT"PUT","(x1,y1)-(x2,y2) statement","put graphics to screen
  154. 1770  PRINT"SCREEN","m,n,pg1,pg2","statement","set screen paramenters
  155. 1780  PRINT"WRITE","vl","statement","display to screen
  156. 1790  GOSUB 5000
  157. 1800  CLS:LOCATE 1,17:COLOR 0,7:PRINT " B A S I C :   S T R I N G   F U N C T I O N S ";:COLOR 7,0
  158. 1810  PRINT:PRINT:PRINT:PRINT:PRINT"ASC","(x$)","function","ASCII code for 1st character
  159. 1820  PRINT"CVI$/CVS$/CVD$   (x$)","function","convert value to ASCII
  160. 1830  PRINT"CHR$","(x$)","function","character with ASCII code
  161. 1840  PRINT"HEX$","x","function","convert to ASCII hex string
  162. 1850  PRINT"INSTR","(N,X$,Y$)","statement","compare string & give position
  163. 1860  PRINT"LEFT$","(x$,n)","function","left most n characters
  164. 1870  PRINT"MID$","(x$,m,n,)","function","n characters in x$ starting at m
  165. 1880  PRINT"MKI$/MKS$/MKD$  (x)","function","convert ASCII to value
  166. 1890  PRINT"OCT$","(n)","function","convert to octal string
  167. 1900  PRINT"RIGHT$","(x$,n)","function","right most n characters
  168. 1910  PRINT"SPACE$","(n)","function","string of n spaces
  169. 1920  PRINT"STR$","(x)","function","convert to string
  170. 1930  PRINT"STRING$","(n,x$)","function","repeat 1st character
  171. 1940  GOSUB 5000
  172. 2000  CLS:LOCATE 1,17:COLOR 0,7:PRINT " B A S I C :   M A T H   F U N C T I O N S ";:COLOR 7,0
  173. 2010  PRINT:PRINT:PRINT:PRINT"ABS","(x)","function","absolute value
  174. 2020  PRINT"ATN","(x)","function","arctangent (radians)
  175. 2030  PRINT"COBL","(x)","function","convert to double precision
  176. 2040  PRINT"CINT","(x)","function","convert to integer
  177. 2050  PRINT"COS","(x)","function","cosine (radians)
  178. 2060  PRINT"CSGN","(x)","function","convert to single precision
  179. 2070  PRINT"EXP","(x)","function","exponential base e
  180. 2080  PRINT"FIX","(x)","function","truncate to integer
  181. 2090  PRINT"INT","(x)","function","convert to integer
  182. 2100  PRINT"LOG","(x)","function","natural logarithm
  183. 2110  PRINT"RND","(x)","function","random number generator
  184. 2120  PRINT"SGN","(x)","function","sign of number
  185. 2130  PRINT"SQR","(x)","function","square root of number
  186. 2140  PRINT"TAN","(x)","function","tangent (radians)
  187. 2150  GOSUB 5000
  188. 2200  CLS:LOCATE 1,17:COLOR 0,7:PRINT " B A S I C :   C O M M A N D S ";:COLOR 7,0
  189. 2210  PRINT:PRINT"AUTO","(n,m)","generate automatic line numbers
  190. 2220  PRINT"BLOAD","filespec","load binary data file
  191. 2230  PRINT"BSAVE","filespec","save binary data file
  192. 2240  PRINT"CLEAR",",x,y","clear variables & set memory
  193. 2250  PRINT"CONT",,"continue program execution
  194. 2260  PRINT"DELETE","n-m","delete lines
  195. 2270  PRINT"EDIT","n","display & edit a line
  196. 2280  PRINT"FILES","filespec","list files that match
  197. 2290  PRINT"KILL","filespec","delete files
  198. 2300  PRINT"LIST","n-m","display program lines
  199. 2310  PRINT"LLIST","n-m","print program lines
  200. 2320  PRINT"LOAD","filespec","load file
  201. 2330  PRINT"MERGE","filespec","overlay program from file
  202. 2340  PRINT"NAME","fs as fs","rename file
  203. 2350  PRINT"NEW",,"delete current program from memory
  204. 2360  PRINT"RENUM","i,j,k","renumber lines
  205. 2370  PRINT"RESET",,"close all files
  206. 2380  PRINT"RUN",,"execute program in memory
  207. 2390  PRINT"SAVE","filespec","dump program to disk file
  208. 2400  PRINT"SYSTEM",,"end basic & return to DOS
  209. 2410  PRINT"TRON",,"turn trace on
  210. 2420  PRINT"TROFF",,"turn trace off
  211. 2450  GOSUB 5000
  212. 2500  CLS:LOCATE 1,19:COLOR 0,7:PRINT " D O S :   C O M M A N D S ";:COLOR 7,0
  213. 2510  PRINT:PRINT:PRINT"BATCH","(d:) fn param",,"execute batch file
  214. 2520  PRINT"CHKDSK","(d:)",,"display disk status
  215. 2530  PRINT"COMP","(fs)(d:)fn(ext)","compare files
  216. 2540  PRINT"COPY","(fs)(d:)fn(ext)","copy files
  217. 2550  PRINT"DATE","mm/dd/yy",,"enter system date
  218. 2560  PRINT"DIR","(d:)fn(ext)",,"display disk directory
  219. 2570  PRINT"DISKCOMP","(d:)(d:)",,"compare disks
  220. 2580  PRINT"DISKCOPY","(d:)(d:)",,"copy disks
  221. 2590  PRINT"ERASE","filespec",,"delete file
  222. 2600  PRINT"FORMAT","(d:)(/s)",,"format disk
  223. 2610  PRINT"MODE","(dev)(,n)(,m)(,t)","set mode for printer & display
  224. 2620  PRINT"PAUSE","(rem)",,"system pause
  225. 2630  PRINT"REM","(rem)",,"display remarks
  226. 2640  PRINT"RENAME","fs fn (ext)",,"rename file
  227. 2650  PRINT"SYS",,,"transfer DOS
  228. 2660  PRINT"TIME","hr:min:sec.ms",,"enter system time
  229. 2670  PRINT"TYPE","filespec",,"display file
  230. 2680  PRINT"EDLIN","filespec",,"execute editor
  231. 2690  PRINT"LINK",,,"execute linker
  232. 2700  PRINT"DEBUG","filespec",,"ececute debug program
  233. 2710  GOSUB 5000
  234. 2800  CLS:LOCATE 1,19:COLOR 0,7:PRINT " D E B U G :   C O M M A N D S ";:COLOR 7,0
  235. 2810  PRINT:PRINT:PRINT:PRINT"D(ADR)",,"display address
  236. 2820  PRINT"D(RNG)",,"display range of address
  237. 2830  PRINT"A ADR(LIST)",,"alter memory
  238. 2840  PRINT"F RNG LIST",,"fill range with list
  239. 2850  PRINT"G (ADR) (ADR)",,"execute until break point
  240. 2860  PRINT"H VAL VAL",,"hex arithmetic
  241. 2870  PRINT"I PORT",,"input & display byte
  242. 2880  PRINT"L(ADR)(D SECT SECT)","load file or disk sectors
  243. 2890  PRINT"M RNG ADR",,"move memory block
  244. 2900  PRINT"N FS(FS)",,"define files
  245. 2910  PRINT"O PORT BYTE",,"output byte to port
  246. 2920  PRINT"Q",,"quit debug program
  247. 2930  PRINT"R(REG)",,"display registers & flags
  248. 2940  PRINT"S RNG LIST",,"search for characters
  249. 2950  PRINT"T(=ADR)(VALUE)","execute instr. & display register
  250. 2960  PRINT"U ADR",,"disassemble addresss
  251. 2970  PRINT"U RNG",,"disassemble range
  252. 2980  PRINT"W(ADR)(D SECT SECT)","write file of disk sector
  253. 2990  GOSUB 5000
  254. 3000  CLS:LOCATE 1,19:COLOR 0,7:PRINT " E D L I N :   C O M M A N D S ";:COLOR 7,0
  255. 3010  PRINT:PRINT:PRINT"(N)",:COLOR 0,7:PRINT"A";:COLOR 7,0:PRINT,":append lines
  256. 3020  PRINT:PRINT"(LN)(,LN)",:COLOR 0,7:PRINT"D";:COLOR 7,0:PRINT,":delete lines  (begin ,end)
  257. 3030  PRINT:PRINT,:COLOR 0,7:PRINT"(LN)";:COLOR 7,0:PRINT,":edit line
  258. 3040  PRINT:PRINT,:COLOR 0,7:PRINT"E";:COLOR 7,0:PRINT,":end edit  (save BAK)
  259. 3050  PRINT:PRINT"(LN)",:COLOR 0,7:PRINT"I";:COLOR 7,0:PRINT,":insert line
  260. 3060  PRINT:PRINT"(LN)(,LN)",:COLOR 0,7:PRINT"L";:COLOR 7,0:PRINT,":list lines  (begin ,end)
  261. 3070  PRINT:PRINT,:COLOR 0,7:PRINT"Q";:COLOR 7,0:PRINT,":quit - abort edit
  262. 3080  PRINT:PRINT"(LN)(,LN)(?)",:COLOR 0,7:PRINT"R STR F6 STR";:COLOR 7,0:PRINT,":replace text (preceeded with [begin][,end][?]
  263. 3090  PRINT:PRINT"(LN)(,LN)(?)",:COLOR 0,7:PRINT"S STR";:COLOR 7,0:PRINT,":search text  (preceeded with [begin][,end][?]
  264. 3100  PRINT:PRINT"(N)",:COLOR 0,7:PRINT"W";:COLOR 7,0:PRINT,":write lines to disk
  265. 3110  GOSUB 5000
  266. 3200  CLS:LOCATE ,10:COLOR 0,7:PRINT" E A S Y W R I T E R   E M B E D D E D   C O M M A N D S ";:COLOR 7,0:PRINT
  267. 3210  PRINT:PRINT:PRINT:PRINT".EJECT",,"Page eject
  268. 3220  PRINT".EJECTnn",,"Eject page within nn lines from the bottom
  269. 3230  PRINT".EOL",,"Programmable end of line character
  270. 3240  PRINT".FORMSTOP",,"Stops printer at page breaks
  271. 3250  PRINT".FORMSTOPOFF",,"Turns off .FORMSTOP
  272. 3260  PRINT".LINESnn",,"Number of printed lines per page
  273. 3270  PRINT".MARGINn",,"Sets the left margin
  274. 3280  PRINT".PAGErr,cc",,"Page numbering.  rr = row, cc = column
  275. 3290  PRINT".PAGELINESnn",,"Page length.  nn = number of lines per page
  276. 3300  PRINT".SPACEn",,"Sets additional spaces between lines
  277. 3310  PRINT".TITLEA,nn,text","Sets headers & footers
  278. 3320  PRINT".TITLEB,nn,text","Up to 3 titles per page
  279. 3330  PRINT".TITLEC,nn,text",,"
  280. 3340  PRINT".TOPn",,"Sets number of spaces at top of page
  281. 3350  PRINT".USER",,"User defined command
  282. 3360  GOSUB 5000
  283. 3400  CLS:LOCATE ,25:COLOR 0,7:PRINT" P R I N T I N G   M O D E S ";:COLOR 7,0:PRINT
  284. 3410  LOCATE 8,1:PRINT"COMPRESSED ON",,"CTRL O - CTRL O
  285. 3420  PRINT"COMPRESSED OFF","CTRL O - CTRL R
  286. 3430  PRINT:PRINT"DOUBLE STRIKE ON","CTRL O - ESC G
  287. 3440  PRINT"DOUBLE STRIKE OFF","CTRL O - ESC H
  288. 3450  PRINT:PRINT"DOUBLE WIDTH ON","CTRL O - CTRL N
  289. 3460  PRINT"DOUBLE WIDTH OFF","CTRL O - CTRL T
  290. 3470  PRINT:PRINT"EMPHASIZED ON",,"CTRL O - ESC E
  291. 3480  PRINT"EMPHASIZED OFF","CTRL O - ESC F
  292. 3490  GOSUB 5000
  293. 4090  GOTO 9990
  294. 5000  KEY OFF:PN=PN+1:LOCATE 1,72:PRINT"page"PN:LOCATE 25,65:COLOR 18,0:PRINT "PRESS ANY KEY";:COLOR 7,0
  295. 5010  A$=INKEY$:IF A$<>"" THEN 5010
  296. 5020  A$=INKEY$:IF A$="" THEN 5020
  297. 5030  IF A$=CHR$(27) THEN 9990 ELSE CLS:RETURN
  298. 6000  CLS:X=0:COLOR ,0
  299. 6010  FOR I=0 TO 31
  300. 6020  IF X=0 THEN COLOR I:PRINT"COLOR"I",0";:X=1:GOTO 6040
  301. 6030  IF X THEN PRINT TAB(40);:COLOR I:PRINT"COLOR"I",0":X=0
  302. 6040  NEXT:COLOR 7,0:GOSUB 5000
  303. 6050  CLS:X=0:COLOR ,7
  304. 6060  FOR I=0 TO 31
  305. 6070  IF X=0 THEN COLOR I:PRINT"COLOR"I",7";:X=1:GOTO 6090
  306. 6080  IF X THEN PRINT TAB(40);:COLOR I:PRINT"COLOR"I",7":X=0
  307. 6090  NEXT:COLOR 7,0:RETURN
  308. 9990  IF MUSIC=FALSE THEN 9997
  309. 9995  S$="O3L8GD16D-16D16D+DP4L8F+.L8G.":PLAY "XS$;"
  310. 9997  CLS:COLOR 7,0:KEY ON:END
  311. 10000  SAVE"B:PROGRAM1
  312. 10010  GOTO 9997
  313.