Compucolor.org – Virtual Media

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

5000 PLOT 6,2,12,15,29,3,4,1:PRINT "AGILIS V1.1 (C) G.A. WALKER, UNIVERSITY OF WATERLOO"
5005 PLOT 27,24
5010 PLOT 3,5,5:PRINT "READ ME FIRST BEFORE USING ANY OF THE PROGRAMMES"
5020 PLOT 3,5,7:PRINT "ON THIS DISKETTE."
5030 PLOT 3,0,9:PRINT "":FOR I= 0TO 2000:NEXT I:PRINT ""
5040 PLOT 3,0,14:PRINT "CONTENTS:":PLOT 12,6,2,15,27,4:PRINT "DIR":PLOT 27,27:PRINT ""
5050 PLOT 3,0,31:PRINT "PRESS RETURN CONTINUE *>"
5060 PLOT 3,25,31:INPUT "";T$
5070 PLOT 6,2,12,15,29,3,0,1:PRINT "DESCRIPTION:"
5080 PLOT 3,0,5:PRINT "AGDEMO.BAS IS A DEMONSTRATION PROGRAMME SHOWING SOME DISPLAY"
5090 PLOT 3,8,7:PRINT "METHODS AND GRAPHICS."
5100 PLOT 3,8,9:PRINT "THE PROGRAMME WAS WRITTEN BY REBECCA ANDERS, A FOURTH"
5110 PLOT 3,8,11:PRINT "YEAR FRENCH STUDENT. REBECCA HAD NO PREVIOUS KNOWLEDGE"
5120 PLOT 3,8,13:PRINT "OF COMPUTERS WHEN SHE STARTED THE PROGRAMME."
5130 PLOT 3,8,15:PRINT "85% OF THE PROGRAMME WAS WRITTEN BY AGILIS. THE"
5140 PLOT 3,8,17:PRINT "REMAINDER WAS INSERTED DURING SCREEN ENTRY OR USING"
5150 PLOT 3,8,19:PRINT "THE ISC BASIC EDITOR 'FREDI'."
5160 PLOT 3,8,23:PRINT "A SECOND DEMO ON AGILIS EXPLAINS THE SCREEN ENTRY"
5170 PLOT 3,8,25:PRINT "TECHNIQUE."
5180 PLOT 3,18,31:PRINT "* PRESS RETURN TO CONTINUE *"
5190 PLOT 3,64,31:INPUT "";T$
5200 PLOT 6,2,12,15,29,3,0,1:PRINT "KY82A0.LDA"
5210 PLOT 3,0,3:PRINT "KY82A0.BAS"
5220 PLOT 3,0,5:PRINT "KY85EE.LDA"
5230 PLOT 3,0,7:PRINT "KY85EE.BAS      THESE PROGRAMMES ARE SHORT MACHINE LANGUAGE"
5240 PLOT 3,8,9:PRINT "ROUTINES THAT GET A SINGLE KEYSTROKE FROM THE CONSOLE."
5250 PLOT 3,8,11:PRINT "THE ROUTINE WAITS UNTIL A CHARACTER HAS BEEN STRUCK"
5260 PLOT 3,8,13:PRINT "AND THEN RETURNS THE DECIMAL VALUE IN THE CALLING"
5270 PLOT 3,8,15:PRINT "PARAMETER. E.G. X=CALL (0). THE KEY VALUE WILL BE"
5280 PLOT 3,8,17:PRINT "RETURNED IN X."
5290 PLOT 3,0,19:PRINT "USAGE:  THE TWO BASIC PROGRAMMES HAVE BEEN PRE-LOADED AND ARE"
5300 PLOT 3,8,21:PRINT "READY TO RUN @ 829AH & 85E8H."
5310 PLOT 3,8,23:PRINT "IF LINE 0 IS DESTROYED OR CONTAMINATED, PERFORM THE"
5320 PLOT 3,8,25:PRINT "FOLLOWING PROCEDURE:"
5330 PLOT 3,18,31:PRINT "PRESS RETURN TO CONTINUE"
5340 PLOT 3,64,31:INPUT "";T$
5350 PLOT 15,29,3,8,19:PRINT "CREATE A NEW LINE 0 OF THE FORM";SPC( 25);""
5360 PLOT 3,0,21:PRINT "0 REM";SPC( 41);":DO NOT CHANGE"
5370 PLOT 3,8,23:PRINT "ENTER FCS AND LOAD KY82A0 FOR PROGRAMS WITH A START"
5380 PLOT 3,8,25:PRINT "ADDRESS OF 829AH. (USE KY85EE.LDA FOR PROGRAMS THAT"
5390 PLOT 3,8,27:PRINT "USE ANALIZ.PRG.)"
5400 PLOT 3,43,31:PRINT "*>"
5410 PLOT 3,45,31:INPUT "";T$
5420 PLOT 6,2,12,15,29,3,0,1:PRINT "FILCOP.PRG:"
5430 PLOT 3,8,3:PRINT "THIS PROGRAMME WAS WRITTEN FOR SINGLE DRIVE SYSTEMS."
5440 PLOT 3,8,5:PRINT "SPECIFICALLY, THE ISC 3651. THE PROGRAMME WORKS ON"
5450 PLOT 3,8,7:PRINT "V8.79 SOFTWARE AND MAY OR MAY NOT WORK ON V6.78"
5460 PLOT 3,8,9:PRINT "FCS."
5470 PLOT 3,0,11:PRINT "USAGE:"
5480 PLOT 3,8,13:PRINT "ENTER FCS AND RUN FILCOP."
5490 PLOT 3,0,15:PRINT "SYNTAX:"
5500 PLOT 3,8,17:PRINT "FNMAME1.EXT;VR=FNAME2.EXT"
5510 PLOT 3,8,21:PRINT "THE EQUIVALENCE SYMBOL (=) MAY BE REPLACED WITH A"
5520 PLOT 3,8,23:PRINT "SPACE OR A SLASH '/'."
5530 PLOT 3,8,27:PRINT "CHANGE THE DISKETTES WHEN PROMPTED."
5540 PLOT 15,3,17,30:PRINT "PRESS RETURN TO CONTINUE"
5550 PLOT 3,64,30:INPUT "";T$
5560 PLOT 6,2,12,15,29,3,0,1:PRINT "COPDSK.BAS:"
5570 PLOT 3,8,3:PRINT "THIS PROGRAMME PERMITS SELECTIVE FILE COPYING BETWEEN"
5580 PLOT 3,8,5:PRINT "TWO DISK DRIVES. IT IS WRITTEN ENTIRELY IN BASIC AND"
5590 PLOT 3,8,7:PRINT "IS MACHINE INDEPENDENT."
5600 PLOT 3,0,9:PRINT "SYNTAX:"
5610 PLOT 3,8,11:PRINT "THE SYMBOL '*' INDICATES DON'T CARE AND THE '?' IS"
5620 PLOT 3,8,13:PRINT "TREATED AS A WILD CARD LETTER. E.G. IT MATCHES UP"
5630 PLOT 3,8,15:PRINT "WITH ANY LETTER."
5640 PLOT 3,3,17:PRINT "E.G. *.BAS COPIES ALL .BAS PROGRAMMES."
5650 PLOT 3,8,19:PRINT "PUKU.* COPIES ALL PUKU.   PROGRAMMES."
5660 PLOT 3,8,21:PRINT "*.* COPIES EVERYTHING."
5670 PLOT 3,8,23:PRINT "BOOMER.??G COPIES ALL PROGRAMMES THAT COME BACK."
5680 PLOT 3,14,31:PRINT "PRESS RETURN TO CONTINUE *>"
5690 PLOT 3,42,31:INPUT "";T$
5700 PLOT 6,2,12,15,29,3,0,1:PRINT "CONVRT.BAS:"
5710 PLOT 3,8,3:PRINT "THIS PROGRAMME IS WRITTEN ENTIRELY IN BASIC AND IS"
5720 PLOT 3,8,5:PRINT "MACHINE INDEPENDENT. LIKE COPDSK.BAS, THIS PROGRAMME"
5730 PLOT 3,8,7:PRINT "USES THE READ & WRITE FCS PRIMITIVES."
5740 PLOT 3,8,11:PRINT "THE PURPOSE OF THIS PROGRAMME IS TO CONVERT A STANDARD"
5750 PLOT 3,8,13:PRINT "ASCII TEXT FILE TO THE NON-STANDARD FORMAT OF THE"
5760 PLOT 3,8,15:PRINT "COMPU-WRITER."
5770 PLOT 3,8,17:PRINT "THERE IS NO ELABORATE ERROR CHECKING IN THIS PROGRAMME."
5780 PLOT 3,8,19:PRINT "IT WAS WRITTEN TO PERFORM A SPECIFIC ONE TIME CHORE & IS"
5790 PLOT 3,8,21:PRINT "INCLUDED HERE FOR YOUR ' ENJOYMENT'."
5800 PLOT 3,8,25:PRINT "IF YOU USE THE COMPU-WRITER, PLEASE FOLLOW THESE"
5810 PLOT 3,8,27:PRINT "INSTRUCTIONS ON HOW TO USE CONVRT.BAS."
5820 PLOT 3,40,31:PRINT "PRESS RETURN TO CONTINUE"
5830 PLOT 3,64,31:INPUT "";T$:PLOT 12
5990 PLOT 3,14,11:PRINT "WARNING !!!!!!!!!!!!!!!!!!!!!!"
6000 PLOT 3,8,15:PRINT "MAKE SURE YOU HAVE A BACK UP COPY OF YOUR DISKETTE."
6010 PLOT 3,8,19:PRINT "THIS PROGRAMME USES COMPUTED BLOCK WRITE ROUTINES."
6020 PLOT 3,7,23:PRINT "BE VERY CAREFUL IF YOU ARE USING ONLY ONE DISK DRIVE."
6030 PLOT 3,16,27:PRINT "PRESS RETURN TO CONTINUE."
6040 PLOT 17,2,0,126,242,0,2,126,2,126,126,0,126,255
6050 PLOT 20,2,24,94,242,24,106,90,106,90,94,24,94,255
6060 PLOT 20,2,24,94,242,24,78,90,78,90,94,24,94,255
6070 PLOT 23,2,2,122,242,2,6,124,6,124,122,2,122,255
6080 PLOT 17,2,4,118,242,4,10,122,10,122,118,4,118,255
6090 PLOT 20,2,120,30,242,120,42,12,42,12,30,120,30,255
6100 PLOT 3,64,27:INPUT "";T$
6110 PLOT 6,2,12,15,29,3,24,15:PRINT "ENJOY YOURSELF"
6120 PLOT 19,2,0,126,242,46,74,46,62,0,2,126,2,76,62,76,74,126,126,0,126,255
6130 PLOT 21,2,60,6,242,60,62,58,62,58,74,60,78,62,82,64,86,66,94,66,102,64,106,62,110,58,118,58,122,255
6140 PLOT 17,2,22,74,242,54,122,64,94,80,66,104,18,116,106,28,22,40,110,48,90,68,78,68,74,70,78,68,74,66,78,68,78,68,102,68,114,70,118,70,110,68,106,66,110,66,118,68,114,255
6150 PLOT 15,3,25,31:INPUT "PRESS RETURN";T$
6160 PLOT 15,29,3,0,8:PRINT "THIS"
6170 PLOT 3,0,9:PRINT "PROGRAMME"
6180 PLOT 3,0,10:PRINT "WAS WRITTEN"
6190 PLOT 3,0,11:PRINT "ENTIRELY"
6200 PLOT 3,0,12:PRINT "USING THE"
6210 PLOT 3,0,13:PRINT "AGILIS"
6220 PLOT 3,0,14:PRINT "SCREEN PROCESSOR."
6230 PLOT 3,0,16:PRINT "C.W.HENNIG."
6240 PLOT 3,0,18:INPUT "PRESS RETURN";T$
6300 PLOT 12,3,20,18:PRINT "FOR FURTHER INSTRUCTIONS"
6310 PLOT 3,27,20:PRINT "ON AGILIS,"
6320 PLOT 3,20,22:PRINT "PRESS RETURN, LOAD AGDEMO"
6330 PLOT 3,20,24:INPUT "PRESS (ESC) E, THEN RUN";RTNT