Compucolor.org – Virtual Media

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

10 PLOT 6,2,29,12
20 PLOT 3,18,9
25 REM
30 PRINT "RALFARITHMS SOFTWARE SERVICES"
35 PLOT 3,28,13
36 PRINT "PRESENTS"
37 PLOT 3,29,17
38 PRINT "TINYC"
40 FOR I= 1TO 500:NEXT
50 PLOT 3,0,31,11
60 INPUT "DO YOU WANT SOME HELP?";A$
70 IF LEFT$ (A$,1)= "N"GOTO 10000
80 IF LEFT$ (A$,1)< > "Y"GOTO 50
100 PLOT 12
110 PRINT "TINYC IS A STRUCTURED LANGUAGE FOR THE COMPUCOLOR II.  IT IS"
120 PRINT "IMPLEMENTED AS A SOURCE INTERPRETER WHICH ALLOWS EDITTING AND"
130 PRINT "IMMEDIATE EXECUTION AS DOES BASIC.  TINYC PROGRAMS MAY BE"
140 PRINT "CREATED BY ANY COMPUCOLOR EDITORS OR BY THE TINYC PROGRAM"
150 PRINT "PREPARATION SYSTEM (PPS).  TINYC IS INVOKED AT THE END OF THIS"
160 PRINT "PROGRAM OR BY EXECUTING THE FCS AND TYPING THE COMMAND:"
170 PRINT
180 PRINT TAB( 10);"FCS>RUN TINYC"
190 PRINT
200 PRINT "ONCE THE TC>PROMPT APPEARS, TINYC WILL ACCEPT THE FOLLOWING"
210 PRINT
220 PRINT TAB( 10);"TC>.R TC.PPS		TO LOAD THE PPS"
230 PRINT TAB( 10);"TC>.R FILE-NAME.C	TO LOAD A SOURCE FILE"
240 PRINT TAB( 10);"TC>.G			TO START THE MAIN PROGRAM"
250 PRINT TAB( 10);"TC>.X			TO EXIT TO THE FCS"
260 PRINT
270 PLOT 3,0,31:INPUT "PRESS RETURN TO CONTINUE";A$
300 PLOT 12
310 PRINT "TINYC MAY BE CUSTOMIZED TO FOR 16K MACHINES BY INVOKING THE FCS
320 PRINT "AND TYPING THE FOLLOWING COMMANDS:"
330 PRINT
340 PRINT TAB( 10);"FCS>LOAD TINYC.PRG"
350 PRINT TAB( 10);"FCS>LOAD TCP16"
360 PRINT TAB( 10);"FCS>SAVE TINYC.PRG 8200-949E"
370 PRINT
380 PRINT "TINYC MAY BE CUSTOMIZED FOR 8K MACHINES BY SUBSTITUTING TCP8 IN"
390 PRINT "THE ABOVE COMMANDS FOR TCP16. BE WARNED AN 8K MACHINE CAN'T DO"
400 PRINT "MUCH OF ANYTHING AND A 16K MACHINE CAN'T RUN A DECENT SIZED"
410 PRINT "PPS.  A 16K MACHINE MUST RUN TC16.PPS INSTEAD OF THE TC.PPS."
420 PLOT 3,0,31:INPUT "PRESS RETURN TO CONTINUE";A$
10000 PLOT 12
10010 PRINT "FCS>RUN TINYC"
10020 PLOT 27,4:PRINT "RUN TINYC";