Compucolor.org – Virtual Media

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

100 CLEAR 100
110 REM  ** INSTRUCTIONS PROGRAM FOR UTILITY PROGRAMS FOR
120 REM  ** WHICH DOCUMENTATION WAS SUBMITTED TO THE NCCUG
130 REM  ** DOCUMENTATION LIBRARY BY MYRON T. STEFFY, AF7E
140 REM  ** VERSION: MARCH 5, 1981
150 REM  ** INSTRUCTION PROGRAM EDITOR: CHUCK SONTAG
160 PLOT 12,14,6,39
170 PLOT  3,17,3:PRINT " I N S T R U C T I O N S  "
180 PLOT 6,3,3,0,4,14
190 PRINT :PRINT :PRINT :PRINT
200 PRINT TAB( 19)"FOR  + R U N   PROGRAM":PRINT
210 PLOT  15:FOR I= 1TO 5:PRINT :NEXT I
220 PRINT TAB( 38):INPUT " PRESS RETURN: "; A
230 PLOT 12,6,1,3,8,0,14
240 PRINT TAB( 4)" + R U N     I N S T R U C T I O N S "
250 PLOT 15,13,32,13
260 FOR I= 1TO 6:PRINT :NEXT I
270 PRINT "TITLE:   USER INSTRUCTIONS FOR + R U N  PRINTING  PROGRAM."
280 PRINT :PRINT
290 PRINT "PURPOSE: PROGRAM + RUN PROVIDES A METHOD FOR OUTPUT TO A"
300 PRINT TAB( 9)"PRINTER AND THE SCREEN SIMULTANEOUSLY FROM A BASIC "
310 PRINT TAB( 9)"PROGRAM, ALLOWING YOU TO ANSWER ANY NECESSARY PROMPTS."
320 PRINT TAB( 9)"ANY FORMATTING OR PAGING MUST BE DONE IN THE BASIC"
330 PRINT TAB( 9)"PROGRAM.  +RUN DOES NOT PROVIDE THESE FUNCTIONS."
340 PRINT
350 PRINT "REQUIRED: 1. 16K MEMORY ( LEAVES 7500 BYTES FOR BASIC )"
360 PRINT TAB( 13)"( SEE PRTRUN.PRG;02 FOR 32K. VERSION )
370 PRINT TAB( 10)"2. EITHER V6.78 OR V8.79 VERSION OF DISK BASIC."
380 PRINT TAB( 10)"3. ASSEMBLY LANGUAGE PROGRAM NAMED PRTRUN."
390 PRINT :PRINT "NOTE:";
400 PRINT TAB( 9)"THE PRG NAME OF +RUN IS PRTRUN, AS SYMBOLS AND "
410 PRINT TAB( 9)"PUNCTUATION ARE NOT ALLOWED IN PROGRAM NAMES."
420 PRINT :PRINT
430 PRINT TAB( 9):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A
440 PLOT 12,6,X,3,12,0,14
450 PRINT " + R U N     I N S T R U C T I O N S "
460 PLOT 15,13,32,13
470 PRINT "OPERATING INSTRUCTIONS: (THIS IS NOT A STEP-BY-STEP PROCEDURE)"
480 PRINT
490 PRINT TAB( 5)"1. GETTING STARTED:"
500 PRINT
510 PRINT TAB( 8)"LOAD AND CHECK YOUR BASIC PROGRAM TO BE SURE THAT "
520 PRINT TAB( 8)"IT RUNS CORRECTLY."
530 PRINT
540 PRINT TAB( 5)"2. PROGRAM CONTENT:"
550 PRINT
560 PRINT TAB( 8)"IF THE BASIC PROGRAM CONTAINS 'PLOT 255' STATEMENTS,"
570 PRINT TAB( 8)"REMOVE THEM.  THEIR FUNCTION IS 'PLOT MODE ESCAPE' BUT"
580 PRINT TAB( 8)"THE STATEMENT CAN BE CONTINUED AS A NEW PLOT STATMENT"
590 PRINT TAB( 8)"AFTER A COLON OR AS A NEW LINE WITHOUT USE OF '255'."
600 PRINT TAB( 8)"THE USE OF 'PLOT 255' MAY CAUSE +RUN TO ABORT."
610 PRINT
620 PRINT TAB( 5)"3. STRING SPACE:"
630 PRINT
640 PRINT TAB( 8)"IF YOUR BASIC PROGRAM CONTAINS STRINGS AND DOES NOT "
650 PRINT TAB( 8)"ALLOT STRING SPACE, ADD TO IT A FIRST LINE CONTAINING "
660 PRINT TAB( 8)"THE STATMENT 'CLEAR 100', TO PREVENT AN ' OS ' ERROR."
670 PRINT
680 PRINT TAB( 5)"4. LOADING MACHINE LANGUAGE PROGRAM:"
690 PRINT
700 PRINT TAB( 8)"INSERT DISC CONTAINING +RUN PROGRAM AND TYPE "
710 PRINT TAB( 8)"(FROM FCS) 'RUN PRTRUN.PRG;01'"
720 PRINT
730 PRINT :PRINT :PRINT
740 PRINT TAB( 5):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A
750 PLOT 12,6,X,3,7,0,14
760 PRINT TAB( 4)" + R U N     I N S T R U C T I O N S "
770 PLOT 15,13,32,13
780 PRINT
790 PRINT  "OPERATING INSTRUCTIONS (CONT'D):"
800 PRINT
810 PRINT TAB( 5)"5. BAUD RATE:":PRINT
820 PRINT TAB( 8)"ENTER THE BAUD RATE OF YOUR PRINTER.   YOUR SCREEN "
830 PRINT TAB( 8)"WILL FOLLOW THE PRINTER OUTPUT AT THE SAME RATE.  IF"
840 PRINT TAB( 8)"YOU WISH TO MAKE A PRELIMINARY RUN, TRY A BAUD RATE"
850 PRINT TAB( 8)"OF 3 (300) WITH THE PRINTER SWITCHED 'OFF' TO MAKE"
860 PRINT TAB( 8)"SURE THAT THERE ARE NO MALFUNCTIONS.  AT THIS SPEED,"
870 PRINT TAB( 8)"YOU CAN EASILY TELL IF THE PROGRAM JUMPS OUT OF"
880 PRINT TAB( 8)"+RUN AND REVERTS TO FULL SCREEN SPEED."
890 PRINT
900 PRINT TAB( 5)"6. INITIALIZATION:"
910 PRINT
920 PRINT TAB( 8)"AT THE PROMPT, PRESS ' ESCAPE ^ ' (USER)."
930 PRINT TAB( 8)"WHEN YOU SEE THE NEXT PROMPT, BE SURE TO PRESS"
940 PRINT TAB( 8)"RETURN.  THEN TYPE +RUN AND THE PROGRAM WILL TAKE OFF."
950 PRINT
960 PRINT TAB( 5)"7. RE-ENTRY:"
970 PRINT
980 PRINT TAB( 8)"NORMALLY, YOU MAY RE-RUN THE SAME PROGRAM BY SIMPLY"
990 PRINT TAB( 8)"TYPING ' +RUN '.  IF YOU HAVE ANY DIFFICULTY OR "
1000 PRINT TAB( 8)"WISH TO CHANGE THE BAUD RATE, THE MACHINE LANGUAGE"
1010 PRINT TAB( 8)"MAY BE RE-STARTED BY TYPING ' ESCAPE S '.
1020 PRINT TAB( 8)"NOTE:RE-START DOES NOT APPLY TO 32K. VERSION PRG.02"
1030 PRINT :PRINT
1040 PRINT TAB( 5):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A
1050 PLOT 12,6,X,3,7,0,14
1060 PRINT TAB( 4)" + R U N     I N S T R U C T I O N S "
1070 PLOT 15,13,32,13
1080 PRINT
1090 PRINT  "OPERATING INSTRUCTIONS (CONT'D):"
1100 PRINT
1110 PRINT TAB( 5)"THESE INSTRUCTIONS CAN BE RUN AND PRINTED USING THE "
1120 PRINT
1130 PRINT TAB( 5)"+ R U N  PROGRAM.  FOLLOW THE NEXT INSTRUCTION:"
1140 PRINT :PRINT
1150 PRINT TAB( 5)"ENTER YOUR CHOICE: "
1160 PRINT
1170 PRINT TAB( 25)"1) REPRINT INSTRUCTIONS
1180 PRINT
1190 PRINT TAB( 25)"2) LOAD +RUN (IF LESS THAN 32K)"
1194 PRINT
1195 PRINT TAB( 25)"3) LOAD PRUN32 (IF 32K)"
1200 PRINT
1210 PRINT TAB( 25)"4) END PROGRAM"
1220 PRINT
1230 INPUT X
1240 IF X< 1OR X> 4THEN 1150
1250 ON XGOTO 100,1260,1345,1350
1260 IF PEEK (41060)+ PEEK (41160)+ PEEK (41260)= 542THEN 1320
1270 PLOT  12,8:PRINT :PRINT :PRINT :PRINT :PRINT
1280 PRINT TAB( 10);"LOADING    + R U N    PROGRAM"
1290 IF PEEK (41060)+ PEEK (41160)+ PEEK (41260)= 542THEN 1320
1300 PLOT 27,4
1310 PRINT "RUN PRTRUN.PRG;01"
1320 PRINT :PLOT  14:PRINT TAB( 20)"+ R U N IS LOADED"
1330 FOR I= 1TO 1500:NEXT I
1340 PLOT 27,19:GOTO 1350
1345 LOAD "PRUN32":RUN
1350 END