10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!            TYPIST.BAS               !!
   !!    ORIGIN - DARTMOUTH COLLEGE       !!
   !!    AUTHOR - R.HARGRAVES             !!
20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!      SAVE COMPILED [1,2]<40>        !!
   !!    COMPANION PROGRAM - TYPICH       !!
   !!  SAVE TYPICH COMPILED [1,2]<40>     !!
30 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!        RSTS/11 VERSION BY           !!
   !!          DARRYL JOHNSON             !!
   !!          BENTLEY COLLEGE            !!
   !!           OCTOBER 1973              !!
40 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
100 DIM H$(12%),C%(6%),P%(127%),D%(8%):H$(1%)="Number of blanks before header":
	H$(2%)="Number of blanks after header":
	H$(3%)="Number of textual lines per page":
	H$(4%)="Number of blanks before trailer":
	H$(5%)="Number of blanks between trailer"+CHR$(10%)+CHR$(13%)
110 H$(5%)=H$(5%)+"   and bottom of page":
	H$(6%)="Number of printing characters per line":
	READ C%(I%) FOR I%=1% TO 6%
120 &:&:& "TYPIST V01-AA":&:& "TYPIST is presently set-up to print":
	& "  in a 8+1/2 by 11 inch page format.":&:
	INPUT "Do you wish to change that - ";A$
130 I%=ASCII(A$) and 95%:GOTO 151 IF I%=78%:
	GOTO 140 IF I%=89%:&:& "Please answer 'Yes' or 'no'":goto 120
140 &:&:& "     Item                        Present value   Your value":
	&:FOR I%=1% TO 5%:& H$(I%);TAB(39);C%(I%);TAB(53);:T%=T%+C%(I%):
	INPUT C%(I%):T1%=T1%+C%(I%):NEXT I%
145 &:& "Total Number of lines per page";TAB(39);T%+2%;TAB(53);T1%+2%:
	&:&:I%=I%+1%:& H$(I%);TAB(39);C%(I%);TAB(53);:INPUT C%(I%)
146 &:&:& "'PAGE' a 'TYPIST' system program will make use of some of the":
	& "   above non-standard parameters, so please SAVE this sheet":
	& "   for further reference.":&:&
149 DATA 6,2,48,2,6,65
150 DATA "Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct",
	"Nov","Dec"
151 CHANGE DATE$(0%) TO P%:D%(4%)=P%(1%):D%(5%)=P%(2%):
	D%(3%),D%(6%)=47%:D%(7%)=P%(8%):D%(8%)=P%(9%):
	CHANGE P% TO D$:D$=MID(D$,4%,3%):READ H$(I%) FOR I%=1% TO 12%
153 P%(0%)=I% IF D$=H$(I%) FOR I%=1% TO 12%:
	D%(1%)=P%(0%)/10%+48%:P%(0%)=P%(0%)-10% IF P%(0%)>=10%:
	D%(2%)=P%(0%)+48%:D%(0%)=8%
155 CHANGE SYS(CHR$(6%)+CHR$(-10%)+A$) TO P%:P%(0%)=16%:
	P%(1%)=P%(1%)/2%:P%(8%)=P%(1%)-P%(1%)/10%:
	P%(7%)=P%(1%)/10%:P%(I%)=C%(I%) FOR I%=1% TO 6%:
	P%(I%+8%)=D%(I%) FOR I%=1% TO 8%
157 CHANGE P% TO P$:D$=SYS(CHR$(8%)+P$):CHAIN "$TYPICH" 10
170 CHANGE SYS(CHR$(7%)) TO P%:
	A$="TYPI"+NUM$(P%(7%))+NUM$(P%(8%))+".TMP":
	ON ERROR GOTO 180:KILL A$
180 END