0MODE0
1 *KEY0 RUN|M
2 *KEY9 DELETE 30000,32700|MDELETE 1
,9|M:VDU26:CLS:GOTO 10|M
3 CLS:IF G%=0 GOTO4ELSE CLS:PRINTTAB
(0,8)"Do you wish to:-"'"A--check your v
ariables"'"B--RUN Your program ":IF GET=
65 GOTO 30100 ELSE CLS:GOTO 10
4 PRINT"Your program can have line n
umbers"'"between 10 and 29999. To see wh
at"'"variables are available press the r
ed"'"key marked f0."''"When you want to
save your program just do it in the usua
l way and this help"'"program will be ";
5 PRINT"saved along with it."'"Next
time you load your program the helpprogr
am will be there as well."''"When you sa
ve your program it's name must have a
maximum of SIX letters in itas the comp
uter uses the seventh to add the letter
";
6 PRINT"'F' to the file associated"'
"with your program."''"When you have fin
ished developing your program, and you
want to get rid of the help prog. press
the red key f9 and thiswill remove every
thing except your own work which should
";
7 PRINT" be between line 10 andline
29999.":PRINTTAB(9)"PRESS SPACE TO BEGIN
.":REPEAT UNTIL GET=32:PROCWINDOW
8 *KEY1 MODE7:VDU26:CLS|M:PROCWINDOW
|M L.10,29999|M
9 G%=1:END
10 REM
30000 END
30100 ON ERROR GOTO 32700
30200 CLS:INPUTTAB(0,8)"What is the name
of your program?"Name$
30300 Ary$=Name$+"F"
30310 DIM Ary$(80)
30320 PROCSEE:PROCPRINT:PROCSELECT
30430 CLS
30435 END
30440 DEF PROCSEE
30450 Load=OPENIN(Ary$)
30480 FOR inp=0 TO 77
30500 INPUT#Load,Ary$(inp)
30550 NEXT
30560 CLOSE#Load
30570 ENDPROC
30580:
30600 DEF PROCPRINT
30610 CLS:PRINT"The variables available
for your prog."'"are as follows.":PRINT
30612 PRINT" INTEGERS REAL
STRINGS":PRINT
30615 Xeon=0
30620 FOR View%=0 TO 25
30630 PRINT Ary$(View%);" ";:Xeon=Xeon+1
30635 IF Xeon=4 THEN PRINT:Xeon=0
30640 NEXT
30650 Xeon=15:Yeon=5
30660 FOR View%=26 TO 51
30670 PRINTTAB(Xeon,Yeon)Ary$(View%):PRI
NTTAB(Xeon+1,Yeon)" ":Xeon=Xeon+2
30680 IF Xeon=23 THEN PRINT:Xeon=15:Yeon
=Yeon+1
30690 NEXT
30700 Xeon=27:Yeon=5
30710 FOR View%=52 TO 77
30720 PRINTTAB(Xeon,Yeon)Ary$(View%):PRI
NTTAB(Xeon+2,Yeon)" ":Xeon=Xeon+3
30730 IF Xeon=39 THEN PRINT:Xeon=27:Yeon
=Yeon+1
30740 NEXT
30750 ENDPROC
30760:
31000 DEF PROCopen
31010 Load=OPENOUT(Ary$)
31020 RESTORE 32000
31030 FOR Read=0 TO 77
31040 READ data$
31050 PRINT#Load,data$
31060 NEXT
31070 CLOSE#Load
31080 ON ERROR OFF
31090 PROCSEE:PROCPRINT:PROCSELECT
31095 CLS
31100 ENDPROC
31150:
31200 DEF PROCSELECT
31210 PRINT:INPUT"To select a variable t
ype it in and"'"then press RETURN. Press
ing RETURN by itself will take you back
into your program at line 10.---"Sel
$
31220 IF Sel$=""ENDPROC
31230 PROCclear
31255 REPEAT
31256 PRINT"ANY MORE? Type in and press
RETURN"'"Type NO when finished or RETURN
alone.":INPUT Sel$
31260 PROCclear
31265 UNTIL Sel$="NO"OR Sel$="no"OR Sel$
=""
31270 Save=OPENOUT(Ary$)
31280 FOR Alt=0 TO 77
31290 Beta$=Ary$(Alt)
31295 PRINT#Save,Beta$
31300 NEXT
31310 CLOSE#Save
31320 ENDPROC
31330:
31340 DEF PROCWINDOW
31350 CLS:PRINTTAB(5,0)"TO LIST YOUR PRO
GRAM PRESS f1.":PRINTTAB(6,23)"TO CHECK
VARIABLES PRESS f0."
31360 VDU28,1,22,39,1
31370 ENDPROC
31380:
31400 DEF PROCclear
31410 FOR Clear%=0 TO 77
31420 IF Ary$(Clear%)=Sel$ THEN Ary$(Cle
ar%)=" "
31430 NEXT
31440 ENDPROC
31450:
32000 DATA A%,B%,C%,D%,E%,F%,G%,H%,I%,J%
,K%,L%,M%,N%,O%,P%,Q%,R%,S%,T%,U%,V%,W%,
X%,Y%,Z%,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
,Q,R,S,T,U,V,W,X,Y,Z,A$,B$,C$,D$,E$,F$,G
$,H$,I$,J$,K$,L$,M$,N$,O$,P$,Q$,R$,S$,T$
,U$,V$,W$,X$,Y$,Z$
32700 CLOSE#0:IF ERR=222 THEN PROCopen:G
OTO 10 ELSE IF ERR=204 THEN PRINT"Your p
rogram name must have a maximum"'"of SIX
letters. To continue, press the red ke
y f0."