Compucolor.org – Virtual Media

Listing of file='AGDEMO.BAS;01' on disk='vmedia/agilis-sector.ccvf'

2 C8= 238:C9= 133
5 CLEAR 512:C8= 238:C9= 133
10 REM  C8=nn C9=nn CALL VECTOR FOR SEQFIL,PRINT,GET KEY
20 C6= 154:C7= 130:C5ALL= 33283:POKE C5- 1,195:POKE C5,C6:POKE C5+ 1,C7:REM   ANALIZ CALL VECTOR
30 PLOT 3,64,0,27,18,7,6,2,15:
60 REM   81 01 06 WATALS FOR DISK BASIC V6 & V8
90 DEX= 0:KEY= 1:SIM= 2:OSIG= 4:POA= 8:RLTBL= 16:RBL= 32:LVBL= 48:UPPR= 64:LOWR= 128:FSENT= 192
100 TIME= 33209:CY= 33228:CX= 33227:POKE 33289,129:PLOT 27,24
110 LN= 10:CL= 0:SC= 0:EC= 63:QT= 32
120 BLANK$= "............ ":RI$= "Tr|s bien !!!":CLR$= "                    "
130 DIM  ER$(3),S$(3),S(3):REM  DIMENSION ARRAYS
140 A7= 14:AO7OFF= 15:XY= 3:PR$= " *> ":APF$= "":APF= 0
150 CO= 7:RC= 1:IC= 2:MC= 3:AC= 5:HC= 6:TC= 7:COLR$= ""
170 VCADDRESS= 33234:BASFLAG= 33265:CRLF$= CHR$ (13)+ CHR$ (10)
180 DEF FN CTR(X)= ABS (INT (32- (CALL (KEY)(T$+ "`","`")- 1)/ 2)):REM  GET LENGTH OF T$ FOR CENTERING IT

185 DEF FN  ER(X)= ABS (INT (32- (CALL (KEY)(ER$(ER)+ "`","`")- 1)/ 2))
190 DEF FN CL(X)= INT (X* 2.02)
200 DEF FN LN(X)= NOT INT (X* 4.1- 128)
250 REM  FRS2906 PREPOSITIONS R ANDERS
280 REM  SET UP HELP FACILITIES
290 PLOT 3,64,LN
300 HE$= "UNAV":GOTO 350
350 GOTO  5000
500 REM  GET NAME & #
505 PLOT 29,6,TC,15
510 PLOT 3,0,24:PRINT "What is your family / surname?";:APF= 1:GOSUB 700:GOSUB  1000:N$= T$
515 PLOT 6,TC:PRINT :PRINT "ID Number?";:APF= 1:GOSUB 700:ID$= T$
520 PLOT 6,TC:PRINT :PRINT "Thank you.  What do your friends call you?";:APF= 1:GOSUB 700:GOSUB  1000:FM$= T$
530 PLOT 6,TC:PRINT :PRINT "Ok, ";FM$;", let's go to work."
535 PLOT 3,64,LN:QS= 0:GOSUB 900
599 RETURN
700 REM  INPUT MANAGER
720 PLOT 6,IC
730 TY= PEEK (CY):TX= PEEK (CX):OUT 8,207:INPUT "";T$:IF  T$= ""THEN  T$= "0":GOTO 790
740 X= 32839:T$= ""
750 J= PEEK (X):IF J< > 0THEN T$= T$+ CHR$ (J):X= X+ 1:GOTO 750
755 IF CALL (KEY+ RLT)(T$,"?")< > 1THEN T$= ED$:GOTO 790
765 X= CALL (KE+ LO+ RLTBL)(T$,"bye#quit#time#help")AND 255:IF X= 0THEN X= 16
770 X= INT (LOG (X)/ .6931147)+ 1:ON XGOSUB 7600,7600,4500,7000,7000:T$= "0"
790 PLOT 6,TC:RETURN
900 REM    STATISIC COLLECTOR. TO BE USED WITH C.L.E.F. STATS
901 IF  N$= "0"THEN  RETURN :REM  FOR DE-BUGGING PURPOSES ONLY
905 FILE "T",972
906 IF QS< > 0THEN 939
909 IF Z1< > 0THEN Z1= 3:GOTO 930
912 Z1= 1:FILE "R",127,"FORMAT",1:GET 127,1;Z9,Z1$[6],Z2,Z3,Z5,Z3$[1]:FILE "C",127
915 FILE "N",Z1$,Z2+ 1,64,Z3:IF PEEK (33027)+ PEEK (33028)* 256+ PEEK (33029)+ PEEK (33030)* 256< 400THEN 927
918 Z1= 2:Z3= PEEK (33026):Z4= INT (Z3/ 16):Z3= Z3- Z4* 16:IF Z3> 9THEN Z3= Z3+ 7
921 IF Z4> 9THEN Z4= Z4+ 7
924 PLOT 27,4:PRINT "DEL ";Z1$;".RND;";CHR$ (Z4+ 48);CHR$ (Z3+ 48):PLOT 27,27:GOTO 972
927 FILE "R",127,Z1$,1
930 Z2$= LEFT$ (N$+ "                    ",20- Z5)+ LEFT$ (ID$,Z5)
933 Z6= PEEK (33211)* 120+ PEEK (33210)* 2+ PEEK (33209)/ 30
936 Z1= 3:PUT 127,1;Z9,Z2$[20],3:FOR Z4= 2TO Z2+ 1:PUT 127,Z4;0,0:NEXT Z4:RETURN
939 IF QS> Z2THEN 963
942 Z3= 5:Z4= 1:Z2$= "":IF Z3$< > "Y"THEN 957
945 Z7= LEN (S$(Z4)):IF Z7= 0OR S$(Z4)= "0"THEN PUT 127,QS+ 1,Z3;0:GOTO 957
948 IF Z7+ Z3> 56THEN PUT 127,QS+ 1,Z3;0:GOTO 957
951 PUT 127,QS+ 1,Z3;Z7,S$(Z4)[Z7]:Z3= Z3+ Z7+ 4
954 Z4= Z4+ 1:GOTO 945
957 Z7= PEEK (33211)* 120+ PEEK (33210)* 2+ PEEK (33209)/ 30:S(1)= Z7- Z6
960 PUT 127,QS+ 1;ST:RETURN
963 IF CC< 0OR CC> 1THEN CC= 0
966 PUT 127,1,25;CC,S(0),S(1),S(2),S(3)
969 FILE "C",127:Z1= 0:RETURN
972 PLOT 17
975 OUT 8,207:IF Z1= 2THEN PRINT "THIS DISK IS FULL. PLEASE CALL A MONITOR!!!":END
978 FILE "E",A,Z1,B:PRINT "ERROR # ";Z1;" LINE #";B" !!! GET SOME ASSISTANCE!!!":END
999 RETURN
1000 REM  FORM SENTENCE
1010 IF  CALL (FSEN)(T$,"")THEN  T$= ED$
1049 RETURN
1100 REM  CHANGE TO LOWER CASE
1110 X= CALL (LOWR)(T$,""):T$= ED$
1149 RETURN
1200 REM  CHANGE TO UPPER CASE
1210 X= CALL (UPPR)(T$,""):T$= ED$
1249 RETURN
1300 REM  REMOVE ALL SPACES FROM T$
1310 X= CALL (RBLNKS)(T$,""):T$= ED$
1349 RETURN
1400 REM  SIMPLE KEY-WORD CHECK
1410 RI= 0:X= CALL (KEY+ LOWR+ LVBL)(T$+ " ",ROOT$)AND  255:REM  NORMALIZE TO 8 BITS
1420 IF  X> 0 THEN  RI= 1
1499 RETURN
1500 REM   CLEAR ANSWER AREA WITH SPCS.
1510 BL$= ".................................."
1520 PLOT 3,X1,Y1:PRINT LEFT$ (BLANK$,AL+ 2):RETURN
1700 REM   REMOVE PERIOD FROM ST. RES.
1710 X= CALL (KEY)(T$,"."):IF XTHEN T$= LEFT$ (T$,X- 1)
1720 RETURN
1800 REM   FILL CORRECT ANSWER IN S.R. SLOT
1810 PLOT 3,X1,Y1,6,3,15:PRINT  COLR$;AN$
1820 RETURN
1900 REM   GET SIZE OF S.R., LOCATION, INC. ATT. & SAVE S. RESP.
1910 AL= LEN (T$):X1= TX:Y1= TY
1920 ATT= ATT+ 1
1930 S$(ATT)= T$:S$(ATT+ 1)= "0":RETURN
2000 REM   PRINT ERROR MESSAGES AT LN
2010 ER$= ER$(ER)
2020 PLOT 3,FN ER(X),LN:PRINT ER$(ER)
2030 IF ER= 4GOTO  2050
2040 T= 1
2050 GOSUB 3100
2060 RETURN
2100 REM  READ THE KEY BOARD & PUT IT IN X
2110 POKE C5,C8:POKE C5+ 1,C9
2120 X= CALL (0):POKE C5,C6:POKE C5+ 1,C7:REM  RESTORE ANALIZ
2199 RETURN
2200 REM   CHECK S.R. AGAINST CAN$(COMPLETE ANSWER)
2210 YN= 0:ER= 0:X= CALL (KEY+ LOW+ LVBK+ POA)(T$+ " ",CAN$)AND 255
2220 IF X= NDTHEN ER= 4:YN= 1
2230 RETURN
2300 REM   CHANGE AN$ TO LOWER CASE
2310 X= CALL (LOW)(AN$,""):AN$= ED$:RETURN
2400 REM  CHOICE OF TABLES
2405 GOSUB  700:XX= CALL (KEY+ UPP+ LVB)(" "+ T$+ " "," 1 # 2 # 3 ")AND  255
2430 IF  XX > 0 THEN  XX= INT (LOG (XX)/ .6931147)+ 1
2435 IF  XX < = 0 THEN  XX= 4
2440 RETURN
3000 REM  FOOT
3005 IF FT$= ""THEN FT$= "Press RETURN to continue."
3010 T9= (64- LEN (FT$)- LEN (PR$))/ 2
3015 PLOT 15,6,2,XY,0,31,11,XY,T9,31:PRINT FT$;PR$;
3020 APF= 1:GOSUB 700
3030 RETURN
3055 IF HE$= "UNAV"THEN PLOT XY,0,31,11,XY,15,31:PRINT "HELP IS UNAVAILABLE";:APF= 1:T= 2:GOSUB 3100:GOTO 3085
3060 X= CALL (KEY+ LOWR+ RBL)(T$,"help")
3085 RETURN
3100 REM  TIMER ROUTINE
3110 PLOT 3,64,0:FOR  X= 1 TO  T* 568:NEXT  X
3130 RETURN
4200 REM  SUBROUTINE TO PLOT HORIZ. BARS
4220 CL= 0:WI= 63:DPTH= 31:T1= 2:CO= 0:GOTO 4240
4230 T1= CO:IF CO= 0THEN T1= TC
4240 PLOT 3,64,LN:X= FN CL(CL):Y= FN LN(DP):T3= FN CL(WI+ CL):T2= FN LN(LN)
4250 T5= 1:IF DIR= 1THEN T5= - 1:T= X:X= T3:T3= T:DIR= 0
4260 PLOT 6,CO,2,246,Y
4270 FOR T0= XTO T3STEP T5:PLOT T0,T2:NEXT T0
4280 PLOT 255
4290 PLOT 6,T1:T5= 1:RETURN
4500 REM  GET THE CURRENT TIME OF DAY
4525 PLOT 3,64,LN
4530 L2= PEEK (33210):L1= PEEK (33211)
4535 IF L1> 12THEN L1= L1- 12
4540 TI$= RIGHT$ (STR$ (L1+ 100),2)+ ":"+ RIGHT$ (STR$ (L2+ 100),2)
4545 PLOT XY,TX,TY:PRINT TI$:APF= 1:T= 2:GOSUB 3100:PLOT XY,CL,LN:PRINT SPC( LEN (TI$)):RETURN
4600 REM   PRINT T$, CENTRED
4620 PLOT 6,MC,XY,FN CTR(CL),LN:PRINT T$:RETURN
5000 REM   TITLE PAGE
5002 PLOT 6,2,12,15,29,3,20,0:PRINT "t u"
5004 PLOT 3,11,1:PRINT "t  u    t    eu"
5006 PLOT 3,4,2:PRINT "t  t  e    u t";SPC( 8);"u"
5008 PLOT 3,1,3:PRINT "t";SPC( 27);"u"
5010 PLOT 3,1,4:PRINT "v";SPC( 27);"w"
5012 PLOT 3,2,5:PRINT "CREATE YOUR OWN PROGRAMME  a"
5014 PLOT 3,1,6:PRINT "v";SPC( 26);"w"
5016 PLOT 3,2,7:PRINT "WITH";SPC( 20);"w"
5018 PLOT 3,1,8:PRINT "v";SPC( 22);"weu"
5020 PLOT 3,2,9:PRINT "      AGILIS        w v w"
5022 PLOT 3,1,10:PRINT "v";SPC( 18);"u    e"
5024 PLOT 3,2,11:PRINT "v";SPC( 8);"w  v     w"
5026 PLOT 3,4,12:PRINT "v  w w     v w"
5028 PLOT 3,5,13:PRINT "e"
5030 PLOT 3,0,26:PRINT "hjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhjhj"
5032 PLOT 3,0,27:PRINT "                                                                "
5034 PLOT 3,0,28:PRINT "   by R.Anders   University of Waterloo Language Laboratories   "
5036 PLOT 3,0,29:PRINT " ";SPC( 28);"1981                               "
5038 PLOT 3,0,30:PRINT "                                                                "
5040 PLOT 3,64,0,23,2,62,30,242,66,26,74,22,255
5042 PLOT 23,2,100,22,242,106,26,120,30,120,34,98,30,78,30,60,30,124,34,90,34,90,102,255
5044 PLOT 17,2,88,98,242,80,66,70,38,88,38,88,98,76,54,68,38,70,38,255
5046 PLOT 17,2,92,98,242,92,38,126,38,112,66,92,102,92,98,255
5048 PLOT 19,2,90,106,242,90,102,88,106,90,106,255
5050 T= 2:GOSUB  3100
5200 REM   OUTLINE
5202 PLOT 6,2,12,15,29,3,56,0:PRINT "page #1"
5204 PLOT 3,27,3:PRINT "OUTLINE"
5206 PLOT 15,3,27,4:PRINT "eeeeeee"
5208 PLOT 3,6,6:PRINT "beeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeea"
5210 PLOT 3,6,7:PRINT "b";SPC( 50);"a"
5212 PLOT 3,6,8:PRINT "b";SPC( 50);"a"
5214 PLOT 3,6,9:PRINT "b   1.  Useful Pointers on Compucolor Operation.   a"
5216 PLOT 3,6,10:PRINT "b";SPC( 50);"a"
5218 PLOT 3,6,11:PRINT "b";SPC( 50);"a"
5220 PLOT 3,6,12:PRINT "b";SPC( 50);"a"
5222 PLOT 3,6,13:PRINT "b   2.  How to use Agilis: A Practical Lesson      a"
5224 PLOT 3,6,14:PRINT "b";SPC( 50);"a"
5226 PLOT 3,6,15:PRINT "b";SPC( 50);"a"
5228 PLOT 3,6,16:PRINT "b";SPC( 50);"a"
5230 PLOT 3,6,17:PRINT "b   3.  Create your own Lesson Programme.";SPC( 10);"a"
5232 PLOT 3,6,18:PRINT "b";SPC( 50);"a"
5234 PLOT 3,6,19:PRINT "b";SPC( 50);"a"
5236 PLOT 3,7,20:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
5238 PLOT 3,0,25:INPUT "Choose which one you would like, then press RETURN: 1,2 or 3 *>";RTN
5240 PLOT 15,29,3,54,25
5242 IF RTN< 1OR RTN> 3GOTO 10000
5245 ON RTNGOSUB 5400,5600,8000
5260 GOTO  5200
5400 REM  1.POINTERS FOR COMP. OPERATION
5402 PLOT 6,2,12,15,29,3,11,0:PRINT "USEFUL POINTERS ON COMPUCOLOR OPERATION      page #2"
5404 PLOT 3,11,1:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
5406 PLOT 3,1,3:PRINT "neeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeo"
5408 PLOT 3,1,4:PRINT "a The Compucolor or Intecolor keyboard is basically operated  b"
5410 PLOT 3,1,5:PRINT "a like that of a typewriter.  The blinking white line,, is   b"
5412 PLOT 3,1,6:PRINT "a the cursor and shows where the next character will be dis-  b"
5414 PLOT 3,1,7:PRINT "a played.";SPC( 53);"b"
5416 PLOT 3,1,8:PRINT "a";SPC( 61);"b"
5418 PLOT 3,1,9:PRINT "a";SPC( 61);"b"
5420 PLOT 3,1,10:PRINT "a If capital letters are formed without pressing shift key,   b"
5422 PLOT 3,1,11:PRINT "a then the CAPS button must be released.";SPC( 22);"b"
5424 PLOT 3,1,12:PRINT "a";SPC( 10);"LOCK ";SPC( 46);"b"
5426 PLOT 3,1,13:PRINT "a";SPC( 61);"b"
5428 PLOT 3,1,14:PRINT "a When you are presented with the prompt *>, the compucolor   b"
5430 PLOT 3,1,15:PRINT "a is waiting for a response from you. It will not accept your b"
5432 PLOT 3,1,16:PRINT "a response until you press the RETURN key.";SPC( 20);"b"
5434 PLOT 3,1,17:PRINT "a";SPC( 61);"b"
5436 PLOT 3,1,18:PRINT "a";SPC( 61);"b"
5438 PLOT 3,1,19:PRINT "a The REPEAT key allows you to type a letter repeatedly. Hold b"
5440 PLOT 3,1,20:PRINT "a down the letter and the Repeat key simultaneously.";SPC( 10);"b"
5442 PLOT 3,1,21:PRINT "a";SPC( 61);"b"
5444 PLOT 3,1,22:PRINT "a";SPC( 61);"b"
5446 PLOT 3,1,23:PRINT "a Remember that 0, the number, is different from O, the       b"
5448 PLOT 3,1,24:PRINT "a letter. The number 1 and the letter l also differ.";SPC( 10);"b"
5450 PLOT 3,1,25:PRINT "a";SPC( 61);"b"
5452 PLOT 3,1,26:PRINT "a";SPC( 61);"b"
5454 PLOT 3,1,27:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
5460 GOSUB  3000
5599 RETURN
5600 REM  2. HOW TO USE AGILIS
5602 PLOT 6,2,12,15,29,3,57,0:PRINT "page #3"
5604 PLOT 3,13,1:PRINT "How to use Agilis: a practical lesson."
5606 PLOT 3,4,5:PRINT "A g i l i s, with its capacity to fully edit the screen,"
5608 PLOT 3,5,7:PRINT "is invaluable to the programme author, as he can enter"
5610 PLOT 3,10,9:PRINT "the text exactly as it will be displayed."
5612 PLOT 15,3,44,14:PRINT "    "
5614 PLOT 3,9,15:PRINT "To get into A g i l i s, press the ESC key,"
5616 PLOT 15,3,44,16:PRINT "    "
5618 PLOT 3,13,18:PRINT "     "
5620 PLOT 3,4,19:PRINT "then the USER key.  You will be prompted with a line"
5622 PLOT 15,3,13,20:PRINT "     "
5624 PLOT 3,6,23:PRINT "of commands. E for Edit allows you to begin work."
5626 PLOT 3,1,27:PRINT "The four -> keys, Tab, and Repeat are used to move the cursor."
5628 PLOT 17,2,26,118,242,100,118,255
5630 GOSUB  3000
5800 REM  2.AGILIS: COL CONTROL/SPEC FUNCTION PAGE
5802 PLOT 6,2,12,15,29,3,57,0:PRINT "page #4"
5804 PLOT 3,15,1:PRINT "COLOUR CONTROL/SPECIAL FUNCTIONS"
5806 PLOT 3,15,2:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
5808 PLOT 3,2,4:PRINT "A generally accepted code of colours has been established in"
5810 PLOT 3,2,5:PRINT "lesson formation.  Used consistently, it makes the student"
5812 PLOT 3,2,6:PRINT "feel more at ease with computer lessons."
5814 PLOT 3,2,9:PRINT "beeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeo"
5816 PLOT 3,2,10:PRINT "b  Green";SPC( 10);"-used for large chunks of text, student b"
5818 PLOT 3,2,11:PRINT "b";SPC( 18);"responses";SPC( 30);"b"
5820 PLOT 3,2,12:PRINT "b";SPC( 17);"-most comfortable for the eyes";SPC( 10);"b"
5822 PLOT 3,2,13:PRINT "b";SPC( 57);"b"
5824 PLOT 3,2,14:PRINT "b";SPC( 57);"b"
5826 PLOT 3,2,15:PRINT "b  Yellow, Cyan   -good for instructions, error messages  b"
5828 PLOT 3,2,16:PRINT "b";SPC( 57);"b"
5830 PLOT 3,2,17:PRINT "b";SPC( 57);"b"
5832 PLOT 3,2,18:PRINT "b  White, Magenta -error messages, highlighting";SPC( 11);"b"
5834 PLOT 3,2,19:PRINT "b";SPC( 57);"b"
5836 PLOT 3,2,20:PRINT "b";SPC( 57);"b"
5838 PLOT 3,2,21:PRINT "b  Red, Blue      -to be used sparingly; have a negative, b"
5840 PLOT 3,2,22:PRINT "b";SPC( 18);"glaring effect";SPC( 25);"b"
5842 PLOT 3,2,23:PRINT "b";SPC( 57);"b"
5844 PLOT 3,3,24:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
5846 PLOT 3,2,26:PRINT "NOTE* Coloured backgrounds, especially lighter ones should be"
5848 PLOT 3,2,27:PRINT "eeee  used sparingly."
5850 PLOT 3,0,30:GOSUB 3000
6000 REM  2.AGILIS: COL CONTROL PAGE CONT.
6002 PLOT 6,2,12,15,29,3,0,0:PRINT "COLOUR CONTROL CONT.";SPC( 36);"page #5"
6004 PLOT 3,0,1:PRINT "eeeeeeeeeeeeeeeeeeee"
6006 PLOT 3,16,2:PRINT "If yours is a Standard keyboard:"
6008 PLOT 3,30,3:PRINT "eeeeeeee"
6010 PLOT 3,5,4:PRINT "to set background: press the  BG  button, then CONTROL"
6012 PLOT 3,34,5:PRINT " on  "
6014 PLOT 3,24,6:PRINT "and desired colour key."
6016 PLOT 3,5,8:PRINT "to set foreground: press the  FG  button, then CONTROL"
6018 PLOT 3,34,9:PRINT " on        and colour key."
6020 PLOT 3,16,11:PRINT "If yours is a Deluxe keyboard:"
6022 PLOT 3,30,12:PRINT "eeeeee"
6024 PLOT 3,5,13:PRINT "to set background: press  BG , and colour key from pad."
6026 PLOT 3,30,14:PRINT " on  ";SPC( 17);"at left."
6028 PLOT 3,5,16:PRINT "to set foreground: press  FG , and colour key from pad."
6030 PLOT 3,30,17:PRINT " on  "
6032
6034
6036 GOSUB 3000
6200 REM  2.AGILIS: SPEC FUNCTIONS PAGE
6202 PLOT 6,2,12,15,29,3,24,0:PRINT "SPECIAL FUNCTIONS";SPC( 15);"page #6"
6204 PLOT 3,24,1:PRINT "eeeeeeeeeeeeeeeee"
6206 PLOT 3,6,2:PRINT "BLINK ON   -will make letters blink on screen"
6208 PLOT 3,18,3:PRINT "(BL OFF nullifies the command)"
6210 PLOT 3,6,5:PRINT "A7 ON      -will increase character size."
6212 PLOT 3,18,6:PRINT "(A7 OFF will put it back to normal)"
6214 PLOT 3,6,8:PRINT "Erase Line -erases letters from the cursor to line end"
6216 PLOT 3,6,10:PRINT "(ESC) , then INS LINE OR U key will insert a blank"
6218 PLOT 3,14,11:PRINT "line and move all text down."
6220 PLOT 3,12,13:PRINT ", then DEL LINE or V key will delete a blank"
6222 PLOT 3,14,14:PRINT "line and move all text up."
6224 PLOT 3,12,16:PRINT ", then INS CHAR or Q key will insert a space,"
6226 PLOT 3,14,17:PRINT "and move all text to the right."
6228 PLOT 3,12,19:PRINT ", then DEL CHAR key, ( or SHIFT and (CRT) key)"
6230 PLOT 3,14,20:PRINT "will delete a character and move text to left."
6232 PLOT 3,7,22:PRINT "NOTE : The (ESC) must be pressed twice to exit the"
6234 PLOT 3,7,23:PRINT "eeee   INS CHAR mode."
6236
6238
6242 GOSUB  3000
6400 REM  2.AGILIS:SEC CHAR SET/(SPEC. FUNCT. CONT)
6402 PLOT 6,2,12,15,29,3,14,0:PRINT "Spec. Functions- Second Character Set    page #7"
6404 PLOT 3,14,1:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
6406 PLOT 3,5,3:PRINT "The second character set, an integral function of the"
6408 PLOT 3,5,4:PRINT "keyboard, can be used as an alternative to the graphics"
6410 PLOT 3,5,5:PRINT "offered by Agilis while you are processing your screen."
6412 PLOT 3,5,6:PRINT "This set of graphics is more refined and therefore more"
6414 PLOT 3,5,7:PRINT "attractive.    (eg. see lines below)"
6416 PLOT 3,17,9:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeee"
6418 PLOT 3,15,12:PRINT "To access the second character set:"
6420 PLOT 3,15,13:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
6422 PLOT 3,13,14:PRINT "1.  Release the CAPS LOCK button."
6424 PLOT 3,13,16:PRINT "2.  Establish FG colour, then BG colour."
6426 PLOT 3,4,18:PRINT "Most used characters are the E,e A,a B,b O,o L,l M,m N n."
6428
6430
6432
6434 GOSUB 3000
6600 REM  2.AGILIS:SCREEN FORMATION
6602 PLOT 6,2,12,15,29,3,24,0:PRINT "SCREEN FORMATION";SPC( 14);"page #8"
6604 PLOT 3,24,1:PRINT "eeeeeeeeeeeeeeee"
6606 PLOT 3,1,3:PRINT "A) Organization of the Screen:"
6608 PLOT 3,4,4:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeee"
6610 PLOT 3,4,6:PRINT "1.  A lesson is generally organized into pages, each of"
6612 PLOT 3,8,7:PRINT "which comprises one screen-full of information."
6614 PLOT 3,4,10:PRINT "2.  It is important to create aesthetic displays, in which"
6616 PLOT 3,8,11:PRINT "there is no crowding."
6618 PLOT 3,4,14:PRINT "3.  Information should be displayed in fields and in chunks."
6620 PLOT 3,4,17:PRINT "*NOTE:"
6622 PLOT 3,5,18:PRINT "eeee"
6624 PLOT 3,6,19:PRINT "i)   List most important data first."
6626 PLOT 3,6,21:PRINT "ii)  Do not contract words. Use shorter sentences."
6628 PLOT 3,6,23:PRINT "iii) Use model sentences to render instructions explicit."
6630 PLOT 3,6,25:PRINT "iv)  Limit yourself to fewer and complementary colours."
6632 PLOT 3,0,29:PRINT "":GOSUB 3000:PRINT ""
6800 REM  2.AGILIS- SCREEN FORM CONT-HIGHLIGHTING
6802 PLOT 6,2,12,15,29,3,13,0:PRINT "Screen Formation Cont.- Highlighting";SPC( 8);"page #9"
6804 PLOT 3,13,1:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
6806 PLOT 3,3,3:PRINT "-stress important data by using a bright colour."
6808 PLOT 3,34,6:PRINT "u"
6810 PLOT 3,3,7:PRINT "-flashing (BLINK ON)";SPC( 11);"b"
6812 PLOT 3,34,8:PRINT "b"
6814 PLOT 3,34,9:PRINT "b"
6816 PLOT 3,3,10:PRINT "-";SPC( 15);"(A7 ON)";SPC( 8);"b"
6818 PLOT 3,4,11:PRINT "different size";SPC( 16);"b"
6820 PLOT 3,34,12:PRINT "b"
6822 PLOT 3,3,13:PRINT "-indicators (eg. ->)";SPC( 12);"v      all of these are most"
6824 PLOT 3,35,14:PRINT "t      effective when used"
6826 PLOT 3,3,15:PRINT "-underlining";SPC( 19);"b       in moderation."
6828 PLOT 3,4,16:PRINT "eeeeeeeeeee";SPC( 19);"b"
6830 PLOT 3,3,17:PRINT "- coloured backgrounds         b"
6832 PLOT 3,4,18:PRINT " ";SPC( 21);"        b"
6834 PLOT 3,5,19:PRINT "";SPC( 21);"b"
6836 PLOT 3,4,20:PRINT "cgraphicsd -2nd character set b"
6838 PLOT 3,5,21:PRINT "eeeeeeee  -Agilis graphics   b"
6840 PLOT 3,34,22:PRINT "w";SPC( 13);"ihfg"
6842 PLOT 3,47,23:PRINT "b    a"
6844 PLOT 3,2,24:PRINT "Upon terminating the screen formation, alwaysbHomeathe cursor."
6846 PLOT 3,48,25:PRINT "eeee"
6848 PLOT 3,2,26:PRINT "Otherwise, it will remain where last located on screen.  Also,"
6850 PLOT 3,2,28:PRINT "make sure that the A7 key is off before processing the screen."
6897 GOSUB  3000
7000 REM  2.AGILIS- PROCESSING
7002 PLOT 6,2,12,15,29,3,22,0:PRINT "SCREEN PROCESSING";SPC( 17);"page #10"
7004 PLOT 3,22,1:PRINT "eeeeeeeeeeeeeeeee"
7006 PLOT 3,2,3:PRINT "beeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeea"
7008 PLOT 3,2,4:PRINT "b A screen that is processed will automatically be written   a"
7010 PLOT 3,2,5:PRINT "b into a Basic programme, exactly as it was designed by the  a"
7012 PLOT 3,2,6:PRINT "b author.";SPC( 52);"a"
7014 PLOT 3,2,7:PRINT "b";SPC( 60);"a"
7016 PLOT 3,3,8:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
7018 PLOT 3,4,10:PRINT "1.  Once the cursor has been homed, press (ESC), then P"
7020 PLOT 3,8,11:PRINT "for Process when offered the line of choices."
7022 PLOT 3,4,14:PRINT "2.  You will be presented with the prompt STARTING LINE >."
7024 PLOT 3,8,15:PRINT "Lessons generally begin at 5000, and each new screen"
7026 PLOT 3,8,16:PRINT "is started 200 further. (eg. 5000, 5200, 5400)"
7028 PLOT 3,4,19:PRINT "3.  Then the prompt INCREMENT > will appear.  This refers"
7030 PLOT 3,8,20:PRINT "to the sequence of lines in the Basic programme."
7032 PLOT 3,8,21:PRINT "(eg. INC of 2: 5000, 5002, 5004)"
7034 PLOT 3,4,24:PRINT "4.  At the next prompt NEW SCREEN OR NOT (Y/N) >:Y will"
7036 PLOT 3,8,25:PRINT "process the entire screen as a new page; N will only"
7038 PLOT 3,8,26:PRINT "create overlays and process changes you made to the"
7040 PLOT 3,8,27:PRINT "screen."
7042 PLOT 3,4,29:PRINT "cont'....."
7044 PLOT 3,0,31:PRINT "":GOSUB 3000:PRINT ""
7200 REM  2.AGILIS-CONT. OF PROCESSING
7202 PLOT 6,2,12,15,29,3,15,1:PRINT "Screen Processing Cont.-(Graphics)     page #11"
7204 PLOT 3,15,2:PRINT "eeeeeeeeeeeeeeeeeeeeee"
7206 PLOT 3,2,4:PRINT "Cont'd"
7208 PLOT 3,2,5:PRINT "eeeeee"
7210 PLOT 3,2,6:PRINT "5.  After the NEW SCREEN (Y/N)> prompt, you will be offered"
7212 PLOT 3,6,7:PRINT "the possibility to use AGILIS graphics."
7214 PLOT 3,2,10:PRINT "6.  When you see GRAPHICS (Y/N)>, and if you opt to use them,"
7216 PLOT 3,6,11:PRINT "you must press C for COLOUR first, choose a colour, then"
7218 PLOT 3,6,12:PRINT "go on to either LINE or BOX."
7220 PLOT 3,2,15:PRINT "7.  At the prompt ARE GRAPHICS OK? (Y/N)>:"
7222 PLOT 3,9,16:PRINT "-N will offer the graphics prompt again and delete"
7224 PLOT 3,12,17:PRINT "all graphics you have just made."
7226 PLOT 3,9,19:PRINT "-Y will automatically process the graphics. You"
7228 PLOT 3,12,20:PRINT "can then press B for BASIC to leave AGILIS."
7230 PLOT 3,8,22:PRINT "beeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeea"
7232 PLOT 3,8,23:PRINT "b";SPC( 21);"*NOTE:";SPC( 21);"a"
7234 PLOT 3,8,24:PRINT "b";SPC( 48);"a"
7236 PLOT 3,8,25:PRINT "b Do NOT attempt to process graphics.  They will a"
7238 PLOT 3,8,26:PRINT "b   be added to the end of your screen listing   a"
7240 PLOT 3,8,27:PRINT "b       in BASIC by the programme  AGILIS.       a"
7242 PLOT 3,8,28:PRINT "b";SPC( 48);"a"
7244 PLOT 3,9,29:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
7246 PLOT 3,0,30:PRINT "":GOSUB 3000:PRINT ""
7400 REM  2.AGILIS-SAVING PROCESSED SCREEN
7402 PLOT 6,2,12,15,29,3,15,0:PRINT "S A V I N G the Processed Screen";SPC( 8);"page #12"
7404 PLOT 3,15,1:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
7406 PLOT 3,6,5:PRINT "Saving a processed screen is always a wise precaution"
7408 PLOT 3,9,7:PRINT "to take, as it is an insurance against possible"
7410 PLOT 3,24,9:PRINT "accidental loss."
7412 PLOT 3,6,11:PRINT "1) to save: After processing the screen, type in B for"
7414 PLOT 3,9,12:PRINT "eeeeeee  BASIC.  Then type in SAVE,a quotation mark,"
7416 PLOT 3,18,13:PRINT "PROGRAMME NAME. (Your programme name may"
7418 PLOT 3,18,14:PRINT "not have more than six characters.)"
7420 PLOT 3,6,16:PRINT "2) If you have processed several screens, your directory"
7422 PLOT 3,9,17:PRINT "on the disk may be full, and you will get an ERWZ"
7424 PLOT 3,9,18:PRINT "message when attempting to save."
7426 PLOT 3,9,20:PRINT "in this case: Press (ESC) D, then procede to delete"
7428 PLOT 3,9,21:PRINT "eeeeeeeeeeee  the last version."
7430 PLOT 3,11,23:PRINT "(eg. FCS>DEL CATS.BAS;03 (03-last version #))"
7432 PLOT 3,9,25:PRINT "Then proceed to do 1) again."
7434 PLOT 3,6,27:PRINT "3) Now type in the word RUN to see what you have done."
7436 PLOT 3,0,29:PRINT "":GOSUB 3000:PRINT ""
7599 RETURN
8000 REM
8010 PLOT 12:LIST  10000:PRINT :PRINT
8020 PRINT "PLEASE NOTE:WHEN PROCESSING THE FIRST SCREEN IN YOUR AGILIS"
8030 PRINT :PRINT "PROGRAMME, THE STARTING LINE NUMBER MUST BE 21000.":FOR I= 1TO  1000:NEXT I
10000 REM  END PAGE
10100 PLOT 27,4:PRINT "RUN AGILIS":PLOT 27,27:
10999 END
11000 PLOT 6,2,12,15,29,3,0,0:PRINT "EDIT, STORE, RESTORE, PROCESS OR BASIC >"
11999 RETURN
20000 GOSUB 2100:IF  X= 8 OR  X= 24 OR  X= 12 OR  X= 10 OR  X= 28 OR  X= 1 GOTO  20020
20010 PRINT CHR$ (X);:GOTO 20000
20020 IF  X< > 1 THEN  GOTO 20000
20030 PLOT  29,6,2:RETURN
65301 REM  81 07 15 10:00 AM DATE LAST EDITED R.ANDERS