Compucolor.org – Virtual Media

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

3 GOSUB 3000
4 P$= "
|~a "
5 PRINT ""
9 PLOT 6,32,12,14,6,49,3,18,15:PRINT " FLY YOUR COMPUTER ":PLOT 6,2:FOR I= 1TO 2000:NEXT
10 PLOT 12,14,6,6,3,0,14:PRINT TAB( 10);"DO YOU WISH INSTRUCTIONS ";:INPUT Z$
20 IF LEFT$ (Z$,1)= "Y"THEN 29
25 LOAD "DAYFLT":RUN
29 PLOT 12,6,33,3,15,0:PRINT " B747 FLIGHT SIMULATOR ":PLOT 6,3:PRINT
30 PRINT TAB( 15);"WELCOME ABOARD FLIGHT-409":PRINT :PLOT 6,6,15
40 PRINT TAB( 5);"YOU ARE CAPTAIN OF TWA FLIGHT-409 NON-STOP SERVICE"
50 PRINT "TO HARTFORD, CONN. FROM NEWYORK'S KENNEDY INT. AIRPORT."
60 PRINT "FLIGHT-409 DEPARTS AT 1:20 P.M. AND IS DUE IN HARTFORD AT"
70 PRINT "2:00 P.M. EST.":PRINT :PLOT 6,7
80 PRINT "   TO ACCOMPLISH YOUR FLIGHT YOU WILL BE REQUIRED TO TAXI TO"
90 PRINT "PROPER RUNWAY, TAKE OFF, NAVIGATE, LAND, AND TAXI TO GATE."
100 PRINT "THE FOLLOWING INSTRUCTIONS ARE NECESSARY TO FAMILIARIZE"
110 PRINT "YOURSELF WITH THE CONTROLS OF THE AIRCRAFT. IN ADDITION YOU"
120 PRINT "WILL REQUIRE A MAP OF THE FLIGHT PATERNS AND A KEYBOARD"
130 PRINT "LAYOUT DISPLAYING THE VARIOUS KEYS AFFECTING THE AIRCRAFT.":GOSUB 2000
140 GOSUB 2100:PLOT 28,6,1
141 PLOT 14,15,26,26,26,26,26,28
150 PRINT " COMPUTER WILL ONLY RECOGNIZE AN INPUT WHEN THE LIGHT ";:PLOT 6,67:PRINT "`";:PLOT 6,1:PRINT " IS"
160 PRINT "BLINKING IN THE CENTER OF THE CONTROL WHEEL ON THE FAR RIGHT"
170 PRINT "SIDE OF THE INSTRUMENT DISPLAY. IF A KEY IS PRESSED WHEN THE"
180 PRINT "LIGHT IS NOT BLINKING, THEN NOTHING WILL HAPPEN."
190 PRINT :PLOT 6,6:PRINT " THE FOLLOWING IS A GENERAL DESCRIPTION OF THE KEY FUNCTIONS."
191 PRINT :PLOT 6,1:PRINT TAB( 20);"* ENGINE  CONTROLS *"
195 PRINT :PLOT 6,60:PRINT " KEY "
200 PRINT :PLOT 6,60:PRINT " 1 ";:PLOT 6,5:PRINT TAB( 5);"ENGINE #1: MOVES THROTTLE FOR ENGINE #1"
210 PLOT 6,60:PRINT " 2 ";:PLOT 6,5:PRINT TAB( 5);"ENGINE #2: MOVES THROTLLE FOR ENGINE #2"
220 PLOT 6,60:PRINT " 3 ";:PLOT 6,5:PRINT TAB( 5);"ENGINE #3: MOVES THROTTLE FOR ENGINE #3"
230 PLOT 6,60:PRINT " 4 ";:PLOT 6,5:PRINT TAB( 5);"ENGINE #4: MOVES THROTTLE FOR ENGINE #4"
240 PLOT 6,60:PRINT " 5 ";:PLOT 6,5:PRINT TAB( 5);"MOVES THROTTLE FOR ALL ENGINES"
245 PLOT 6,2:PRINT TAB( 22);"ENGINE MODES"
250 PLOT 6,60:PRINT " 7 ";:PLOT 6,3:PRINT TAB( 10);"SETS THROTTLE -DECREASE- MODE"
260 PLOT 6,60:PRINT " 8 ";:PLOT 6,3:PRINT TAB( 10);"SETS THROTTLE +INCREASE+ MODE"
270 PLOT 6,60:PRINT " 9 ";:PLOT 6,3:PRINT TAB( 10);"SETS REVERSE ENGINES MODE":PRINT
280 PLOT 6,2:PRINT "*NOTE: IT IS NOT NECESSARY TO PRESS MODE KEYS EACH TIME YOU"
290 PRINT "WISH TO MOVE THROTLLES SINCE THE COMPUTER WILL USE THE MOST"
300 PRINT "RECENTLY ENTERED MODE. IF ENGINES ARE REVERSED A NEGATIVE"
305 PRINT "THRUST IS APPLIED. THIS KEY AIDS BRAKING WHEN LANDING."
310 GOSUB 2000:GOSUB 2100:PLOT 6,0,11
315 PLOT 28:PLOT 6,60:PRINT " KEY ";:PLOT 6,5:PRINT TAB( 20);"* BRAKE CONTROLS *"
317 PRINT :PLOT 6,60:PRINT " Z ";:PLOT 6,7:PRINT "  RELEASES BRAKE":PRINT
320 PLOT 6,60:PRINT " SPACE ";:PLOT 6,7:PRINT " INCREASES BRAKE":PRINT
326 PLOT 6,60:PRINT " C ";:PLOT 6,6:PRINT TAB( 5);"APPLIES THE EMERGENCY RESERVE BRAKE"
327 PLOT 6,60:PRINT " X ";:PLOT 6,6:PRINT "  RELEASES EMERGENCY BRAKE"
328 PLOT 6,2:PRINT "NOTE! THIS IS AN EMERGENCY BRAKE ONLY!":PRINT
330 PLOT 6,3:PRINT TAB( 20);"* WINDOW HEAT CONTROL *":PRINT
335 PLOT 6,60:PRINT " E ";:PLOT 6,7:PRINT TAB( 5);"TURNS WINDOW HEAT OFF"
336 PLOT 6,60:PRINT " F ";:PLOT 6,7:PRINT TAB( 5);"TURNS WINDOW HEAT ON"
338 PRINT :PLOT 6,2:PRINT "NOTE! WINDOW HEAT MUST BE 'ON' ABOVE 10,000 FT. FOR"
339 PRINT "DEFROSTING WINDOWS. THE WINDOW HEATER MUST REMAIN ON WHEN"
340 PRINT "LANDING IN ORDER TO SEE LANDING STRIP.":PRINT
342 PLOT 6,60:PRINT " S ";:PLOT 6,3:PRINT " MAINTAINS PRESENT CONDITIONS":PRINT
345 PLOT 6,2:PRINT "NOTE! THE 'MAINTAIN' KEY IS USED WHEN YOU ARE'NT READY TO"
346 PRINT "INPUT A NEW COMMAND AND YOU WANT AN IMMEDIATE UPDATE OF THE"
347 PRINT "INSTRUMENT PANEL. NOT PRESSING A KEY WILL HAVE THE SAME"
348 PRINT "RESULT EXCEPT, THE ENTIRE TIME CYCLE WILL PASS BEFORE UPDATE."
350 GOSUB 2000:GOSUB 2100
351 PLOT 6,1:PRINT TAB( 20);"* RADIO CONTROLS *":PRINT
352 PLOT 6,60:PRINT " A ";:PLOT 6,3:PRINT " TURNS RADIO ON"
353 PRINT :PLOT 6,2:PRINT "   THIS IS THE INITIALIZING KEY FOR THE FLIGHT."
354 PRINT "YOU MUST TURN ON THE RADIO TO GET INSTRUCTIONS FOR YOUR"
355 PRINT "FLIGHT, AND RADIO MUST REMAIN ON DURING YOUR ENTIRE FLIGHT."
356 PRINT "WHEN RADIO IS ACTIVATED, CONTROL TOWER WILL INSTRUCT YOU"
357 PRINT "TO TUNE TO A PARTICULAR RADIO FREQUENCY FOR FUTURE MESSAGES.":PRINT
365 PLOT 6,60:PRINT " D ";:PLOT 6,3:PRINT " TURNS RADIO OFF":PRINT
400 PLOT 6,60:PRINT " Y ";:PLOT 6,3:PRINT TAB( 5);"USED TO SET RADIO FREQUENCY"
410 PLOT 6,1:PRINT :PRINT " NOTE!";:PLOT 6,6:PRINT " VHF RADIO FREQUENCY SHOULD BE";
415 PLOT 6,1:PRINT " MEMORIZED";:PLOT 6,6:PRINT " BEFORE YOU"
420 PRINT "PRESS 'Y' . YOU WILL LATER NEED TO TUNE TO INSTRUCTED FREQUENCY"
430 PRINT "IN ORDER TO RECEIVE CLEARANCE INSTRUCTIONS."
450 GOSUB 2000:GOSUB 2100:PLOT 6,4:PRINT TAB( 20);"* LANDING GEARS *":PRINT
460 PLOT 6,60:PRINT " G ";:PLOT 6,5:PRINT " LOWERS LANDING GEAR"
470 PLOT 6,60:PRINT " H ";:PLOT 6,5:PRINT " SECURES LANDING GEAR":PLOT 6,2:PRINT
480 PRINT "NOTE! LANDING GEARS MUST BE SECURED ABOVE 8,000 FT. TO AVOID"
490 PRINT "FREEZING HYDROLIC PRESSURE LINES.":PRINT
500 PLOT 6,1:PRINT TAB( 20);"* AUTO PILOT CONTROL *":PRINT
510 PLOT 6,60:PRINT " N ";:PLOT 6,7:PRINT " ACTIVATES AUTOMATIC PILOT":PLOT 6,2
520 PRINT :PRINT "  'N' LEVELS AIRCRAFT IMMEDIATELY AND MAINTAINS PRESENT"
530 PRINT "SPEED. WING FLAPS ARE CORRECTED TO 0 DEGREES."
535 PRINT "VERTICAL SPEED IS CORRECTED TO ZERO.":PRINT
540 PLOT 6,60:PRINT " M ";:PLOT 6,7:PRINT " DEACTIVATES AUTOMATIC PILOT"
600 GOSUB 2000:GOSUB 2100:PLOT 6,3:PRINT TAB( 20);"* STICK CONTROLS *":PRINT
610 PLOT 6,6:PRINT "  STICK OR WHEEL CONTROL IS ACCOMPLISHED USING"
620 PRINT "THE CURSOR CONTROL CLUSTER ON THE RIGHT SIDE OF KEYBOARD.":PRINT
630 PLOT 6,5:PRINT "~|
a";:PLOT 6,3:PRINT " PUSH STICK FORWARD:";:PLOT 6,2
640 PRINT " DECREASES";:PLOT 6,1:PRINT " FLAP";:PLOT 6,2:PRINT " ANGLE AND CAUSES AIRCRAFT":PLOT 3,23,11
650 PRINT "TO TILT DOWNWARDS(WING FLAPS).":PRINT
660 PLOT 6,7:PRINT "<--";:PLOT 6,3:PRINT " STICK LEFT: ";:PLOT 6,2:PRINT "DECREASES ";
665 PLOT 6,1:PRINT "HORIZON";:PLOT 6,2:PRINT " ANGLE AND CAUSES AIRCRAFT TO"
670 PRINT TAB( 16);"TURN TO THE LEFT. OPERATES TAIL FLAPS.":PRINT
680 PLOT 6,6:PRINT "-->";:PLOT 6,3:PRINT " STICK RIGHT: ";:PLOT 6,2:PRINT "INCREASES ";
685 PLOT 6,1:PRINT "HORIZON";:PLOT 6,2:PRINT " ANGLE AND CAUSES AIRCRAFT"
690 PRINT TAB( 17);"TO TURN TO THE RIGHT. OPERATES TAIL FLAPS."
695 PRINT :PLOT 6,1:PRINT "=";:PLOT 6,3:PRINT " PULLS STICK BACK:";:PLOT 6,2
700 PRINT " INCREASES";:PLOT 6,1:PRINT " FLAP";:PLOT 6,2:PRINT " ANGLE AND CAUSES AIRCRAFT"
710 PRINT TAB( 20);"TO TILT UPWARD(WING FLAPS).":PRINT
730 PLOT 6,65,14:PRINT "NOTE!";:PLOT 6,5,15:PRINT " THE DOWN ARROW ";P$;:PLOT 6,5
740 PRINT "IS NOT USED!";:PLOT 6,1:PRINT " DO NOT USE!"
750 PLOT 3,5,26:PRINT "THE '=' KEY IS USED INSTEAD OF DOWN ARROW!"
760 GOSUB 2000:GOSUB 2100:PRINT :PRINT :PLOT 6,60:PRINT " HOME ";:PLOT 6,3:PRINT " CENTERS";
770 PRINT " STICK:";:PLOT 6,2:PRINT " THIS KEY LEVELS ALL FLAPS BUT DOES NOT"
780 PRINT TAB( 22);"CANCEL THE EFFECT OF PREVIOUS 'STICK'"
790 PRINT TAB( 22);"CONTROLS AS DOES THE AUTOMATIC PILOT."
800 PRINT :PLOT 6,6:PRINT "  THIS IS A REAL TIME SIMULATION, AND IT IS NOT NECESSARY":PRINT
810 PRINT "TO PRESS 'RETURN' WHEN PRESSING CONTROL KEYS. UNTIL YOU ARE"
820 PRINT :PRINT "FAMILIAR WITH THE CONTROL KEYS IT IS ESSENTIAL THAT YOU"
830 PRINT :PRINT "KEEP A KEYBOARD DISPLAY READILY AVAILABLE DEPICTING THE"
840 PRINT :PRINT "THE LOCATION OF THE VARIOUS CONTROL KEYS."
850 GOSUB 2000:GOSUB 2200
860 PLOT 6,6:PRINT "  THE DISPLAYED VALUES OF THE INSTRUMENT PANEL AREAS FOLLOWS:"
870 PRINT
880 PLOT 6,6:PRINT " AIR SPEED ";:GOSUB 2300:PRINT "ASP";:GOSUB 2400:PRINT "MILE PER HOUR"
890 PLOT 6,6:PRINT " HORIZON ";:GOSUB 2300:PRINT "HOR";:GOSUB 2400:PRINT "DEGREES"
900 PLOT 6,6:PRINT " ALTITUDE ";:GOSUB 2300:PRINT "ALT";:GOSUB 2400:PRINT "FEET"
910 PLOT 6,6:PRINT " TIME ";:GOSUB 2300:PRINT "GMT";:GOSUB 2400:PRINT "HOURS AND MINUTES 'GMT'"
920 PLOT 6,6:PRINT " FUEL ";:GOSUB 2300:PRINT "FUEL";:GOSUB 2400:PRINT "POUNDS"
930 PLOT 6,6:PRINT " HEADING ";:GOSUB 2300:PRINT "HEAD";:GOSUB 2400:PRINT "DEGREES"
940 PLOT 6,6:PRINT " BRAKE PRESSURE ";:GOSUB 2300:PRINT "BPR";:GOSUB 2400:PRINT "POUNDS PER SQ. INCH"
950 PLOT 6,6:PRINT " VERTICAL SPEED ";:GOSUB 2300:PRINT "VSP";:GOSUB 2400:PRINT "FEET PER MINUTE"
960 PLOT 6,6:PRINT " LONGITUDE ";:GOSUB 2300:PRINT "LON";:GOSUB 2400:PRINT "DEGREES"
970 PLOT 6,6:PRINT " LATITUDE ";:GOSUB 2300:PRINT "LAT";:GOSUB 2400:PRINT "DEGREES"
980 PLOT 6,6:PRINT " RADIO FREQUENCY ";:GOSUB 2300:PRINT "VHF";:GOSUB 2400:PRINT "MHZ":PRINT
985 GOSUB 2000:GOSUB 2200
987 PLOT 6,6:PRINT " THE FOLLOWING ARE OTHER INSTRUMENT EXPLANATIONS:":PRINT
990 PLOT 6,7:PRINT " LANDING GEARS ";:GOSUB 2300:PRINT "LG 1 2 3";:GOSUB 2400:PRINT "LANDING GEAR STATUS (UP-DOWN)"
1000 PLOT 6,7:PRINT " WINDOW HEATER ";:GOSUB 2300:PRINT "WIN";:GOSUB 2400:PRINT "WINDOW HEAT STATUS (ON-OFF)"
1010 PLOT 6,7:PRINT " WING FLAPS ";:GOSUB 2300:PRINT "FLAP";:GOSUB 2400:PRINT "WING FLAP POSITION (DEGREES)"
1020 PRINT :PLOT 6,6:PRINT " LOCATED AT THE LOWER CENTER IS A 4X4 ENGINE WARNING PANEL."
1030 PRINT "THE PANEL WARNS OF MALFUNCTIONS IN EACH OF THE FOUR ENGINES."
1035 PRINT ""
1040 PLOT 6,2:PRINT "GREEN `";:PLOT 6,6:PRINT " INDICATES CONDITION O.K";
1041 PRINT " WHILE ";:PLOT 6,1:PRINT "RED ";:PLOT 6,65:PRINT "`";:PLOT 6,6
1042 PRINT " INDICATES A"
1050 PRINT "MALFUNCTION OF ONE OF THE FOLLOWING ENGINE SYSTEMS:":PRINT
1060 PLOT 6,2:PRINT "OPR..........OIL PRESSURE":PRINT "HPR..........WATER PRESSURE"
1070 PRINT "WFL..........COOLING WATER FLOW":PRINT "FIR..........FIRE":PRINT :PLOT 6,3
1080 PRINT " WHEN A MALFUNCTION OCCURS IT IS ESSENTIAL THAT YOU SHUT"
1081 PRINT "DOWN THE ENGINE INVOLVED."
1090 GOSUB 2000:GOSUB 2200:PLOT 6,6:PRINT " THE THROTTLES ARE LOCATED TO THE FAR RIGHT OF THE WARNING"
1095 PRINT "PANEL AND AN UPWARD MOVEMENT OF THROTTLE(S) INDICATES"
1100 PRINT "AN INCREASE OF POWER. WHEN THROTTLE INDICATOR IS AT BOTTOM"
1110 PRINT "OF SLIDE SWITCH ENGINE IS OFF.":PLOT 6,1:PRINT
1120 PRINT " BRAKE SWITCH IS LOCATED TO THE LEFT OF THROTTLES. AN UP-"
1130 PRINT "WARD MOVEMENT INDICATES RELEASE OF BRAKE. WHEN BRAKE IS SET"
1140 PRINT "AT BOTTOM POSITION THEN BRAKE IS AT MAXIMUM BRAKING POWER.":PRINT :PLOT 6,5
1150 PRINT " WHEN RESERVE BRAKE IS APPLIED A BLINKING INDICATOR WILL APPEAR"
1160 PRINT "BETWEEN THROTTLES AND BRAKE SWITCH. THE RESERVE BRAKE SHOULD"
1170 PRINT "BE USED IF YOU LOSE HYDROLIC PRESSURE TO MAIN BRAKE.":PRINT :PLOT 6,4
1180 PRINT " AT THE FAR RIGHT IS THE CONTROL COMPUTER. AS EXPLAINED"
1190 PRINT "BEFORE, YOU CAN ONLY INPUT COMMANDS WHEN THE LIGHT IN THE"
1195 PRINT "CENTER OF CONTROL IS BLINKING.":GOSUB  2000
1200 GOSUB 2500:PLOT 6,6:PRINT "TAXI TO RUNWAY:";:PLOT 6,2:PRINT " ALWAYS TURN RADIO ON";
1210 PRINT " BEFORE YOU BEGIN TO TAXI."
1215 PRINT "THE TOWER WILL TELL YOU WHICH RUNWAY TO USE. BEGIN RELEASING"
1220 PRINT "BRAKE AND INCREASEING THROTTLES AND TURN TO WITHIN 3 DEGREES"
1225 PRINT "HEADING OF THE PROPER RUNWAY. RUNWAY WILL APPEAR IN WINDOW"
1230 PRINT "WHEN YOU HAVE REACHED IT.":PRINT :PLOT 6,6
1235 PRINT "TAKEOFF: ";:PLOT 6,2:PRINT "IN ORDER TO TAKE OFF AIRSPEED(ASP) MUST BE GREATER"
1240 PRINT "THAN 180 MPH AND FLAPS GREATER THAN 0 DEGREES. PROPER"
1245 PRINT "TIMING IS NECESSARY OR AIRCRAFT MAY NOSEDIVE AFTER TAKEOFF."
1250 PRINT "AFTER TAKEOFF VERTICAL SPEED MUST NOT EXCEED 6000 FT/MIN."
1255 PRINT :PLOT 6,6:PRINT "NAVIGATION: ";:PLOT 6,2:PRINT "TO PLOT YOUR POSITION USE LATITUDE AND"
1260 PRINT "LONGITUDE COORDINATES DISPLAYED ON INSTRUMENT PANEL. FOLLOW"
1265 PRINT "THE FLIGHT PATERN(A,B,OR C) USING YOUR HEADING(HEAD) AND"
1270 PRINT "THE FACT THAT THE TOP OF THE MAP IS 0 DEG. DOWN IS 180"
1275 PRINT "DEG. RIGHT IS 90 DEG. AND LEFT 270 DEG."
1280 GOSUB 2000:GOSUB 2500:PLOT 6,6:PRINT "LANDING: ";:PLOT 6,2:PRINT "IN ORDER TO LAND";
1285 PRINT " SAFELY YOUR HEADING MUST BE"
1290 PRINT "WITHIN 3 DEGREES OF RUNWAY SPECIFIED BY TOWER. RUNWAY WILL"
1295 PRINT "APPEAR IN WINDOW WHEN YOUR ALTITUDE IS LESS THAN 100 FT."
1300 PRINT "AND YOU ARE OVER AIRPORT. YOU WILL BE ABLE TO SEE AIRPORT"
1305 PRINT "FROM AN ALTITUDE OF 8000 FT. IF YOU ARE CLOSE ENOUGH."
1310 PRINT "BEFORE DESCENDING TO LAND YOU WILL BE ABOVE WHITE CLOUD"
1315 PRINT "BANKS AND GROUND WILL NOT BE VISIBLE UNTIL YOU ARE BELOW"
1320 PRINT "10000 FT. YOUR WINDOW HEATER MUST BE ON AFTER DESCENDING"
1325 PRINT "IN ORDER TO DEFROST WINDOW. WHEN THE LANDING GEARS TOUCH"
1330 PRINT "THE GROUND YOUR VERTICAL SPEED MUST NOT EXCEED -500 FT./MIN."
1335 PRINT "OR YOU WILL DAMAGE AIRCRAFT. CAUTION! BE SURE TO REVERSE"
1340 PRINT "THE ENGINES WHEN LANDING OR YOU MAY RUN OUT OF RUNWAY!!!!!"
1345 PRINT "RESET ENGINES TO FORWARD THRUST MODE FOR TAXI TO GATE!":PLOT 6,1
1346 PRINT "..NOTE!!!..LANDING STRIP IS LOCATED AT:":PLOT 6,5
1347 PRINT "LONG: 72.65 - 72.78    LAT: 41.92 - 41.99":PLOT 6,6:PRINT
1350 PRINT "TAXI TO GATE: ";:PLOT 6,2:PRINT "YOU WILL RECEIVE INSTRUCTIONS FROM TOWER"
1355 PRINT "AS TO TAXI INSTRUCTIONS AFTER SUCESSFULLY LANDING. GATE"
1360 PRINT "WILL APPEAR IN WINDOW WHEN YOU REACH IT AND AT THAT TIME"
1365 PRINT "YOU MUST SHUT DOWN ENGINES AND SET BRAKES."
1370 PLOT 6,7:PRINT " PILOT ERRORS WILL BE RECORDED BY ON BOARD COMPUTER"
1375 PRINT "AND DISPLAYED AT THE END OF FLIGHT.":GOSUB 2000:PLOT 14,6,3,12:PRINT
1380 PRINT TAB( 10);" FLIGHT-409 IS DUE TO DEPART IN SIX MINUTES."
1390 PRINT :PLOT 6,7:PRINT TAB( 20);"G O O D  L U C K !"
1400 GOSUB 2000:LOAD "DAYFLT":RUN
2000 PLOT 3,17,29,6,1:INPUT "PRESS 'ENTER' TO CONTINUE: ";A:RETURN
2100 PLOT 14,12,6,57,3,20,0:PRINT " * KEYBOARD FUNCTIONS * ":PRINT :PLOT 15:PLOT 6,60:PRINT " KEY ";:RETURN
2200 PLOT 14,12,6,17,3,20,0:PRINT " * INSTRUMENT PANEL * ":PRINT :PLOT 15:PRINT :RETURN
2300 PLOT 6,1:PRINT TAB( 18);:RETURN
2400 PLOT 6,3:PRINT TAB( 30);:RETURN
2500 PLOT 14,12,6,39,3,20,0:PRINT " HELPING HINTS ":PRINT :PLOT 15:RETURN
3000 PLOT 12,14,6,6:PRINT TAB( 25);"INTRODUCTION"
3010 PRINT :PLOT 6,2,15:PRINT "REVISED AND CONVERTED TO THE  C0MPUCOLOR  II (8/5/80) BY:"
3015 PRINT :PLOT 6,6
3020 PRINT "R.B.HOLLEY":PRINT "P.O.BOX 3437":PRINT "BAYTOWN, TEXAS 77520"
3025 PLOT 6,2:PRINT :PRINT "ORIGINALLY APPEARED IN AUG.1980 ISSUE OF INTERFACE AGE"
3030 PRINT "BY THOMAS CARBONE AND WAS INTENDED FOR THE HEATH H17"
3033 PRINT "FLOPPY DISK SYSTEM UTILIZING THE H19 VIDEO TERMINAL."
3035 PRINT :PLOT 6,3
3040 PRINT "A TABLE OF VARIBLE EXPLANATIONS APPEAR IN IA(OCT.1980 P.64)"
3045 GOSUB 2000:RETURN