Gt

Color computer version Note: Add keywords to the token list as needed.

2 REM

3 REM SPACER

4 REM

5 REM by LOU PA

6 REM BOX 19358

7 REM SACRAMENTO CA 95819

8 REM

10 CLS:CLEAR1000:N=34:F$=CHR$(N) SG0T0260

11 rem skip over subroutines to initialization.

15 rem strings between quotes subroutine searches for the second of a pair of quote marks (chrs(34)), and returns the string plus the quote marks.

16 ' new, spaced program line. referred from regular sequence line #360 and from within the data statement routine line #470

30 d$=mid$(c$,k,j-k+1):return 35 rem preliminary spacing around symbols. spacer begins by adding spaces and then deleting them. 40 ifh=330rh=350rh=360rh=370rh=4 40rh=590rh=630rh=64 thend$=d$+" "sgotoso

45 ifh=450rh=420rh=430rh=580rh=6 00rh=610rh=62 thend$=" "+d$+" "

46 rem next two lines set the symbol spacing variables. h1 & h2 represent the characters at the right of the newly spaced line variable "e."

47 1 h3 & h4 are the left characters of processing characters to be added. d2 s d3 are used to check spacing around certain two and three letter command words (list in line #70).

50 h1=asc(right$(e$,1)):h2=asc(m ids(e$,len (e$)-1,1) ): d2$=,,u: d3$=

iiii

55 iflen(e$)>2 thend2$=mid$(e$,l en(e$)-2,2):iflen(e$)>3 thend3$=

65 rem next line prevents removing space from between the program words "and", "or", "if" or the punctuation marks: commas, colons, and semi-colons and right parens: "(". this allows a statement like:

66 ' if(x=1and(a=20rb=3))then... to be spaced like:

PROGRAMMING TOOLS FOR YOUR TRS-80®

0 0

Post a comment