000000 001002 000000 177777
@
000000 173400 165212 000000
@
000000 173400 165212 165212
@
000000 173400 165212 165212
@te
000000 173400 165212 165212
@st
000000 173400 165212 165212
@
000000 173400 165212 165212
@
000000 173400 165212 165212
@dl
000000 173400 165212 165212
@TE
000000 173400 165212 165212
@ST
000000 173400 165212 165212
@
000000 173400 165212 165212
@DL
RT-11FB (S) V04.00I
Questo computer non supporta l'anno 2000
Inserire la nuova data, dal 1976 al 1999
e l'ora ...
Please enter
Today's date: 30-AUG-76
Current time: 19:49
FREAKNET MEDIALAB
DIGITAL PDP11/34
-
BENVENUTI
.DIR
30-Aug-76
PIP .SAV 23 21-Feb-80 DL .SYS 5 12-Feb-81
DY .SYS 4 12-Feb-81 NL .SYS 2 12-Feb-81
SWAP .SYS 25 21-Feb-80 FILEX .SAV 18 02-Mar-81
TTY .SAV 3 26-Jun-89 DUP .SAV 41 21-Feb-80
FORMAT.SAV 19 21-Feb-80 RESORC.SAV 15 21-Feb-80
DIR .SAV 17 21-Feb-80 CREF .SAV 6 02-Mar-81
DATTIM.SAV 3 26-Jun-89 HELLO .SAV 2 23-Jun-77
STARTF.BAK 2 06-Jul-89 RT11FB.SYS 77 12-Feb-81
FORTRA.SAV 205 05-Jul-82 SYSMAC.SML 42 02-Mar-81
HELP .SAV 107 02-Mar-81 KED .SAV 60 21-Feb-80
BASIC .SAV 86 28-Jun-83 FORLIB.OBJ 173 05-Jul-82
STARTF.OLD 2 28-Oct-94 STARTF.COM 2 24-Feb-76
CROCK .SAV 5 25-Feb-76 PACMAN.SAV 26 23-Jun-77
SYSSUM.SAV 8 14-Sep-89 CUCH01.SAV 11 08-Jan-82
SRCCOM.SAV 13 02-Mar-81 LIBR .SAV 22 02-Mar-81
DUMP .SAV 8 02-Mar-81 BINCOM.SAV 10 02-Mar-81
LINK .SAV 41 02-Mar-81 SYSLIB.OBJ 47 01-Feb-82
CVAR00.SYS 54 24-May-88 MACRO .SAV 51 21-Feb-80
DATACQ.SAV 78 14-Sep-89 RESTR .COM 1 07-Jul-89
SAVE .COM 1 07-Jul-89 SAVCOP.COM 1 07-Jul-89
RVG .SAV 53 19-Nov-80 HIDACU.SAV 11 08-Jan-82
MAXIM .SAV 24 25-Nov-89 CUCH02.SAV 11 08-Jan-82
TEC .SAV 2 09-Mar-88 TEC1 .SAV 2 09-Mar-88
RVGROI.SAV 38 19-Nov-80 RVG2 .SAV 39 19-Nov-80
HIDA .SAV 38 08-Jan-82 QPQS .SAV 15 05-Jan-82
GSATIM.SAV 18 02-Apr-86 LINES .SAV 15 06-Jul-89
GSACOR.SAV 26 25-Nov-89 SELPAT.SAV 36 25-Nov-89
CVHELP.SYS 7 12-Nov-80 CLNDAT.SAV 29 27-Dec-89
KNOPP2.SAV 44 13-Nov-80 FOUR .SAV 63 13-Nov-80
BOLO .SAV 66 01-Jan-82 CLEAN .SAV 37 05-Jan-89
HIDACV.SAV 15 08-Jan-82 USRLIB.OBJ 29 29-Jun-89
HPIST .SAV 35 25-Nov-89 HPI .SAV 45 20-Dec-89
C50 .SAV 39 08-Jan-82 PROVA .GPB 401 31-Aug-89
DIBELL.GPB 401 07-Sep-89 FGAMMA.REL 97 14-Sep-89
TRNFER.SAV 42 21-Oct-89 CINE .GPB 193 04-Sep-89
DELETE.SAV 24 09-Oct-89 CURVE .SAV 114 12-Nov-80
BGAMMA.SAV 17 22-Feb-90 CENTER.SAV 40 04-Mar-90
CIRCUM.SAV 44 04-Mar-90 DATANL.SAV 200 03-Mar-90
GFR .SAV 41 16-May-90 DUMMY .DAT 1 03-Mar-93
BARBER.X00 4102 12-Aug-94 RUBERT.X00 1283 16-Nov-94
RUBERT.X01 67 16-Nov-94 GARRET.X00 131 16-Nov-94
RUBERT.X02 100 16-Nov-94 KSERVE.MAC 177 24-Feb-76
KSERVE.OBJ 17 23-Feb-76 KSERVE.SAV 23 23-Feb-76
INDO2 .BAS 2 24-Feb-76 START2.COM 2 24-Feb-76
WELC .TXT 1 24-Feb-76 DATA .TXT 1 24-Feb-76
MANUAL.TXT 78 25-Feb-76 CROCK .MAC 23 25-Feb-76
PACMAN.MAC 61 25-Feb-76 CHESS .SAV 20 25-Feb-76
CHESS .DOC 4 25-Feb-76 SPCINV.SAV 10 25-Feb-76
SPCINV.DAT 1 25-Feb-76 SPCINV.MAC 44 25-Feb-76
SPCINV.COM 1 25-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76 PACMAN.OBJ 30 16-Jun-77
CROCK .OBJ 4 16-Jun-77 SPCINV.OBJ 4 30-Aug-76
106 Files, 9947 Blocks
10435 Free blocks
.RUN ^H^H^H^H^H^H^H^H$[3~$[3~$[3~
?KMON-F-No file
.
.
.
.
.BASIC
BASIC-11/RT-11 V02-03S
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? ALL
READY
READY
10 PRINT "VAFFANCULO ";
20 GOTO 10
LIST
NONAME 30-AUG-76 19:50:06
10 PRINT "VAFFANCULO ";
20 GO TO 10
READY
RUN
NONAME 30-AUG-76 19:50:21
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFAN^CULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO
VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCULO VAFFANCU^LO
STOP AT LINE 10
READY
^C
STOP
READY
READY
READY
READY
READY
READY
READY
READY
DIR
?SYNTAX ERROR
READY
READY
READY
READY
^C
STOP
READY
READY
READY
EXIT
?SYNTAX ERROR
READY
LOGOUT
?SYNTAX ERROR
READY
^Z
READY
HELP
?SYNTAX ERROR
READY
.
?SYNTAX ERROR
READY
RUN BASD
?MON-F-Swap error
.
.
.DIR
30-Aug-76
PIP .SAV 23 21-Feb-80 DL .SYS 5 12-Feb-81
DY .SYS 4 12-Feb-81 NL .SYS 2 12-Feb-81
SWAP .SYS 25 21-Feb-80 FILEX .SAV 18 02-Mar-81
TTY .SAV 3 26-Jun-89 DUP .SAV 41 21-Feb-80
FORMAT.SAV 19 21-Feb-80 RESORC.SAV 15 21-Feb-80
DIR .SAV 17 21-Feb-80 CREF .SAV 6 02-Mar-81
DATTIM.SAV 3 26-Jun-89 HELLO .SAV 2 23-Jun-77
STARTF.BAK 2 06-Jul-89 RT11FB.SYS 77 12-Feb-81
FORTRA.SAV 205 05-Jul-82 SYSMAC.SML 42 02-Mar-81
HELP .SAV 107 02-Mar-81 KED .SAV 60 21-Feb-80
BASIC .SAV 86 28-Jun-83 FORLIB.OBJ 173 05-Jul-82
STARTF.OLD 2 28-Oct-94 STARTF.COM 2 24-Feb-76
CROCK .SAV 5 25-Feb-76 PACMAN.SAV 26 23-Jun-77
SYSSUM.SAV 8 14-Sep-89 CUCH01.SAV 11 08-Jan-82
SRCCOM.SAV 13 02-Mar-81 LIBR .SAV 22 02-Mar-81
DUMP .SAV 8 02-Mar-81 BINCOM.SAV 10 02-Mar-81
LINK .SAV 41 02-Mar-81 SYSLIB.OBJ 47 01-Feb-82
CVAR00.SYS 54 24-May-88 MACRO .SAV 51 21-Feb-80
DATACQ.SAV 78 14-Sep-89 RESTR .COM 1 07-Jul-89
SAVE .COM 1 07-Jul-89 SAVCOP.COM 1 07-Jul-89
RVG .SAV 53 19-Nov-80 HIDACU.SAV 11 08-Jan-82
MAXIM .SAV 24 25-Nov-89 CUCH02.SAV 11 08-Jan-82
TEC .SAV 2 09-Mar-88 TEC1 .SAV 2 09-Mar-88
RVGROI.SAV 38 19-Nov-80 RVG2 .SAV 39 19-Nov-80
HIDA .SAV 38 08-Jan-82 QPQS .SAV 15 05-Jan-82
GSATIM.SAV 18 02-Apr-86 LINES .SAV 15 06-Jul-89
GSACOR.SAV 26 25-Nov-89 SELPAT.SAV 36 25-Nov-89
CVHELP.SYS 7 12-Nov-80 CLNDAT.SAV 29 27-Dec-89
KNOPP2.SAV 44 13-Nov-80 FOUR .SAV 63 13-Nov-80
BOLO .SAV 66 01-Jan-82 CLEAN .SAV 37 05-Jan-89
HIDACV.SAV 15 08-Jan-82 USRLIB.OBJ 29 29-Jun-89
HPIST .SAV 35 25-Nov-89 HPI .SAV 45 20-Dec-89
C50 .SAV 39 08-Jan-82 PROVA .GPB 401 31-Aug-89
DIBELL.GPB 401 07-Sep-89 FGAMMA.REL 97 14-Sep-89
TRNFER.SAV 42 21-Oct-89 CINE .GPB 193 04-Sep-89
DELETE.SAV 24 09-Oct-89 CURVE .SAV 114 12-Nov-80
BGAMMA.SAV 17 22-Feb-90 CENTER.SAV 40 04-Mar-90
CIRCUM.SAV 44 04-Mar-90 DATANL.SAV 200 03-Mar-90
GFR .SAV 41 16-May-90 DUMMY .DAT 1 03-Mar-93
BARBER.X00 4102 12-Aug-94 RUBERT.X00 1283 16-Nov-94
RUBERT.X01 67 16-Nov-94 GARRET.X00 131 16-Nov-94
RUBERT.X02 100 16-Nov-94 KSERVE.MAC 177 24-Feb-76
KSERVE.OBJ 17 23-Feb-76 KSERVE.SAV 23 23-Feb-76
INDO2 .BAS 2 24-Feb-76 START2.COM 2 24-Feb-76
WELC .TXT 1 24-Feb-76 DATA .TXT 1 24-Feb-76
MANUAL.TXT 78 25-Feb-76 CROCK .MAC 23 25-Feb-76
PACMAN.MAC 61 25-Feb-76 CHESS .SAV 20 25-Feb-76
CHESS .DOC 4 25-Feb-76 SPCINV.SAV 10 25-Feb-76
SPCINV.DAT 1 25-Feb-76 SPCINV.MAC 44 25-Feb-76
SPCINV.COM 1 25-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76 PACMAN.OBJ 30 16-Jun-77
CROCK .OBJ 4 16-Jun-77 SPCINV.OBJ 4 30-Aug-76
106 Files, 9947 Blocks
10435 Free blocks
.$[5~^H^H^H^H^H^H^H
?KMON-F-Illegal command
.
.
.
.BASIC
LBASIC-11/RT-11 V02-03S
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? OAD ^H^H^H^C
.
.
.FORTRAN
Files?
Files?
Files?
Files?
Files?
Files?
Files? SDF
?MON-F-Dir IO err 133612
.
.DIR *.FOR
30-Aug-76
0 Files, 0 Blocks
10435 Free blocks
.DIR
30-Aug-76
PIP .SAV 23 21-Feb-80 DL .SYS 5 12-Feb-81
DY .SYS 4 12-Feb-81 NL .SYS 2 12-Feb-81
SWAP .SYS 25 21-Feb-80 FILEX .SAV 18 02-Mar-81
TTY .SAV 3 26-Jun-89 DUP .SAV 41 21-Feb-80
FORMAT.SAV 19 21-Feb-80 RESORC.SAV 15 21-Feb-80
DIR .SAV 17 21-Feb-80 CREF .SAV 6 02-Mar-81
DATTIM.SAV 3 26-Jun-89 HELLO .SAV 2 23-Jun-77
STARTF.BAK 2 06-Jul-89 RT11FB.SYS 77 12-Feb-81
FORTRA.SAV 205 05-Jul-82 SYSMAC.SML 42 02-Mar-81
HELP .SAV 107 02-Mar-81 KED .SAV 60 21-Feb-80
BASIC .SAV 86 28-Jun-83 FORLIB.OBJ 173 05-Jul-82
STARTF.OLD 2 28-Oct-94 STARTF.COM 2 24-Feb-76
CROCK .SAV 5 25-Feb-76 PACMAN.SAV 26 23-Jun-77
SYSSUM.SAV 8 14-Sep-89 CUCH01.SAV 11 08-Jan-82
SRCCOM.SAV 13 02-Mar-81 LIBR .SAV 22 02-Mar-81
DUMP .SAV 8 02-Mar-81 BINCOM.SAV 10 02-Mar-81
LINK .SAV 41 02-Mar-81 SYSLIB.OBJ 47 01-Feb-82
CVAR00.SYS 54 24-May-88 MACRO .SAV 51 21-Feb-80
DATACQ.SAV 78 14-Sep-89 RESTR .COM 1 07-Jul-89
SAVE .COM 1 07-Jul-89 SAVCOP.COM 1 07-Jul-89
RVG .SAV 53 19-Nov-80 HIDACU.SAV 11 08-Jan-82
MAXIM .SAV 24 25-Nov-89 CUCH02.SAV 11 08-Jan-82
TEC .SAV 2 09-Mar-88 TEC1 .SAV 2 09-Mar-88
RVGROI.SAV 38 19-Nov-80 RVG2 .SAV 39 19-Nov-80
HIDA .SAV 38 08-Jan-82 QPQS .SAV 15 05-Jan-82
GSATIM.SAV 18 02-Apr-86 LINES .SAV 15 06-Jul-89
GSACOR.SAV 26 25-Nov-89 SELPAT.SAV 36 25-Nov-89
CVHELP.SYS 7 12-Nov-80 CLNDAT.SAV 29 27-Dec-89
KNOPP2.SAV 44 13-Nov-80 FOUR .SAV 63 13-Nov-80
BOLO .SAV 66 01-Jan-82 CLEAN .SAV 37 05-Jan-89
HIDACV.SAV 15 08-Jan-82 USRLIB.OBJ 29 29-Jun-89
HPIST .SAV 35 25-Nov-89 HPI .SAV 45 20-Dec-89
C50 .SAV 39 08-Jan-82 PROVA .GPB 401 31-Aug-89
DIBELL.GPB 401 07-Sep-89 FGAMMA.REL 97 14-Sep-89
TRNFER.SAV 42 21-Oct-89 CINE .GPB 193 04-Sep-89
DELETE.SAV 24 09-Oct-89 CURVE .SAV 114 12-Nov-80
BGAMMA.SAV 17 22-Feb-90 CENTER.SAV 40 04-Mar-90
CIRCUM.SAV 44 04-Mar-90 DATANL.SAV 200 03-Mar-90
GFR .SAV 41 16-May-90 DUMMY .DAT 1 03-Mar-93
BARBER.X00 4102 12-Aug-94 RUBERT.X00 1283 16-Nov-94
RUBERT.X01 67 16-Nov-94 GARRET.X00 131 16-Nov-94
RUBERT.X02 100 16-Nov-94 KSERVE.MAC 177 24-Feb-76
KSERVE.OBJ 17 23-Feb-76 KSERVE.SAV 23 23-Feb-76
INDO2 .BAS 2 24-Feb-76 START2.COM 2 24-Feb-76
WELC .TXT 1 24-Feb-76 DATA .TXT 1 24-Feb-76
MANUAL.TXT 78 25-Feb-76 CROCK .MAC 23 25-Feb-76
PACMAN.MAC 61 25-Feb-76 CHESS .SAV 20 25-Feb-76
CHESS .DOC 4 25-Feb-76 SPCINV.SAV 10 25-Feb-76
SPCINV.DAT 1 25-Feb-76 SPCINV.MAC 44 25-Feb-76
SPCINV.COM 1 25-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76 PACMAN.OBJ 30 16-Jun-77
CROCK .OBJ 4 16-Jun-77 SPCINV.OBJ 4 30-Aug-76
106 Files, 9947 Blocks
10435 Free blocks
.DATTIM
?KMON-F-Illegal command
.RUN DATTIM
.TYPE WELC.TXT
FREAKNET MEDIALAB
DIGITAL PDP11/34
-
BENVENUTI
.SET EDIT KED
.EDIT WELCOME.TXT
?KMON-F-Error in file spec
.
.
.
.
.DIR
30-Aug-76
PIP .SAV 23 21-Feb-80 DL .SYS 5 12-Feb-81
DY .SYS 4 12-Feb-81 NL .SYS 2 12-Feb-81
SWAP .SYS 25 21-Feb-80 FILEX .SAV 18 02-Mar-81
TTY .SAV 3 26-Jun-89 DUP .SAV 41 21-Feb-80
FORMAT.SAV 19 21-Feb-80 RESORC.SAV 15 21-Feb-80
DIR .SAV 17 21-Feb-80 CREF .SAV 6 02-Mar-81
DATTIM.SAV 3 26-Jun-89 HELLO .SAV 2 23-Jun-77
STARTF.BAK 2 06-Jul-89 RT11FB.SYS 77 12-Feb-81
FORTRA.SAV 205 05-Jul-82 SYSMAC.SML 42 02-Mar-81
HELP .SAV 107 02-Mar-81 KED .SAV 60 21-Feb-80
BASIC .SAV 86 28-Jun-83 FORLIB.OBJ 173 05-Jul-82
STARTF.OLD 2 28-Oct-94 STARTF.COM 2 24-Feb-76
CROCK .SAV 5 25-Feb-76 PACMAN.SAV 26 23-Jun-77
SYSSUM.SAV 8 14-Sep-89 CUCH01.SAV 11 08-Jan-82
SRCCOM.SAV 13 02-Mar-81 LIBR .SAV 22 02-Mar-81
DUMP .SAV 8 02-Mar-81 BINCOM.SAV 10 02-Mar-81
LINK .SAV 41 02-Mar-81 SYSLIB.OBJ 47 01-Feb-82
CVAR00.SYS 54 24-May-88 MACRO .SAV 51 21-Feb-80
DATACQ.SAV 78 14-Sep-89 RESTR .COM 1 07-Jul-89
SAVE .COM 1 07-Jul-89 SAVCOP.COM 1 07-Jul-89
RVG .SAV 53 19-Nov-80 HIDACU.SAV 11 08-Jan-82
MAXIM .SAV 24 25-Nov-89 CUCH02.SAV 11 08-Jan-82
TEC .SAV 2 09-Mar-88 TEC1 .SAV 2 09-Mar-88
RVGROI.SAV 38 19-Nov-80 RVG2 .SAV 39 19-Nov-80
HIDA .SAV 38 08-Jan-82 QPQS .SAV 15 05-Jan-82
GSATIM.SAV 18 02-Apr-86 LINES .SAV 15 06-Jul-89
GSACOR.SAV 26 25-Nov-89 SELPAT.SAV 36 25-Nov-89
CVHELP.SYS 7 12-Nov-80 CLNDAT.SAV 29 27-Dec-89
KNOPP2.SAV 44 13-Nov-80 FOUR .SAV 63 13-Nov-80
BOLO .SAV 66 01-Jan-82 CLEAN .SAV 37 05-Jan-89
HIDACV.SAV 15 08-Jan-82 USRLIB.OBJ 29 29-Jun-89
HPIST .SAV 35 25-Nov-89 HPI .SAV 45 20-Dec-89
C50 .SAV 39 08-Jan-82 PROVA .GPB 401 31-Aug-89
DIBELL.GPB 401 07-Sep-89 FGAMMA.REL 97 14-Sep-89
TRNFER.SAV 42 21-Oct-89 CINE .GPB 193 04-Sep-89
DELETE.SAV 24 09-Oct-89 CURVE .SAV 114 12-Nov-80
BGAMMA.SAV 17 22-Feb-90 CENTER.SAV 40 04-Mar-90
CIRCUM.SAV 44 04-Mar-90 DATANL.SAV 200 03-Mar-90
GFR .SAV 41 16-May-90 DUMMY .DAT 1 03-Mar-93
BARBER.X00 4102 12-Aug-94 RUBERT.X00 1283 16-Nov-94
RUBERT.X01 67 16-Nov-94 GARRET.X00 131 16-Nov-94
RUBERT.X02 100 16-Nov-94 KSERVE.MAC 177 24-Feb-76
KSERVE.OBJ 17 23-Feb-76 KSERVE.SAV 23 23-Feb-76
INDO2 .BAS 2 24-Feb-76 START2.COM 2 24-Feb-76
WELC .TXT 1 24-Feb-76 DATA .TXT 1 24-Feb-76
MANUAL.TXT 78 25-Feb-76 CROCK .MAC 23 25-Feb-76
PACMAN.MAC 61 25-Feb-76 CHESS .SAV 20 25-Feb-76
CHESS .DOC 4 25-Feb-76 SPCINV.SAV 10 25-Feb-76
SPCINV.DAT 1 25-Feb-76 SPCINV.MAC 44 25-Feb-76
SPCINV.COM 1 25-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76 PACMAN.OBJ 30 16-Jun-77
CROCK .OBJ 4 16-Jun-77 SPCINV.OBJ 4 30-Aug-76
106 Files, 9947 Blocks
10435 Free blocks
.DIR *.BAS
30-Aug-76
INDO2 .BAS 2 24-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76
5 Files, 95 Blocks
10435 Free blocks
.RTPE IND^H^H^H^H^U
.RT
?KMON-F-Illegal command
.TYPE INDO2.BAS
2 C=0
5 RANDOMIZE
10 PRINT "INDOVINA INDOVINELLO MA QUANTO E' BELLO IL PDP-11"
20 PRINT
30 PRINT "INDOVINA CHI LA SUCA ALLA SPINA"
35 C=C+1
40 PRINT
50 PRINT "1. ASBESTO"
60 PRINT "2. BUGS BUNNY"
70 PRINT "3. GADALLA"
80 PRINT "4. IRON"
90 PRINT "5. QUEST"
100 PRINT "6. SHINING"
101 PRINT "7. HECAFISH"
102 IF C>7 THEN C=C-7
105 B=C
110 INPUT A
115 PRINT
120 IF A=B THEN PRINT "GIUSTO!!! HAI VINTO UNA POMPA!"
130 IF A<>B THEN PRINT "SBAGLIATO!!! MA COME TI E' VENUTO IN MENTE??? PORCO!"
140 PRINT
150 PRINT
160 GOTO 10
.DIR
30-Aug-76
PIP .SAV 23 21-Feb-80 DL .SYS 5 12-Feb-81
DY .SYS 4 12-Feb-81 NL .SYS 2 12-Feb-81
SWAP .SYS 25 21-Feb-80 FILEX .SAV 18 02-Mar-81
TTY .SAV 3 26-Jun-89 DUP .SAV 41 21-Feb-80
FORMAT.SAV 19 21-Feb-80 RESORC.SAV 15 21-Feb-80
DIR .SAV 17 21-Feb-80 CREF .SAV 6 02-Mar-81
DATTIM.SAV 3 26-Jun-89 HELLO .SAV 2 23-Jun-77
STARTF.BAK 2 06-Jul-89 RT11FB.SYS 77 12-Feb-81
FORTRA.SAV 205 05-Jul-82 SYSMAC.SML 42 02-Mar-81
HELP .SAV 107 02-Mar-81 D KED .SAV 60 21-Feb-80
BASIC .SAV 86 28-Jun-83 FORLIB.OBJ 173 05-Jul-82
STARTF.OLD 2 28-OcIt-94 STARTF.COM 2 24-Feb-76
CROCK .SAV 5 25-Feb-76 PACMAN.SAV 26 23-Jun-77
SYSSUM.SAV 8 14-Sep-89 CUCH01.SAV 11 08-Jan-82
SRCCOM.SAV 13 02-Mar-81 LIBR .SAV 22 02-Mar-81
DUMP .SAV 8 02-Mar-81 BINCOM.SAV 10 02-Mar-81
LINK .SAV 41 02-Mar-81 SYSLIB.OBJ 47 01-Feb-82
CVAR00.SYS 54 24-May-88 MACRO .SAV 51 21-Feb-80
DATACQ.SAV 78 14-Sep-89 RESTR .COM 1 07-Jul-89
SAVE .COM 1 07-Jul-89 SAVCOP.COM 1 07-Jul-89
RVG .SAV 53 19-Nov-80 *HIDACU.SAV 11 08-Jan-82
MAXIM .SAV 24 25-Nov-89 CUCH02.SAV 11 08-Jan-82
TEC .SAV 2 09-Mar-88 TEC1 .SAV 2 09-Mar-88
RVGROI.SAV 38 19-Nov-80 RVG2 .SAV 39 19-Nov-80
HIDA .SAV 38 08-Jan-82 QPQS .SAV 15 05-Jan-82
GSATIM.SAV 18 02-Apr-86 LINES .SAV 15 06-Jul-89
BGSACOR.SAV 26 25-Nov-89 SELPAT.SAV 36 25-Nov-89
CVHELP.SYS 7 12-Nov-80 CLNDAT.SAV 29 27-Dec-89
KNOPP2.SAV 44 13-Nov-80 FOUR .SAV 63 13-Nov-80
BOLO .SAV 66 01-Jan-82 CLEAN .SAV 37 05-Jan-89
HIDACV.SAV 15 08-Jan-82 USRLIB.OBJ 29 29-Jun-89
HPIST .SAV 35 25-Nov-89 HPI .SAV 45 20-Dec-89
C50 .SAV 39 08-Jan-82 PROVA .GPB 401 31-Aug-89
DIBELL.GPB 401 07-Sep-89 FGAMMA.REL 97 14-Sep-89
TRNFER.SAV 42 21-Oct-89 CINE .GPB 193 04-Sep-89
DELETE.SAV 24 09-Oct-89 CURVE .SAV 114 12-Nov-80
BGAMMA.SAV 17 22-Feb-90 CENTER.SAV 40 04-Mar-90
CIRCUM.SAV 44 04-Mar-90 DATANL.SAV 200 03-Mar-90
GFR .SAV 41 16-May-90 DUMMY .DAT 1 03-Mar-93
BARBER.X00 4102 12-Aug-94 RUBERT.X00 1283 16-Nov-94
RUBERT.X01 67 16-Nov-94 GARRET.X00 131 16-Nov-94
RUBERT.X02 100 16-Nov-94 KSERVE.MAC 177 24-Feb-76
KSERVE.OBJ 17 23-Feb-76 KSERVE.SAV 23 23-Feb-76
INDO2 .BAS 2 24-Feb-76 START2.COM 2 24-Feb-76
WELC .TXT 1 24-Feb-76 DATA .TXT 1 24-Feb-76
MANUAL.TXT 78 25-Feb-76 CROCK .MAC 23 25-Feb-76
PACMAN.MAC 61 25-Feb-76 CHESS .SAV 20 25-Feb-76
CHESS .DOC 4 25-Feb-76 SPCINV.SAV 10 25-Feb-76
SPCINV.DAT 1 25-Feb-76 SPCINV.MAC 44 25-Feb-76
SPCINV.COM 1 25-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76 PACMAN.OBJ 30 16-Jun-77
CROCK .OBJ 4 16-Jun-77 SPCINV.OBJ 4 30-Aug-76
106 Files, 9947 Blocks
10435 Free blocks
. 30-Aug-76
INDO2 .BAS 2 24-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76
5 Files, 95 Blocks
10435 Free blocks
.TYPE MSTMND.BAS
10 TEXT_INIT
15 PRINT "THIS IS THE GAME OF MASTERMIND - WOULD YOU LIKE THE RULES(Y/N)"; \ INPUT R5$ \ IF R5$="Y" THEN GOSUB 1000
20 RANDOMIZE
30 DIM X(4)
40 DISPLAY_CLEAR \ MOVE_CURSOR(1,1) \ REM RESTART FROM HERE
45 GOSUB 600
50 REM LETS GO GET 4 RANDOM NUMBERS
60 FOR I=1 TO 4
70 GOSUB 550
80 N(I)=A
90 NEXT I
95 J=9 \ MOVE_CURSOR(J)
100 PRINT ,," GUESS"," RESULT" \ REM START GAME PROPER NOW
110 PRINT
120 FOR J=11 TO 20 \ REM 11 TO 19 = 10 GUESSES
130 MOVE_CURSOR(J,32)
140 PRINT " ";
150 MOVE_CURSOR(J,10)
160 PRINT "GUESS NUMBER ";J-10;
170 MOVE_CURSOR(J,30)
180 INPUT X$ \ REM INPUT A 4 FIGURE NO.
190 REM NOW MAKE SURE IT IS 4 FIGURES
200 L=LEN(X$)
210 IF L<4 THEN 130
220 IF L>4 THEN 130
230 FOR I=1 TO 4
240 REM NOW MAKE SURE WE HAVE ONLY NUMERALS AND STORE IN ARRAY X()
250 X$(I)=SEG$(X$,I,I)
260 IF X$(I)<"0" THEN 130
270 IF X$(I)>"9" THEN 130
280 X(I)=VAL(X$(I))
290 NEXT I
300 REM NOW WE GO INTO CHECK GUESS MODE
310 MOVE_CURSOR(J,49)
320 C=0
330 FOR I=1 TO 4 \ REM CLEAR MARKERS LOOP
340 N1(I)=0 \ X1(I)=0
350 NEXT I
360 FOR I=1 TO 4 \ REM CHECK FOR *'s LOOP
370 IF X(I)=N(I) THEN X1(I)=1 \ N1(I)=1 \ PRINT "*"; \ C=C+1
380 IF C=4 THEN T=T+1 \ G1=G1+(J-10) \ G=G1/T \ GO TO 480
390 NEXT I
400 FOR I=1 TO 4 \ REM CHECK FOR ?'s LOOP
410 FOR K=1 TO 4
420 IF X1(I)=1 THEN 450
430 IF N1(K)=1 THEN 450
440 IF X(I)=N(K) THEN X1(I)=1 \ N1(K)=1 \ PRINT "?"; \ GO TO 460
450 NEXT K
460 NEXT I
470 NEXT J
480 PRINT \ PRINT \ PRINT ,N(1);N(2);N(3);N(4);" WAS THE CORRECT NUMBER"
490 PRINT ," *** YOU WERE "; \ IF C=4 THEN PRINT "RIGHT ***" \ Y=Y+1
500 IF C<>4 THEN PRINT "WRONG ***" \ M=M+1
505 GOSUB 600
510 REM AGAIN?
515 MOVE_CURSOR(24,1)
520 PRINT "AGAIN(Y/N)"; \ INPUT Q1$
530 IF Q1$="Y" THEN 40
540 GO TO 580
550 REM FIND A RANDOM NO. SUBROUTINE
560 A=INT(RND(1)*10)
570 RETURN
580 STOP
600 REM SUB TO PRINT SCORES
605 MOVE_CURSOR(1,1)
610 PRINT
620 PRINT ,," ** SCORES **"
625 PRINT
630 PRINT ,"MINE","YOURS","GUESSING AVERAGE"
635 PRINT ,,," ";CHR$(13);
640 PRINT ,M,Y," ";G
695 RETURN
1000 REM SUB TO PRINT THE RULES
1005 PRINT
1010 PRINT \ PRINT "I WILL THINK OF A 4 FIGURE NOUMBER ALL YOU HAVE TO DO IS GUESS IT"
1015 PRINT
1020 PRINT "I WILL LET YOU HAVE TEN GUESSES (IF YOU NEED THAT MANY)"
1025 PRINT
1030 PRINT "EACH TIME YOU MAKE A GUESS I WILL:-"
1040 PRINT "1) INDICATE HOW MANY ARE RIGHT AND IN THE RIGHT POSITION WITH A ";
1050 PRINT CHR$(34);"*";CHR$(34);" IN THE RESULTS COLUMN"
1060 PRINT "2) INDICATE HOW MANY ARE RIGHT BUT IN THE WRONG POSITION WITH A ";
1070 PRINT CHR$(34);"?";CHR$(34);" IN THE RESULTS COLUMN"
1080 PRINT \ PRINT "I WILL ALSO KEEP A SCORE AND DISPLAY YOUR BATTING AVERAGE"
1085 PRINT
1090 PRINT "TYPE RETURN WHEN READY TO CONTINUE"; \ INPUT R5$
1095 RETURN
.DIR *.BAS
30-Aug-76
INDO2 .BAS 2 24-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76
5 Files, 95 Blocks
10435 Free blocks
.TYPE *.BAS
Files copied:
DK:INDO2.BAS to TT:
2 C=0
5 RANDOMIZE
10 PRINT "INDOVINA INDOVINELLO MA QUANTO E' BELLO IL PDP-11"
20 PRINT
30 PRINT "INDOVINA CHI LA SUCA ALLA SPINA"
35 C=C+1
40 PRINT
50 PRINT "1. ASBESTO"
60 PRINT "2. BUGS BUNNY"
70 PRINT "3. GADALLA"
80 PRINT "4. IRON"
90 PRINT "5. QUEST"
100 PRINT "6. SHINING"
101 PRINT "7. HECAFISH"
102 IF C>7 THEN C=C-7
105 B=C
110 INPUT A
115 PRINT
120 IF A=B THEN PRINT "GIUSTO!!! HAI VINTO UNA POMPA!"
130 IF A<>B THEN PRINT "SBAGLIATO!!! MA COME TI E' VENUTO IN MENTE??? PORCO!"
140 PRINT
150 PRINT
160 GOTO 10
DK:LUNAR.BAS to TT:
5 DISPLAY_CLEAR
10 HTEXT('R',12,15,CHR$(27)+'#3'+' LUNAR ')
15 HTEXT('R',13,15,CHR$(27)+'#4'+' LUNAR ')
20 PAUSE(3)
23 MOVE_CURSOR(17,1)
25 PRINT ,'DIT IS EEN SIMULATIE VAN EEN MAANLANDING MET DE '
30 PRINT ,'APOLLO-LUNAR CAPSULE' \ PRINT \ PRINT
35 PRINT 'DE BOORDCOMPUTER (merk onbekend) HEEFT HET ECHTER OPGEGEVEN'
40 PRINT 'EN JE ZULT DUS VERPLICHT ZIJN DE LANDING MANUEEL UIT TE VOEREN'
45 PRINT \ PRINT \ PRINT
50 PRINT 'DAARTOE ZUL JE DE BRANDSTOF TOEVOER NAAR DE AFREM-RAKETTEN MOETEN'
55 PRINT 'REGELEN TUSSEN 0 EN 400 KG PER SECONDE.'
60 PRINT \ PRINT
65 PRINT 'OM DE 10 SECONDEN KAN JE DEZE AFSTELLING VERANDEREN.'
70 PRINT
75 PRINT 'DE CAPSULE WEEGT 65 TON EN JE HEBT NOG 33 TON BRANDSTOF OVER.'
80 PRINT \ PRINT 'VEEL GELUK'
83 PAUSE(10)
85 L=0 \ B=0
90 WINDOW('EXACT',0,0,400,200,1)
95 PRINT 'SEC','KM + M','KM/H','KG BRANDST.','TOEVOER'
100 A=120 \ V=1 \ M=33000 \ N=16500 \ G=1.00000E-03 \ Z=1.8
105 PRINT
110 P=0
112 R=0
115 PRINT L,INT(A*1.6);INT(1600*(A-INT(A))),3600*V*1.6,(M-N)*2,
120 IF A*1.6<=2 THEN IF P=0 THEN GRAPH_INIT
125 IF A*1.6<=2 THEN IF P=0 THEN WINDOW('E',0,0,400,2.5,1)
135 POINT(,L,A*1.6,1)
136 IF A*1.6<=2 THEN IF P=0 THEN HTEXT('R',1,1,' 2 KM ')
137 IF R=0 THEN HTEXT('R',1,1,' 200 KM ') \ R=R+1
138 IF A*1.6<=2 THEN P=P+1
139 INPUT K
140 T=10 \ K=K/2
145 IF M-N<5.00000E-03 THEN 185
150 IF T<2.50000E-03 THEN 115
155 S=T \ IF M>N+S*K^C THEN 165
160 S=(M-N)/K
165 GOSUB 300 \ IF I<=0 THEN 260
170 IF V<=0 THEN 180
175 IF J<0 THEN 275
180 GOSUB 255 \ GO TO 145
185 ERASE_GRAPH('ALL',,,1) \ B=1
190 PRINT 'BRANDSTOFTANK LEEG NA 'L' SECONDEN' \ S=(-V+SQR(V^2+2*A*G))/G
195 V=V+G*S \ L=L+S
200 W=3600*V
205 IF B=1 THEN 210 \ ERASE_GRAPH('ALL',,,1)
210 PRINT 'LANDING OP DE MAAN NA 'L' SECONDEN - LANDINGSSNELHEID: 'W*1.6' KM/H'
215 IF W>1.2 THEN 220 \ PRINT 'UITSTEKENDE LANDING !!' \ GO TO 315
220 IF W>10 THEN 225 \ PRINT 'GOEDE LANDING, (ZOU BETER KUNNEN)' \ GO TO 315
225 IF W>60 THEN 230 \ GO TO 245
230 PRINT 'TOTALE KATASTROFE, GEEN OVERLEVENDEN, '
235 PRINT 'WEER EEN KRATER VAN 'W*.277*.3048' METER DIEP BIJ OP DE MAAN.'
240 GO TO 315
245 PRINT 'JE HEBT AVERIJ OPGELOPEN BIJ DE LANDING, JE ZULT OP DE REDDINGS-'
250 PRINT 'PLOEG MOETEN WACHTEN.' \ GO TO 315
255 L=L+S \ T=T-S \ M=M-S*K \ A=I \ V=J \ RETURN
260 IF S<5.00000E-03 THEN 200
265 D=V+SQR(V^2+2*A*(G-Z*K/M)) \ S=2*A/D
270 GOSUB 300 \ GOSUB 255 \ GO TO 260
275 W=(1-M*G/(Z*K))/2 \ S=M*V/(Z*K*(W+SQR(W^2+V/Z)))+.05 \ GOSUB 300
280 IF I<=0 THEN 260
285 GOSUB 255 \ IF J>0 THEN 145
290 IF V>0 THEN 275
295 GO TO 145
300 Q=S*(K+1.00000E-04)/M
305 J=V+G*S-Z*Q*(1+Q*(1/2+Q*(1/3+Q*(1/4+Q/5))))
310 I=A-G*S*S/2-V*S+Z*S*Q/2*(1+Q*(1/3+Q*(1/6+Q*(1/10+Q/15)))) \ RETURN
315 PRINT \ PRINT \ PRINT 'WIL JE NOG EENS PROBEREN (JA of NEEN)'; \ INPUT A$
320 IF A$='JA' THEN DISPLAY_CLEAR \ GO TO 85
325 IF A$='NEEN' THEN PRINT \ PRINT 'TOT ZIENS DAN' \ GO TO 335
330 PRINT 'Alleen JA of NEEN antwoorden a.u.b.' \ GO TO 315
335 END
DK:MSTMND.BAS to TT:
10 TEXT_INIT
15 PRINT "THIS IS THE GAME OF MASTERMIND - WOULD YOU LIKE THE RULES(Y/N)"; \ INPUT R5$ \ IF R5$="Y" THEN GOSUB 1000
20 RANDOMIZE
30 DIM X(4)
40 DISPLAY_CLEAR \ MOVE_CURSOR(1,1) \ REM RESTART FROM HERE
45 GOSUB 600
50 REM LETS GO GET 4 RANDOM NUMBERS
60 FOR I=1 TO 4
70 GOSUB 550
80 N(I)=A
90 NEXT I
95 J=9 \ MOVE_CURSOR(J)
100 PRINT ,," GUESS"," RESULT" \ REM START GAME PROPER NOW
110 PRINT
120 FOR J=11 TO 20 \ REM 11 TO 19 = 10 GUESSES
130 MOVE_CURSOR(J,32)
140 PRINT " ";
150 MOVE_CURSOR(J,10)
160 PRINT "GUESS NUMBER ";J-10;
170 MOVE_CURSOR(J,30)
180 INPUT X$ \ REM INPUT A 4 FIGURE NO.
190 REM NOW MAKE SURE IT IS 4 FIGURES
200 L=LEN(X$)
210 IF L<4 THEN 130
220 IF L>4 THEN 130
230 FOR I=1 TO 4
240 REM NOW MAKE SURE WE HAVE ONLY NUMERALS AND STORE IN ARRAY X()
250 X$(I)=SEG$(X$,I,I)
260 IF X$(I)<"0" THEN 130
270 IF X$(I)>"9" THEN 130
280 X(I)=VAL(X$(I))
290 NEXT I
300 REM NOW WE GO INTO CHECK GUESS MODE
310 MOVE_CURSOR(J,49)
320 C=0
330 FOR I=1 TO 4 \ REM CLEAR MARKERS LOOP
340 N1(I)=0 \ X1(I)=0
350 NEXT I
360 FOR I=1 TO 4 \ REM CHECK FOR *'s LOOP
370 IF X(I)=N(I) THEN X1(I)=1 \ N1(I)=1 \ PRINT "*"; \ C=C+1
380 IF C=4 THEN T=T+1 \ G1=G1+(J-10) \ G=G1/T \ GO TO 480
390 NEXT I
400 FOR I=1 TO 4 \ REM CHECK FOR ?'s LOOP
410 FOR K=1 TO 4
420 IF X1(I)=1 THEN 450
430 IF N1(K)=1 THEN 450
440 IF X(I)=N(K) THEN X1(I)=1 \ N1(K)=1 \ PRINT "?"; \ GO TO 460
450 NEXT K
460 NEXT I
470 NEXT J
480 PRINT \ PRINT \ PRINT ,N(1);N(2);N(3);N(4);" WAS THE CORRECT NUMBER"
490 PRINT ," *** YOU WERE "; \ IF C=4 THEN PRINT "RIGHT ***" \ Y=Y+1
500 IF C<>4 THEN PRINT "WRONG ***" \ M=M+1
505 GOSUB 600
510 REM AGAIN?
515 MOVE_CURSOR(24,1)
520 PRINT "AGAIN(Y/N)"; \ INPUT Q1$
530 IF Q1$="Y" THEN 40
540 GO TO 580
550 REM FIND A RANDOM NO. SUBROUTINE
560 A=INT(RND(1)*10)
570 RETURN
580 STOP
600 REM SUB TO PRINT SCORES
605 MOVE_CURSOR(1,1)
610 PRINT
620 PRINT ,," ** SCORES **"
625 PRINT
630 PRINT ,"MINE","YOURS","GUESSING AVERAGE"
635 PRINT ,,," ";CHR$(13);
640 PRINT ,M,Y," ";G
695 RETURN
1000 REM SUB TO PRINT THE RULES
1005 PRINT
1010 PRINT \ PRINT "I WILL THINK OF A 4 FIGURE NOUMBER ALL YOU HAVE TO DO IS GUESS IT"
1015 PRINT
1020 PRINT "I WILL LET YOU HAVE TEN GUESSES (IF YOU NEED THAT MANY)"
1025 PRINT
1030 PRINT "EACH TIME YOU MAKE A GUESS I WILL:-"
1040 PRINT "1) INDICATE HOW MANY ARE RIGHT AND IN THE RIGHT POSITION WITH A ";
1050 PRINT CHR$(34);"*";CHR$(34);" IN THE RESULTS COLUMN"
1060 PRINT "2) INDICATE HOW MANY ARE RIGHT BUT IN THE WRONG POSITION WITH A ";
1070 PRINT CHR$(34);"?";CHR$(34);" IN THE RESULTS COLUMN"
1080 PRINT \ PRINT "I WILL ALSO KEEP A SCORE AND DISPLAY YOUR BATTING AVERAGE"
1085 PRINT
1090 PRINT "TYPE RETURN WHEN READY TO CONTINUE"; \ INPUT R5$
1095 RETURN
DK:STRKJG.BAS to TT:
170 PRINT TAB(15);'* * * STAR TREK * * *'
180 PRINT
240 REM PROGRAM BEGINS HERE
245 RANDOMIZE
270 FOR I=1 TO 72
280 Z$=Z$&' '\Q$=Q$&' '\R$=R$&' '\S$=S$&' '
320 NEXT I
330 DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8)
370 T=INT(RND(1)*20+20)*100
380 T0=T\T9=30\D0=0\E0=3000\E=E0
430 P=10\P0=P\S9=200\S=0
470 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
490 Q1=INT(RND(1)*8+1)\Q2=INT(RND(1)*8+1)
510 S1=INT(RND(1)*8+1)\S2=INT(RND(1)*8+1)
530 FOR I=1 TO 9\C(I,1)=0\C(I,2)=0\NEXT I
540 C(3,1)=-1\C(2,1)=-1\C(4,1)=-1\C(4,2)=-1\C(5,2)=-1\C(6,2)=-1
600 C(1,2)=1\C(2,2)=1\C(6,1)=1\C(7,1)=1\C(8,1)=1\C(8,2)=1\C(9,2)=1
670 DIM D(8)
680 FOR I=1 TO 8\D(I)=0\NEXT I
710 A1$='NSLPTSDCX'
720 D$='WARP ENGINESS.R. SENSORSL.R. SENSORSPHASER CNTRL'
730 D$=D$&'PHOTON TUBESDAMAGE CNTRLSHIELD CNTRLCOMPUTER'
740 G4$='III'
750 LET G1$='ANTARES.SIRIUS.RIGEL.DENEB.PROCYON.CAPELLA.VEGA.'
760 G1$=G1$&'BETELGEUSE.CANOPUS.ALDEBARAN.ALTAIR.REGULUS.'
770 G1$=G1$&'SAGITTARIUS.ARCTURUS.POLLUX.SPICA.'
780 B9=0\K9=0
820 FOR I=1 TO 8
830 FOR J=1 TO 8
840 R1=RND(1)
850 IF R1>.98 THEN 900
860 IF R1>.95 THEN 930
870 IF R1>.8 THEN 960
880 K3=0
890 GO TO 980
900 K3=3
910 K9=K9+3
920 GO TO 980
930 K3=2
940 K9=K9+2
950 GO TO 980
960 K3=1
970 K9=K9+1
980 R1=RND(1)
990 IF R1>.96 THEN 1020
1000 B3=0\GO TO 1040
1020 B3=1\B9=B9+1
1040 S3=INT(RND(1)*8+1)
1050 G(I,J)=K3*100+B3*10+S3
1070 Z(I,J)=0
1080 NEXT J
1090 NEXT I
1100 K7=K9
1120 X$=''
1130 X0$=' IS '
1140 IF B9<>0 THEN 1200
1150 B9=1
1160 IF G(6,3)>=200 THEN 1190
1170 G(6,3)=G(6,3)+100
1180 K9=K9+1
1190 G(6,3)=G(6,3)+10
1200 IF B9=1 THEN 1230
1210 X$='S'
1220 X0$=' ARE '
1230 PRINT 'YOUR ORDERS ARE AS FOLLOWS:'
1240 PRINT ' DESTROY THE 'K9' KLINGON WARSHIPS WHICH HAVE INVADED'
1250 PRINT ' THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS'
1260 PRINT ' ON STARDATE 'T0+T9'; THIS GIVES YOU 'T9' DAYS. THERE'X0$
1270 PRINT ' 'B9' STARBASE';X$' IN THE GALAXY FOR RESUPPLYING YOUR SHIP'
1280 PRINT
1290 PRINT 'HIT "RETURN" WHEN READY TO ASSUME COMMAND'
1300 INPUT A$
1310 REM HERE ANY TIME ENTER NEW QUADRANT
1320 Z4=Q1\Z5=Q2\K3=0\B3=0\S3=0\G5=0
1380 D4=.5*RND(1)
1390 IF Q1<1 THEN 1600
1400 IF Q1>8 THEN 1600
1410 IF Q2<1 THEN 1600
1420 IF Q2>8 THEN 1600
1430 GOSUB 9030
1440 PRINT
1450 IF T<>T0 THEN 1490
1460 PRINT ' YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED'
1470 PRINT ' IN THE GALACTIC QUADRANT, "'G2$'".'
1480 GO TO 1500
1490 PRINT 'NOW ENTERING 'G2$' QUADRANT'
1500 PRINT
1510 X=G(Q1,Q2)*.01
1520 K3=INT(X)
1530 B3=INT((X-K3)*10)
1540 S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
1550 IF K3=0 THEN 1590
1560 PRINT 'COMBAT AREA CONDITION RED'
1570 IF S>200 THEN 1590
1580 PRINT 'SHIELDS DANGEROUSLY LOW'
1590 FOR I=1 TO 3\FOR J=1 TO 3\K(I,J)=0\NEXT J\NEXT I
1600 FOR I=1 TO 3\K(I,3)=0\NEXT I
1630 Q$=Z$\R$=Z$\S$=SEG$(Z$,1,48)
1660 REM POSITION ENTERPRISE IN QUADRANT, THEN PLACE K3 KLINGONS,
1670 REM B3 STARBASES AND S3 STARS ELSEWHERE
1680 A$='<*>'
1690 Z1=S1
1700 Z2=S2
1710 GOSUB 8670
1720 FOR I=1 TO K3
1730 GOSUB 8590 \A$='+++'\Z1=R1\Z2=R2
1770 GOSUB 8670 \K(I,1)=R1\K(I,2)=R2\K(I,3)=S9
1810 NEXT I
1820 FOR I=1 TO B3
1830 GOSUB 8590 \A$='>!<'\Z1=R1\Z2=R2
1870 GOSUB 8670 \B4=Z1\B5=Z2\NEXT I
1910 FOR I=1 TO S3
1920 GOSUB 8590 \A$=' * '\Z1=R1\Z2=R2\GOSUB 8670 \NEXT I
1980 GOSUB 6430
1990 IF S+E<=10 THEN 2020
2000 IF E>10 THEN 2060
2010 IF D(7)>=0 THEN 2060
2020 PRINT '** FATAL ERROR ** YOU HAVE JUST STRANDED YOUR SHIP IN SPACE'
2030 PRINT 'YOU HAVE INSUFFICIENT MANEUVERING ENERGY'
2050 GO TO 6260
2060 PRINT 'COMMAND';\INPUT A$
2080 FOR I=1 TO 9
2090 IF SEG$(A$,1,1)<>SEG$(A1$,I,I) THEN 2160
2100 IF I<>2 THEN 2140
2110 IF LEN(A$)<2 THEN 2140
2120 IF SEG$(A$,2,2)='R' THEN 2140
2130 I=6
2140 IF I=1 THEN 2300 \IF I=2 THEN 1980 \IF I=3 THEN 4000 \IF I=4 THEN 4260
2142 IF I=5 THEN 4700 \IF I=6 THEN 5530 \IF I=7 THEN 5690 \IF I=8 THEN 7290
2150 IF A$='XXX' THEN 6270
2160 NEXT I
2170 PRINT 'ENTER ONE OF THE FOLLOWING:'
2180 PRINT 'NAV -TO SET COURSE'
2190 PRINT 'SRS -SHORT RANGE SENSOR SCAN'
2200 PRINT 'LRS -LONG RANGE SENSOR SCAN'
2210 PRINT 'PHA -TO FIRE PHASERS'
2220 PRINT 'TOR -TO FIRE PHOTON TORPEDOES'
2230 PRINT 'SHE -TO RAISE OR LOWER SHIELDS'
2240 PRINT 'DAM -DAMAGE CONTROL REPORT'
2250 PRINT 'COM -ON BOARD COMPUTER'
2260 PRINT 'XXX -TO RESIGN YOUR COMMAND'
2270 PRINT
2280 GO TO 1990
2290 REM COURSE CONTROL BEGINS HERE
2300 PRINT 'COURSE (1-9)';
2310 INPUT C1
2320 IF C1>=1 THEN 2350
2330 PRINT 'LT. SULU REPORTS: "INCORRECT COURSE DATA, SIR!"'
2340 GO TO 1990
2350 IF C1<9 THEN 2380 \IF C1>9 THEN 2330 \C1=1
2380 PRINT 'WARP FACTOR(0-8)'\INPUT W1
2400 IF W1<=0 THEN 2420 \IF W1<=8 THEN 2450
2420 PRINT 'CHIEF ENGINEER SCOTT REPORTS: "THE ENGINES WILL NOT'
2430 PRINT ' TAKE WARP 'W1' !"'
2440 GO TO 1990
2450 IF D(1)>=0 THEN 2490 \IF W1<=.2 THEN 2490
2480 GO TO 2300
2490 N=INT(W1*8+.5)\IF E-N>=0 THEN 2590
2530 IF S=0 THEN 2880 \D(I)=D(I)+D6
2800 IF D(I)<0 THEN 2880
2810 IF D1=1 THEN 2840 \D1=1
2830 PRINT 'DAMAGE CONTROL REPORT:'
2840 PRINT TAB(8);
2850 R1=I
2860 GOSUB 8790
2870 PRINT 'REPAIR COMPLETED'
2880 NEXT I
2890 REM DAMAGE/IMPROVEMENT DURING SOME VES
2900 IF RND(1)>.2 THEN 3070 \R1=INT(RND(1)*8+1)
2915 IF K3=0 THEN 3000
2920 IF RND(1)>=.6 THEN 3000 \D(R1)=D(R1)-(RND(1)*5+1)
2940 PRINT \PRINT 'DAMAGE CONTROL REPORT:';
2960 GOSUB 8790
2970 PRINT 'DAMAGED'\PRINT
2990 GO TO 3070
3000 D(R1)=D(R1)+(RND(1)*3+1)
3010 PRINT \PRINT 'DAMAGE CONTROL REPORT:';
3030 GOSUB 8790
3040 PRINT 'STATE OF REPAIR IMPROVED'\PRINT
3060 REM BEGIN MOVING STARSHIP
3070 A$=' '\Z1=INT(S1)\Z2=INT(S2)
3100 GOSUB 8670
3110 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1))\X=S1\Y=S2
3140 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1))\Q4=Q1\Q5=Q2
3170 FOR I=1 TO N\S1=S1+X1\S2=S2+X2
3200 IF S1<1 THEN 3500 \IF S1>=9 THEN 3500 \IF S2<1 THEN 3500 \IF S2>=9 THEN 3500
3240 S8=INT(S1)*24+INT(S2)*3-26\IF S8>72 THEN 3280
3260 IF SEG$(Q$,S8,S8+2)=' ' THEN 3360 \GO TO 3320
3280 IF S8>144 THEN 3310
3290 IF SEG$(R$,S8-72,S8-70)=' ' THEN 3360 \GO TO 3320
3310 IF SEG$(S$,S8-144,S8-142)=' ' THEN 3360
3320 S1=S1-X1\S2=S2-X2
3340 PRINT 'WARP ENGINES SHUT DOWN AT SECTOR 'S1','S2' DUE TO BAD NAVIGATION'
3350 GO TO 3370
3360 NEXT I
3370 A$='<*>'\Z1=INT(S1)\Z2=INT(S2)
3400 GOSUB 8670
3410 GOSUB 3910
3420 T8=1\IF W1>=1 THEN 3450
3440 T8=.1*INT(10*W1)
3450 T=T+T8\IF T>T0+T9 THEN 6220
3480 GO TO 1980
3490 REM EXCEEDED QUADRANT LIMITS
3500 X=X+8*Q1+N*X1\Y=Y+8*Q2+N*X2
3520 Q1=INT(X/8)\Q2=INT(Y/8)
3540 S1=INT(X-Q1*8)\S2=INT(Y-Q2*8)
3560 IF S1<>0 THEN 3590 \Q1=Q1-1\S1=8
3590 IF S2<>0 THEN 3620 \Q2=Q2-1\S2=8
3620 X5=0\IF Q1>=1 THEN 3670 \X5=1\Q1=1\S1=1
3670 IF Q1<=8 THEN 3710 \X5=1\Q1=8\S1=8
3710 IF Q2>=1 THEN 3750 \X5=1\Q2=1\S2=1
3750 IF Q2<=8 THEN 3790 \X5=1\Q2=8\S2=8
3790 IF X5=0 THEN 3860
3800 PRINT 'LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:'
3810 PRINT ' "PERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER'
3820 PRINT ' IS HEREBY DENIED. SHUT DOWN YOUR ENGINES."'
3830 PRINT 'CHIEF ENGINEER SCOTT REPORTS: "WARP ENGINES SHUT DOWN'
3840 PRINT ' AT SECTOR 'S1','S2' OF QUADRANT 'Q1','Q2'."'
3850 IF T>T0+T9 THEN 6220
3860 IF 8*Q1+Q2=8*Q4+Q5 THEN 3370
3870 T=T+1
3880 GOSUB 3910
3890 GO TO 1320
3900 REM MANEUVER ENERGY S/R ***
3910 E=E-N-10
3920 IF E>=0 THEN 3980
3930 PRINT 'SHIELD CONTROL SUPPLIED ENERGY TO COMPLETE MANEUVER.'
3940 S=S+E
3950 E=0
3960 IF S>0 THEN 3980
3970 S=0
3980 RETURN
3990 REM LR SENSOR SCAN CODE ***
4000 IF D(3)>=0 THEN 4030
4010 PRINT 'LONG RANGE SENSORS ARE INOPERABLE'
4020 GO TO 1990
4030 PRINT 'LONG RANGE SENSOR SCAN FOR QUADRANT 'Q1','Q2
4040 O1$='...................'\PRINT O1$
4060 FOR I=Q1-1 TO Q1+1
4080 FOR I1=1 TO 3\N(I1)=0\NEXT I1
4110 FOR J=Q2-1 TO Q2+1
4120 IF I<1 THEN 4180 \IF I>8 THEN 4180
4140 IF J<1 THEN 4180 \IF J>8 THEN 4180
4160 N(J-Q2+2)=G(I,J)\Z(I,J)=G(I,J)
4180 NEXT J
4185 PRINT
4190 FOR I1=1 TO 3\PRINT ':';\IF N(I1)>=100 THEN 4210
4200 PRINT ' ';\IF N(I1)>=10 THEN 4210 \PRINT ' ';
4210 PRINT N(I1);\NEXT I1\PRINT ':'
4220 PRINT O1$
4230 NEXT I
4240 GO TO 1990
4250 REM PHASER CONTROL CODE BEGINS HERE
4260 IF K3>0 THEN 4300
4270 PRINT 'SCIENCE OFFICER SPOCK REPORTS:'
4280 PRINT 'SENSORS SHOW NO ENEMY SHIPS IN THIS QUADRANT'
4290 GO TO 1990
4300 IF D(4)>=0 THEN 4330
4310 PRINT 'PHASERS INOPERATIVE'\GO TO 1990
4330 IF D(8)>=0 THEN 4350
4340 PRINT 'COMPUTER FAILURE HAMPERS ACCURACY'
4350 PRINT 'PHASERS LOCKED ON TARGET; ENERGY AVAILABLE ='E
4370 PRINT 'NUMBER OF UNITS TO FIRE:';\INPUT X
4390 IF X<=0 THEN 1990
4400 IF E-X<0 THEN 4360
4410 E=E-X
4420 GOSUB 6000
4430 IF D(7)>=0 THEN 4450
4440 X=X*RND(1)
4450 H1=INT(X/K3)
4460 FOR I=1 TO 3
4470 IF K(I,3)<=0 THEN 4670
4480 H=INT((H1/FND(0))*(RND(1)+2))
4490 IF H>.15*K(I,3) THEN 4530
4500 PRINT 'SENSORS SHOW NO DAMAGE TO ENEMY AT SECTOR 'K(I,1)','K(I,2)\GO TO 4670
4530 K(I,3)=K(I,3)-H
4540 PRINT H'UNIT HIT ON KLINGON AT SECTOR 'K(I,1)','K(I,2)
4550 IF K(I,3)<=0 THEN 4580
4560 PRINT 'SENSORS SHOW'K(I,3)' UNITS REMAINING'\GO TO 4670
4580 PRINT 'KLINGON DESTROYED'
4590 K3=K3-1\K9=K9-1\A$=' '\Z1=K(I,1)\Z2=K(I,2)
4640 GOSUB 8670
4650 LET G(Q1,Q2)=K3*100+B3*10+S3
4660 IF K9<=0 THEN 6370
4670 NEXT I
4680 GO TO 1990
4690 REM PHOTON TORPEDO CODE BEGINS***
4700 IF D(5)>=0 THEN 4730
4710 PRINT 'PHOTON TORPEDO TUBES NOT OPERATIONAL'\GO TO 1990
4730 IF P>0 THEN 4760
4740 PRINT 'ALL PHOTON TORPEDOES EXPENDED'\GO TO 1990
4760 PRINT 'TORPEDO COURSE (1-9)';\INPUT C1\IF C1>=1 THEN 4810
4790 PRINT 'ENSIGN CHEKOV REPORTS, "INCORRECT COURSE DATA, SIR."'
4800 GO TO 1990
4810 IF C1>9 THEN 4790 \IF C1<9 THEN 4850 \IF C1>=9 THEN 4760 \C1=1
4850 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1))
4860 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1))
4870 E=E-2\X=S1\Y=S2\P=P-1
4910 PRINT 'TORPEDO TRACK:'
4920 X=X+X1\Y=Y+X2
4940 X3=INT(X+.5)\Y3=INT(Y+.5)
4960 IF X3<1 THEN 5490
4970 IF X3>=9 THEN 5490
4980 IF Y3<1 THEN 5490
4990 IF Y3>=9 THEN 5490
5000 PRINT ' 'X3','Y3
5010 A$=' '\Z1=X\Z2=Y
5040 GOSUB 8830
5050 IF Z3<>0 THEN 4920
5060 A$='+++'\Z1=X\Z2=Y
5090 GOSUB 8830
5100 IF Z3=0 THEN 5210
5110 PRINT ' ***KLINGON DESTROYED*** '
5120 K3=K3-1\K9=K9-1
5140 IF K9<=0 THEN 6370
5150 FOR I=1 TO 3
5160 IF X3<>K(I,1) THEN 5180
5170 IF Y3=K(I,2) THEN 5190
5180 NEXT I
5190 K(I,3)=0\GO TO 5430
5210 A$=' * '\Z1=X\Z2=Y
5240 GOSUB 8830
5250 IF Z3=0 THEN 5280
5260 PRINT 'STAR AT'X3;','Y3;'ABSORBED TORPEDO ENERGY.'
5270 GO TO 5500
5280 A$='>!<'\Z1=X\Z2=Y
5310 GOSUB 8830
5320 IF Z3=0 THEN 4760
5330 PRINT '*** STARBASE DESTROYED ***'
5340 B3=B3-1\B9=B9-1
5360 IF B9>0 THEN 5400
5370 PRINT 'THAT DOES IT, CAPTAIN! YOU ARE HEREBY RELIEVED OF COMMAND'
5380 PRINT 'AND SENTENCED TO 99 YEARS HARD LABOUR ON CYGNUS 12!'\GO TO 6270
5400 PRINT 'STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER'
5410 PRINT 'COURT MARTIAL'
5420 D0=0
5430 A$=' '\Z1=X\Z2=Y
5460 GOSUB 8670
5470 G(Q1,Q2)=K3*100+B3*10+S3\GO TO 5500
5490 PRINT 'TORPEDO MISSED'
5500 GOSUB 6000
5510 GO TO 1990
5520 REM SHIELD CONTROL STARTS HERE
5530 IF D(7)>=0 THEN 5560
5540 PRINT 'SHIELD CONTROL INOPERABLE'
5550 GO TO 1990
5560 PRINT 'ENERGY AVAILABLE E='E+S'. NUMBER OF UNITS TO SHIELDS:';
5570 INPUT X
5580 IF X>=0 THEN 5620
5590 IF S<>X THEN 5620
5600 PRINT '(SHIELDS UNCHANGED)'
5610 GO TO 1990
5620 IF E+S-X<0 THEN 5560
5630 E=E+S-X\S=X
5650 PRINT 'DEFLECTOR CONTROL ROOM REPORT:'
5660 PRINT ' "SHIELDS NOW AT'S' PER YOUR COMMAND"'
5670 GO TO 1990
5680 REM DAMAGE CONTROL STARTS HERE
5690 IF D(6)>=0 THEN 5910
5700 PRINT 'DAMAGE CONTROL REPORT NOT AVAILABLE'
5710 IF D0=0 THEN 1990
5720 D3=0
5730 FOR I=1 TO 8\IF D(I)>=0 THEN 5760 \D3=D3+.1
5760 NEXT I
5770 IF D3=0 THEN 1990
5780 D3=D3+D4
5790 IF D3<1 THEN 5810
5800 D3=.9
5810 PRINT 'TECHNICIANS STANDING BY TO EFFECT REPAIRS TO SHIP;'
5820 PRINT 'ESTIMATED TIME TO REPAIR:';' 0.'INT(10*D3)'STARDATES'
5840 PRINT 'WILL YOU AUTHORISE REPAIR (YES/NO)';\INPUT A$
5860 IF A$<>'YES' THEN 1990
5870 FOR I=1 TO 8\D(I)=0\NEXT I
5900 T=T+D3+.1
5910 PRINT \PRINT 'DEVICE STATE OF REPAIR'
5930 FOR R1=1 TO 8\GOSUB 8790 \PRINT ' 'INT(100*D(R1))/100\NEXT R1
5970 PRINT
5980 GO TO 5710
5990 REM KLINGONS SHOOTING CODE BEGINS
6000 IF K3<=0 THEN 6210 \IF D0=0 THEN 6040
6020 PRINT 'STARBASE SHIELDS PROTECT THE ENTERPRISE'\GO TO 6210
6040 FOR I=1 TO 3
6050 IF K(I,3)<=0 THEN 6200
6060 H=INT((K(I,3)/FND(0))*(2+RND(1)))
6070 S=S-H
6080 PRINT H'UNIT HIT ON ENTERPRISE FROM SECTOR'K(I,1)','K(I,2)
6090 IF S<0 THEN 6240
6100 PRINT ' (SHIELDS DOWN TO'S' UNITS.)'
6110 IF H<20 THEN 6200
6120 IF RND(1)>.6 THEN 6200
6130 IF H/S<=.02 THEN 6200
6140 D2=H/S+.5*RND(1)
6150 R1=INT(RND(1)*8+1)
6160 D(R1)=D(R1)-D2
6170 PRINT 'DAMAGE CONTROL REPORTS'
6180 GOSUB 8790
6190 PRINT 'DAMAGED BY THE HIT!'
6200 NEXT I
6210 RETURN
6220 PRINT 'IT IS STARDATE'T
6230 GO TO 6270
6240 PRINT
6250 PRINT 'THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED'
6260 PRINT 'IT IS STARDATE 'T
6270 PRINT 'THERE WERE 'K9' KLINGONS LEFT AT THE END OF YOUR MISSION'
6290 PRINT \PRINT
6310 PRINT 'THE FEDERATION IS IN NEED OF A NEW STARSHIP COMMANDER '
6320 PRINT 'IS THERE A VOLUNTEER?'
6330 PRINT 'LET HIM STEP FORWARD AND ENTER "AYE"';\INPUT A$
6350 IF A$='AYE' THEN 240
6360 GO TO 9250
6370 PRINT 'CONGRATULATIONS CAPTAIN! THE LAST KLINGON BATTLE CRUISER'
6380 PRINT 'MENACING THE FEDERATION HAS BEEN DESTROYED'\PRINT
6400 PRINT 'YOUR EFFICIENCY RATING IS '((K7/(T-T0))*1000)\GO TO 6290
6430 FOR I=S1-1 TO S1+1
6440 FOR J=S2-1 TO S2+1
6450 IF INT(I+.5)<1 THEN 6540
6460 IF INT(I+.5)>8 THEN 6540
6470 IF INT(J+.5)<1 THEN 6540
6480 IF INT(J+.5)>8 THEN 6540
6490 A$='>!<'\Z1=I\Z2=J
6520 GOSUB 8830
6530 IF Z3=1 THEN 6580
6540 NEXT J
6550 NEXT I
6560 D0=0
6570 GO TO 6650
6580 D0=1\C$='DOCKED'\E=3000\P=10
6620 PRINT 'SHIELDS DROPPED FOR DOCKING PURPOSES'
6630 S=0
6640 GO TO 6720
6650 IF K3>0 THEN 6690
6660 IF E=0 THEN 6770
6730 PRINT
6740 PRINT '*** SHORT RANGE SENSORS ARE OUT ***'
6750 PRINT
6760 GO TO 7270
6770 O1$='---------------------------------'
6780 PRINT O1$
6790 DIM N5$(4)
6800 N5$='####'
6810 PRINT ' ';
6820 FOR I=1 TO 22 STEP 3\PRINT SEG$(Q$,I,I+2)' ';\NEXT I
6850 PRINT \PRINT ' ';
6870 FOR I=25 TO 46 STEP 3\PRINT SEG$(Q$,I,I+2)' ';\NEXT I
6900 PRINT ' STARDATE ';
6910 PRINT (INT(T)*10)/10\PRINT ' ';
6930 FOR I=49 TO 70 STEP 3\PRINT SEG$(Q$,I,I+2)' ';\NEXT I
6960 PRINT ' CONDITION ';
6970 PRINT C$
6980 PRINT ' ';
6990 FOR I=1 TO 22 STEP 3\PRINT SEG$(R$,I,I+2)' ';\NEXT I
7020 PRINT ' QUADRANT 'Q1','Q2\PRINT ' ';
7040 FOR I=25 TO 46 STEP 3\PRINT SEG$(R$,I,I+2)' ';\NEXT I
7070 PRINT ' SECTOR 'S1','S2\PRINT ' ';
7090 FOR I=49 TO 70 STEP 3\PRINT SEG$(R$,I,I+2)' ';\NEXT I
7120 PRINT ' TOTAL ENERGY ';\PRINT INT(E+S)
7140 PRINT ' ';
7150 FOR I=1 TO 22 STEP 3\PRINT SEG$(S$,I,I+2)' ';\NEXT I
7180 PRINT ' PHOTON TORPEDOES';\PRINT INT(P)\PRINT ' ';
7210 FOR I=25 TO 46 STEP 3\PRINT SEG$(S$,I,I+2)' ';\NEXT I
7240 PRINT ' SHIELDS ';\PRINT INT(S)\PRINT ' ';
7260 PRINT O1$
7270 RETURN
7280 REM *** LIBRARY COMPUTER CODE BEGINS HERE
7290 IF D(8)>=0 THEN 7320
7300 PRINT 'COMPUTER DISABLED'\GO TO 1990
7320 PRINT 'COMPUTER ACTIVE AND AWAITING COMMAND:';\INPUT A
7340 IF A<0 THEN 1990 \PRINT \H8=1
7370 IF A=0 THEN 7540 \IF A=1 THEN 7900 \IF A=2 THEN 8070 \IF A=3 THEN 8500
7380 IF A=4 THEN 8150 \IF A=5 THEN 7400 \GO TO 7450
7400 REM ***SETUP TO CHANGE C.G. RECORD TO GALAXY MAP
7410 H8=0\G5=1\PRINT ' THE GALAXY'
7440 GO TO 7550
7450 PRINT 'FUNCTIONS AVAILABLE FROM ON-BOARD COMPUTER:'
7460 PRINT ' 0 = CUMULATIVE GALACTIC RECORD'
7470 PRINT ' 1 = STATUS REPORT'
7480 PRINT ' 2 = PHOTON TORPEDO DATA'
7490 PRINT ' 3 = STARBASE NAV DATA'
7500 PRINT ' 4 = DIRECTION/DISTANCE CALCULATOR'
7510 PRINT ' 5 = GALAXY "REGION NAME" MAP'
7520 GO TO 7320
7530 REM ***CUMULATIVE GALACTIC RECORD CODE BEGINS***
7540 PRINT 'COMPUTER RECORD OF GALAXY'
7550 PRINT ' 1 2 3 4 5 6 7 8'
7560 PRINT ' --- --- --- --- --- --- --- ---'
7590 FOR I=1 TO 8
7610 PRINT I;
7620 IF H8=0 THEN 7740
7630 FOR J=1 TO 8
7650 N$=''\M$=''
7660 IF I<>Q1 THEN 7700 \IF J<>Q2 THEN 7700
7680 N$=CHR$(21)\M$=CHR$(23)
7690 PRINT N$;
7700 Z9$=STR$(Z(I,J))\PRINT SEG$(' ',1,4-LEN(Z9$));Z9$;M$;
7720 NEXT J
7730 GO TO 7850
7740 Z4=I\Z5=1
7760 GOSUB 9030
7770 J0=INT(15-.5*LEN(G2$))\PRINT TAB(J0);\PRINT G2$;
7800 Z5=5
7810 GOSUB 9030
7820 J0=INT(39-.5*LEN(G2$))\PRINT TAB(J0);\PRINT G2$;
7850 PRINT \PRINT
7870 NEXT I
7880 GO TO 1990
7890 REM STATUS REPORT CODE BEGINS HERE
7900 PRINT 'STATUS REPORT:'
7910 X$=''
7920 IF K9=1 THEN 7940
7930 X$='S'
7940 PRINT K9' KLINGON'X$' LEFT'
7950 V5=(T0+T9)-T
7960 PRINT 'MISSION MUST BE COMPLETED IN'INT(10*V5)/10' STARDATES'
7970 X$=''
7980 IF B9=1 THEN 8040
7990 X$='S'
8000 IF B9<>0 THEN 8040
8010 PRINT 'YOUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN'
8020 PRINT 'THE GALAXY -- YOU HAVE NO STARBASES LEFT!'
8030 GO TO 5690
8040 PRINT 'THE FEDERATION IS MAINTAINING'B9' STARBASE'X$' IN THE GALAXY'
8050 GO TO 5690
8060 REM CODE FOR TORPEDO DATA, BASE NAV., D/D CALCULATOR
8070 H8=0
8080 FOR I=1 TO 3
8090 IF K(I,3)<=0 THEN 8480
8100 W1=K(I,1)\X=K(I,2)
8120 C1=S1\A=S2
8140 GO TO 8220
8150 PRINT 'DIRECTION/DISTANCE CALCULATOR:'
8160 PRINT 'YOU ARE AT QUADRANT ('Q1','Q2') SECTOR ('S1','S2')'
8170 PRINT 'PLEASE ENTER--'
8180 PRINT 'INITIAL COORDINATES (X,Y)';\INPUT C1,A
8200 PRINT 'FINAL COORDINATES (X,Y)';\INPUT W1,X
8220 X=X-A\A=C1-W1
8240 IF X<0 THEN 8350
8250 IF A<0 THEN 8410
8260 IF X>0 THEN 8280
8270 IF A=0 THEN 8370
8280 C1=1
8290 IF ABS(A)<=ABS(X) THEN 8330
8300 V5=C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A))
8310 PRINT 'DIRECTION ='V5\GO TO 8460
8330 PRINT 'DIRECTION ='C1+(ABS(A)/ABS(X))\GO TO 8460
8350 IF A>0 THEN 8390 \IF X=0 THEN 8410
8370 C1=5\GO TO 8290
8390 C1=3\GO TO 8420
8410 C1=7
8420 IF ABS(A)>=ABS(X) THEN 8450
8430 PRINT 'DIRECTION ='C1+(((ABS(X)-ABS(A))+ABS(X))/ABS(X))
8440 GO TO 8460
8450 PRINT 'DIRECTION ='C1+(ABS(X)/ABS(A))
8460 PRINT 'DISTANCE ='SQR(X^2+A^2)
8470 IF H8=1 THEN 1990
8480 NEXT I
8490 GO TO 1990
8500 IF B3<>0 THEN 8530
8510 PRINT 'MR. SPOCK REPORTS: "SENSORS SHOW NO STARBASES IN THIS QUADRANT."'
8520 GO TO 1990
8530 PRINT 'FROM ENTERPRISE TO STARBASE:'
8540 W1=B4\X=B5\GO TO 8120
8570 REM END OF LIBRARY COMPUTER CODE
8590 R1=INT(RND(1)*8+1)
8600 R2=INT(RND(1)*8+1)
8610 A$=' '
8620 Z1=R1\Z2=R2
8640 GOSUB 8830
8650 IF Z3=0 THEN 8590
8660 RETURN
8670 REM *
8680 S8=INT(Z1+.5)*24+INT(Z2+.5)*3-26
8690 IF S8>72 THEN 8720
8700 Q$=SEG$(Q$,1,S8-1)&A$&SEG$(Q$,S8+3,LEN(Q$))
8710 GO TO 8780
8720 IF S8>144 THEN 8760
8730 S8=S8-72
8740 R$=SEG$(R$,1,S8-1)&A$&SEG$(R$,S8+3,LEN(R$))
8750 GO TO 8780
8760 S8=S8-144
8770 S$=SEG$(S$,1,S8-1)&SEG$(A$,1,3)&SEG$(S$,S8+3,LEN(S$))
8780 RETURN
8790 REM PRINTS DEVICE NAME FROM ARRAY
8800 S8=R1*12-11\PRINT SEG$(D$,S8,S8+11),
8820 RETURN
8830 REM *
8840 Z1=INT(Z1+.5)\Z2=INT(Z2+.5)
8860 S8=Z1*24+Z2*3-26
8870 Z3=0
8880 IF S8>72 THEN 8920
8890 IF SEG$(Q$,S8,S8+2)<>A$ THEN 9000
8900 Z3=1
8910 GO TO 9000
8920 IF S8>144 THEN 8970
8930 S8=S8-72
8940 IF SEG$(R$,S8,S8+2)<>A$ THEN 9000
8950 Z3=1
8960 GO TO 9000
8970 S8=S8-144
8980 IF SEG$(S$,S8,S8+2)<>A$ THEN 9000
8990 Z3=1
9000 RETURN
9030 L2=2
9040 IF Z5>=5 THEN 9060
9050 L2=1
9060 L3=2*(Z4-1)+L2
9070 I3=1\I0=1
9090 FOR L=1 TO LEN(G1$)
9100 IF SEG$(G1$,L,L)<>'.' THEN 9140
9110 IF I3=L3 THEN 9150
9120 I0=L+1\I3=I3+1
9140 NEXT L
9150 G2$=SEG$(G1$,I0,L-1)
9160 IF G5=1 THEN 9240
9170 L3=Z5
9180 IF Z5<=4 THEN 9200
9190 L3=Z5-4
9200 G3$='IV'
9210 IF L3=4 THEN 9230
9220 G3$=SEG$(G4$,1,L3)
9230 G2$=G2$&' '&G3$
9240 RETURN
9250 STOP
9260 END
DK:TREK.BAS to TT:
1000 REM TREK.BAS 27-JUL-73 ARON K. INSINGA PROJECT DELTA
1002 REM CRTREK.B2S 30-JUL-77 JAMES E. THOMPSON IPG
1003 REM TREK.BAS 21-DEC-78 BOB SUPNIK SSE
1005 RANDOMIZE
1010 E$ = CHR$(155%)\ Y$ = E$ + "Y" \ REM ESCAPE MOVE CURSOR
1011 E1$ = E$ + "J" \ D1% = 8% \ REM ERASE SCREEN FROM CURSOR DOWNWARD
1012 H0$ = E$ + "H"\ B$ = CHR$(8%) \ REM HOME BACKSPACE
1016 H2$ = Y$ + CHR$(52%) + CHR$(32%) + E1$ \ REM ERASE BOTTOM
1020 S8% = 60% + 32%\ S9% = 9% + 32% \ REM DEFINE SECTOR ORIGIN
1021 G8% = 4% + 32%\ G9% = 16% + 32% \ REM DEFINE GALAXY ORIGIN
1022 P8% = 46% + 32%\ P9% = 9% + 32% \ REM DEFINE COMPASS ORIGIN
1024 D8% = 18% + 32%\ D9% = 20% + 32% \ REM DEFINE DAMAGE ORIGIN
1025 DIM V%(7%),L$(3%) \ REM HOLDS OFFSETS FOR STATUS VARIABLES
1026 DATA 9,10,9,7,7,9,9
1027 FOR I%=1% TO 7% \ READ V%(I%) \ NEXT I%
1030 DEF FNS$(X%,Y%) = Y$ + CHR$(S9%-(Y%-1%)) +CHR$(S8%+((X%-1%)*2%))
1031 DEF FNQ$(X%,Y%) = Y$ + CHR$(G9%-((Y%-1%)*2%)) + CHR$(G8%+((X%-1%)*4%))
1032 DEF FNP$(X%,Y%) = Y$ + CHR$(P9%+Y%) + CHR$(P8%+X%)
1035 DEF FNV$(I%) = Y$ + CHR$(S9%+1%+I%) + CHR$(S8%+V%(I%))
1036 DEF FNO$(X%,Y%) = SEG$(".EKB*",Q%(X%,Y%)+1%,Q%(X%,Y%)+1%)
1037 DEF FNG$(X%,Y%) = SEG$(STR$(Z%(X%,Y%)+1000%),2%,4%)
1038 DEF FND$(X%,Y%) = Y$ + CHR$(D9%+(Y%-1%)) + CHR$(D8%+X%)
1039 DEF FNZ$(X%,Y%) = SEG$(".E...",Q%(X%,Y%)+1%,Q%(X%,Y%)+1%)
1040 REM
1045 REM OBTAIN TERMINAL CHARACTERISTICS
1050 REM
1052 PRINT H0$; E1$; "Star Trek V2.0" \ PRINT
1054 PRINT "Terminal baud rate";\ INPUT B5%
1055 F% = B5%/300% \ REM SET NO. OF TIMES TO FLICKER
1056 B5$ = ""\ PRINT "Sound effects";\ INPUT A$
1057 IF SEG$(A$,1,1) = "Y" THEN B5$ = CHR$(7%)
1060 M9%=0% \ REM MASTER GAME SWITCH
1062 PRINT "Master game"; \ INPUT A$
1064 IF SEG$(A$,1,1)="Y" THEN M9%=-1%
1066 X9%=200% \ IF M9%<>0% THEN X9%=1000%
1068 DIM R(9%),D$(8%),G%(8%,8%),Q%(8%,8%),K%(9%,3%),D%(8%),Z%(8%,8%)
1070 FOR I%=1% TO D1% \ READ D$(I%) \ D%(I%)=0% \ NEXT I%
1072 FOR I%=1% TO 9% \ READ R(I%) \ NEXT I%
1074 FOR I%=1% TO 3% \ READ L$(I%) \ NEXT I%
1076 FOR I%=1% TO 8% \ FOR J%=1% TO 8% \ Z%(I%,J%)=0% \ NEXT J% \ NEXT I%
1080 DATA "Warp engines","S.R. sensors","L.R. sensors","Phaser beam"
1090 DATA "Torpedo tubes","Damage cntrl","Computer","Battle analyzer"
1100 DATA .0001, .01, .03, .08, .23, 1.28, 3.28, 6.28, 13.28
1105 DATA "Battle Report:","[Dist/Energy]",""
1110 T% = INT(RND*20+20)*100%\ T0% = T%\ E% = 3000%\ E0% = E%
1120 P% = 10%\ P0% = P% \ REM INITIAL CONDITIONS
1125 T9% = 40%\ IF M9%<>0% THEN T9% = 30% + INT(RND*20)
1130 DEF FNF(X%) = SQR((K%(X%,1%)-S1%)^2%+(K%(X%,2%)-S2%)^2%)
1140 DEF FNR%(X%) = INT(RND*8+1)
1150 Q1% = FNR%(X%)\ Q2% = FNR%(X%)\ S1% = FNR%(X%) \ S2% = FNR%(X%)
1159 REM
1160 REM SET UP THE GALAXY
1161 REM
1170 B9% = 0%\ K9% = 0%
1180 FOR I% = 1% TO 8%\ FOR J% = 1% TO 8%
1182 K3% = 0%\ C1 = RND * 64
1184 FOR K0%=1% TO 9%\ IF C1 < R(K0%) THEN K3%=K3%+1%
1185 NEXT K0%
1186 K9%=K9%+K3%\ B3%=0%\ IF RND > .9 THEN B3%=1%
1188 B9% = B9% + B3%\ G%(I%,J%) = (K3%*100%)+(B3%*10%)+FNR%(X%)
1190 NEXT J%
1192 NEXT I%
1220 K0% = K9%
1222 REM
1224 REM MAKE SURE THERE IS AT LEAST ONE BASE
1126 REM
1230 IF B9% = 0% THEN I%=FNR%(X%)\ J% = FNR%(X%)\ G%(I%,J%) = G%(I%,J%) + 10%\B9%=1%
1240 PRINT H0$; E1$; "Orders: Stardate =";T%\ PRINT
1250 PRINT "You must destroy the Klingon invasion force of";K9%;"battle"
1260 PRINT "cruisers. You have";T9%;"solar years to complete your mission."
1300 PRINT "Ready";\ INPUT A$
1310 PRINT H0$; E1$\ GOSUB 2600 \ REM BLANK SCREEN & DRAW THE GALAXY
1399 REM
1400 REM SET UP QUADRANT
1401 REM
1420 K3% = 0%\ B3% = 0%\ S3% = 0%\ H8% = 0%\ K8% = 0%
1430 X = G%(Q1%,Q2%) \ REM GET WORD WHICH DESCRIBES OCCUPANTS OF THIS QUAD
1440 K3% = INT(X/100)\ B3% = INT(X/10)-(10*K3%)\ S3% = X-(INT(X/10) * 10)
1445 FOR I%=1% TO 8%\ FOR J%=1% TO 8%\ Q%(I%,J%)=0%\ NEXT J%\ NEXT I%
1448 FOR I%=1% TO 9%\ FOR J%=1% TO 3%\ K%(I%,J%)=0%\ NEXT J%\ NEXT I%
1450 Q%(S1%,S2%) = 1% \ REM INSERT ENTERPRISE
1460 FOR I% = 1% TO K3%
1462 GOSUB 5200 \ REM SELECT RANDOM EMPTY SECTOR
1464 Q%(R1%,R2%) = 2% \ REM AND PUT A KLINGON IN IT
1466 K%(I%,1%) = R1%\ K%(I%,2%) = R2%\ K%(I%,3%) = X9% + INT(RND*(X9%/2%))
1468 NEXT I%
1470 FOR I% = 1% TO B3%\ GOSUB 5200 \ Q%(R1%,R2%) = 3%\ NEXT I% \ REM INSERT BASE(S)
1480 FOR I% = 1% TO S3%\ GOSUB 5200 \ Q%(R1%,R2%) = 4%\ NEXT I% \ REM INSERT STAR(S)
1490 GOSUB 1500\ GOSUB 1580 \ REM SET STATUS, DISPLAY QUAD
1495 GOSUB 2370 \ REM KLINGON ATTACK
1497 GO TO 1650 \ TO CMD DECODER
1499 REM
1500 REM RED/ORANGE/YELLOW/GREEN STATUS [SUBROUTINE]
1501 REM
1520 C$="Green "\ IF E%<=E0%/10% THEN C$="Yellow"
1521 FOR I% = Q1%-1% TO Q1%+1%
1523 FOR J% = Q2%-1% TO Q2% + 1%
1524 IF I%>0% THEN IF I%<9% THEN IF J%>0% THEN IF J%<9% THEN GOTO 1526
1525 GOTO 1528 \ REM INVALID SECTOR
1526 IF G%(I%,J%)>99% THEN C$="Orange"\ GO TO 1530
1528 NEXT J%
1529 NEXT I%
1530 FOR I% = S1%-1% TO S1% + 1%
1532 FOR J% = S2%-1% TO S2%+1%
1534 IF I%>0% THEN IF I%<9% THEN IF J%>0% THEN IF J%<9% THEN IF Q%(I%,J%)=3 THEN GOTO 1536
1535 GOTO 1538
1536 FOR I1% = 1% TO 8%\ D%(I1%) = 0%\ NEXT I1%\ C$ = "Docked"
1537 E% = E0%\ P%=P0%\ PRINT FNV$(5%); E%; FNV$(6%); P%;\ GOTO 1570
1538 NEXT J%
1540 NEXT I%
1550 IF K3% <> 0% THEN C$ = "Red " \ REM IF NOT DOCKED & KLINGON(S) IN QUADRANT
1570 PRINT\ PRINT FNV$(2%); C$; \ RETURN \ REM PUT NEW CODITION IN STATUS DISPLAY
1579 REM
1580 REM SCAN QUADRANT SECTOR BY SECTOR [SUBROUTINE]
1581 REM
1590 FOR I% = 8% TO 1% STEP -1%
1592 PRINT FNS$(1%,I%);
1594 FOR J%=1% TO 8%
1596 IF D%(2%) =0% THEN PRINT FNO$(I%,J%); " ";
1598 IF D%(2%)<>0% THEN PRINT FNZ$(I%,J%); " ";
1600 NEXT J%\ PRINT "|"
1605 NEXT I%
1610 RETURN
1649 REM
1650 REM COMMAND DECODER
1651 REM
1655 GOSUB 1500 \ REM OBTAIN CURRENT CONDITION
1660 A$ = ""\ PRINT H2$;
1665 Z%(Q1%,Q2%) = G%(Q1%,Q2%) \ REM UPDATE GALAXY (NOT DISPLAYED YET, THO)
1670 PRINT "Command";\ INPUT A$\ A% = POS("WSLPTDCEB",SEG$(A$,1%,1%),1%)
1680 IF A%=0% THEN GO TO 4000
1690 ON A% GOTO 1700, 5100, 1960, 2040, 2140, 2310, 5000, 2550, 5400
1699 REM
1700 REM WARP DRIVE [W COMMAND]
1701 REM
1710 PRINT H2$;
1715 PRINT "Course (1-8.99), Warp factor (0-12)";\ INPUT C1, W1
1720 IF W1*C1 = 0 GOTO 1650
1721 IF C1>=1 THEN IF C1<=9 THEN IF W1>=0 THEN IF W1<=12 GOTO 1725
1722 PRINT "Invalid course, please reenter.";\ GOSUB 9000\ GOTO 1710
1725 Z5% = 0% \ REM FLAG FOR QUADRANT DETECTION
1730 IF W1 > .25 THEN IF D%(1%) < 0% THEN PRINT "Warp engines are damaged, max speed = Warp .25"\ GOSUB 9000\ GOTO 1710
1740 IF K3% > 0% THEN GOSUB 2370 \ REM ALLOW KLINGON ATTACK IF ANY PRESENT
1745 IF M9%=0% THEN GO TO 1830 \ NO DAMAGE IN BASIC GAME
1750 FOR I%=1% TO D1%\ IF D%(I%)<0% THEN D%(I%)=D%(I%)+1%
1752 NEXT I% \ REM IMPROVE STATUS
1755 IF RND > .20 GOTO 1825 \ REM ONE CHANCE IN FIVE OF DISASTER
1760 IF RND > .5 GOTO 1790
1765 I% = INT((RND*D1%)+1)
1770 PRINT "*** Space storm: "; D$(I%); " damaged. ***"
1780 D%(I%) = D%(I%) - INT((RND*3)+1)\ GOTO 1825
1790 FOR I%=1% TO D1%\ IF D%(I%)<0% THEN GOTO 1810
1800 NEXT I%\ GOTO 1825
1810 D%(I%) = D%(I%)-INT((RND*D%(I%))-1)
1812 IF D%(I%) > 0% THEN D%(I%) = 0%
1820 PRINT "*** "; D$(I%); " state of repair improved. ***"
1825 REM
1830 N% = INT(W1*8%)\ IF E%-N% <= 0% THEN 2450
1831 IF T%+1% > T0%+T9% THEN 2450 \ REM LOST
1832 Q%(S1%,S2%) = 0% \ REM REMOVE "E" IN SECTOR
1834 X = (Q1%*8%)+(S1%-1%)\ Y = (Q2%*8%)+(S2%-1%)\GOSUB 2300 \ REM POSITION AND DIRECTION
1840 FOR I% = 1% TO N%
1841 PRINT \ REM RESET LINE COUNTER
1842 X = X + X1\ Y = Y + X2 \ REM MOVE ONE UNIT IN PROPER DIRECTION
1844 Z3% = (INT(X+0.5))/8% \ Z4% = (INT(Y+0.5))/8% \ REM CALC NEW QUADRANT
1846 Z1% = INT(X+0.5)-(Z3%*8%)+1%\ Z2% = INT(Y+0.5)-(Z4%*8%)+1% \ REM NEW SECTOR
1850 IF Z3% = Q1% THEN IF Z4% = Q2% THEN 1870 \ REM SKIP IF SAME QUADRANT
1860 IF Z3%>0% THEN IF Z3%<9% THEN IF Z4%>0% THEN IF Z4%<9% THEN 1862
1861 GOTO 1910 \ REM OUT OF GALAXY
1862 IF Z5% <> 0% THEN 1866
1863 Z5% = 1%\ FOR I1%=1% TO 8%\ FOR J1%=1% TO 8%\ Q%(I1%,J1%)=0%\ NEXT J1%\ NEXT I1%
1864 FOR J% = 1% TO 8%\ PRINT FNS$(1%,J%); " "\ NEXT J%
1866 PRINT\ PRINT FNQ$(Q2%,Q1%); FNG$(Q1%,Q2%);FNQ$(Z4%,Z3%); " E "; \ REM UPDATE GALAXY DISPLAY
1868 Q1% = Z3%\ Q2% = Z4%\ PRINT FNV$(3%); Q2%; "-"; Q1%;
1870 IF Q%(Z1%,Z2%) <> 0% THEN 1900 \ REM CAN BE BLOCKED ONLY IN ORIGINAL QUAD
1872 PRINT FNS$(S2%,S1%);\ IF Z5% = 1% THEN PRINT " ";\ GOTO 1874
1873 PRINT "."; \ REM REMOVE "E" FROM OLD SECTOR
1874 S1% = Z1%\ S2% = Z2%\ PRINT\ PRINT FNS$(S2%,S1%); "E";
1876 FOR J%=1% TO F%\ PRINT B$; " "; B$; "E";\ NEXT J%
1880 PRINT \ REM RESET LINE POINTER
1890 NEXT I%
1892 GOTO 1910
1900 PRINT H2$; "ENTERPRISE blocked by object at sector"; Z2%; "-"; Z1% \ GOSUB 9000
1910 T% = T% + 1%\ PRINT FNV$(1%); T% \ REM ADVANCE STARDATE
1914 PRINT FNV$(4%); S2%; "-"; S1%; \ REM UPDATE SECTOR
1916 E% = E% - N%\ PRINT FNV$(5%); E%; \ REM ENERGY LOSS = 1 UNIT/UNIT DISTANCE
1920 Q%(S1%,S2%) = 1%\ IF Z5% = 1% THEN 1400
1930 GOTO 1650
1959 REM
1960 REM LONG RANGE SENSOR SCAN [L COMMAND]
1961 REM
1970 IF D%(3%)<>0% THEN PRINT "Long range sensors are inoperable."\ GOSUB 9000\ GOTO 1650
1980 FOR I% = Q1%+1% TO Q1%-1% STEP -1%
1990 FOR J% = Q2%-1% TO Q2%+1% STEP 1%
2000 IF I%>0% THEN IF I%<9% THEN IF J%>0% THEN IF J%<9% THEN 2010
2005 GOTO 2020
2010 Z%(I%,J%) = G%(I%,J%)
2012 IF I% = Q1% THEN IF J% = Q2% THEN 2020
2015 PRINT FNQ$(J%,I%); FNG$(I%,J%);
2020 NEXT J%
2030 NEXT I%
2031 GOTO 1650 \ REM GO GET NEXT COMMAND
2039 REM
2040 REM PHASER CONTROL [P COMMAND]
2041 REM
2050 IF D%(4%)<>0% THEN PRINT "Phaser control is disabled."\ GOSUB 9000\ GOTO 1650
2055 IF K3%<=0% THEN PRINT "No Klingons in quadrant."\ GOSUB 9000\ GOTO 1650
2060 PRINT H2$;
2065 IF D%(7%)<>0% THEN PRINT "Computer failure reduces phaser effectiveness."
2070 PRINT "Number of units to fire";\ INPUT X%
2080 IF X% <= 0% GOTO 1650
2082 IF X% > E% THEN PRINT "Only";E%;"energy units available.";\ GOSUB 9000\ GOTO 2060
2084 E% = E% - X%
2085 PRINT FNV$(5%); E% \ REM SHOW REDUCED ENERGY
2088 IF D%(7%)<>0% THEN X% = X%/INT(RND*5+1)
2090 FOR I% = 1% TO 9%
2095 IF K%(I%,3%) <= 0% THEN 2130 \ REM DON'T REDUCE IF ALREADY DEAD
2100 H% = INT(X%/FNF(I%)*((2*RND)+1%)) \ REM CALCULATE ENERGY IN HIT
2105 K%(I%,3%) = K%(I%,3%) - H% \ REM REDUCE KLINGON'S ENERGY
2107 GOSUB 3100\ IF K%(I%,3%) <= 0% THEN GOSUB 3200
2110 PRINT H2$; H%; "unit hit on Klingon at sector";K%(I%,2%); "-"; K%(I%,1%)
2115 IF K%(I%,3%) > 0% THEN PRINT " ("; K%(I%,3%); "remain)"
2128 GOSUB 9000\ IF K9% <= 0% THEN 2500 \ REM QUIT IF LAST KLINGON DESTROYED
2130 NEXT I%
2131 GOSUB 2370\ GOTO 1650 \ REM GIVE THE KLINGONS THEIR TURN
2139 REM
2140 REM PHOTON TORPEDOS [T COMMAND]
2141 REM
2150 IF D%(5%)<>0% THEN PRINT "Photon tubes are not operational."\ GOSUB 9000\ GOTO 1650
2160 IF P% <= 0% THEN PRINT "All photon torpedoes expended."\ GOSUB 9000\ GOTO 1650
2165 PRINT H2$;
2170 PRINT "Torpedo course (1-8.9999)";\ INPUT C1
2180 IF C1 =0 THEN 1650
2182 IF C1>=1 THEN IF C1<9 THEN GOTO 2186
2184 PRINT H2$;"Invalid course, please reenter."\ GOSUB 9000\ GOTO 2165
2186 GOSUB 2300
2190 X = S1%\ Y = S2%\ P% = P% - 1%\ PRINT FNV$(6%); P%; \ REM REDUCE TORPEDO COUNT
2200 X = X + X1\ Y = Y + X2 \ REM MOVE ONE UNIT IN SELECTED DIRECTION
2201 Z1% = INT(X+0.5)\ Z2% = INT(Y+0.5) \ REM SET INTERMEDIATE LOCATION
2202 IF Z1%>0% THEN IF Z1%<9% THEN IF Z2%>0% THEN IF Z2%<9% THEN 2204
2203 PRINT H2$; " Missed";\ GOTO 2290
2204 PRINT\ PRINT FNS$(Z2%,Z1%);
2206 IF Q%(Z1%,Z2%) <> 0% THEN 2220 \ REM JUMP IF HIT SOMETHING
2208 FOR I% = 1% TO F%
2209 PRINT "T"; B$; " "; B$;\ NEXT I% \ REM FLICKER TORPEDO
2210 PRINT "."; B$;\ GOTO 2200
2220 FOR I% = 1% TO 8%\ PRINT "T"; B$; FNO$(Z1%,Z2%); B$;\ NEXT I%
2230 IF Q%(Z1%,Z2%) <> 2% THEN 2250 \ REM JUMP IF NOT A KLINGON
2240 FOR I% = 1% TO 9% \ REM FIND OUT WHICH KLINGON
2242 IF K%(I%,1%) <> Z1% THEN 2246
2243 IF K%(I%,2%) <> Z2% THEN 2246
2244 GOSUB 3200 \ PRINT H2$; "*** Klingon Destroyed! ***"\GOTO 2290
2246 NEXT I%
2250 PRINT "."; B5$; H2$
2260 IF Q%(Z1%,Z2%) = 4% THEN S3% = S3% - 1% \PRINT " Star destroyed"
2270 IF Q%(Z1%,Z2%) = 3% THEN B3% = B3% - 1% \PRINT "*** Starbase destroyed...Congratulations ***"
2280 Q%(Z1%,Z2%) = 0%\ G%(Q1%,Q2%) = (K3%*100%) + (B3%*10%) + S3%
2290 GOSUB 9000 \ IF K9% <= 0% THEN 2500
2295 GOSUB 2370 \ GOTO 1650
2300 X1 = SIN((C1-1)*.785398)\ X2 = COS((C1-1)*.785398)\ RETURN
2309 REM
2310 REM DAMAGE CONTROL REPORT [D COMMAND]
2311 REM
2320 IF D%(6%)<>0% THEN PRINT "Damage control system is non-functional."\ GOSUB 9000\ GOTO 1650
2322 PRINT H2$; "Damage Report:";
2325 FOR I%=1% TO 3%
2330 FOR J%=1% TO 3%\ I0%=(I%-1%)*3%+J%
2335 IF I0%<=D1% THEN PRINT\ PRINT FND$((J%-1%)*20%,I%);D$(I0%);"=";D%(I0%);
2338 NEXT J%
2340 NEXT I%
2350 GOSUB 9000
2360 GO TO 1650
2369 REM
2370 REM KLINGON ATTACK [SUBROUTINE]
2371 REM
2380 IF K3% = 0% THEN RETURN \ REM IMMEDIATE RETURN IF NO KLINGONS
2390 IF C$ = "Docked" THEN PRINT H2$; "Starbase shields protect the ENTERPRISE"\ GOSUB 9000 \ RETURN
2395 H8% = 0%\ K8% = 0% \ REM TOTAL COUNTERS
2400 FOR I% = 1% TO 9%
2404 H1% = K%(I%,3%)\ IF H1% <= 0% THEN 2440 \ REM SKIP ATTACK IF HE HAS NO ENERGY
2406 IF M9%<>0% THEN IF RND <= .3 THEN GOTO 2440
2408 IF M9%<>0% THEN H1% = H1%/INT(RND*4+2)\ K%(I%,3%)=K%(I%,3%)-H1%
2410 H% = INT((H1%/FNF(I%))*((2*RND)+1%)) \ REM HIT INVERSE TO DISTANCE
2415 GOSUB 3100 \ REM FLICKER THE ATTACKER
2420 PRINT H2$; H%; "unit hit from Klingon at sector";K%(I%,2%); "-"; K%(I%,1%) \ REM REPORT HIT
2425 H8% = H8% + H%\ K8% = K8% + 1% \ REM INCREMENT TOTALS
2430 E% = E% - H%\ PRINT FNV$(5%); E%; \ REM SHOW TOTAL ENERGY REMAINING
2435 GOSUB 9000
2440 NEXT I%
2442 IF K8% > 1% THEN PRINT H2$; H8%; "units lost during attack by"; K8%; "enemy ships."\ GOSUB 9000
2445 IF E% > 0% THEN RETURN \ REM FALL THRU IF NO ENERGY REMAINING
2450 PRINT H0$; E1$; "It is Stardate"; T% \ PRINT
2460 PRINT "The ENTERPRISE has been destroyed."
2470 PRINT "The Federation will be conquered."
2480 PRINT "There are still"; K9%; "Klingon battle cruisers in the galaxy."
2490 PRINT "You are dead."\ GOTO 2570
2500 PRINT H0$; E1$; "It is Stardate"; T% \ PRINT
2510 PRINT "The last Klingon battle cruiser in the galaxy has been destroyed."
2520 PRINT "The Federation has been saved."
2530 PRINT "You have been promoted to Admiral."
2540 PRINT K0%;"Klingons in";T%-T0%;"years. ";
2545 PRINT "Rating = "; (K0% * 100%)/(T% - T0%)*10% \ GO TO 2570
2550 PRINT H0$; E1$; "It is Stardate"; T% \ PRINT
2555 PRINT "There are still"; K9%; "Klingon battle cruisers in the galaxy."
2560 PRINT "The ENTERPRISE has been placed in more capable hands."
2565 PRINT "You have been put on the retired list with an inadequate pension."
2570 PRINT \ PRINT "Another game";\ INPUT A$
2580 IF SEG$(A$,1,1)="Y" THEN GOTO 1076
2590 STOP
2599 REM
2600 REM CHART ENTIRE GALAXY [SUBROUTINE]
2601 REM
2610 PRINT H0$; \ REM CURSOR HOME
2620 PRINT " >>Galaxy Map<<"
2630 FOR I% = 8% TO 1% STEP -1%
2640 PRINT " +---+---+---+---+---+---+---+---+"
2645 PRINT I%;"|";
2650 FOR J% = 1% TO 8%
2652 IF I% = Q1% THEN IF J% = Q2% THEN A$ = " E "\ GOTO 2656
2654 A$ = SEG$(STR$(1000%+Z%(I%,J%)),2%,4%)
2656 PRINT A$; "|";
2658 NEXT J%
2660 PRINT
2670 NEXT I%
2675 PRINT " +---+---+---+---+---+---+---+---+"
2680 PRINT " ";\FOR I%=1% TO 8%\ PRINT " "; I%; \ NEXT I%
2682 PRINT FNS$(0%,10%); " >>Quadrant Map<<"
2684 PRINT FNS$(0%,9%); "+-----------------+"
2685 FOR I%=8% TO 1% STEP -1%\ PRINT FNS$(0%,I%); "| |"\ NEXT I%
2686 PRINT FNS$(0%,0%); "+-----------------+" \ REM OTHER SECTOR BOUNDARY
2688 PRINT FNS$(1%,-1%); "Stardate:"; T%; FNS$(1%,-2%); "Condition:"
2690 PRINT FNS$(1%,-3%); "Quadrant:"; Q2%; "-"; Q1%;
2692 PRINT FNS$(1%,-4%); "Sector:"; S2%; "-"; S1%
2694 PRINT FNS$(1%,-5%); "Energy:"; E%; FNS$(1%,-6%); "Torpedos:"; P%
2696 PRINT FNS$(1%,-7%); "Klingons:"; K9%
2699 REM
2700 REM PRINT COMPASS (POINTER)
2701 REM
2710 PRINT FNP$(0%,-3%); "3"
2720 PRINT FNP$(-2%,-2%); "4 ! 2"
2730 PRINT FNP$(-1%,-1%); "\!/"
2740 PRINT FNP$(-3%,0%); "5--E--1"
2750 PRINT FNP$(-1%,1%); "/!\"
2760 PRINT FNP$(-2%,2%); "6 ! 8"
2770 PRINT FNP$(0%,3%); "7"
2780 RETURN
3099 REM
3100 REM BLINK THE KLINGON WHO IS CURRENTLY ATTACKING (OR BEING ATTACKED)
3101 REM
3110 PRINT\ PRINT FNS$(K%(I%,2%),K%(I%,1%));
3120 FOR F7% = 1% TO F%
3125 PRINT " "; B$; "K"; B$;
3129 NEXT F7%
3130 RETURN
3199 REM
3200 REM REMOVE A KLINGON (HURRAH!)
3201 REM
3210 PRINT "."; B5$ \ REM ASSUME LAST CHARACTER IN FLICKER WAS BACKSPACE
3220 K3% = K3% - 1%\ K9% = K9% - 1% \ REM REDUCE SECTOR, GALAXY COUNTS
3230 PRINT FNV$(7%); K9% \ REM UPDATE STATUS DISPLAY
3240 Q%(K%(I%,1%),K%(I%,2%)) = 0% \ REM REMOVE FROM QUADRANT
3245 K%(I%,3%) = 0% \ REM MAKE SURE KLINGON STAYS DEAD (DARE YA TO DELETE 3245)
3250 G%(Q1%,Q2%) = G%(Q1%,Q2%) - 100% \ REM AND FROM GALAXY
3260 RETURN \ REM PREPARE FOR NEXT MESSAGE
3999 REM
4000 REM ERROR RECOVERY
4001 REM
4010 PRINT H2$;
4100 PRINT "Valid commands are C, S, L, P, T, W, D, B, and E."
4110 GOSUB 9000 \ GO TO 1650
5000 REM
5010 REM CHART ENTIRE GALAXY [C COMMAND]
5020 REM
5030 PRINT H0$; E1$; \ REM ERASE SCREEN
5040 GOSUB 2600 \ GOSUB 1580 \ REM CHART GALAXY AND QUADRANT
5050 GOTO 1650
5100 REM
5110 REM SHORT RANGE SENSOR SCAN [S COMMAND]
5120 REM
5130 IF D%(2%)<>0% THEN PRINT "Short range sensors are inoperable."\ GOSUB 9000\ GOTO 1650
5140 GOSUB 1580
5150 GOTO 1650
5200 REM
5210 REM FIND EMPTY SECTOR [SUBROUTINE]
5220 REM
5230 R1%=FNR%(X%)\ R2%=FNR%(X%)\ IF Q%(R1%,R2%)<>0% THEN 5230
5240 RETURN
5400 REM
5410 REM BATTLE ANALYSIS [B COMMAND]
5420 REM
5430 IF D%(8%)<>0% THEN PRINT "Battle analyzer is out of commission."\ GOSUB 9000\ GOTO 1650
5440 IF K3%<=0% THEN PRINT "No Klingons in quadrant."\ GOSUB 9000\ GOTO 1650
5450 PRINT H2$;
5460 FOR I%=1% TO 3%
5470 PRINT FND$(-18%,I%);L$(I%);
5480 FOR J%=1% TO 3%\ I0%=(I%-1%)*3+J%
5490 IF K%(I0%,3%)<=0% THEN GOTO 5550
5500 PRINT\ PRINT FND$((J%-1%)*20%,I%);"K@ ";STR$(K%(I0%,2%));"-";STR$(K%(I0%,1%));
5510 PRINT " = ";STR$(INT(FNF(I0%)));"/";STR$(K%(I0%,3%));
5520 REM
5530 REM INSERT COMPUTER PRINTOUT HERE
5540 REM
5550 NEXT J%
5560 NEXT I%
5570 GOSUB 9000
5580 GOTO 1650
9000 REM
9010 REM SLEEP FOR TWO SECONDS
9020 REM
9030 FOR Z9%=1% TO 4000% \ NEXT Z9% \ RETURN
32767 END
.
.DIR
30-Aug-76
PIP .SAV 23 21-Feb-80 DL .SYS 5 12-Feb-81
DY .SYS 4 12-Feb-81 NL .SYS 2 12-Feb-81
SWAP .SYS 25 21-Feb-80 FILEX .SAV 18 02-Mar-81
TTY .SAV 3 26-Jun-89 DUP .SAV 41 21-Feb-80
FORMAT.SAV 19 21-Feb-80 RESORC.SAV 15 21-Feb-80
DIR .SAV 17 21-Feb-80 CREF .SAV 6 02-Mar-81
DATTIM.SAV 3 26-Jun-89 HELLO .SAV 2 23-Jun-77
STARTF.BAK 2 06-Jul-89 RT11FB.SYS 77 12-Feb-81
FORTRA.SAV 205 05-Jul-82 SYSMAC.SML 42 02-Mar-81
HELP .SAV 107 02-Mar-81 KED .SAV 60 21-Feb-80
BASIC .SAV 86 28-Jun-83 FORLIB.OBJ 173 05-Jul-82
STARTF.OLD 2 28-Oct-94 STARTF.COM 2 24-Feb-76
CROCK .SAV 5 25-Feb-76 PACMAN.SAV 26 23-Jun-77
SYSSUM.SAV 8 14-Sep-89 CUCH01.SAV 11 08-Jan-82
SRCCOM.SAV 13 02-Mar-81 LIBR .SAV 22 02-Mar-81
DUMP .SAV 8 02-Mar-81 BINCOM.SAV 10 02-Mar-81
LINK .SAV 41 02-Mar-81 SYSLIB.OBJ 47 01-Feb-82
CVAR00.SYS 54 24-May-88 MACRO .SAV 51 21-Feb-80
DATACQ.SAV 78 14-Sep-89 RESTR .COM 1 07-Jul-89
SAVE .COM 1 07-Jul-89 SAVCOP.COM 1 07-Jul-89
RVG .SAV 53 19-Nov-80 HIDACU.SAV 11 08-Jan-82
MAXIM .SAV 24 25-Nov-89 CUCH02.SAV 11 08-Jan-82
TEC .SAV 2 09-Mar-88 TEC1 .SAV 2 09-Mar-88
RVGROI.SAV 38 19-Nov-80 RVG2 .SAV 39 19-Nov-80
HIDA .SAV 38 08-Jan-82 QPQS .SAV 15 05-Jan-82
GSATIM.SAV 18 02-Apr-86 LINES .SAV 15 06-Jul-89
GSACOR.SAV 26 25-Nov-89 SELPAT.SAV 36 25-Nov-89
CVHELP.SYS 7 12-Nov-80 CLNDAT.SAV 29 27-Dec-89
KNOPP2.SAV 44 13-Nov-80 FOUR .SAV 63 13-Nov-80
BOLO .SAV 66 01-Jan-82 CLEAN .SAV 37 05-Jan-89
HIDACV.SAV 15 08-Jan-82 USRLIB.OBJ 29 29-Jun-89
HPIST .SAV 35 25-Nov-89 HPI .SAV 45 20-Dec-89
C50 .SAV 39 08-Jan-82 PROVA .GPB 401 31-Aug-89
DIBELL.GPB 401 07-Sep-89 FGAMMA.REL 97 14-Sep-89
TRNFER.SAV 42 21-Oct-89 CINE .GPB 193 04-Sep-89
DELETE.SAV 24 09-Oct-89 CURVE .SAV 114 12-Nov-80
BGAMMA.SAV 17 22-Feb-90 CENTER.SAV 40 04-Mar-90
CIRCUM.SAV 44 04-Mar-90 DATANL.SAV 200 03-Mar-90
GFR .SAV 41 16-May-90 DUMMY .DAT 1 03-Mar-93
BARBER.X00 4102 12-Aug-94 RUBERT.X00 1283 16-Nov-94
RUBERT.X01 67 16-Nov-94 GARRET.X00 131 16-Nov-94
RUBERT.X02 100 16-Nov-94 KSERVE.MAC 177 24-Feb-76
KSERVE.OBJ 17 23-Feb-76 KSERVE.SAV 23 23-Feb-76
INDO2 .BAS 2 24-Feb-76 START2.COM 2 24-Feb-76
WELC .TXT 1 24-Feb-76 DATA .TXT 1 24-Feb-76
MANUAL.TXT 78 25-Feb-76 CROCK .MAC 23 25-Feb-76
PACMAN.MAC 61 25-Feb-76 CHESS .SAV 20 25-Feb-76
CHESS .DOC 4 25-Feb-76 SPCINV.SAV 10 25-Feb-76
SPCINV.DAT 1 25-Feb-76 SPCINV.MAC 44 25-Feb-76
SPCINV.COM 1 25-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76 PACMAN.OBJ 30 16-Jun-77
CROCK .OBJ 4 16-Jun-77 SPCINV.OBJ 4 30-Aug-76
106 Files, 9947 Blocks
10435 Free blocks
.RUN CHESS
CHESS V001A
W.E4
ILLEGAL INPUT
W.E2-E4
ILLEGAL INPUT
W.E2
ILLEGAL INPUT
W.?
ILLEGAL INPUT
W.2
ILLEGAL INPUT
W.E2E3
ILLEGAL INPUT
W.E2E4
ILLEGAL INPUT
W.SDF
ILLEGAL INPUT
W.1
ILLEGAL INPUT
W.1 E2-E4
ILLEGAL INPUT
W.EEWOEIJIOJASDJ
ILLEGAL INPUT
W.^C
.
.
.
.
.
.
.DIR^H^H^H
?KMON-F-Illegal command
.DIR K*
30-Aug-76
KED .SAV 60 21-Feb-80 KNOPP2.SAV 44 13-Nov-80
KSERVE.MAC 177 24-Feb-76 KSERVE.OBJ 17 23-Feb-76
KSERVE.SAV 23 23-Feb-76
5 Files, 321 Blocks
10435 Free blocks
.
.RUN ^U
^U
.
.
.
.
.
.
.DIR
30-Aug-76
PIP .SAV 23 21-Feb-80 DL .SYS 5 12-Feb-81
DY .SYS 4 12-Feb-81 NL .SYS 2 12-Feb-81
SWAP .SYS 25 21-Feb-80 FILEX .SAV 18 02-Mar-81
TTY .SAV 3 26-Jun-89 DUP .SAV 41 21-Feb-80
FORMAT.SAV 19 21-Feb-80 RESORC.SAV 15 21-Feb-80
DIR .SAV 17 21-Feb-80 CREF .SAV 6 02-Mar-81
DATTIM.SAV 3 26-Jun-89 HELLO .SAV 2 23-Jun-77
STARTF.BAK 2 06-Jul-89 RT11FB.SYS 77 12-Feb-81
FORTRA.SAV 205 05-Jul-82 SYSMAC.SML 42 02-Mar-81
HELP .SAV 107 02-Mar-81 KED .SAV 60 21-Feb-80
BASIC .SAV 86 28-Jun-83 FORLIB.OBJ 173 05-Jul-82
STARTF.OLD 2 28-Oct-94 STARTF.COM 2 24-Feb-76
CROCK .SAV 5 25-Feb-76 PACMAN.SAV 26 23-Jun-77
SYSSUM.SAV 8 14-Sep-89 CUCH01.SAV 11 08-Jan-82
SRCCOM.SAV 13 02-Mar-81 LIBR .SAV 22 02-Mar-81
DUMP .SAV 8 02-Mar-81 BINCOM.SAV 10 02-Mar-81
LINK .SAV 41 02-Mar-81 SYSLIB.OBJ 47 01-Feb-82
CVAR00.SYS 54 24-May-88 MACRO .SAV 51 21-Feb-80
DATACQ.SAV 78 14-Sep-89 RESTR .COM 1 07-Jul-89
SAVE .COM 1 07-Jul-89 SAVCOP.COM 1 07-Jul-89
RVG .SAV 53 19-Nov-80 HIDACU.SAV 11 08-Jan-82
MAXIM .SAV 24 25-Nov-89 CUCH02.SAV 11 08-Jan-82
TEC .SAV 2 09-Mar-88 TEC1 .SAV 2 09-Mar-88
RVGROI.SAV 38 19-Nov-80 RVG2 .SAV 39 19-Nov-80
HIDA .SAV 38 08-Jan-82 QPQS .SAV 15 05-Jan-82
GSATIM.SAV 18 02-Apr-86 LINES .SAV 15 06-Jul-89
GSACOR.SAV 26 25-Nov-89 SELPAT.SAV 36 25-Nov-89
CVHELP.SYS 7 12-Nov-80 CLNDAT.SAV 29 27-Dec-89
KNOPP2.SAV 44 13-Nov-80 FOUR .SAV 63 13-Nov-80
BOLO .SAV 66 01-Jan-82 CLEAN .SAV 37 05-Jan-89
HIDACV.SAV 15 08-Jan-82 USRLIB.OBJ 29 29-Jun-89
HPIST .SAV 35 25-Nov-89 HPI .SAV 45 20-Dec-89
C50 .SAV 39 08-Jan-82 PROVA .GPB 401 31-Aug-89
DIBELL.GPB 401 07-Sep-89 FGAMMA.REL 97 14-Sep-89
TRNFER.SAV 42 21-Oct-89 CINE .GPB 193 04-Sep-89
DELETE.SAV 24 09-Oct-89 CURVE .SAV 114 12-Nov-80
BGAMMA.SAV 17 22-Feb-90 CENTER.SAV 40 04-Mar-90
CIRCUM.SAV 44 04-Mar-90 DATANL.SAV 200 03-Mar-90
GFR .SAV 41 16-May-90 DUMMY .DAT 1 03-Mar-93
BARBER.X00 4102 12-Aug-94 RUBERT.X00 1283 16-Nov-94
RUBERT.X01 67 16-Nov-94 GARRET.X00 131 16-Nov-94
RUBERT.X02 100 16-Nov-94 KSERVE.MAC 177 24-Feb-76
KSERVE.OBJ 17 23-Feb-76 KSERVE.SAV 23 23-Feb-76
INDO2 .BAS 2 24-Feb-76 START2.COM 2 24-Feb-76
WELC .TXT 1 24-Feb-76 DATA .TXT 1 24-Feb-76
MANUAL.TXT 78 25-Feb-76 CROCK .MAC 23 25-Feb-76
PACMAN.MAC 61 25-Feb-76 CHESS .SAV 20 25-Feb-76
CHESS .DOC 4 25-Feb-76 SPCINV.SAV 10 25-Feb-76
SPCINV.DAT 1 25-Feb-76 SPCINV.MAC 44 25-Feb-76
SPCINV.COM 1 25-Feb-76 LUNAR .BAS 7 25-Feb-76
MSTMND.BAS 7 25-Feb-76 STRKJG.BAS 42 25-Feb-76
TREK .BAS 37 25-Feb-76 PACMAN.OBJ 30 16-Jun-77
CROCK .OBJ 4 16-Jun-77 SPCINV.OBJ 4 30-Aug-76
106 Files, 9947 Blocks
10435 Free blocks
.
Photo album generated by
album
from Dave's
MarginalHacks
on Sun Jul 20 19:06:13 2008