Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0087/title.bas
There is 1 other file named title.bas in the archive. Click here to see a list.
00010 ' TITLE.BAS DUANE MOORE D I G I T A L
00020 ' CREATES AN INFORMATION FILE *TITLE.LAN*
00030 '
00040 FILES TITLE.LAN
00050 SCRATCH #1
00060 PRINT "INPUT LINES OF TEXT TO DESCRIBE NETWORK BEING ANALYZED."
00070 PRINT
00080 PRINT "SPACES AND TABS AT THE BEGINNING OF A LINE WILL BE IGNORED."
00090 PRINT "USE A DASH OR SEMICOLON INSTEAD OF A COMMA. ALL OTHER CHARACTERS"
00100 PRINT "ARE LEGAL."
00110 PRINT
00120 PRINT "TYPE 'END' WHEN FINISHED."
00130 PRINT
00140 INPUT A$
00150 IF A$="END" GOTO 180
00160 PRINT #1,A$
00170 GOTO 140
00180 CHAIN LAN,200
00190 END