mirror of
https://github.com/PDP-10/stacken.git
synced 2026-01-11 23:43:11 +00:00
Extract files from tape images.
Some tapes could not be extracted.
This commit is contained in:
Lars Brinkhoff
parent
8a9b485136
commit
6e18f5ebef
1808
files/adventure_TOPS10/advent.dat
Normal file
1808
files/adventure_TOPS10/advent.dat
Normal file
File diff suppressed because it is too large
Load Diff
BIN
files/adventure_TOPS10/advent.exe
Normal file
BIN
files/adventure_TOPS10/advent.exe
Normal file
Binary file not shown.
2948
files/adventure_TOPS10/advent.for
Normal file
2948
files/adventure_TOPS10/advent.for
Normal file
File diff suppressed because it is too large
Load Diff
9
files/adventure_TOPS10/advent.mic
Normal file
9
files/adventure_TOPS10/advent.mic
Normal file
@ -0,0 +1,9 @@
|
||||
.pa 1:=dsk:
|
||||
R fortra
|
||||
*advent=advent
|
||||
.R link
|
||||
advent
|
||||
/go
|
||||
start
|
||||
x
|
||||
del advent.rel
|
||||
169
files/adventure_TOPS10/advent.txt
Normal file
169
files/adventure_TOPS10/advent.txt
Normal file
@ -0,0 +1,169 @@
|
||||
350-point Adventure Maps
|
||||
------------------------
|
||||
|
||||
Following is a set of 10 maps giving the rooms and their conections for
|
||||
the 350-point version of Adventure. I do not guarantee that these maps
|
||||
are complete and correct; if you find mistakes, please email me at
|
||||
wkt@csadfa.cs.adfa.oz.au.
|
||||
|
||||
Description of Maps
|
||||
-------------------
|
||||
|
||||
Each map has a set of rooms, and arrowed lines joining them. Each room has
|
||||
a short room description, the program's internal room number, and a set of
|
||||
arrows showing how to get to other rooms. Arrows either end pointing to
|
||||
another room (in a box), the name of another room (unboxed), or the room
|
||||
number.
|
||||
|
||||
The default arrow directions are n,s,e,w as shown below; arrows may have other
|
||||
direction labels which are defined below:
|
||||
|
||||
|
||||
N n up ( These are the words
|
||||
^ s down you can enter to move.)
|
||||
| e building
|
||||
W<-- -->E or w grate
|
||||
| nw xyzzy
|
||||
V ne plugh
|
||||
S sw canyon
|
||||
se
|
||||
|
||||
? means that there is a connection between these rooms, but I do not
|
||||
know what to type to pass through it.
|
||||
|
||||
Notes
|
||||
-----
|
||||
|
||||
Some rooms are initially unconnected; you must perform an action to connect
|
||||
them. The final connection is shown on the maps, with no indication as to
|
||||
what action to perform.
|
||||
|
||||
The connectivity between the `Maze of Twisty Little Passages, All Different'
|
||||
is given below as a table. I have not done a similar table for MOTLP,AA.
|
||||
|
||||
|
||||
Quick Room Reference
|
||||
--------------------
|
||||
|
||||
Here is a by-number description of the rooms in Adventure, with the objects
|
||||
therein. Some rooms not given form part of the MOTLP,AD & MOTLP,AA mazes,
|
||||
others hold descriptions like `you've broken you're neck', and are not
|
||||
true rooms.
|
||||
|
||||
|
||||
Room# Description Objects
|
||||
|
||||
1: Road end
|
||||
2: Hill
|
||||
3: Building Keys Lamp Bottle Food
|
||||
4: Valley
|
||||
5: Forest with valley on side
|
||||
6: Forest with valley & road
|
||||
7: Slit in streambed
|
||||
8: Outside grate
|
||||
9: Below grate
|
||||
10: Cobble crawl Cage
|
||||
11: Debris room Rod
|
||||
12: Sloping E/W canyon
|
||||
13: Bird chamber Bird
|
||||
14: Top of small pit
|
||||
15: Hall of mists
|
||||
17: Eastbank fissure
|
||||
18: Gold room Gold nugget
|
||||
19: Hall of Mt. King
|
||||
23: West 2pit room
|
||||
24: East pit
|
||||
25: West pit
|
||||
27: Westside fissure Diamonds
|
||||
28: Low N/S passage Silver bars
|
||||
29: Southside chamber Jewelry
|
||||
30: Westside chamber Coins
|
||||
33: Y2
|
||||
34: Rock jumble
|
||||
35: Window on pit
|
||||
36: Dirty broken passage
|
||||
37: Brink of clean pit
|
||||
38: Pit with stream
|
||||
39: Dusty rocks
|
||||
41: Westend hall of mists
|
||||
60: Eastend long hall
|
||||
61: Westend long hall
|
||||
62: High N/S passage
|
||||
63: Dead end
|
||||
64 Complex junction
|
||||
65: Bedquilt
|
||||
66: Swiss cheese
|
||||
67: East 2pit room
|
||||
68: Slab room
|
||||
69: N/S canyon above room
|
||||
70: N/S canyon above sizable passage
|
||||
71: Three canyons junction
|
||||
72: Low room
|
||||
73: Deadend crawl
|
||||
74: E/W canyon above tight canyon
|
||||
75: Wide place in tight canyon
|
||||
77: Tall E/W canyon with tight crawl
|
||||
78: Mass of boulders
|
||||
88: Narrow corridor
|
||||
91: Steep incline above large room
|
||||
92: Giant room Eggs
|
||||
94: Immense N/S passage
|
||||
95: Cavern with waterfall Trident
|
||||
96: Soft room Pillow
|
||||
97: Oriental room Vase
|
||||
98: Misty cavern
|
||||
99: Alcove
|
||||
100: Plover's room Emerald
|
||||
101: Dark room Tablet?
|
||||
102: Arched hall
|
||||
103: Clam room Clam/pearl
|
||||
104: Ragged corridor
|
||||
105: Cul de sac
|
||||
106: Anteroom Magazines
|
||||
108: Witt's end
|
||||
109: Mirror canyon
|
||||
110: West window on pit
|
||||
111: Top of stalactite
|
||||
113: Reservoir
|
||||
115: N/E end of repository
|
||||
116: S/W end of repository
|
||||
117: S/W of chasm
|
||||
118: Sloping corridor
|
||||
120: Dragon room Rug
|
||||
122: N/E of chasm
|
||||
123: Long E/W corridor
|
||||
124: Fork in path
|
||||
125: Warm walls junction
|
||||
126: Breath-taking view
|
||||
127: Chamber of boulders Spices
|
||||
128: Limestone passage
|
||||
129: Front of barren room
|
||||
130: Bear cave Chain
|
||||
|
||||
|
||||
Unlocated treasures: Axe, Carpet/moss, Treasure chest, Pyramid
|
||||
|
||||
(axe is dropped by dwarf, batteries in Vending machine in MOTLP,AD)
|
||||
|
||||
|
||||
The Maze of Twisty Little Passages, All Different
|
||||
-------------------------------------------------
|
||||
|
||||
|
||||
Room North South East West Up Down Description
|
||||
|
||||
107 - 139 131 137 138 135 West End Maze of Twisty Little Passages
|
||||
137 - 136 132 139 112 134 Little Twisty Maze of Passages
|
||||
139 - 134 138 132 133 137 Maze of Little Twisty Passages
|
||||
132 - 133 134 138 135 Little Maze of Twisty Passages
|
||||
138 - 135 136 131 134 133 107 Maze of Little Twisting Passages
|
||||
131 - 138 139 112 107 Maze of Twisting Little Passages
|
||||
112 - 132 Vend 133 137 139 138 Little Maze of Twisting Passages
|
||||
133 - 137 112 136 132 107 Twisting Maze of Little Passages
|
||||
135 - 107 133 134 136 112 Twisty Little Maze of Passages
|
||||
136 - 112 135 107 131 Twisty Maze of Little Passages
|
||||
134 - 131 137 135 139 138 Twisting Little Maze of Passages
|
||||
|
||||
* Vend is the vending machine, where you can get new batteries, if you
|
||||
have any coins.
|
||||
|
||||
BIN
files/chess2/chess2.exe
Normal file
BIN
files/chess2/chess2.exe
Normal file
Binary file not shown.
BIN
files/chess2/chess2.hlp
Normal file
BIN
files/chess2/chess2.hlp
Normal file
Binary file not shown.
BIN
files/games_interchange/1queen.bas
Normal file
BIN
files/games_interchange/1queen.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/3dplot.bas
Normal file
BIN
files/games_interchange/3dplot.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/747.bas
Normal file
BIN
files/games_interchange/747.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/abagel.bas
Normal file
BIN
files/games_interchange/abagel.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/advent.exe
Normal file
BIN
files/games_interchange/advent.exe
Normal file
Binary file not shown.
BIN
files/games_interchange/airwar.bas
Normal file
BIN
files/games_interchange/airwar.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/b.
Normal file
BIN
files/games_interchange/b.
Normal file
Binary file not shown.
7
files/games_interchange/bas.hlp
Normal file
7
files/games_interchange/bas.hlp
Normal file
@ -0,0 +1,7 @@
|
||||
|
||||
TO RUN THE GAME YOU MUST TYPE 'R BASIC' IF THE COMPUTER
|
||||
PRINTS A '.' WHEN YOU HIT RETURN. WHEN THE COMPUTER
|
||||
PRINTS 'READY, FOR HELP TYPE HELP' OR 'READY' TYPE IN
|
||||
'OLD D11:BLJACK'. THE COMPUTER WILL RESPOND WITH ANOTHER
|
||||
'READY'. TYPE 'RUN' OR 'RUNNH' AND THE COMPUTER WILL BEGIN
|
||||
EXECUTING THE GAME.
|
||||
BIN
files/games_interchange/basket.bas
Normal file
BIN
files/games_interchange/basket.bas
Normal file
Binary file not shown.
84
files/games_interchange/biggie.fil
Normal file
84
files/games_interchange/biggie.fil
Normal file
@ -0,0 +1,84 @@
|
||||
1 3 JULY
|
||||
1 1 4 ACCIDENT 100.00 205.00 -1
|
||||
YOU BACKED INTO THE DOOR OF YOUR GARAGE AND BROKE THE DOOR WHICH
|
||||
COST $85 TO REPAIR. YOU ALSO BENT THE FENDER ON YOUR CAR WHICH
|
||||
COST $120 TO REPAIR. YOUR BILL WILL BE BETWEEN $100 AND $205
|
||||
DEPENDING ON YOU INSURANCE COVERAGE.
|
||||
1 2 2 GAS & OIL 32.00 0.00 0.00
|
||||
YOU DECIDED TO TAKE A TRIP OVER THE 4TH OF JULY WEEKEND ON THE SPUR
|
||||
OF THE MOMENT. THE COST FOR GAS AND OIL IS $32.00.
|
||||
1 3 2 PLANE FARE92.00 0.00 0.00
|
||||
GRANDMOTHER GOT SUDDENLY ILL SO MOM HAD TO FLY OUT TO BE WITH HER FOR
|
||||
A COUPLE OF WEEKS. THE COST OF THE PALNE TICKET WAS $92.00.
|
||||
2 0 AUGUST
|
||||
3 3 SEPTEMBER
|
||||
3 1 2 SCHOOL EXP13.00 0.00 -1
|
||||
THE SON NEEDS $13 DOLLARS TO COVER THE COST OF WOODSHOP MATERIALS AND
|
||||
FOR THE DEPOSIT ON HIS GYM LOCKER.
|
||||
3 2 2 PTA DUES 10.00 0.00 -1
|
||||
YOU HAVE DECIDED TO JOIN THE PTA AT THE TWO SCHOOLS THAT YOU KIDS GO
|
||||
TO. THE COST FOR BOTH MEMBERSHIPS IS $10.00.
|
||||
3 3 3 PIANO LES 25.00 0.00 -1
|
||||
YOUR DAUGHTER HAS DECIDED SHE WOULD LIKE TO TRY TAKING PIANO LESSONS.
|
||||
THE PIANO TEACHER HAS DECIDED TO TAKE HER ON A TRIAL ONE MONTH
|
||||
BASIS FOR $25.
|
||||
|
||||
4 3 OCTOBER
|
||||
4 1 3 RECREATION28.00 0.00 -1
|
||||
YOU DECIDED IT WOULD BE FUN TO TAKE THE WHOLE FAMILY TO AN AIR FORCE
|
||||
FOOTBALL GAME. THE COST OF TICKETS,PARKING,AND JUNK FOOD
|
||||
CAME TO $28.00.
|
||||
4 2 4 CAMPING 32.00 0.00 -1
|
||||
YOUR SON HAS EARNED AND SAVED $15 FOR A SCOUT CAMPING TRIP. NOW HE
|
||||
FINDS OUT HE NEEDS A SLEEPING BAG, CANTEEN, AND BACK PACK. YOU DECIDE
|
||||
YOU WILL HELP HIM OUT BY GIVING HIM $32.00 SO HE CAN BUY THE EXTRA STUFF
|
||||
FROM A FRIEND.
|
||||
4 3 2 DECORATING37.00 0.00 0.00
|
||||
YOU PROMISED YOUR DAUGHTER THAT YOU WOULD SPRUCE UP HER ROOM. THE
|
||||
COST OF PAINT, AND WOOD FOR SHELVES IS $37.00.
|
||||
5 2 NOVEMBER
|
||||
5 1 2 GROCERIES 30.00 0.00 -1
|
||||
IT'S YOUR TURN TO HAVE ALL THE RELATIVES FOR THANKSGIVING DINNER. THE
|
||||
EXTRA FOOD YOU HAD TO BUY THIS MONTH WAS $30.00.
|
||||
5 2 3 RELATIVES 35.00 0.00 -1
|
||||
AUNT MILDRED, UNKLE HAROLD, AND THE KIDS CAME TO VISIT FOR
|
||||
A WEEK. THE COST OF GOING OUT TO DINNER WITH THEM ONE NIGHT AND THE
|
||||
EXTRA GROCERIES CAME TO $35.00.
|
||||
6 1 DECEMBER
|
||||
6 1 2 CHRISTMAS 75.00 25.00 0.00
|
||||
MERRY CHRISTMAS!!! EVERYONE HAD A GREAT TIME, AND EVERYONE ENJOYED THE
|
||||
PRESENTS THEY GOT.
|
||||
7 0 JANUARY
|
||||
8 2 FEBRUARY
|
||||
8 1 2 PARTY 17.00 0.00 -1
|
||||
YOUR SON DECIDED TO HAVE A BIRTHDAY PARTY FOR HIS FAVORITE FRIEND.
|
||||
THE COST OF THE PARTY SUPPLIES AND THE PRESENT WAS $17.00.
|
||||
8 2 2 WEDDING 15.00 0.00 -1
|
||||
YOUR COUSIN ANNY IS GETTING MARRIED THIS MONTH, AND YOU WERE ABLE TO
|
||||
FIND HER A VERY NICE SET OF TOWELS FOR $15.00.
|
||||
9 0 MARCH
|
||||
10 3 APRIL
|
||||
10 1 2 SUIT 85.00 0.00 0.00
|
||||
FATHER NEEDS A NEW SUIT. YOU WERE ABLE TO BUY A VERY NICE ONE
|
||||
AT A PRESEASON SALE FOR ONLY $85.00.
|
||||
10 2 2 CLOTHES 80.00 0.00 0.00
|
||||
BOTH KIDS NEED NEW SHOES, JACKETS, AND JEANS. YOU ARE SHOCKED AT HOW
|
||||
MUCH PRICES HAVE GONE UP,BUT YOU HAVE TO GET THEM ANYWAY. COST IS $80.
|
||||
10 3 2 COAT 83.00 0.00 0.00
|
||||
MOTHER'S OLD SPRING COAT HAS FINALLY SPRUNG. YOU DECIDE IT'S TIME TO GET
|
||||
HER A NEW ONE. IT COST $83.00, BUT IT SHOULD LAST A WHILE.
|
||||
11 3 MAY
|
||||
11 1 4 GLASS 26.00 0.00 0.00
|
||||
FATHER AND SON WERE PLAYING CATCH WHEN DAD DECIDED TO DEMONSTRATE HOW
|
||||
TO SCOOP UP A SLOW HOPPER AND SIDE ARM IT TO FIRST BASE. THE CONSE-
|
||||
QUENCE WAS A BROKEN FRONT WINDOW. FORTUNATELY DAD IS HANDY SO ALL HE
|
||||
HAD TO BUY WAS THE GLASS WHICH COST $26.00.
|
||||
11 2 1 SHEETS&TWL38.00 0.00 0.00
|
||||
YOU ARE RUNNING LOW ON SHEETS AND TOWELS. THE NEW ONES COST $38.
|
||||
11 3 2 TV REPAIR 56.00 0.00 -1
|
||||
YOUR OLD BLACK AND WHITE TV SET WENT ON THE BLINK. THE SEVICE CALL
|
||||
AND NEW PARTS CAME TO $56.00.
|
||||
12 1 JUNE
|
||||
12 1 2 TV REPAIR 132.00 0.00 0.00
|
||||
YOUR COLOR TV WENT ON THE BLINK. THE SEVICE MAN CAME OUT REPLACED
|
||||
SOME PARTS AND ADJUSTED IT FOR YOU. THE BILL WAS $132.00.
|
||||
BIN
files/games_interchange/bigpri.bas
Normal file
BIN
files/games_interchange/bigpri.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/biller.bas
Normal file
BIN
files/games_interchange/biller.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/binorm.bas
Normal file
BIN
files/games_interchange/binorm.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/bio.bas
Normal file
BIN
files/games_interchange/bio.bas
Normal file
Binary file not shown.
202
files/games_interchange/bio.for
Normal file
202
files/games_interchange/bio.for
Normal file
@ -0,0 +1,202 @@
|
||||
C ***BIORHYTHM CHARTING PROGRAM***
|
||||
C 8/2/74
|
||||
C B.J.
|
||||
C
|
||||
PARAMETER TWOPI = 6.2831853
|
||||
C
|
||||
C DEFINE A BLANK LINE
|
||||
C
|
||||
DIMENSION LINE(60)
|
||||
C
|
||||
C DEFINE ARRAYS FOR DEVICE AND VICTIM
|
||||
C
|
||||
INTEGER FILE,VICTIM(6)
|
||||
C
|
||||
C DEFINE DAYS PER MONTH ARRAY
|
||||
C
|
||||
COMMON IDPM(12)
|
||||
DATA IDPM/31,28,31,30,31,30,31,31,30,31,30,31/
|
||||
C
|
||||
C GET OUTPUT DEVICE AND OPEN IT
|
||||
C
|
||||
WRITE (5,52)
|
||||
52 FORMAT (' ENTER OUTPUT DEVICE:(TTY OR LPT) ',$)
|
||||
READ (5,53) FILE
|
||||
53 FORMAT (6A5)
|
||||
IF (FILE .EQ. '') FILE = 'TTY'
|
||||
OPEN (UNIT=1,DEVICE=FILE,ACCESS='SEQOUT',FILE='BIORHY.THM')
|
||||
C
|
||||
C FIND OUT THE GOODIES
|
||||
C
|
||||
WRITE (5,54)
|
||||
54 FORMAT (' WHAT IS YOUR NAME: ',$)
|
||||
READ (5,53) VICTIM
|
||||
1 WRITE (5,56)
|
||||
56 FORMAT (' ENTER YOUR BIRTH DATE (E.G. 5,27,1945): ',$)
|
||||
READ (5,*) IBM,IBD,IBY
|
||||
C
|
||||
C YEAR MAY ALSO BE GIVEN AS JUST THE LAST TWO DIGITS,
|
||||
C IN WHICH CASE 20TH CENTURY ASSUMED
|
||||
C
|
||||
IF (IBY .LT. 100) IBY = IBY + 1900
|
||||
WRITE (5,58)
|
||||
58 FORMAT (' ENTER START DATE (E.G. 11,1,1975): ',$)
|
||||
READ (5,*) ISM,ISD,ISY
|
||||
IF (ISY .LT. 100) ISY = ISY + 1900
|
||||
WRITE (5,60)
|
||||
60 FORMAT (' HOW MANY MONTHS WOULD YOU LIKE ? ',$)
|
||||
READ (5,*) NMONS
|
||||
C
|
||||
C MAKE THE TURKEY ISN'T
|
||||
C TRYING TO CHART HIS MOTHER'S
|
||||
C PREGNANCY OR WORSE...
|
||||
C
|
||||
IF (IBY - ISY) 4,2,1
|
||||
2 IF (IBM - ISM) 4,3,1
|
||||
3 IF (IBD - ISD) 4,4,1
|
||||
C
|
||||
C COMPUTE HOW MANY DAYS OLD AT START OF CHART
|
||||
C
|
||||
4 IDAGE = -1
|
||||
IF ((ISY - IBY) .GT. 89) GO TO 10
|
||||
IDAGE = IDAYS(ISD,ISM,ISY) - IDAYS(IBD,IBM,IBY) + 365*(ISY - IBY)
|
||||
IF (IBY .EQ. ISY) GO TO 6
|
||||
DO 5 I = IBY, ISY
|
||||
IF (MOD(I,4) .EQ. 0) IDAGE = IDAGE + 1
|
||||
IF (IDAGE .LT. 0) GO TO 10
|
||||
5 CONTINUE
|
||||
IF (MOD(ISY,4) .EQ. 0) IDAGE = IDAGE + 1
|
||||
6 CONTINUE
|
||||
C
|
||||
C PRINT BACKGROUND MATERIAL
|
||||
C IF REQUESTED
|
||||
C
|
||||
WRITE (5,62)
|
||||
62 FORMAT (' SHALL I PRINT THE BACKGROUND MATERIAL',
|
||||
1' (0=NO,1=YES) ? ',$)
|
||||
READ (5,*) I
|
||||
IF (I .NE. 1) GO TO 7
|
||||
WRITE (1,64)
|
||||
64 FORMAT (
|
||||
1' THE "B I O R H Y T H M" THEORY STATES THAT HUMAN LIVES MOVE'/
|
||||
2' IN PREDICTABLE UNDULATIONS INVOLVING THREE SEPARATE CYCLES:'/
|
||||
3' (A) PHYSICAL 23 DAYS'/
|
||||
4' (B) EMOTIONAL 28 DAYS'/
|
||||
5' (C) INTELLECTUAL 33 DAYS'//
|
||||
6' THERE ARE THREE MAJOR AREAS TO THIS CHART TO BE OBSERVED:'//
|
||||
7' MINUS - ZERO - PLUS'///
|
||||
8' ** ZERO **'//
|
||||
9' THE DAY THAT THE CYCLE SWITCHES FROM PLUS MINUS OR MINUS'/
|
||||
1' TO PLUS IS A CRITICAL DAY. IT IS DEFINED AS CRITICAL BE-')
|
||||
WRITE (1,66)
|
||||
66 FORMAT (
|
||||
1' CAUSE YOU ARE NEITHER UP NOR DOWN, BUT IN A STATE OF LIMBO.'//
|
||||
2' (A) IF PHYSICAL CYCLE THEN PEOPLE TEND TO BE ACCIDENT PRONE.'/
|
||||
3' (B) IF EMOTIONAL CYCLE THEN POSSIBLE EMOTINAL OUTBURSTS.'/
|
||||
4' (C) IF INTELLECTUAL CYCLE IT IS NOT AS IMPORTANT, BY ITSELF,'/
|
||||
5' AS THE OTHER TWO CYCLES. IF IT DOES COINCIDE WITH THE'/
|
||||
6' OTHER TWO, IT HAS A CONTRIBUTORY EFFECT.'///
|
||||
7' ** PLUS **'//
|
||||
8' (A) DURING THE 11 1/2 PLUS DAYS, IT IS A GOOD TIME FOR INTEN-'/
|
||||
9' SIVE TRAINING IN ATHLETICS OR FOR ANY ACTIVITY REQUIRING'/
|
||||
1' PHYSICAL STAMINA.')
|
||||
WRITE (1,68)
|
||||
68 FORMAT (
|
||||
1' (B) DURING THE 14 PLUS DAYS, BOTH MEN AND WOMEN ARE PRONE TO'/
|
||||
2' CHEERFULLNESS, COOPERATION AND A POSITIVE OUTLOOK ON LIFE.'/
|
||||
3' (C) DURING THE 16 1/2 PLUS DAYS OF THIS CYCLE, A PERSON FINDS'/
|
||||
4' IT EASIER TO STUDY, WRITE CREATIVELY, UNDERSTAND MATHE-'/
|
||||
5' MATICS OR PURSUE ANY INTELLECTUAL EFFORTS.'///
|
||||
6' ** MINUS **'//
|
||||
7' (A) DURING THE 11 1/2 MINUS DAYS, PERSONS ARE AWARE OF A'/
|
||||
8' REDUCED VITIALITY AND ENDURANCE. IN SHORT, YOU WILL'/
|
||||
8' TIRE EASILY ON THESE DAYS.'/
|
||||
9' (B) DURING THE 14 MINUS DAYS, PERSONS ARE CONVERSE TO THE'/
|
||||
1' PLUS DAYS. BOTH MEN AND WOMEN ARE CONDUCIVE TO MOOD-')
|
||||
WRITE (1,70)
|
||||
70 FORMAT (
|
||||
1' INESS AND NEGATIVISM.'/
|
||||
2' (C) DURING THE 16 1/2 MINUS DAYS, CAPACITIES ARE LESSENED.'/
|
||||
3' THESE ARE DAYS BETTER SPENT ON REVIEW AND PRACTICE.'/
|
||||
4'1N O T E :'/
|
||||
5' 1. IT TAKES 58+ YEARS TO CYCLE BACK TO YOUR BIRTH DATE.'//
|
||||
6' 2. TRUE TRIPLE CRITICAL POINTS OCCUR ONLY EVERY 29 YEARS.'/
|
||||
7' ALL TRUE AND NEAR TRIPLE POINTS WILL BE SHOWN BY "#".')
|
||||
7 WRITE (1,53)
|
||||
WRITE (1,53)
|
||||
WRITE (1,53)
|
||||
C
|
||||
C PRINT AGE IN DAYS AT START OF CHART
|
||||
C
|
||||
WRITE (1,200) IDAGE
|
||||
200 FORMAT (' AT THE START OF THIS CHART YOU WILL BE'I6' DAYS OLD.')
|
||||
WRITE (1,300) VICTIM
|
||||
300 FORMAT (///' THIS CHART PREPARED ESPECIALLY FOR '6A5///)
|
||||
C
|
||||
C PRINT THE CHART HEADER
|
||||
C AND INITIALIZE THEN LINE ARRAY
|
||||
C
|
||||
WRITE (1,400)
|
||||
400 FORMAT (T23'MINUS'T37'ZERO'T52'PLUS'/9X60('-'))
|
||||
DO 8 I = 1, 60
|
||||
8 LINE(I) = ' '
|
||||
C
|
||||
C IF THIS IS A LEAP YEAR THEN
|
||||
C ALTER THE DAYS PER MONTH
|
||||
C
|
||||
IF (MOD(ISY,4) .EQ. 0) IDPM(2) = 29
|
||||
LINE(30) = '*'
|
||||
C
|
||||
C START OF MAIN LOOP
|
||||
C
|
||||
C LOCATE THE CURVES
|
||||
C
|
||||
9 IP = SIN(MOD(IDAGE,23)/22.*TWOPI)*28 + 30.
|
||||
IE = SIN(MOD(IDAGE,28)/27.*TWOPI)*28 + 30.
|
||||
II = SIN(MOD(IDAGE,33)/32.*TWOPI)*28 + 30.
|
||||
C
|
||||
C PRINT A LINE OF THE CHART
|
||||
C
|
||||
LINE(IP) = 'P'
|
||||
LINE(IE) = 'E'
|
||||
LINE(II) = 'I'
|
||||
IF ((IP .EQ. IE) .AND. (IE .EQ. II)) LINE(IP) = '#'
|
||||
I = MOD(ISY,100)
|
||||
WRITE (1,500) ISM,ISD,I,LINE
|
||||
500 FORMAT(' 'I2'/'I2'/'I2,60A1)
|
||||
C
|
||||
C RESTORE LINE
|
||||
C
|
||||
LINE(IP) = ' '
|
||||
LINE(IE) = ' '
|
||||
LINE(II) = ' '
|
||||
LINE(30) = '*'
|
||||
C
|
||||
C UPDATE CALENDAR
|
||||
C
|
||||
IDAGE = IDAGE + 1
|
||||
ISD = ISD + 1
|
||||
IF (ISD .LE. IDPM(ISM)) GO TO 10
|
||||
ISD = 1
|
||||
ISM = ISM + 1
|
||||
NMONS = NMONS - 1
|
||||
IF (NMONS .EQ. 0) STOP 'HAVE A NICE DAY'
|
||||
IF (ISM .LE. 12) GO TO 10
|
||||
ISM = 1
|
||||
ISY = ISY + 1
|
||||
IDPM(2) = 28
|
||||
IF (MOD(ISY,4) .EQ. 0) IDPM(2) = 29
|
||||
10 IF (IDAGE .LT. 0) STOP 'CANT HAPPEN ON DEC'
|
||||
GO TO 9
|
||||
END
|
||||
FUNCTION IDAYS(ID,IM,IY)
|
||||
COMMON IDPM(12)
|
||||
IDAYS = 0
|
||||
IF (IM .EQ. 1) GO TO 1002
|
||||
J = IM - 1
|
||||
DO 1001 I = 1, J
|
||||
1001 IDAYS = IDAYS + IDPM(I)
|
||||
1002 IDAYS = IDAYS + ID
|
||||
IF ((MOD(IY,4) .EQ. 0) .AND. (IM .GT. 2)) IDAYS = IDAYS + 1
|
||||
RETURN
|
||||
END
|
||||
BIN
files/games_interchange/biorhy.sav
Normal file
BIN
files/games_interchange/biorhy.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/bljack.bas
Normal file
BIN
files/games_interchange/bljack.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/bljack.exe
Normal file
BIN
files/games_interchange/bljack.exe
Normal file
Binary file not shown.
25
files/games_interchange/bljack.hlp
Normal file
25
files/games_interchange/bljack.hlp
Normal file
@ -0,0 +1,25 @@
|
||||
BLJACK.HLP
|
||||
|
||||
|
||||
|
||||
BLJACK.BAS SIMULATES A GAME OF BLACK JACK. AS MANY AS 7 PLAYERS
|
||||
MAY PLAY THE GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE
|
||||
PLAYERS' BETS SHOULD BE TYPED IN. THE MAXIMUM AMOUNT
|
||||
MONEY THAT CAN BE BET IS $500. THE CARDS WILL THEN BE
|
||||
DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE FIRST
|
||||
RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE PLAYER
|
||||
IS DOUBLING DOWN, 'S', INDICATING THAT HE IS STANDING, 'H'
|
||||
INDICATING THAT HE WANTS ANOTHER CARD, OR '/', INCATING
|
||||
THAT HE WANTS TO SPLIT HIS CARDS. AFTER THE INITIAL RESPONSE
|
||||
ALL FURTHER RESPONSES SHOULD BE 'S'OR 'H', UNLESS THE CARDS
|
||||
WERE SPLIT, IN WHICH CASE, DOUBLING DOWN IS AGAIN PERMITTED.
|
||||
IN ORDER TO COLLECT FOR BLACKJACK, THE INITIAL RESPONSE
|
||||
SHOULD BE 'S'. INSURANCE BETS MAY BE UP TO HALF OF
|
||||
THE AMOUNT ORIGINALY BET.
|
||||
|
||||
TO RUN THE GAME YOU MUST TYPE 'R BASIC' IF THE COMPUTER
|
||||
PRINTS A '.' WHEN YOU HIT RETURN. WHEN THE COMPUTER
|
||||
PRINTS 'READY, FOR HELP TYPE HELP' OR 'READY' TYPE IN
|
||||
'OLD D11:BLJACK'. THE COMPUTER WILL RESPOND WITH ANOTHER
|
||||
'READY'. TYPE 'RUN' OR 'RUNNH' AND THE COMPUTER WILL BEGIN
|
||||
EXECUTING THE GAME.
|
||||
BIN
files/games_interchange/boat.bas
Normal file
BIN
files/games_interchange/boat.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/boeing.747
Normal file
BIN
files/games_interchange/boeing.747
Normal file
Binary file not shown.
BIN
files/games_interchange/bohr.sav
Normal file
BIN
files/games_interchange/bohr.sav
Normal file
Binary file not shown.
26
files/games_interchange/budget.bud
Normal file
26
files/games_interchange/budget.bud
Normal file
@ -0,0 +1,26 @@
|
||||
COMPUTER SERVICES - INSTRUCTIONAL BUDGET REQUEST (1978)
|
||||
|
||||
1) PURCHASED SERVICES 500
|
||||
|
||||
2) SOFTWARE (COMPUTER PROGRAMS) 500
|
||||
|
||||
3) CURRICULUM DEVELOPMENT
|
||||
TIME FOR TEACHERS 900
|
||||
|
||||
4)* RENOVATION, REPLACEMENT OR
|
||||
ADDITION OF 5 TELETYPES
|
||||
(3 YEAR PLAN) 10000
|
||||
|
||||
5)* MICROCOMPUTERS 16500
|
||||
|
||||
6)* WORK STUDY PROGRAM FOR
|
||||
HS STUDENTS 2520
|
||||
|
||||
|
||||
7)* COMPUTER MANAGED INSTRUCTION SUPPLIES
|
||||
ANSWER SHEETS, MAGNETIC TAPES
|
||||
AND PRINT SHOP COSTS 4400
|
||||
|
||||
|
||||
|
||||
* SEE ATTACHED DOCUMENTS.
|
||||
BIN
files/games_interchange/buflo.bas
Normal file
BIN
files/games_interchange/buflo.bas
Normal file
Binary file not shown.
0
files/games_interchange/buflo.err
Normal file
0
files/games_interchange/buflo.err
Normal file
13
files/games_interchange/cai.meo
Normal file
13
files/games_interchange/cai.meo
Normal file
@ -0,0 +1,13 @@
|
||||
NOVEMBER 23,1977
|
||||
INTERESTED ADMINSTRATIVE STAFF FROM: DAN MYERS
|
||||
COMPUTER SERVICES
|
||||
|
||||
SUBJECT: RESCHEDULE OF THE COMPUTER ASSISTED INSTRUCTION DEMONSTRATION
|
||||
|
||||
DUE TO CONFLICTS THE COMPUTER ASSISTED INSTRUCTION DEMONSTRATION
|
||||
IN READING AND MATH HAS BEEN RESCHEDULED FOR 10:00 ON WEDNESDAY
|
||||
DECEMBER 7 IN ROOM 210 OF NORTH JUNIOR HIGH SCHOOL. I HOPE THIS
|
||||
WILL MAKE IT POSSIBLE FOR YOU TO ATTEND.
|
||||
|
||||
|
||||
DAN MYERS
|
||||
41
files/games_interchange/calen.dat
Normal file
41
files/games_interchange/calen.dat
Normal file
@ -0,0 +1,41 @@
|
||||
111 999999 77777777 888888
|
||||
1111 99999999 77777777 88888888
|
||||
11111 99 999 777 88 888
|
||||
111 99 999 777 88 888
|
||||
111 99999999 777 88888888
|
||||
111 99999999 777 888888
|
||||
111 9999999 777 88888888
|
||||
111 999 777 88 888
|
||||
111 99 999 777 88 888
|
||||
111 9999999 777 88888888
|
||||
1111111 99999 7777 888888
|
||||
|
||||
|
||||
JANUARY FEBRUARY MARCH APRIL
|
||||
S M T W T F S S M T W T F S S M T W T F S S M T W T F S
|
||||
1 2 3 4 5 6 7 ** ** ** 1 2 3 4 ** ** ** 1 2 3 4 ** ** ** ** ** ** 1
|
||||
8 9 10 11 12 13 14 5 6 7 8 9 10 11 5 6 7 8 9 10 11 2 3 4 5 6 7 8
|
||||
15 16 17 18 19 20 21 12 13 14 15 16 17 18 12 13 14 15 16 17 18 9 10 11 12 13 14 15
|
||||
22 23 24 25 26 27 28 19 20 21 22 23 24 25 19 20 21 22 23 24 25 16 17 18 19 20 21 22
|
||||
29 30 31 ** ** ** ** 26 27 28 ** ** ** ** 26 27 28 29 30 31 ** 23 24 25 26 27 28 29
|
||||
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** 30 ** ** ** ** ** **
|
||||
|
||||
MAY JUNE JULY AUGUST
|
||||
S M T W T F S S M T W T F S S M T W T F S S M T W T F S
|
||||
** 1 2 3 4 5 6 ** ** ** ** 1 2 3 ** ** ** ** ** ** 1 ** ** 1 2 3 4 5
|
||||
7 8 9 10 11 12 13 4 5 6 7 8 9 10 2 3 4 5 6 7 8 6 7 8 9 10 11 12
|
||||
14 15 16 17 18 19 20 11 12 13 14 15 16 17 9 10 11 12 13 14 15 13 14 15 16 17 18 19
|
||||
21 22 23 24 25 26 27 18 19 20 21 22 23 24 16 17 18 19 20 21 22 20 21 22 23 24 25 26
|
||||
28 29 30 31 ** ** ** 25 26 27 28 29 30 ** 23 24 25 26 27 28 29 27 28 29 30 31 ** **
|
||||
** ** ** ** ** ** ** ** ** ** ** ** ** ** 30 31 ** ** ** ** ** ** ** ** ** ** ** **
|
||||
|
||||
SEPTEMBER OCTOBER NOVEMBER DECEMBER
|
||||
S M T W T F S S M T W T F S S M T W T F S S M T W T F S
|
||||
** ** ** ** ** 1 2 1 2 3 4 5 6 7 ** ** ** 1 2 3 4 ** ** ** ** ** 1 2
|
||||
3 4 5 6 7 8 9 8 9 10 11 12 13 14 5 6 7 8 9 10 11 3 4 5 6 7 8 9
|
||||
10 11 12 13 14 15 16 15 16 17 18 19 20 21 12 13 14 15 16 17 18 10 11 12 13 14 15 16
|
||||
17 18 19 20 21 22 23 22 23 24 25 26 27 28 19 20 21 22 23 24 25 17 18 19 20 21 22 23
|
||||
24 25 26 27 28 29 30 29 30 31 ** ** ** ** 26 27 28 29 30 ** ** 24 25 26 27 28 29 30
|
||||
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** 31 ** ** ** ** ** **
|
||||
|
||||
|
||||
BIN
files/games_interchange/calend.exe
Normal file
BIN
files/games_interchange/calend.exe
Normal file
Binary file not shown.
BIN
files/games_interchange/calndr.bas
Normal file
BIN
files/games_interchange/calndr.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/cannon.bas
Normal file
BIN
files/games_interchange/cannon.bas
Normal file
Binary file not shown.
18
files/games_interchange/cannon.hlp
Normal file
18
files/games_interchange/cannon.hlp
Normal file
@ -0,0 +1,18 @@
|
||||
CANNON.HLP
|
||||
|
||||
|
||||
|
||||
YOU ARE THE CANNONEER FOR THE LOWER SLOBLOVA ARMY. YOUR JOB IS TO
|
||||
DESTROY THE SINGLE POWER POLE OF THE COUNTRY NEXT DOOR. YOU CAN
|
||||
CONTROL THE MUZZEL VELOCITY AND THE ANGLE OF ELEVATION OF YOUR
|
||||
CANNON. IF YOU DESTROY THE POWER POLE YOU WILL BE GIVEN A NEW
|
||||
PROBLEM. YOU WILL HAVE TO DESTROY THEIR SPECIAL GENERATOR THAT
|
||||
MAY BE LOCATED ON TOP OF OR BEHIND A MOUNTAIN OR IN A VALLEY. THIS
|
||||
IS MORE DIFFICULT THAN JUST YOUR REGULAR FLAT SHOOTING.
|
||||
|
||||
TO RUN THE GAME YOU MUST TYPE 'R BASIC' IF THE COMPUTER
|
||||
PRINTS A '.' WHEN YOU HIT RETURN. WHEN THE COMPUTER
|
||||
PRINTS 'READY, FOR HELP TYPE HELP' OR 'READY' TYPE IN
|
||||
'OLD D11:CANNON'. THE COMPUTER WILL RESPOND WITH ANOTHER
|
||||
'READY'. TYPE 'RUN' OR 'RUNNH' AND THE COMPUTER WILL BEGIN
|
||||
EXECUTING THE GAME.
|
||||
31
files/games_interchange/car.fil
Normal file
31
files/games_interchange/car.fil
Normal file
@ -0,0 +1,31 @@
|
||||
1 1 JULY
|
||||
1 1 2 ANTIFREEZE 25.43 0.00 0.00
|
||||
YOUR CAR BOILED OVER IN THE HEAT SO YOU HAD TO GET THE RADIATOR
|
||||
BACKFLUSHED AND REFILLED WITH ANTIFREEZE. COST =$25.43
|
||||
2 0 AUGUST
|
||||
3 0 SEPTEMBER
|
||||
4 1 OCTOBER
|
||||
4 1 2 FAN BELT 5.70 0.00 0.00
|
||||
THE FAN BELT ON YOUR CAR IS FRAYED AND NEEDS TO BE REPLACED BEFORE
|
||||
IT BREAKS. THE COST IS $5.70.
|
||||
5 0 NOVEMBER
|
||||
6 1 DECEMBER
|
||||
6 1 2 HEADLIGHT 12.50 0.00 0.00
|
||||
THE LEFT FRONT HEADLIGHT ON YOU CAR WENT OUT AND NEEDS TO BE REPLACED.
|
||||
THE COST IS $12.50.
|
||||
7 1 JANUARY
|
||||
7 1 3 TOW TRUCK 20.00 80.00 0.00
|
||||
YOU GOT STUCK IN A SNOW DRIFT AND HAD TO HAVE A TOW TRUCK COME
|
||||
OUT AND PULL YOU OUT. THE COST OF THIS SERVICE IS BETWEEN $20
|
||||
AND $80 DEPENDING ON YOUR INSURANCE POLICY.
|
||||
8 1 FEBRUARY
|
||||
8 1 2 BATTERY 45.00 0.00 0.00
|
||||
THE BATTERY ON YOUR CAR JUST DIED. IT HAS TO BE REPLACED. IT WILL
|
||||
COST YOU $45.
|
||||
9 0 MARCH
|
||||
10 0 APRIL
|
||||
11 1 MAY
|
||||
11 1 2 CAR PAINT 5.40 0.00 -1
|
||||
YOU FELT IT WAS TIME TO TOUCH UP THE PAINT ON YOUR TRUSTY CAR.
|
||||
THE COST FOR THE PRIMER AND THE PAINT IS $5.40.
|
||||
12 0 JUNE
|
||||
BIN
files/games_interchange/card.iac
Normal file
BIN
files/games_interchange/card.iac
Normal file
Binary file not shown.
BIN
files/games_interchange/cardac.bas
Normal file
BIN
files/games_interchange/cardac.bas
Normal file
Binary file not shown.
72
files/games_interchange/cardac.hlp
Normal file
72
files/games_interchange/cardac.hlp
Normal file
@ -0,0 +1,72 @@
|
||||
CARDAC.HLP
|
||||
|
||||
|
||||
CARDAC.BAS SIMULATES THE ACTION OF A PRIMITIVE COMPUTER
|
||||
NAMED CARDIAC. YOUR PROGRAM SHOULD BE ENTERED AS DATA
|
||||
STARTING AT STATEMENT 10 AND ENDING BEFORE STATEMENT 50. ADDRESS
|
||||
AND INSTRUCTION INFORMATION MUST BE SEPARATED BY COMMAS. AS
|
||||
MANY PROGRAM ELEMENTS AS YOU WISH MAY BE ENTERED IN EACH
|
||||
DATA STATEMENT. FOR EXAMPLE, '10 DATA 20,006,21,106,ETC.'
|
||||
AFTER YOU HAVE COMPLETED ENTERING YOUR CARDIAC
|
||||
PROGRAM, CARDIAC DATA MAY BE ENTERED USING AN ENTRY OF
|
||||
'99,800' AS A SEPARATOR BETWEEN THE PROGRAM AND THE DATA.
|
||||
END YOUR CARDIAC 'DECK' WITH A '0'. C PROGRAM MAY BE BOOTSTRAPED BY
|
||||
ENTERING IT AS CARDIAC DATA FOLLOWING THE DATA SIGNAL '99,800'.
|
||||
|
||||
THESE ARE THE CARDIAC OP CODES:
|
||||
|
||||
0--READ
|
||||
1--CLEAR AND ADD
|
||||
2--ADD
|
||||
3--IF ACCUMULATOR NEGATIVE TRANSFER TO ADDRESS
|
||||
4--SHIFT
|
||||
5--PRINT
|
||||
6--STORE
|
||||
7--SUBTRACT
|
||||
8--TRANSFER CONTROL
|
||||
9--HALT
|
||||
|
||||
THE FOLLOWING IS A SAMPLE CARDIAC PROGRAM THAT DIVIDES ONE NUMBER
|
||||
INTO ANOTHER AND PRINTS THE QUOTIENT AND REMAINDER. THE COMMENTS
|
||||
ON THE RIGHT TELL WHAT EACH STEP IS DOING.
|
||||
|
||||
LOC INSTRUCTION COMMENT
|
||||
=== =========== ======
|
||||
01 090 READ THE FIRST NUMBER INTO LOCATION 90
|
||||
02 091 READ THE SECOND NUMBER INTO LOCATION 91
|
||||
03 590 PRINT THE FIRST NUMBER
|
||||
04 591 PRINT THE SECOND NUMBER
|
||||
05 190 CLEAR THE ACCUMULATOR AND MOVE THE NUMBER IN
|
||||
LOCATION 90 (THE FIRST NUMBER) INTO THE ACCUMULATOR
|
||||
06 791 SUBTRACT THE NUMBER IN LOCATION 91 (THE SECOND
|
||||
NUMBER) FROM THE NUMBER IN THE ACCUMULATOR LEAVING
|
||||
THE RESULTS IN THE ACCUMULATOR
|
||||
07 313 TEST THE ACCUMULATOR AND IF IT IS NEGATIVE JUMP TO
|
||||
LOCATION 13 AND CONTINUE EXECUTION FROM THERE
|
||||
08 690 STORE THE RESULTS OF THE SUBTRACTION BACK IN
|
||||
LOCATION 90
|
||||
09 192 CLEAR THE ACCUMULATOR AND MOVE THE SUBTRACTION
|
||||
COUNT STORED IN LOCATION 92 INTO THE ACCUMULATOR
|
||||
10 200 ADD THE CONTENTS OF LOCATION 00 (LOC 00 CON-
|
||||
TAINS A 1 ALL OF THE TIME) TO THE ACCUMULATOR
|
||||
11 692 STORE THE CONTENTS OF THE ACCUMULATOR BACK IN LOC 92
|
||||
12 805 JUMP BACK TO LOCATION 5
|
||||
13 592 PRINT THE QUOTIENT
|
||||
14 590 PRINT THE REMAINDER
|
||||
15 900 HALT THE EXECUTION OF THE PROGRAM
|
||||
|
||||
TO ENTER THIS PROGRAM INTO THE COMPUTER USING 14 AND 3 AS THE DIVIDEND
|
||||
AND DIVISOR THE FOLLOWING SEQENCE OF COMMANDS WOULD BE USED:
|
||||
10 DATA 01,090,02,091,03,590,04,591,05,190,06,791,07,312,08,690,09,192
|
||||
20 DATA 10,200,11,692,12,805,13,592,14,590,10,900
|
||||
30 DATA 99,800,14,3,0
|
||||
|
||||
TO RUN THE PROGRAM YOU MUST TYPE 'R BASIC' IF THE COMPUTER
|
||||
PRINTS A '.' WHEN YOU HIT RETURN. WHEN THE COMPUTER
|
||||
PRINTS 'READY, FOR HELP TYPE HELP' OR 'READY' TYPE IN
|
||||
'OLD D11:CARDAC'. THE COMPUTER WILL RESPOND WITH ANOTHER
|
||||
'READY'. TYPE IN YOUR DATA STATEMENTS (IE. PROGRAM AND
|
||||
DATA) AND THEN TYPE 'RUN 210' OR 'RUNNH 210' AND YOUR PROGRAM
|
||||
WILL BE EXECUTED. FIRST YOU WILL BE ASKED IF YOU WANT A 'DUMP'. A DUMP IS
|
||||
JUST A LISTING OF ALL 100 STORAGE LOCATIONS AND THEIR CONTENTS. NEXT,
|
||||
YOUR PROGRAM WILL BE LISTED AND RUN.
|
||||
BIN
files/games_interchange/caves1.bas
Normal file
BIN
files/games_interchange/caves1.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/caves2.bas
Normal file
BIN
files/games_interchange/caves2.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/cfor.bas
Normal file
BIN
files/games_interchange/cfor.bas
Normal file
Binary file not shown.
3
files/games_interchange/cfor.err
Normal file
3
files/games_interchange/cfor.err
Normal file
@ -0,0 +1,3 @@
|
||||
00020 PRINT "YOU ARE SEEKING TO FIND THE RELATION AMONG FORCE, RADIUS, VELOCITY AND"
|
||||
00060 PRINT "WHICH QUANTITY WILL BE YOUR DEPENDENT VARIABLE-F,R,M,OR V?"
|
||||
01040 PRINT "TRY MORE DATA OR SEE YOUR INSTRUCTOR. TYP 1 FOR MORE DATA."
|
||||
BIN
files/games_interchange/champ.bas
Normal file
BIN
files/games_interchange/champ.bas
Normal file
Binary file not shown.
7
files/games_interchange/champ.err
Normal file
7
files/games_interchange/champ.err
Normal file
@ -0,0 +1,7 @@
|
||||
00010 PRINT TAB(32)"CHAMP"
|
||||
00020 PRINT TAB(23)"WRITTEN BY DON HOLMGREN"
|
||||
00050 IF LEFT$(A$,1)="N" THEN 140
|
||||
00130 IF LEFT$(B$,1)="N" THEN 9999
|
||||
00200 ON X(Y), GO TO 250,270,290,310,330,350,370
|
||||
00420 PRINT"HOW MANY STARS WOULD YOU LIKE TO TAKE FROM ROW #"Y;
|
||||
01880 IF LEFT$(C$,1)="N" THEN 9999
|
||||
23
files/games_interchange/champ.hlp
Normal file
23
files/games_interchange/champ.hlp
Normal file
@ -0,0 +1,23 @@
|
||||
CHAMP.HLP
|
||||
|
||||
|
||||
CHAMP PROGRAMED BY DON HOLMGREN
|
||||
|
||||
|
||||
THERE ARE THREE ROWS OF STARS. THE FIRST ROW HAS 3
|
||||
STARS, THE SECOND 5 STARS, AND THE THIRD 7 STARS.
|
||||
YOU MAY TAKE FROM 1 TO ALL STARS IN ONE ROW IN ONE
|
||||
TURN. THE COMPUTER (CHAMP, OF COURSE) WILL THEN
|
||||
TAKE AWAY STARS ALSO. THE PLAYER WHO TAKES THE
|
||||
LAST STAR LOSES. YOU WILL BE ASKED WHICH ROW YOU WANT
|
||||
TO TAKE STARS FROM. REPLY WITH A NUMBER FROM 1 TO
|
||||
3, 1 REPRESENTING THE TOP ROW, 2 THE MIDDLE ROW, AND
|
||||
3 THE BOTTOM ROW.
|
||||
|
||||
|
||||
TO RUN THE GAME YOU MUST TYPE 'R BASIC' IF THE COMPUTER
|
||||
PRINTS A '.' WHEN YOU HIT RETURN. WHEN THE COMPUTER
|
||||
PRINTS 'READY, FOR HELP TYPE HELP' OR 'READY' TYPE IN
|
||||
'OLD D11:CHAMP'. THE COMPUTER WILL RESPOND WITH ANOTHER
|
||||
'READY'. TYPE 'RUN' OR 'RUNNH' AND THE COMPUTER WILL BEGIN
|
||||
EXECUTING THE GAME.
|
||||
99
files/games_interchange/charge.bas
Normal file
99
files/games_interchange/charge.bas
Normal file
@ -0,0 +1,99 @@
|
||||
|
||||
100 REM N(I)=NUMBER OF ELECTRONIC CHARGE UNITS FOR PARTICLE I
|
||||
105 REM COPYRIGHT 1971 - STATE UNIVERSITY OF NEW YORK
|
||||
115 REM (NORMALLY DISTRIBUTED WITH MEAN 3 AND DEVIATION 3)
|
||||
120 REM M(I)=MASS OF PARTICLE I, BASED ON R(I)
|
||||
125 REM R(I)=RADIUS OF PARTICLE I
|
||||
130 REM (AVERAGE RADIUS R, 1 PERCENT UNIFORMLY DISTRIBUTED ERROR)
|
||||
135 REM MODEL DEVELOPED BY A. CAGGIANO AND D. SCARL
|
||||
140 REM PROGRAMMED BY C. LOSIK, JULY 1971
|
||||
145 REM LATEST REVISION: 8-25-72
|
||||
150 REM Q=RND(-1)
|
||||
155 RANDOMIZE
|
||||
160 DIM N(4),M(4),R(4)
|
||||
165 PRINT " ","MILLIKAN OIL DROP EXPERIMENT"
|
||||
170 PRINT
|
||||
175 REM V:VOLTAGE, INITIALLY ZERO
|
||||
180 LET V=0
|
||||
185 REM H:VISCOSITY COEFFICIENT BETWEEN LATEX SPHERE AND AIR
|
||||
190 LET H=.000018
|
||||
195 REM G:ACCELERATION DUE TO GRAVITY
|
||||
200 LET G=9.8
|
||||
205 REM Q:COULOMBS PER ELECTRONIC CHARGE UNIT
|
||||
210 LET Q=1.6E-19
|
||||
215 REM D:DENSITY OF LATEX SPHERE
|
||||
220 LET D=1000
|
||||
225 REM R:AVERAGE RADIUS OF LATEX SPHERE
|
||||
230 LET R=5.E-07
|
||||
235 REM D9:PLATE SEPARATION
|
||||
240 LET D9=.02
|
||||
245 REM P1:VALUE OF 'PI'
|
||||
250 LET P1=3.14159
|
||||
255 REM M:AVERAGE MASS OF LATEX SPHERE
|
||||
260 LET M=4*P1*R*R*R*D/3
|
||||
265 REM K1,K2, AND K3 ARE USEFUL CONSTANTS
|
||||
270 LET K1=Q/D9
|
||||
275 LET K2=G*D9*M
|
||||
280 LET K3=6*P1*H
|
||||
285 LET N0=0
|
||||
290 PRINT "INSTRUCTIONS (1=YES, 0=NO)";
|
||||
295 INPUT I
|
||||
300 IF I=0 THEN 360
|
||||
305 IF I <> 1 THEN 290
|
||||
310 PRINT
|
||||
315 PRINT "INSTRUCTIONS -- AFTER EACH QUESTION MARK,";
|
||||
320 PRINT " (V= ?), YOU MAY:"
|
||||
325 PRINT
|
||||
330 PRINT "TYPE IN VOLTAGE BETWEEN -1000 AND 1000 (IN ORDER TO MAKE"
|
||||
335 PRINT "THE VELOCITY PRINTED OUT AS CLOSE TO ZERO AS POSSIBLE),"
|
||||
340 PRINT "REQUEST CALCULATION OF CHARGE FOR STOPPED DROP";
|
||||
345 PRINT " (TYPE IN 2000),";
|
||||
350 PRINT "REQUEST NEW BATCH OF DROPS (TYPE IN 3000),"
|
||||
355 PRINT "OR END THE PROGRAM (TYPE IN 4000)."
|
||||
360 PRINT
|
||||
365 PRINT
|
||||
370 PRINT " ","NO ELECTRIC FIELD"
|
||||
375 PRINT
|
||||
380 PRINT "DROP:",N0+1,N0+2,N0+3,N0+4
|
||||
385 PRINT " ","---","---","---","---"
|
||||
390 IF N0>0 THEN 415
|
||||
395 PRINT " VELOCITY"
|
||||
400 PRINT "(METERS/SEC)"
|
||||
405 PRINT "( X 10^-6 )"
|
||||
410 REM GENERATE RANDOM CHARGE, RADIUS, AND MASS
|
||||
415 FOR I=1 TO 4
|
||||
420 LET N(I)=INT(3+3*COS(6.283*RND(1))*SQR(-2*LOG(RND(1)))+.5)
|
||||
425 IF ABS(N(I)-4)>4 THEN 420
|
||||
430 LET R(I)=R*(.99+.02*RND(I))
|
||||
435 LET M(I)=4*P1*R(I)*R(I)*R(I)*D/3
|
||||
440 NEXT I
|
||||
445 PRINT " ",
|
||||
450 FOR I=1 TO 4
|
||||
455 PRINT .1*INT(1.E+07*(K1*V*N(I)-M(I)*G)/(K3*R(I))+.5),
|
||||
460 NEXT I
|
||||
465 PRINT " "
|
||||
470 PRINT "V=";V;" ";
|
||||
475 INPUT I
|
||||
480 IF ABS(I)>1000 THEN 495
|
||||
485 LET V=I
|
||||
490 GOTO 445
|
||||
495 PRINT
|
||||
500 IF I <> 2000 THEN 565
|
||||
505 PRINT
|
||||
510 PRINT "CALCULATION FOR WHICH DROP";
|
||||
515 INPUT I
|
||||
520 FOR J=1 TO 4
|
||||
525 IF N0+J-I=0 THEN 540
|
||||
530 NEXT J
|
||||
535 GOTO 505
|
||||
540 PRINT
|
||||
545 PRINT "CHARGE ON DROP";I;" IS";.01*INT(1.E+21*K2/V+.5);
|
||||
550 PRINT " X 10^-19 COULOMBS."
|
||||
555 PRINT
|
||||
560 GOTO 470
|
||||
565 IF I <> 3000 THEN 580
|
||||
570 LET N0=N0+4
|
||||
575 GOTO 375
|
||||
580 IF I <> 4000 THEN 470
|
||||
585 END
|
||||
*U*:7-,
|
||||
0
files/games_interchange/charge.err
Normal file
0
files/games_interchange/charge.err
Normal file
BIN
files/games_interchange/chaseo.
Normal file
BIN
files/games_interchange/chaseo.
Normal file
Binary file not shown.
BIN
files/games_interchange/ches.sav
Normal file
BIN
files/games_interchange/ches.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/ches1.sav
Normal file
BIN
files/games_interchange/ches1.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/chess.exe
Normal file
BIN
files/games_interchange/chess.exe
Normal file
Binary file not shown.
BIN
files/games_interchange/chess.how
Normal file
BIN
files/games_interchange/chess.how
Normal file
Binary file not shown.
BIN
files/games_interchange/chi.sav
Normal file
BIN
files/games_interchange/chi.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/chomp.bas
Normal file
BIN
files/games_interchange/chomp.bas
Normal file
Binary file not shown.
42
files/games_interchange/chomp.hlp
Normal file
42
files/games_interchange/chomp.hlp
Normal file
@ -0,0 +1,42 @@
|
||||
C H O M P Rules and Instructions
|
||||
|
||||
|
||||
Written by: Jeff Bunce Jan 1978
|
||||
|
||||
|
||||
This is the game of CHOMP. The object of CHOMP
|
||||
is not to bite down on the poison square located in
|
||||
the upper left hand corner.
|
||||
|
||||
To play, you will be asked:
|
||||
"HOW MANY PLAYERS"
|
||||
to which you reply how many you want
|
||||
(no limit).
|
||||
Next you will be asked:
|
||||
"HOW MANY ROWS"
|
||||
to which you reply how many rows
|
||||
(no negatives and it must be up to or in-
|
||||
cluding 9).
|
||||
Next you will be asked:
|
||||
"HOW MANY COLUMNS"
|
||||
you reply the same as "HOW MANY ROWS".
|
||||
|
||||
|
||||
The board is a big cookie -- R rows high, and
|
||||
C columns wide. In the upper left hand corner is
|
||||
the poison square. The one who chomps this square
|
||||
is the loser. To take a chomp, type the row and
|
||||
column of the square you want to chomp. All of the
|
||||
squares below and to the right of that square van-
|
||||
ish --- CHOMP!!!. Oh, one other thing, you can't
|
||||
chomp squares that have already been chomped and
|
||||
you can't chomp squares outside the dimensions of
|
||||
the cookie.
|
||||
|
||||
Have Fun!!
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
BIN
files/games_interchange/clocks.bas
Normal file
BIN
files/games_interchange/clocks.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/codem.exe
Normal file
BIN
files/games_interchange/codem.exe
Normal file
Binary file not shown.
BIN
files/games_interchange/colaw2.bas
Normal file
BIN
files/games_interchange/colaw2.bas
Normal file
Binary file not shown.
4
files/games_interchange/colaw2.err
Normal file
4
files/games_interchange/colaw2.err
Normal file
@ -0,0 +1,4 @@
|
||||
00110 PRINT "YOU MAY CHOOSE THE POSITION OF THE OTHER 2 BODIES IN A FIRST"
|
||||
00270 PRINT "THE COMPUTER WILL CALCULATE THE FORCE AND PRINT IT FOR YOU."
|
||||
00340 PRINT "ENTER THE POSITION OF THE 2 BODIES, AND THE NUMBER OF COULOMBS ON EACH"
|
||||
01120 PRINT "NOW THAT YOU KNOW (?) HOW ELECTRIC FORCES ADD, TRY THIS PROBLEM."
|
||||
BIN
files/games_interchange/combin.bas
Normal file
BIN
files/games_interchange/combin.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/convrt.sav
Normal file
BIN
files/games_interchange/convrt.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/correl.sav
Normal file
BIN
files/games_interchange/correl.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/coulaw.bas
Normal file
BIN
files/games_interchange/coulaw.bas
Normal file
Binary file not shown.
5
files/games_interchange/coulaw.err
Normal file
5
files/games_interchange/coulaw.err
Normal file
@ -0,0 +1,5 @@
|
||||
00030 PRINT "YOU SHOULD BE COMPLETELY FIMILAR WITH HPP-35 BEFORE RUNNING"
|
||||
00540 PRINT "HOW FAR WILL SPHERE Y BE FROM THE REST POSITION OF SPHERE X";
|
||||
00610 PRINT "THE BALANCE IS NOW TILTED, WHAT MASS WILL YOU HANG AT POINT A";
|
||||
00880 PRINT "YOUR SELECTION OF MASS BALANCES THE DEVICE TO WITHIN .5 CM."
|
||||
00920 PRINT "IF YOU USED YOUR TIME PROPERLY ,YOU NOW HAVE SUFFICIENT DATA."
|
||||
BIN
files/games_interchange/count.bas
Normal file
BIN
files/games_interchange/count.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/counte.bas
Normal file
BIN
files/games_interchange/counte.bas
Normal file
Binary file not shown.
50
files/games_interchange/cross.ref
Normal file
50
files/games_interchange/cross.ref
Normal file
@ -0,0 +1,50 @@
|
||||
BILL COMBS 1
|
||||
GREG HOOVER 2
|
||||
BOB MOORHOUSE 3
|
||||
STEVE RAMQUIST 4
|
||||
CRAIG SMITH 5
|
||||
KEN MILLSAP 6
|
||||
MONKEY WRENCH 7
|
||||
STEVE MARQUEZ 0
|
||||
SCOTT MOLDENHAUER 0
|
||||
PAUL MORSE 0
|
||||
KEN NILES 0
|
||||
JIM POYNOR 0
|
||||
SUZANNE MIDDLETON 0
|
||||
ROSS VOGT 0
|
||||
DOUG BOWERS 0
|
||||
DON MCNAMES 0
|
||||
STUART BOURASSA 0
|
||||
HARRY MOORE 0
|
||||
BRUCE LANGLOIS 0
|
||||
TERI PATERSON 0
|
||||
DALLAS HINDS 0
|
||||
JOE 0
|
||||
OUT 0
|
||||
TODD QUIER 0
|
||||
SAM STUDENT 0
|
||||
AL AUGUSTYN 26
|
||||
KEVIN BLAKE 27
|
||||
JEFF CROOK 28
|
||||
MATT GONZALES 29
|
||||
BOB HELMS 30
|
||||
BARI KARNIK 31
|
||||
DAVID KLIEWER 32
|
||||
DAVID LIEB 33
|
||||
CLAY POST 34
|
||||
KEN ROWLEY 35
|
||||
JOEL SIMCO 36
|
||||
JOE SMITH 37
|
||||
RUSS WOODWARD 38
|
||||
JEFF OVERMAN 39
|
||||
RICK WILLIAMS 40
|
||||
GARY COTTON 41
|
||||
FRANK 42
|
||||
AL 43
|
||||
HARRY 44
|
||||
ROD MAC 45
|
||||
TOM 46
|
||||
DON STEELE 47
|
||||
NANCY HAMPSON 48
|
||||
JEAN GILLETTE 49
|
||||
ARVIN LIESTER 50
|
||||
BIN
files/games_interchange/curfit.bas
Normal file
BIN
files/games_interchange/curfit.bas
Normal file
Binary file not shown.
0
files/games_interchange/curfit.err
Normal file
0
files/games_interchange/curfit.err
Normal file
36
files/games_interchange/curfit.hlp
Normal file
36
files/games_interchange/curfit.hlp
Normal file
@ -0,0 +1,36 @@
|
||||
TITLE CURFIT PERFORMS A LEAST-SQUARES FIT
|
||||
|
||||
DESCRIPTION THIS PROGRAM PERFORMS A LEAST-SQUARES FIT TO THE
|
||||
FOLLOWING FUNCTIONS:
|
||||
|
||||
1. Y = A + B(X)
|
||||
|
||||
2. Y = A EXP (B*X)
|
||||
|
||||
3. Y = A*(X^B)
|
||||
|
||||
4. Y = A + B/X
|
||||
|
||||
5. Y = 1/(A+B*X)
|
||||
|
||||
6. Y = X/(A+B*X)
|
||||
|
||||
|
||||
INSTRUCTIONS BEFORE RUNNING THE PROGRAM ENTER DATA BEGINNING IN LINE
|
||||
9900.
|
||||
|
||||
9900 DATA N (WHERE N=THE NUMBER OF ORDERED PAIRS.)
|
||||
|
||||
9901 DATA X1,Y1,X2,Y2,......
|
||||
--
|
||||
--
|
||||
--
|
||||
9998 DATA LAST X,LAST Y
|
||||
|
||||
X IS THE INDEPENDENT VARIABLE, Y IS THE DEPENDENT
|
||||
VARIABLE.
|
||||
|
||||
THE PROGRAM WILL PRINT THE SUMMARY DATA FOR THE
|
||||
VARIOUS EQUATIONS. THE USER CAN THEN REQUEST MORE
|
||||
INFORMATION ABOUT A PARTICULAR EQUATION OR QUIT
|
||||
(INPUT A 0).
|
||||
164
files/games_interchange/d11.dir
Normal file
164
files/games_interchange/d11.dir
Normal file
@ -0,0 +1,164 @@
|
||||
|
||||
3DPLOT BAS 1 <155> 8-Jul-77 DSKB: [1700,170700]
|
||||
747 BAS 14 <155> 27-Mar-78
|
||||
BILLER BAS 2 <155> 16-Jun-78
|
||||
BLJACK BAS 13 <155> 2-May-75
|
||||
BOAT BAS 8 <155> 10-Sep-77
|
||||
BUFLO BAS 11 <155> 18-Jan-75
|
||||
CANNON BAS 11 <155> 26-May-75
|
||||
CARDAC BAS 8 <155> 5-Sep-74
|
||||
CFOR BAS 6 <155> 30-Oct-75
|
||||
CHAMP BAS 8 <155> 25-Feb-75
|
||||
CHARGE BAS 5 <155> 17-Jun-74
|
||||
COLAW2 BAS 9 <155> 1-Mar-76
|
||||
COMBIN BAS 2 <155> 8-Jul-76
|
||||
COULAW BAS 7 <155> 1-Mar-76
|
||||
COUNT BAS 1 <155> 21-Jan-76
|
||||
COUNTE BAS 1 <155> 4-Jul-76
|
||||
CURFIT BAS 8 <155> 29-Sep-77
|
||||
DRAG BAS 7 <155> 31-Jan-75
|
||||
DRAGON BAS 1 <155> 23-Feb-76
|
||||
ELECT1 BAS 8 <155> 22-May-74
|
||||
ELECT2 BAS 7 <155> 22-May-74
|
||||
ELECT3 BAS 11 <155> 17-Jun-74
|
||||
ENZYME BAS 7 <155> 23-Feb-76
|
||||
ERRORS BAS 1 <155> 4-Jul-76
|
||||
FLESCH BAS 4 <155> 10-Nov-76
|
||||
FOOTBL BAS 24 <155> 21-Jun-77
|
||||
FORNXT BAS 1 <155> 2-Jul-76
|
||||
GENE BAS 7 <155> 30-Sep-74
|
||||
GOLF BAS 14 <155> 26-May-75
|
||||
GOTO BAS 1 <155> 1-Jul-76
|
||||
GRADE BAS 10 <155> 29-Oct-74
|
||||
GRADE2 BAS 11 <155> 4-Jun-75
|
||||
HARDY BAS 8 <155> 30-Sep-74
|
||||
HIP BAS 8 <155> 2-Sep-75
|
||||
HMRABI BAS 8 <155> 9-Jan-75
|
||||
HORSE BAS 10 <777> 19-Dec-74
|
||||
IF BAS 1 <155> 1-Jul-76
|
||||
INPUT BAS 1 <155> 1-Jul-76
|
||||
LET BAS 1 <155> 1-Jul-76
|
||||
LETTER BAS 4 <155> 18-Nov-77
|
||||
LIFE BAS 6 <155> 28-Aug-75
|
||||
LNT BAS 4 <157> 29-Sep-77
|
||||
LNTRND BAS 4 <155> 29-Sep-77
|
||||
LOCKEY BAS 9 <155> 30-Sep-74
|
||||
LUNAR BAS 6 <155> 2-Oct-74
|
||||
MALAR BAS 12 <155> 17-Jun-74
|
||||
MARKET BAS 12 <155> 22-May-74
|
||||
MARSS BAS 6 <155> 25-Sep-74
|
||||
MASPAR BAS 6 <155> 14-Jan-75
|
||||
MASTER BAS 8 <155> 18-Jan-77
|
||||
MAZE BAS 8 <155> 18-Nov-77
|
||||
ME BAS 3 <157> 21-Mar-78
|
||||
MORSE BAS 4 <155> 25-Feb-76
|
||||
NEWTN2 BAS 6 <155> 14-Nov-74
|
||||
NTEST1 BAS 2 <155> 21-Jul-76
|
||||
NTEST2 BAS 2 <155> 21-Jul-76
|
||||
NUMBER BAS 2 <155> 9-Aug-77
|
||||
OPERA BAS 1 <155> 8-Jul-76
|
||||
PH BAS 6 <155> 30-Sep-74
|
||||
PLOT BAS 6 <155> 18-Feb-77
|
||||
PLOTWD BAS 4 <155> 23-Apr-75
|
||||
POLICY BAS 8 <155> 17-Jun-74
|
||||
POLSYS BAS 7 <155> 17-Jun-74
|
||||
POLUT BAS 10 <155> 22-May-74
|
||||
PRD1CF BAS 10 <157> 29-Sep-77
|
||||
PRDCRF BAS 9 <157> 29-Sep-77
|
||||
PROGRS BAS 2 <155> 14-Apr-75
|
||||
PROGRY BAS 3 <155> 14-Apr-75
|
||||
PUSCAR BAS 3 <155> 14-Nov-74
|
||||
RATS BAS 13 <155> 18-Jan-75
|
||||
READDA BAS 1 <155> 2-Jul-76
|
||||
RUNWAY BAS 6 <155> 16-Jul-77
|
||||
SAP BAS 10 <155> 30-Sep-74
|
||||
SCATR1 BAS 5 <155> 30-Sep-74
|
||||
SCATR2 BAS 5 <155> 23-May-75
|
||||
SCATR3 BAS 8 <155> 30-Sep-74
|
||||
SEQ BAS 1 <155> 21-Jan-76
|
||||
SLITS BAS 10 <155> 30-Sep-74
|
||||
SOLEQ3 BAS 9 <155> 26-May-75
|
||||
SPLAT BAS 9 <155> 26-May-75
|
||||
SQCUBE BAS 1 <155> 2-Jul-76
|
||||
STAR BAS 33 <177> 23-Apr-75
|
||||
STERL BAS 11 <155> 30-Sep-74
|
||||
STRING BAS 1 <155> 8-Jul-76
|
||||
SUM1 BAS 1 <155> 21-Jan-76
|
||||
SUM2 BAS 1 <155> 4-Jul-76
|
||||
SUM3 BAS 1 <155> 4-Jul-76
|
||||
SUM4 BAS 1 <155> 4-Jul-76
|
||||
SUM5 BAS 1 <155> 4-Jul-76
|
||||
TABLE BAS 1 <155> 5-Jul-76
|
||||
TAG BAS 8 <155> 30-Sep-74
|
||||
TAXMAN BAS 8 <155> 30-Oct-75
|
||||
TENTHS BAS 1 <155> 21-Jan-76
|
||||
TEST2 BAS 2 <155> 24-Sep-75
|
||||
TRADER BAS 40 <257> 30-Mar-78
|
||||
TRAP BAS 3 <155> 30-Aug-77
|
||||
UFO BAS 18 <155> 27-Mar-78
|
||||
UPDATE BAS 1 <155> 21-Jan-76
|
||||
USPOP BAS 11 <155> 30-Sep-74
|
||||
VARABL BAS 1 <155> 8-Jul-76
|
||||
WHATIS BAS 1 <155> 4-Jul-76
|
||||
WORD BAS 4 <155> 18-Nov-77
|
||||
YES BAS 1 <155> 4-Jul-76
|
||||
YESNO BAS 1 <155> 4-Jul-76
|
||||
CHOMP BAS 5 <155> 30-Aug-77
|
||||
CLOCKS BAS 7 <155> 16-Jan-78
|
||||
GOMOKU BAS 8 <155> 21-Oct-77
|
||||
HURKLE BAS 5 <155> 23-Aug-77
|
||||
MANDLA BAS 4 <155> 14-Oct-77
|
||||
QUBIC BAS 15 <155> 30-Jan-78
|
||||
SNARK BAS 5 <155> 24-Aug-77
|
||||
ZOT BAS 2 <155> 7-Sep-77
|
||||
KING BAS 13 <155> 14-Apr-78
|
||||
CAVES2 BAS 14 <155> 21-Apr-78
|
||||
REVERS BAS 4 <155> 26-Apr-78
|
||||
ROVER BAS 13 <155> 28-Apr-78
|
||||
DANGLE BAS 3 <155> 2-May-78
|
||||
CAVES1 BAS 15 <155> 2-May-78
|
||||
WUMPUS BAS 8 <155> 26-Apr-78
|
||||
JUNK BAS 2 <157> 16-Jun-78
|
||||
Total of 791 blocks in 120 files on DSKB: [1700,170700]
|
||||
|
||||
BAS HLP 1 <155> 27-Jun-77
|
||||
BLJACK HLP 2 <155> 27-Jun-77
|
||||
CANNON HLP 2 <155> 28-Jun-77
|
||||
CARDAC HLP 5 <155> 28-Jun-77
|
||||
CHAMP HLP 2 <155> 28-Jun-77
|
||||
CURFIT HLP 2 <155> 25-Feb-77
|
||||
DRAG HLP 1 <155> 28-Jun-77
|
||||
DRAGON HLP 1 <155> 28-Jun-77
|
||||
FLESCH HLP 3 <155> 5-Oct-76
|
||||
FOOTBL HLP 2 <155> 28-Jun-77
|
||||
GOLF HLP 3 <155> 28-Jun-77
|
||||
HMRABI HLP 2 <155> 28-Jun-77
|
||||
HORSE HLP 2 <155> 28-Jun-77
|
||||
LETTER HLP 1 <155> 7-Nov-77
|
||||
LIFE HLP 4 <155> 28-Jun-77
|
||||
LUNAR HLP 2 <155> 29-Jun-77
|
||||
MACHAK HLP 5 <155> 12-Aug-77
|
||||
MARSS HLP 2 <155> 29-Jun-77
|
||||
MAZE HLP 1 <155> 9-Nov-77
|
||||
NUMBER HLP 1 <155> 2-Sep-77
|
||||
PLOT HLP 2 <155> 18-Feb-77
|
||||
PLOTT HLP 3 <155> 8-Feb-77
|
||||
PLOTWD HLP 1 <155> 8-Jul-77
|
||||
SPLAT HLP 1 <155> 8-Jul-77
|
||||
STARS HLP 1 <155> 26-Oct-77
|
||||
STREK HLP 6 <155> 11-Nov-75
|
||||
TANK HLP 6 <155> 14-Mar-77
|
||||
TRAP HLP 2 <155> 26-Oct-77
|
||||
TTYSCH HLP 1 <155> 5-Oct-77
|
||||
UFO HLP 7 <155> 27-Mar-78
|
||||
WORD HLP 1 <155> 9-Nov-77
|
||||
CHOMP HLP 2 <155> 4-Jan-78
|
||||
HURKLE HLP 2 <155> 4-Jan-78
|
||||
MUGWMP HLP 2 <155> 4-Jan-78
|
||||
SNARK HLP 2 <155> 16-Jan-78
|
||||
KING HLP 3 <155> 26-Apr-78
|
||||
WUMPUS HLP 3 <155> 26-Apr-78
|
||||
Total of 89 blocks in 37 files on DSKB: [1700,170700]
|
||||
|
||||
Grand total of 880 blocks in 157 files
|
||||
|
||||
BIN
files/games_interchange/dangle.bas
Normal file
BIN
files/games_interchange/dangle.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/death.exe
Normal file
BIN
files/games_interchange/death.exe
Normal file
Binary file not shown.
BIN
files/games_interchange/decdoc.sav
Normal file
BIN
files/games_interchange/decdoc.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/decflo.sav
Normal file
BIN
files/games_interchange/decflo.sav
Normal file
Binary file not shown.
42
files/games_interchange/doctor.fil
Normal file
42
files/games_interchange/doctor.fil
Normal file
@ -0,0 +1,42 @@
|
||||
1 2 JULY
|
||||
1 1 2 DR. BILL 15.00 0.00 -1
|
||||
YOUR TWELVE YEAR OLD SON IS GETTING READY TO GO TO CAMP, BUT HE
|
||||
NEEDS A PHYSICAL. COST=$15.00
|
||||
1 2 3 DR. BILL 5.00 100.00 -1
|
||||
YOUR EIGHT YEAR OLD DAUGHTER JUST FELL OUT OF A TREE AND BROKE HER
|
||||
ARM. YOUR COST WILL BE BETWEEN $5.00 AND $100.00 DEPENDING ON YOUR
|
||||
INSURANCE COVERAGE.
|
||||
2 0 AUGUST
|
||||
3 1 SEPTEMBER
|
||||
3 1 1 DENTIST 60.00 0.00 -1
|
||||
THE WIFE NEEDS TO HAVE 3 CAVITIES FILLED AT A COST OF $60.
|
||||
4 1 OCTOBER
|
||||
4 1 2 DENTIST 35.00 0.00 -1
|
||||
THE SON CAME HOME WITH A BAD DENTAL CHECK UP. HE NEEDS TO HAVE
|
||||
TWO CAVITIES FILLED. COST IS $35.
|
||||
5 1 NOVEMBER
|
||||
5 1 2 DR. BILL 26.00 0.00 -1
|
||||
YOUR DAUGHTER HAD THE MUMPS AND NEEDED TO VISIT THE DOCTOR TWICE
|
||||
AND HAD TO HAVE A PENICILLIN SHOT. THE TOTAL COST IS #26.
|
||||
6 1 DECEMBER
|
||||
6 1 3 DR. BILL 0.00 50.00 -1
|
||||
THE HUSBAND SLIPPED ON THE ICE AT WORK AND NEEDED TO HAVE AN X-RAY TO
|
||||
CHECK FOR A BROKEN TAIL BONE. THE COST IS BETWEEN $0.00 AND
|
||||
$50.00 DEPENDING ON INSURANCE.
|
||||
7 1 JANUARY
|
||||
7 1 2 DENTIST 35.00 0.00 -1
|
||||
TIME FOR MOTHER'S DENTAL CHECK UP. SHE ONLY HAD TO HAVE HER TEETH
|
||||
CLEANED AND X-RAYED. COST IS $35.00.
|
||||
8 0 FEBRUARY
|
||||
9 1 MARCH
|
||||
9 1 2 EYE DR. 30.00 0.00 -1
|
||||
YOUR DAUGHTER FELL AND BROKE HER GLASSES. YOU NEED TO BUY HER
|
||||
SOME NEW FRAMES WHICH COST $30.00
|
||||
10 1 APRIL
|
||||
10 1 2 DR. BILL 25.00 0.00 -1
|
||||
YOUR BOY GASHED HIS KNEE WHILE PLAYING WITH SOME FRIENDS. THE
|
||||
KNEE REQUIRED 6 STICHES. COST IS $25.00
|
||||
11 1 MAY
|
||||
11 1 1 DR. BILL 40.00 0.00 -1
|
||||
THE WIFE WENT FOR HER ANNUAL CHECKUP. COST IS $40.00.
|
||||
12 0 JUNE
|
||||
BIN
files/games_interchange/drag.bas
Normal file
BIN
files/games_interchange/drag.bas
Normal file
Binary file not shown.
17
files/games_interchange/drag.hlp
Normal file
17
files/games_interchange/drag.hlp
Normal file
@ -0,0 +1,17 @@
|
||||
DRAG.HLP
|
||||
|
||||
|
||||
|
||||
|
||||
THIS PROGRAM SIMULATES A DRAG RACE. YOU MAY RACE
|
||||
AGAINST ONE OF YOUR FRIENDS OR YOU MAY RACE AGAINST
|
||||
THE COMPUTER'S DRAGSTER. YOU WILL BE ASKED TO DESIGN YOUR
|
||||
OWN MACHINE, SPECIFYING HORSEPOWER, REAR END RATIO (X:1),
|
||||
TIRE WIDTH IN INCHES AND TIRE DIAMETER IN FEET.
|
||||
|
||||
TO RUN THE GAME YOU MUST TYPE 'R BASIC' IF THE COMPUTER
|
||||
PRINTS A '.' WHEN YOU HIT RETURN. WHEN THE COMPUTER
|
||||
PRINTS 'READY, FOR HELP TYPE HELP' OR 'READY' TYPE IN
|
||||
'OLD D11:DRAG'. THE COMPUTER WILL RESPOND WITH ANOTHER
|
||||
'READY'. TYPE 'RUN' OR 'RUNNH' AND THE COMPUTER WILL BEGIN
|
||||
EXECUTING THE GAME.
|
||||
163
files/games_interchange/elect1.bas
Normal file
163
files/games_interchange/elect1.bas
Normal file
@ -0,0 +1,163 @@
|
||||
|
||||
10 REM ELECT1 - HISTORICAL ELECTIONS: 19TH CENTURY
|
||||
20 REM COPYRIGHT 1972 -STATE UNIVERSITY OF NEW YORK
|
||||
30 REM DEVELOPED BY D. KLASSEN & J. MCGRATH, JUNE 1972
|
||||
40 REM PROGRAMMED BY L. KAUFMAN, JUNE 1972
|
||||
50 REM LATEST REVISION 8-29-72
|
||||
60 DIM Y(8),W(9),M(72),I(3),S(3),P(16)
|
||||
70 FOR I=1TO7
|
||||
80 READ Y(I)
|
||||
90 NEXT I
|
||||
100 FOR I=1TO63
|
||||
110 READ M(I)
|
||||
120 NEXT I
|
||||
130 FOR I=1TO14
|
||||
140 READ P(I)
|
||||
150 NEXT I
|
||||
160 PRINTTAB(30);"ELECT1"
|
||||
170 PRINT
|
||||
180 PRINTTAB(16);"HISTORICAL ELECTIONS - 19TH CENTURY"
|
||||
190 PRINT
|
||||
200 LET F=0
|
||||
210 PRINT"DO YOU WANT INSTRUCTIONS (1=YES, 0=NO)";
|
||||
220 INPUT I
|
||||
230 IF I=0THEN480
|
||||
240 IF I<>1THEN210
|
||||
250 PRINT
|
||||
260 PRINT" YOUR GOAL WILL BE TO CHOOSE THE OPTIMUM STRATEGY"
|
||||
270 PRINT"FOR CANDIDATES IN AN HISTORICAL ELECTION."
|
||||
280 PRINT
|
||||
290 PRINT" EACH CANDIDATE'S STRATEGY CONSISTS OF 3 NUMBERS."
|
||||
300 PRINT
|
||||
310 PRINT" THE FIRST REPRESENTS THE AMOUNT OF EMPHASIS TO BE"
|
||||
320 PRINT"PLACED ON THE CANDIDATES IMAGE."
|
||||
330 PRINT
|
||||
340 PRINT" THE SECOND REPRESENTS THE AMOUNT OF EMPHASIS TO BE"
|
||||
350 PRINT"PLACED ON PARTY AFFILIATION."
|
||||
360 PRINT
|
||||
370 PRINT" THE THIRD REPRESENTS THE AMOUNT OF EMPHASIS TO BE"
|
||||
380 PRINT"PLACED ON THE CAMPAIGN ISSUES."
|
||||
390 PRINT
|
||||
400 PRINT" EACH OF THESE NUMBERS IS BETWEEN 10 AND 80, WITH"
|
||||
410 PRINT"A HIGHER NUMBER REPRESENTING MORE EMPHASIS"
|
||||
420 PRINT
|
||||
430 PRINT" THE TOTAL OF EACH STRATEGY MUST EQUAL 100!"
|
||||
440 PRINT
|
||||
450 PRINT" THE COMPUTER WILL FIRST ASK - 'ELECTION CODE NO.?'"
|
||||
460 PRINT"CHOOSE THE CODE NO. FROM THE FOLLOWING LIST:"
|
||||
470 GOTO520
|
||||
480 PRINT"DO YOU WANT CODE LIST (1=YES,0=NO)";
|
||||
490 INPUT I
|
||||
500 IF I=0THEN570
|
||||
510 IF I<>1THEN480
|
||||
520 PRINT
|
||||
530 PRINT" ELECTION";TAB(20);"CODE NO. "
|
||||
540 FOR I=1TO7
|
||||
550 PRINT" ";Y(I);TAB(20);I
|
||||
560 NEXT I
|
||||
570 PRINT
|
||||
580 PRINT"ELECTION CODE NO.";
|
||||
590 INPUT E
|
||||
600 FOR I=1TO7
|
||||
610 IF I=ETHEN640
|
||||
620 NEXTI
|
||||
630 GOTO460
|
||||
640 LET X=(E*9)-8
|
||||
650 PRINT
|
||||
660 PRINTTAB(14);"ELECTION OF";Y(E)
|
||||
670 PRINT
|
||||
680 PRINT" CANDIDATE A";TAB(28);"CANDIDATE B"
|
||||
690 IF E>1THEN720
|
||||
700 PRINT" JACKSON";TAB(28);"ADAMS"
|
||||
710 GOTO910
|
||||
720 IF E>2THEN750
|
||||
730 PRINT" VAN BUREN";TAB(28);"HARRISON"
|
||||
740 GOTO910
|
||||
750 IF E>3THEN780
|
||||
760 PRINT" POLK";TAB(28);"CLAY"
|
||||
770 GOTO910
|
||||
780 IF E>4THEN810
|
||||
790 PRINT" SEYMOUR";TAB(28);"GRANT"
|
||||
800 GOTO910
|
||||
810 IF E>5THEN840
|
||||
820 PRINT" TILDEN";TAB(28);"HAYES"
|
||||
830 GOTO910
|
||||
840 IF E>6THEN870
|
||||
850 PRINT" CLEVELAND";TAB(28);"BLAINE"
|
||||
860 GOTO910
|
||||
870 PRINT" MC KINLEY";TAB(28);"BRYAN"
|
||||
880 IF F<>0 THEN1230
|
||||
890 PRINT" REPUBICAN";TAB(28);"DEMOCRAT"
|
||||
900 GOTO1000
|
||||
910 IF F<>0THEN1230
|
||||
920 PRINT" DEMOCRAT";
|
||||
930 IF E>1THEN960
|
||||
940 PRINT TAB(28);"NATIONAL REPUBLICAN"
|
||||
950 GOTO1000
|
||||
960 IF (E-2)*(E-3)=0THEN990
|
||||
970 PRINTTAB(28);"REPUBLICAN"
|
||||
980 GOTO1000
|
||||
990 PRINTTAB(28);"WHIG"
|
||||
1000 PRINT
|
||||
1010 PRINT"CANDIDATE A - ";
|
||||
1020 GOSUB 1490
|
||||
1030 LET S(1)=I(1)/100
|
||||
1040 LET S(2)=I(2)/100
|
||||
1050 LET S(3)=I(3)/100
|
||||
1060 PRINT"CANDIDATE B - ";
|
||||
1070 GOSUB1490
|
||||
1080 PRINT
|
||||
1090 FOR J=1TO3
|
||||
1100 LET W(J)=S(1)*M(X+J-1)
|
||||
1110 NEXT J
|
||||
1120 FOR J=4TO6
|
||||
1130 LET W(J)=S(2)*M(X+J-1)
|
||||
1140 NEXT J
|
||||
1150 FOR J=7TO9
|
||||
1160 LET W(J)=S(3)*M(X+J-1)
|
||||
1170 NEXT J
|
||||
1180 LET W(1)=W(1)+W(4)+W(7)
|
||||
1190 LET W(2)=W(2)+W(5)+W(8)
|
||||
1200 LET W(3)=W(3)+W(6)+W(9)
|
||||
1210 LET A=W(1)*(I(1)/100)+W(2)*(I(2)/100)+W(3)*(I(3)/100)
|
||||
1220 LET A1=((A-1)/4)*100
|
||||
1230 IF F>0THEN1280
|
||||
1240 PRINT"THE RESULT OF YOUR STRATEGY IS:"
|
||||
1250 LET F=1
|
||||
1260 PRINT
|
||||
1270 GOTO690
|
||||
1280 IF F=2THEN1360
|
||||
1290 PRINT" ";A1;" PERCENT";TAB(25);100-A1;" PERCENT"
|
||||
1300 PRINT
|
||||
1310 PRINT"THE VOTE FOR THE TWO MAJOR CANDIDATES"
|
||||
1320 PRINT"IN THE ACTUAL ELECTION:"
|
||||
1330 LET F=2
|
||||
1340 PRINT
|
||||
1350 GOTO690
|
||||
1360 PRINT" ";P(2*E-1);" PERCENT";TAB(25);P(2*E);" PERCENT"
|
||||
1370 PRINT
|
||||
1380 PRINT"ANOTHER RUN (1=YES, 0=NO)";
|
||||
1390 INPUT I
|
||||
1400 IF I=1THEN190
|
||||
1410 IF I<>0THEN1380
|
||||
1420 GOTO1600
|
||||
1430 DATA 1828,1840,1844,1868,1876,1884,1896
|
||||
1440 DATA 4,3,3,3,2,2,3,3,3,2,3,3,3,4,3,3,3,3,1,2,3,2,4,4,3,4,5
|
||||
1450 DATA 1,3,3,3,4,3,3,3,3,2,2,3,2,3,3,3,3,4,4,3,3,3,2,2,3,2,3
|
||||
1460 DATA 2,3,3,3,4,4,3,4,3
|
||||
1470 DATA 56,44,47,53,50.7,49.3,47.3,52.7,51.5,48.5
|
||||
1480 DATA 50.1,49.9,52.2,47.8
|
||||
1490 PRINT"STRATEGY (3 NUMBERS, 10 <= I <= 80, TOTAL=100)";
|
||||
1500 INPUT I(1),I(2),I(3)
|
||||
1510 FOR I=1TO3
|
||||
1520 IF I(I)<10THEN1560
|
||||
1530 NEXTI
|
||||
1540 IF ABS(I(1)+I(2)+I(3)-100)>.01THEN1580
|
||||
1550 RETURN
|
||||
1560 PRINT"EACH COMPONENT OF THE STRATEGY MUST BE AT LEAST 10!"
|
||||
1570 GOTO1490
|
||||
1580 PRINT"THE TOTAL OF EACH STRATEGY VECTOR MUST EQUAL 100!"
|
||||
1590 GOTO1490
|
||||
1600 END
|
||||
*U*
|
||||
|
||||
0
files/games_interchange/elect1.err
Normal file
0
files/games_interchange/elect1.err
Normal file
155
files/games_interchange/elect2.bas
Normal file
155
files/games_interchange/elect2.bas
Normal file
@ -0,0 +1,155 @@
|
||||
|
||||
10 REM ELECT2 - HISTORICAL ELECTIONS - 20TH CENTURY
|
||||
20 REM COPYRIGHT 1972 - STATE UNIVERSITY OF NEW YORK
|
||||
30 REM DEVELOPED BY D. KLASSEN AND J. MCGRATH, JUNE 1972
|
||||
40 REM PROGRAMMED BY L. KAUFMAN, JUNE 1972
|
||||
50 REM LATEST REVISION 8-29-72
|
||||
60 DIM Y(7),W(9),M(63),I(3),S(3),P(14)
|
||||
70 FOR I=1TO7
|
||||
80 READ Y(I)
|
||||
90 NEXT I
|
||||
100 FOR I=1TO63
|
||||
110 READ M(I)
|
||||
120 NEXT I
|
||||
130 FORI=1TO14
|
||||
140 READ P(I)
|
||||
150 NEXT I
|
||||
160 PRINTTAB(30);"ELECT2"
|
||||
170 PRINT
|
||||
180 PRINT TAB(16);"HISTORICAL ELECTIONS - 20TH CENTURY"
|
||||
190 PRINT
|
||||
200 LET F=0
|
||||
210 PRINT"DO YOU WANT INSTRUCTIONS (1=YES, 0=NO)";
|
||||
220 INPUT I
|
||||
230 IF I=0THEN480
|
||||
240 IF I<>1THEN210
|
||||
250 PRINT
|
||||
260 PRINT" YOUR GOAL WILL BE TO CHOOSE THE OPTIMUM STRATEGY"
|
||||
270 PRINT"FOR CANDIDATES IN AN HISTORICAL ELECTION."
|
||||
280 PRINT
|
||||
290 PRINT" EACH CANDIDATE'S STRATEGY CONSISTS OF 3 NUMBERS."
|
||||
300 PRINT
|
||||
310 PRINT" THE FIRST REPRESENTS THE AMOUNT OF EMPHASIS TO BE"
|
||||
320 PRINT"PLACED ON THE CANDIDATES IMAGE."
|
||||
330 PRINT
|
||||
340 PRINT" THE SECOND REPRESENTS THE AMOUNT OF EMPHASIS TO BE"
|
||||
350 PRINT"PLACED ON PARTY AFFILIATION."
|
||||
360 PRINT
|
||||
370 PRINT" THE THIRD REPRESENTS THE AMOUNT OF EMPHASIS TO BE "
|
||||
380 PRINT"PLACED ON THE CAMPAIGN ISSUES."
|
||||
390 PRINT
|
||||
400 PRINT" EACH OF THESE NUMBERS IS BETWEEN 10 AND 80, WITH"
|
||||
410 PRINT"A HIGHER NUMER REPRESENTING MORE EMPHASIS."
|
||||
420 PRINT
|
||||
430 PRINT" THE TOTAL OF EACH STRATEGY MUST EQUAL 100!"
|
||||
440 PRINT
|
||||
450 PRINT" THE COMPUTER WILL FIRST ASK - 'ELECTION CODE NO.?'"
|
||||
460 PRINT"CHOOSE THE CODE NO. FROM THE FOLLOWING LIST:"
|
||||
470 GOTO520
|
||||
480 PRINT"DO YOU WANT CODE LIST (1=YES,0=NO)";
|
||||
490 INPUT I
|
||||
500 IF I=0THEN570
|
||||
510 IF I<>1THEN480
|
||||
520 PRINT
|
||||
530 PRINT" ELECTION";TAB(20);"CODE NO."
|
||||
540 FOR I=1TO7
|
||||
550 PRINT" ";Y(I);TAB(20);I
|
||||
560 NEXT I
|
||||
570 PRINT
|
||||
580 PRINT"ELECTION CODE NO.";
|
||||
590 INPUT E
|
||||
600 FOR I=1TO7
|
||||
610 IF I=ETHEN640
|
||||
620 NEXTI
|
||||
630 GOTO460
|
||||
640 LET X=(E*9)-8
|
||||
650 PRINT
|
||||
660 PRINTTAB(14);"ELECTION OF";Y(E)
|
||||
670 PRINT
|
||||
680 PRINT" CANDIDATE A";TAB(28);"CANDIDATE B"
|
||||
690 IF E>1THEN720
|
||||
700 PRINT" HARDING";TAB(28);"COX"
|
||||
710 GOTO880
|
||||
720 IF E>2THEN750
|
||||
730 PRINT" HOOVER";TAB(28);"SMITH"
|
||||
740 GOTO880
|
||||
750 IF E>3THEN780
|
||||
760 PRINT" ROOSEVELT";TAB(28);"HOOVER"
|
||||
770 GOTO880
|
||||
780 IF E>4THEN810
|
||||
790 PRINT" TRUMAN";TAB(28);"HOOVER"
|
||||
800 GOTO880
|
||||
810 IF E>5THEN840
|
||||
820 PRINT" EISENHOWER";TAB(28);"STEVENSON"
|
||||
830 GOTO880
|
||||
840 IF E>6THEN870
|
||||
850 PRINT" KENNEDY";TAB(28);"NIXON"
|
||||
860 GOTO880
|
||||
870 PRINT" NIXON";TAB(28);"HUMPHREY"
|
||||
880 IF F<>0THEN1160
|
||||
890 IF(E-3)*(E-4)*(E-6)<>0THEN920
|
||||
900 PRINT" DEMOCRAT";TAB(28);"REPUBLICAN"
|
||||
910 GOTO930
|
||||
920 PRINT" REPUBLICAN";TAB(28);"DEMOCRAT"
|
||||
930 PRINT
|
||||
940 PRINT"CANDIDATE A - ";
|
||||
950 GOSUB 1420
|
||||
960 LET S(1)=I(1)/100
|
||||
970 LET S(2)=I(2)/100
|
||||
980 LET S(3)=I(3)/100
|
||||
990 PRINT"CANDIDATE B - ";
|
||||
1000 GOSUB1420
|
||||
1010 PRINT
|
||||
1020 FOR J=1TO3
|
||||
1030 LET W(J)=S(1)*M(X+J-1)
|
||||
1040 NEXT J
|
||||
1050 FOR J=4TO6
|
||||
1060 LET W(J)=S(2)*M(X+J-1)
|
||||
1070 NEXTJ
|
||||
1080 FOR J=7TO9
|
||||
1090 LET W(J)=S(3)*M(X+J-1)
|
||||
1100 NEXT J
|
||||
1110 LET W(1)=W(1)+W(4)+W(7)
|
||||
1120 LET W(2)=W(2)+W(5)+W(8)
|
||||
1130 LET W(3)=W(3)+W(6)+W(9)
|
||||
1140 LET A=W(1)*(I(1)/100)+W(2)*(I(2)/100)+W(3)*(I(3)/100)
|
||||
1150 LET A1=((A-1)/4)*100
|
||||
1160 IF F>0THEN1210
|
||||
1170 PRINT"THE RESULT OF YOUR STRATEGY IS:"
|
||||
1180 LET F=1
|
||||
1190 PRINT
|
||||
1200 GOTO690
|
||||
1210 IF F=2 THEN1290
|
||||
1220 PRINT" ";A1;" PERCENT";TAB(25);100-A1;" PERCENT"
|
||||
1230 PRINT
|
||||
1240 PRINT"THE VOTE FOR THE TWO MAJOR CANDIDATES"
|
||||
1250 PRINT"IN THE ACTUAL ELECTION:"
|
||||
1260 LET F=2
|
||||
1270 PRINT
|
||||
1280 GOTO690
|
||||
1290 PRINT" ";P(2*E-1);" PERCENT";TAB(25);P(2*E);" PERCENT"
|
||||
1300 PRINT
|
||||
1310 PRINT"ANOTHER RUN (1=YES, 0=NO)";
|
||||
1320 INPUT I
|
||||
1330 IF I=1THEN190
|
||||
1340 IF I<>0THEN1310
|
||||
1350 GOTO1530
|
||||
1360 DATA 1920,1928,1932,1948,1952,1960,1968
|
||||
1370 DATA 4,4,3,4,4,3,3,3,2,4,4,3,4,4,3,3,3,2,4,3,4,3,2,3,4,3,3
|
||||
1380 DATA 2,3,3,3,4,4,2,3,3,4,3,4,3,2,3,4,3,3,3,3,3,3,4,3,3,3,2
|
||||
1390 DATA 3,3,3,3,2,3,3,3,4
|
||||
1400 DATA 63.9,36.1,58.8,41.2,59.2,40.8,52.4,47.6,55.4,44.6
|
||||
1410 DATA 50.1,49.9,50.4,49.6
|
||||
1420 PRINT"STRATEGY (3 NUMBERS, 10<=I<=80, TOTAL=100)";
|
||||
1430 INPUT I(1),I(2),I(3)
|
||||
1440 FOR I=1TO3
|
||||
1450 IF I(I)<10THEN1490
|
||||
1460 NEXTI
|
||||
1470 IF ABS(I(1)+I(2)+I(3)-100)>.01THEN1510
|
||||
1480 RETURN
|
||||
1490 PRINT"EACH COMPONENT OF THE STRATEGY MUST BE AT LEAST 10."
|
||||
1500 GOTO1420
|
||||
1510 PRINT"THE TOTAL OF EACH STRATEGY VECTOR MUST EQUAL 100."
|
||||
1520 GOTO1420
|
||||
1530 END
|
||||
*U*
|
||||
0
files/games_interchange/elect2.err
Normal file
0
files/games_interchange/elect2.err
Normal file
306
files/games_interchange/elect3.bas
Normal file
306
files/games_interchange/elect3.bas
Normal file
@ -0,0 +1,306 @@
|
||||
|
||||
100 REM ELECT3 - ELECTION SIMULATION
|
||||
105 REM COPYRIGHT 1972 - STATE UNIVERSITY OF NEW YORK
|
||||
110 REM DEVELOPED BY D. KLASSEN, JUNE 1972
|
||||
115 REM PROGRAMMED BY L. KAUFMAN, JUNE 1972
|
||||
120 REM LATEST REVISION 2-21-73
|
||||
125 DIMP(10),C(4),E(9),W(6),Y(3,2),I(3),S(3),T(3)
|
||||
130 PRINT"PER";
|
||||
135 INPUTR1
|
||||
140 IF(R1-1)*(R1-2)*(R1-3)*(R1-4)<>0THEN130
|
||||
145 PRINT"RES UNITS R,D";
|
||||
150 INPUTP(5),P(6)
|
||||
155 PRINT"INPUT FACTORS (1=YES, 0=NO)";
|
||||
160 INPUTI
|
||||
165 IFI=0THEN200
|
||||
170 IFI<>1THEN155
|
||||
175 PRINT"FAC";
|
||||
180 INPUTP(1),P(2),C(1),C(2),C(3),C(4),P(9),P(10),P(7),P(3),P(4)
|
||||
185 PRINT"CTRS";
|
||||
190 INPUTN1,N2,N3,N4
|
||||
195 GOTO265
|
||||
200 RANDOMIZE
|
||||
205 LETP(1)=4*RND(0)+1
|
||||
210 LETP(2)=4*RND(0)+1
|
||||
215 LETC(1)=INT(3*RND(0)+1)
|
||||
220 LETC(2)=INT(3*RND(0)+1)
|
||||
225 LETC(3)=INT(3*RND(0)+1)
|
||||
230 LETC(4)=C(3)
|
||||
235 LETP(9)=4*RND(0)+1
|
||||
240 LETP(10)=4*RND(0)+1
|
||||
245 LETP(3)=.06*RND(0)+.02
|
||||
250 LETP(4)=.06*RND(0)+.02
|
||||
255 READP(7),N1,N2,N3,N4
|
||||
265 PRINT"INPUT MATRIX (1=YES, 0=NO)";
|
||||
270 INPUTI
|
||||
275 IFI=0THEN330
|
||||
280 IFI<>1THEN270
|
||||
290 FORI=1TO9
|
||||
295 PRINT"CELL";I;" --- ";
|
||||
300 INPUTX
|
||||
305 IFABS(X-3)>2THEN295
|
||||
310 IFX<>INT(X)THEN295
|
||||
315 LETE(I)=X
|
||||
320 NEXTI
|
||||
325 GOTO375
|
||||
330 PRINT"ADVANTAGE?(-1=REPUBLICAN,+1=DEMOCRAT,0=NO ADVANTAGE)";
|
||||
335 INPUTI
|
||||
340 IFI*(I-1)*(I+1)<>0THEN330
|
||||
345 FORX=1TO9
|
||||
350 LETE(X)=3
|
||||
355 IFX=2*INT(X/2)THEN365
|
||||
360 LETE(X)=3+I
|
||||
365 NEXTX
|
||||
375 PRINT
|
||||
380 PRINT"MEDIA DISTORTION: R - ";INT(100*P(3));" PC D - ";
|
||||
385 PRINTINT(100*P(4));" PC"
|
||||
390 PRINT
|
||||
395 PRINT"ALLOC RESOURCES - MIN. 20 PC FOR EACH AREA - TO"
|
||||
400 PRINT"IMAGE, PARTY, AND ISSUES"
|
||||
405 PRINT
|
||||
410 PRINT"ALLOC. R (MAX";
|
||||
415 PRINT" =";P(5);" )";
|
||||
420 INPUTW(1),W(2),W(3)
|
||||
425 IF(W(1)+W(2)+W(3))>P(5)THEN410
|
||||
430 FORI=1TO3
|
||||
435 IFW(I)<.2*P(5)THEN410
|
||||
440 NEXTI
|
||||
445 PRINT"ALLOC. D (MAX";
|
||||
450 PRINT" =";P(6);" )";
|
||||
455 INPUTW(4),W(5),W(6)
|
||||
460 PRINT
|
||||
465 IF(W(4)+W(5)+W(6))>P(6)THEN445
|
||||
470 FORI=4TO6
|
||||
475 IFW(I)<.2*P(6)THEN445
|
||||
480 NEXTI
|
||||
485 LETF5=1
|
||||
490 LETF3=1
|
||||
495 PRINT"TO HELP IMAGE -"
|
||||
500 PRINT"STRESS EXP, ABIL, OR PERS"
|
||||
505 GOTO520
|
||||
510 PRINT"TO PUBLICIZE ISSUES -"
|
||||
515 PRINT"STRESS ECO, DOMEST, OR FOR POL"
|
||||
520 PRINT" R - HAS";W(F5);
|
||||
525 GOTO535
|
||||
530 PRINT" D - HAS";W(F5+3);
|
||||
535 PRINT" UNITS -";
|
||||
540 PRINT" ALLOC.";
|
||||
545 INPUTI(1),I(2),I(3)
|
||||
550 IF(I(1)-I(2))*(I(1)-I(3))*(I(2)-I(3))<>0THEN565
|
||||
555 PRINT"NO EQUAL ALLOCATIONS!";
|
||||
560 GOTO540
|
||||
565 IFF3=2THEN580
|
||||
570 LETX=W(F5)
|
||||
575 GOTO585
|
||||
580 LETX=W(F5+3)
|
||||
585 IF(I(1)+I(2)+I(3))<=XTHEN600
|
||||
590 PRINT"MAX =";X;
|
||||
595 GOTO540
|
||||
600 FORI=1TO3
|
||||
605 IFI(I)<.2*XTHEN620
|
||||
610 NEXTI
|
||||
615 GOTO630
|
||||
620 PRINT"NO ALLOC < 20 PC!";
|
||||
625 GOTO540
|
||||
630 LETX=1
|
||||
635 IFI(2)>I(1)THEN650
|
||||
640 LETI(2)=0
|
||||
645 GOTO660
|
||||
650 LETX=2
|
||||
655 LETI(1)=0
|
||||
660 IF(I(3)-I(1))*(I(3)-I(2))<0THEN670
|
||||
665 LETX=3
|
||||
670 LETY(F5,F3)=X
|
||||
675 IFF3=2THEN695
|
||||
680 LETS(F5)=I(X)
|
||||
685 LETF3=2
|
||||
690 GOTO530
|
||||
695 LETT(F5)=I(X)
|
||||
700 IFF5=3THEN720
|
||||
705 LETF3=1
|
||||
710 LETF5=3
|
||||
715 GOTO510
|
||||
720 PRINT
|
||||
725 PRINT"UPDATE - "
|
||||
730 IFP(7)>.65THEN755
|
||||
735 IF(W(2)-.3*P(5))<0THEN745
|
||||
740 LETP(7)=P(7)+.025
|
||||
745 IF(W(5)-.3*P(6))<0THEN755
|
||||
750 LETP(7)=P(7)+.025
|
||||
755 PRINT"TURNOUT: ";INT(100*P(7));" PC"
|
||||
760 LETF5=1
|
||||
765 PRINT"IMPROVING IMAGE:"
|
||||
770 GOTO780
|
||||
775 PRINT"STRESSING RIGHT ISSUE:"
|
||||
780 PRINT" R IS ";
|
||||
785 IFY(F5,1)<>C(F5)THEN825
|
||||
790 LETI=(.5+S(F5)/(2*W(F5)))*(1-P(3))
|
||||
795 IFF5=3THEN815
|
||||
805 LETN1=N1+1
|
||||
810 GOTO860
|
||||
815 LETN3=N3+1
|
||||
820 GOTO860
|
||||
825 PRINT"NOT ";
|
||||
830 LETI=-.25*(1-P(3))
|
||||
835 IFF5=3THEN855
|
||||
845 LETN1=0
|
||||
850 GOTO860
|
||||
855 LETN3=0
|
||||
860 PRINT"AND D IS ";
|
||||
865 IFY(F5,2)<>C(F5+1)THEN905
|
||||
870 LETX=(.5+T(F5)/(2*W(F5+3)))*(1-P(4))
|
||||
875 IFF5<>3THEN895
|
||||
880 LETN4=N4+1
|
||||
885 GOTO965
|
||||
895 LETN2=N2+1
|
||||
900 GOTO940
|
||||
905 PRINT"NOT ";
|
||||
910 LETX=-.25*(1-P(4))
|
||||
915 IFF5<>3THEN930
|
||||
920 LETN4=0
|
||||
925 GOTO965
|
||||
930 LETN2=0
|
||||
940 LETP(1)=P(1)+I
|
||||
945 LETP(2)=P(2)+X
|
||||
950 PRINT
|
||||
955 LETF5=3
|
||||
960 GOTO775
|
||||
965 LETP(9)=P(9)+I
|
||||
970 LETP(10)=P(10)+X
|
||||
975 PRINT
|
||||
980 PRINT
|
||||
985 LETF5=1
|
||||
990 IFABS(P(F5)-P(F5+1))>.5THEN1010
|
||||
995 PRINT"NO ONE HAS";
|
||||
1000 LETE(F5)=3
|
||||
1005 GOTO1085
|
||||
1010 IFP(F5+1)>P(F5)THEN1045
|
||||
1015 PRINT"R ";
|
||||
1020 IF(P(F5)-P(F5+1))>1.5THEN1035
|
||||
1025 LETE(F5)=4
|
||||
1030 GOTO1080
|
||||
1035 LETE(F5)=5
|
||||
1040 GOTO1070
|
||||
1045 PRINT"D ";
|
||||
1050 IF(P(F5+1)-P(F5))>1.5THEN1065
|
||||
1055 LETE(F5)=2
|
||||
1060 GOTO1080
|
||||
1065 LETE(F5)=1
|
||||
1070 PRINT"HAS A DECIDED";
|
||||
1075 GOTO1085
|
||||
1080 PRINT"HAS A SLIGHT";
|
||||
1085 PRINT" ADVANTAGE ";
|
||||
1090 IFF5=9THEN1110
|
||||
1095 PRINT"IN IMAGE"
|
||||
1100 LETF5=9
|
||||
1105 GOTO990
|
||||
1110 PRINT"WITH ISSUES"
|
||||
1115 PRINT
|
||||
1120 IFE(2)>4THEN1145
|
||||
1125 IFN1<2THEN1145
|
||||
1130 LETE(2)=E(2)+1
|
||||
1135 PRINT" R";
|
||||
1140 GOSUB1560
|
||||
1145 IFE(4)<2THEN1170
|
||||
1150 IFN2<2THEN1170
|
||||
1155 LETE(4)=E(4)-1
|
||||
1160 PRINT" D";
|
||||
1165 GOSUB1560
|
||||
1170 IFE(7)>4THEN1200
|
||||
1175 IFN1<1THEN1200
|
||||
1180 IFY(3,1)<>C(3)THEN1200
|
||||
1185 LETE(7)=E(7)+1
|
||||
1190 PRINT" R";
|
||||
1195 GOSUB 1570
|
||||
1200 IFE(3)<2THEN1230
|
||||
1205 IFN2<1THEN1230
|
||||
1210 IFY(3,2)<>C(4)THEN1230
|
||||
1215 LETE(3)=E(3)-1
|
||||
1220 PRINT" D";
|
||||
1225 GOSUB1570
|
||||
1230 IFN3<3THEN1255
|
||||
1235 IFE(8)>4THEN1255
|
||||
1240 LETE(8)=E(8)+1
|
||||
1245 PRINT" R";
|
||||
1250 GOSUB1580
|
||||
1255 IFE(6)<2THEN1280
|
||||
1260 IFN4<3THEN1280
|
||||
1265 LETE(6)=E(6)-1
|
||||
1270 PRINT" D";
|
||||
1275 GOSUB1580
|
||||
1280 PRINT"TURNOUT ";
|
||||
1285 IFE(5)<>3THEN1300
|
||||
1290 PRINT"HAS NO EFFECT"
|
||||
1295 GOTO1390
|
||||
1300 IFP(7)<.55THEN1355
|
||||
1305 PRINT"FAVORS ";
|
||||
1310 IFSGN(E(5)-3)=-1THEN1335
|
||||
1315 PRINT"R"
|
||||
1320 IFE(5)>4THEN1390
|
||||
1325 LETE(5)=E(5)+1
|
||||
1330 GOTO1390
|
||||
1335 PRINT"D"
|
||||
1340 IFE(5)<2THEN1390
|
||||
1345 LETE(5)=E(5)-1
|
||||
1350 GOTO1390
|
||||
1355 PRINT"HINDERS ";
|
||||
1360 IFSGN(E(5)-3)=-1THEN1380
|
||||
1365 PRINT"R"
|
||||
1370 LETE(5)=E(5)-1
|
||||
1375 GOTO1390
|
||||
1380 PRINT"D"
|
||||
1385 LETE(5)=E(5)+1
|
||||
1390 FORX=1TO3
|
||||
1395 LETI(X)=(W(1)/P(5))*E(X)
|
||||
1400 NEXTX
|
||||
1405 FORX=4TO6
|
||||
1410 LETY(X-3,1)=(W(2)/P(5))*E(X)
|
||||
1415 NEXTX
|
||||
1420 FORX=7TO9
|
||||
1425 LETW(X-6)=(W(3)/P(5))*E(X)
|
||||
1430 NEXTX
|
||||
1435 LETI(1)=I(1)+Y(1,1)+W(1)
|
||||
1440 LETI(2)=I(2)+Y(2,1)+W(2)
|
||||
1445 LETI(3)=I(3)+Y(3,1)+W(3)
|
||||
1450 LETI=I(1)*(W(4)/P(6))+I(2)*(W(5)/P(6))+I(3)*(W(6)/P(6))
|
||||
1455 LETX=ABS(10*(I-3))+50
|
||||
1460 PRINT
|
||||
1465 IFR1=4THEN1480
|
||||
1470 PRINT"THE LATEST POLL SHOWS ";
|
||||
1475 GOTO1485
|
||||
1480 PRINT"THE RESULT IS ";
|
||||
1485 IFSGN(I-3)=0THEN1545
|
||||
1490 IFSGN(I-3)=-1THEN1505
|
||||
1495 PRINT"R ";
|
||||
1500 GOTO1510
|
||||
1505 PRINT"D ";
|
||||
1510 IFR1=4THEN1525
|
||||
1515 PRINT"LEADING ";
|
||||
1520 GOTO1530
|
||||
1525 PRINT"HAS WON ";
|
||||
1530 PRINT"WITH";.1*INT(10*X);" PC OF THE VOTE"
|
||||
1535 PRINT"AND HIS OPPONENT WITH";.1*INT(10*(100-X));" PC"
|
||||
1540 GOTO1550
|
||||
1545 PRINT"A TIE"
|
||||
1550 IFR1=4THEN1650
|
||||
1555 GOTO1600
|
||||
1560 PRINT" HAS CHOSEN RIGHT IMAGE TWICE IN A ROW"
|
||||
1565 GOTO1585
|
||||
1570 PRINT" HAS CHOSEN CORRECT ISSUE AND IMAGE"
|
||||
1575 GOTO1585
|
||||
1580 PRINT" HAS CHOSEN RIGHT ISSUE 3 TIMES IN A ROW"
|
||||
1585 PRINT" AND THIS SHOULD HELP HIM"
|
||||
1590 PRINT
|
||||
1595 RETURN
|
||||
1600 PRINT
|
||||
1605 PRINT"FAC";INT(100*P(1))/100;INT(100*P(2))/100;C(1);C(2);C(3);
|
||||
1610 PRINTC(4);INT(100*P(9))/100;INT(100*P(10))/100;P(7);
|
||||
1615 PRINTINT(100*P(3))/100;INT(100*P(4))/100
|
||||
1620 PRINT"CTRS";N1;N2;N3;N4
|
||||
1625 PRINT"MAT:"
|
||||
1630 FORI=1TO9
|
||||
1635 PRINT"CELL";I;" -- ";E(I)
|
||||
1640 NEXTI
|
||||
1645 DATA.45,0,0,0,0
|
||||
1650 END
|
||||
*U*,
|
||||
0
files/games_interchange/elect3.err
Normal file
0
files/games_interchange/elect3.err
Normal file
107
files/games_interchange/enrol1.for
Normal file
107
files/games_interchange/enrol1.for
Normal file
@ -0,0 +1,107 @@
|
||||
COMMON CHKING,SAVING,LOAN,BALNC(9),OVERDU(9),PAYMNT(9),
|
||||
1 ITEM(9),MONTH,CAR(3),INSUR(3),MIWORK(2),TOTMI(3),HOUSE(2),
|
||||
2 NOMNTH(3)
|
||||
C
|
||||
INTEGER STUNUM,FOLIO,CHKING,SAVING,LOAN,BALNC,OVERDU,
|
||||
1 PAYMNT,MONTH,CAR,HOUSE
|
||||
C
|
||||
REAL INSUR,MIWORK
|
||||
C
|
||||
DOUBLE PRECISION ITEM
|
||||
C
|
||||
DIMENSION ANSWER(5),TEMP(110,4),LIST(100)
|
||||
C
|
||||
C READ CROSS.REF
|
||||
10 FORMAT (4A5,I3)
|
||||
15 OPEN (UNIT=4,DEVICE='DSK',ACCESS='SEQIN',FILE='CROSS.REF'
|
||||
1 ,DIRECTORY='1700,170700')
|
||||
DO 20 I=1,50
|
||||
READ (4,10) (TEMP(I,J),J=1,4),LIST(I)
|
||||
20 CONTINUE
|
||||
CLOSE (UNIT=4)
|
||||
C
|
||||
C ASSIGN A NUMBER TO THE STUDENT
|
||||
DO 30 I=1,50
|
||||
IF (LIST(I).EQ.0) GOTO 40
|
||||
30 CONTINUE
|
||||
TYPE 35
|
||||
35 FORMAT (' THE FILE IS FULL AND NEEDS TO BE ENLARGE')
|
||||
GOTO 9999
|
||||
40 STUNUM=I
|
||||
TYPE 45
|
||||
45 FORMAT (' TYPE THE STUDENTS NAME: ',$)
|
||||
ACCEPT 47,(TEMP(I,J),J=1,4)
|
||||
47 FORMAT (4A5)
|
||||
TYPE 48,(TEMP(I,J),J=1,4),STUNUM
|
||||
48 FORMAT (1X,4A5,' HAS BEEN ASSIGNED # ',I3)
|
||||
C
|
||||
C ZERO ALL THE NUMBERS
|
||||
FOLIO=1;MONTH=1;CHKING=0;SAVING=20000;LOAN=0
|
||||
DO 50 J=1,9
|
||||
ITEM(J)='NOTHING'
|
||||
PAYMNT(J)=0
|
||||
BALNC(J)=0
|
||||
50 OVERDU(J)=0
|
||||
C
|
||||
DO 55 J=1,3
|
||||
CAR(J)=0
|
||||
TOTMI(J)=0.0
|
||||
INSUR(J)=0.00
|
||||
55 NOMNTH(J)=12
|
||||
C
|
||||
DO 57 J=1,2
|
||||
MIWORK(J)=0.0
|
||||
57 HOUSE(J)=0
|
||||
CAR(1)=3
|
||||
INSUR(1)=75.00
|
||||
MIWORK(1)=8.5
|
||||
HOUSE(1)=1
|
||||
C
|
||||
C UPDATE CROSS.REF
|
||||
LIST(STUNUM)=STUNUM
|
||||
OPEN (UNIT=4,DEVICE='DSK',ACCESS='SEQOUT',FILE='CROSS.REF'
|
||||
1 ,DIRECTORY='1700,170700')
|
||||
DO 60 I=1,50
|
||||
59 WRITE (4,10) (TEMP(I,J),J=1,4),LIST(I)
|
||||
60 CONTINUE
|
||||
CLOSE (UNIT=4)
|
||||
C
|
||||
C PRINT STUDENT INTO STUDEN.DAT
|
||||
CALL PRINT(STUNUM,FOLIO)
|
||||
C
|
||||
C CONTINUE?
|
||||
TYPE 70
|
||||
70 FORMAT (' ENROLL ANOTHER? ',$)
|
||||
ACCEPT 75,(ANSWER(J),J=1,5)
|
||||
75 FORMAT (5A1)
|
||||
IF (ANSWER(1).EQ.'Y') GOTO 15
|
||||
9999 END
|
||||
SUBROUTINE PRINT(STUNUM,FOLIO)
|
||||
C
|
||||
COMMON CHKING,SAVING,LOAN,BALNC(9),OVERDU(9),PAYMNT(9),
|
||||
1 ITEM(9),MONTH,CAR(3),INSUR(3),MIWORK(2),TOTMI(3),HOUSE(2),
|
||||
2 NOMNTH(3)
|
||||
C
|
||||
INTEGER STUNUM,FOLIO,CHKING,SAVING,LOAN,BALNC,OVERDU,
|
||||
1 PAYMNT,MONTH,CAR,HOUSE
|
||||
C
|
||||
REAL INSUR,MIWORK
|
||||
C
|
||||
DOUBLE PRECISION ITEM
|
||||
C
|
||||
OPEN(UNIT=5,DEVICE='DSK',ACCESS='RANDOM',FILE='STUDEN.DAT',
|
||||
1 RECORD=310,DIRECTORY='1700,170700')
|
||||
C
|
||||
WRITE (5#STUNUM,10) STUNUM,FOLIO,MONTH,CHKING,SAVING,LOAN,
|
||||
1 (ITEM(J),PAYMNT(J),BALNC(J),OVERDU(J),J=1,9),
|
||||
2 (CAR(J),TOTMI(J),INSUR(J),NOMNTH(J),J=1,3),
|
||||
3 (MIWORK(J),J=1,2),(HOUSE(J),J=1,2)
|
||||
C
|
||||
10 FORMAT(I3,2I2,3I7,
|
||||
1 9(A10,I5,I6,I2),
|
||||
2 3(I2,F7.0,F6.2,I2),
|
||||
3 2F4.1,2I2)
|
||||
C
|
||||
CLOSE(UNIT=5)
|
||||
RETURN
|
||||
END
|
||||
BIN
files/games_interchange/enrol1.sav
Normal file
BIN
files/games_interchange/enrol1.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/enzyme.bas
Normal file
BIN
files/games_interchange/enzyme.bas
Normal file
Binary file not shown.
9
files/games_interchange/enzyme.err
Normal file
9
files/games_interchange/enzyme.err
Normal file
@ -0,0 +1,9 @@
|
||||
00020 REM *** CONVERTED FOR USE ON DEC-SYSTEM10 BY AL ZIPPAY ** 1976 ***
|
||||
00200 PRINT "RELATED TO CERTAIN LIMITING FACTORS. THESE FACTORS INCLUDE PH,"
|
||||
00240 PRINT "THE CONCENTRATION OF ENZYMES, AND TEMPERATURE. IN THIS PROGRAM"
|
||||
00280 PRINT "WE ASSUME THAT TWO OF THE THREE FACTORS ARE CONSTANTS AND "
|
||||
00300 PRINT "FACTOR WORKS INDEPENDENTLY, ALTHOUGH THIS IS NOT REALLY TRUE."
|
||||
00350 PRINT
|
||||
00480 PRINT "--------","-------------","I-----------I-----------I-----------I"
|
||||
00600 PRINT "------------","-------------","I-----------I-----------I-----------I"
|
||||
00710 PRINT "---------","-------------","I-----------I-----------I-------------I"
|
||||
313
files/games_interchange/error.rpt
Normal file
313
files/games_interchange/error.rpt
Normal file
@ -0,0 +1,313 @@
|
||||
VERSION<3> PDP-10 PREVENTIVE MAINTENANCE ERROR REPORTING FORM
|
||||
|
||||
********* ALL REPORTS WILL BE ANSWERED BY PHONE OR RETURN MAIL ********
|
||||
|
||||
MAIL TO:
|
||||
PDP-10 PRODUCT SUPPORT
|
||||
DIGITAL EQUIPMENT CORP.
|
||||
200 FOREST STREET
|
||||
MARLBORO, MASSACHUSETTS
|
||||
01752
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER INFORMATION
|
||||
|
||||
NAME OF USER: BADGE NUMBER:
|
||||
|
||||
OFFICE ADDRESS: COST CENTER:
|
||||
|
||||
PHONE NUMBER: DATE:
|
||||
|
||||
***********************************************************************
|
||||
|
||||
DOCUMENT INFORMATION
|
||||
|
||||
PLEASE CHECK DOCUMENT IN ERROR
|
||||
|
||||
PMPROC.TXT O OPTION NAME:
|
||||
|
||||
APPNDX.TXT O PARAGRAPH REFERENCE:
|
||||
|
||||
SPEEDY.SPC O RACK REFERENCE:
|
||||
|
||||
MARGIN.SPC O ENTER ORIGNAL LINE OF TEXT:
|
||||
|
||||
DELAY.SPC O
|
||||
|
||||
POWER.SPC O ENTER CORRECTED LINE OF TEXT:
|
||||
|
||||
SCHED.CBL O
|
||||
|
||||
SCHED.INP O SOURCE OF USER INFORMATION:
|
||||
|
||||
README.HLP O
|
||||
|
||||
SCHED.HLP O
|
||||
|
||||
OTHER O
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER COMMENTS:
|
||||
VERSION<3> PDP-10 PREVENTIVE MAINTENANCE ERROR REPORTING FORM
|
||||
|
||||
********* ALL REPORTS WILL BE ANSWERED BY PHONE OR RETURN MAIL ********
|
||||
|
||||
MAIL TO:
|
||||
PDP-10 PRODUCT SUPPORT
|
||||
DIGITAL EQUIPMENT CORP.
|
||||
200 FOREST STREET
|
||||
MARLBORO, MASSACHUSETTS
|
||||
01752
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER INFORMATION
|
||||
|
||||
NAME OF USER: BADGE NUMBER:
|
||||
|
||||
OFFICE ADDRESS: COST CENTER:
|
||||
|
||||
PHONE NUMBER: DATE:
|
||||
|
||||
***********************************************************************
|
||||
|
||||
DOCUMENT INFORMATION
|
||||
|
||||
PLEASE CHECK DOCUMENT IN ERROR
|
||||
|
||||
PMPROC.TXT O OPTION NAME:
|
||||
|
||||
APPNDX.TXT O PARAGRAPH REFERENCE:
|
||||
|
||||
SPEEDY.SPC O RACK REFERENCE:
|
||||
|
||||
MARGIN.SPC O ENTER ORIGNAL LINE OF TEXT:
|
||||
|
||||
DELAY.SPC O
|
||||
|
||||
POWER.SPC O ENTER CORRECTED LINE OF TEXT:
|
||||
|
||||
SCHED.CBL O
|
||||
|
||||
SCHED.INP O SOURCE OF USER INFORMATION:
|
||||
|
||||
README.HLP O
|
||||
|
||||
SCHED.HLP O
|
||||
|
||||
OTHER O
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER COMMENTS:
|
||||
VERSION<3> PDP-10 PREVENTIVE MAINTENANCE ERROR REPORTING FORM
|
||||
|
||||
********* ALL REPORTS WILL BE ANSWERED BY PHONE OR RETURN MAIL ********
|
||||
|
||||
MAIL TO:
|
||||
PDP-10 PRODUCT SUPPORT
|
||||
DIGITAL EQUIPMENT CORP.
|
||||
200 FOREST STREET
|
||||
MARLBORO, MASSACHUSETTS
|
||||
01752
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER INFORMATION
|
||||
|
||||
NAME OF USER: BADGE NUMBER:
|
||||
|
||||
OFFICE ADDRESS: COST CENTER:
|
||||
|
||||
PHONE NUMBER: DATE:
|
||||
|
||||
***********************************************************************
|
||||
|
||||
DOCUMENT INFORMATION
|
||||
|
||||
PLEASE CHECK DOCUMENT IN ERROR
|
||||
|
||||
PMPROC.TXT O OPTION NAME:
|
||||
|
||||
APPNDX.TXT O PARAGRAPH REFERENCE:
|
||||
|
||||
SPEEDY.SPC O RACK REFERENCE:
|
||||
|
||||
MARGIN.SPC O ENTER ORIGNAL LINE OF TEXT:
|
||||
|
||||
DELAY.SPC O
|
||||
|
||||
POWER.SPC O ENTER CORRECTED LINE OF TEXT:
|
||||
|
||||
SCHED.CBL O
|
||||
|
||||
SCHED.INP O SOURCE OF USER INFORMATION:
|
||||
|
||||
README.HLP O
|
||||
|
||||
SCHED.HLP O
|
||||
|
||||
OTHER O
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER COMMENTS:
|
||||
VERSION<3> PDP-10 PREVENTIVE MAINTENANCE ERROR REPORTING FORM
|
||||
|
||||
********* ALL REPORTS WILL BE ANSWERED BY PHONE OR RETURN MAIL ********
|
||||
|
||||
MAIL TO:
|
||||
PDP-10 PRODUCT SUPPORT
|
||||
DIGITAL EQUIPMENT CORP.
|
||||
200 FOREST STREET
|
||||
MARLBORO, MASSACHUSETTS
|
||||
01752
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER INFORMATION
|
||||
|
||||
NAME OF USER: BADGE NUMBER:
|
||||
|
||||
OFFICE ADDRESS: COST CENTER:
|
||||
|
||||
PHONE NUMBER: DATE:
|
||||
|
||||
***********************************************************************
|
||||
|
||||
DOCUMENT INFORMATION
|
||||
|
||||
PLEASE CHECK DOCUMENT IN ERROR
|
||||
|
||||
PMPROC.TXT O OPTION NAME:
|
||||
|
||||
APPNDX.TXT O PARAGRAPH REFERENCE:
|
||||
|
||||
SPEEDY.SPC O RACK REFERENCE:
|
||||
|
||||
MARGIN.SPC O ENTER ORIGNAL LINE OF TEXT:
|
||||
|
||||
DELAY.SPC O
|
||||
|
||||
POWER.SPC O ENTER CORRECTED LINE OF TEXT:
|
||||
|
||||
SCHED.CBL O
|
||||
|
||||
SCHED.INP O SOURCE OF USER INFORMATION:
|
||||
|
||||
README.HLP O
|
||||
|
||||
SCHED.HLP O
|
||||
|
||||
OTHER O
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER COMMENTS:
|
||||
VERSION<3> PDP-10 PREVENTIVE MAINTENANCE ERROR REPORTING FORM
|
||||
|
||||
********* ALL REPORTS WILL BE ANSWERED BY PHONE OR RETURN MAIL ********
|
||||
|
||||
MAIL TO:
|
||||
PDP-10 PRODUCT SUPPORT
|
||||
DIGITAL EQUIPMENT CORP.
|
||||
200 FOREST STREET
|
||||
MARLBORO, MASSACHUSETTS
|
||||
01752
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER INFORMATION
|
||||
|
||||
NAME OF USER: BADGE NUMBER:
|
||||
|
||||
OFFICE ADDRESS: COST CENTER:
|
||||
|
||||
PHONE NUMBER: DATE:
|
||||
|
||||
***********************************************************************
|
||||
|
||||
DOCUMENT INFORMATION
|
||||
|
||||
PLEASE CHECK DOCUMENT IN ERROR
|
||||
|
||||
PMPROC.TXT O OPTION NAME:
|
||||
|
||||
APPNDX.TXT O PARAGRAPH REFERENCE:
|
||||
|
||||
SPEEDY.SPC O RACK REFERENCE:
|
||||
|
||||
MARGIN.SPC O ENTER ORIGNAL LINE OF TEXT:
|
||||
|
||||
DELAY.SPC O
|
||||
|
||||
POWER.SPC O ENTER CORRECTED LINE OF TEXT:
|
||||
|
||||
SCHED.CBL O
|
||||
|
||||
SCHED.INP O SOURCE OF USER INFORMATION:
|
||||
|
||||
README.HLP O
|
||||
|
||||
SCHED.HLP O
|
||||
|
||||
OTHER O
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER COMMENTS:
|
||||
VERSION<3> PDP-10 PREVENTIVE MAINTENANCE ERROR REPORTING FORM
|
||||
|
||||
********* ALL REPORTS WILL BE ANSWERED BY PHONE OR RETURN MAIL ********
|
||||
|
||||
MAIL TO:
|
||||
PDP-10 PRODUCT SUPPORT
|
||||
DIGITAL EQUIPMENT CORP.
|
||||
200 FOREST STREET
|
||||
MARLBORO, MASSACHUSETTS
|
||||
01752
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER INFORMATION
|
||||
|
||||
NAME OF USER: BADGE NUMBER:
|
||||
|
||||
OFFICE ADDRESS: COST CENTER:
|
||||
|
||||
PHONE NUMBER: DATE:
|
||||
|
||||
***********************************************************************
|
||||
|
||||
DOCUMENT INFORMATION
|
||||
|
||||
PLEASE CHECK DOCUMENT IN ERROR
|
||||
|
||||
PMPROC.TXT O OPTION NAME:
|
||||
|
||||
APPNDX.TXT O PARAGRAPH REFERENCE:
|
||||
|
||||
SPEEDY.SPC O RACK REFERENCE:
|
||||
|
||||
MARGIN.SPC O ENTER ORIGNAL LINE OF TEXT:
|
||||
|
||||
DELAY.SPC O
|
||||
|
||||
POWER.SPC O ENTER CORRECTED LINE OF TEXT:
|
||||
|
||||
SCHED.CBL O
|
||||
|
||||
SCHED.INP O SOURCE OF USER INFORMATION:
|
||||
|
||||
README.HLP O
|
||||
|
||||
SCHED.HLP O
|
||||
|
||||
OTHER O
|
||||
|
||||
***********************************************************************
|
||||
|
||||
USER COMMENTS:
|
||||
|
||||
BIN
files/games_interchange/errors.bas
Normal file
BIN
files/games_interchange/errors.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/exchan.sav
Normal file
BIN
files/games_interchange/exchan.sav
Normal file
Binary file not shown.
BIN
files/games_interchange/flesch.bas
Normal file
BIN
files/games_interchange/flesch.bas
Normal file
Binary file not shown.
BIN
files/games_interchange/flesch.hlp
Normal file
BIN
files/games_interchange/flesch.hlp
Normal file
Binary file not shown.
289
files/games_interchange/fool2.fcl
Normal file
289
files/games_interchange/fool2.fcl
Normal file
@ -0,0 +1,289 @@
|
||||
|
||||
C FOCAL-10 CSM(V3)
|
||||
|
||||
1.01 E;F X=1,6;T !
|
||||
1.02 T :31,"STAR TREK",!;F X=1,6;T !
|
||||
1.03 T "FOR INSTRUCTIONS TYPE D11:STREK.HLP",!
|
||||
1.04 A "INPUT A 3 DIGIT DECIMAL NUMBER FROM 1 TO 10 TO INITIALIZE:",X9;I (X9-888),1.04
|
||||
1.05 S T0=FITR(FRAN(X9)*20+20)*100;S T=T0;S T9=30;S D0=0
|
||||
1.06 S E=3000;S E0=E;S P=10;S P0=P;S S9=200;S S=0
|
||||
1.07 L F0=31.99
|
||||
1.08 S Q1=FITR(FRAN()*8+1);S Q2=FITR(FRAN()*8+1)
|
||||
1.09 S S1=FITR(FRAN()*8+1);S S2=FITR(FRAN()*8+1)
|
||||
1.10 S C(2,1)=-1;S C(3,1)=-1;S C(4,1)=-1;S C(4,2)=-1;S C(5,2)=-1;S C(6,2)=-1
|
||||
1.11 S C(1,1)=0;S C(3,2)=0;S C(5,1)=0;S C(7,2)=0;S C(9,1)=0
|
||||
1.12 S C(1,2)=1;S C(2,2)=1;S C(6,1)=1;S C(7,1)=1;S C(8,1)=1;S C(8,2)=1;S C(9,2)=1
|
||||
1.13 S B9=0;S K9=0
|
||||
1.14 F I=1,8;F J=1,8;D 2.0
|
||||
1.15 G 3.01
|
||||
|
||||
2.01 S R1=FRAN();I (R1-.8)2.02,2.02;I (R1-.98),,2.05;I (R1-.95),,2.04;G 2.03
|
||||
2.02 S K3=0;G 2.06
|
||||
2.03 S K3=1;S K9=K9+1;G 2.06
|
||||
2.04 S K3=2;S K9=K9+2;G 2.06
|
||||
2.05 S K3=3;S K9=K9+3
|
||||
2.06 S R1=FRAN();I (R1-.96)2.07,2.07;S B3=1;S B9=B9+1;G 2.08
|
||||
2.07 S B3=0
|
||||
2.08 S S3=FITR(FRAN()*8+1);S G(I,J)=K3*100+B3*10+S3;S Z(I,J)=0
|
||||
|
||||
3.01 I (B9)1.04,1.04
|
||||
3.02 S K7=K9;T "YOU MUST DESTROY",%2,K9," KLINGONS IN",T9," STARDATES WITH",B9," STARBASES",!
|
||||
3.03 S K3=0;S B3=0;S S3=0;I (Q1-1)3.09;I (Q1-8),,3.09;I (Q2-1)3.09;I (Q2-8),,3.09
|
||||
3.04 S X=G(Q1,Q2)*.01;S K3=FITR(X);S B3=FITR((X-K3)*10);S K6=K3
|
||||
3.05 S S3=G(Q1,Q2)-FITR(G(Q1,Q2)*.1)*10;I (K3),3.08;I (S-200),,3.08
|
||||
3.06 T "COMBAT AREA CONDITION RED",!
|
||||
3.07 T " SHIELDS DANGEROUSLY LOW",!
|
||||
3.08 F I=1,3;F J=1,3;S K(I,J)=0
|
||||
3.09 F I=1,3;S K(I,3)=0
|
||||
3.10 F I=1,8;F J=1,8;S A(I,J)=0
|
||||
3.11 S Z9=1;S Z1=S1;S Z2=S2;D 27.0;I (K3),3.13
|
||||
3.12 F I=1,K3;D 26.0;S Z9=2;S Z1=R1;S Z2=R2;D 27.0;S K(I,1)=R1;S K(I,2)=R2;S K(I,3)=S9
|
||||
3.13 I (B3),3.14;F I=1,B3;D 26.0;S Z9=3;S Z1=R1;S Z2=R2;D 27.0
|
||||
3.14 F I=1,S3;D 26.0;S Z9=4;S Z1=R1;S Z2=R2;D 27.0
|
||||
3.15 D 23.0
|
||||
3.16 I (E)24.01,24.01;A "COMMAND:",A;I (A-1)3.21,3.15;I (A-3)4.23,24.1;I (A-5)7.06,7.30;I (A-7)7.34,7.38
|
||||
3.17 T !," 0 = SET COURSE",!," 1 = SHORT RANGE SENSOR SCAN",!
|
||||
3.18 T " 2 = LONG RANGE SENSOR SCAN",!," 3 = FIRE PHASERS",!
|
||||
3.19 T " 4 = FIRE PHOTON TORPEDOES",!," 5 = SHIELD CONTROL",!
|
||||
3.20 T " 6 = DAMAGE CONTROL REPORT",!," 7 = CALL ON LIBRARY COMPUTER",!,!;G 3.16
|
||||
3.21 A "COURSE:",C1;I (C1),3.16;I (C1-1)3.21;I (C1-9),3.21,3.21
|
||||
3.22 A "WARP FACTOR (0-8):",W1;I (W1)3.21;I (W1-8),,3.21;I (D(1)),3.24,3.24;I (W1-.2)3.24,3.24
|
||||
3.23 T "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .2",!;G 3.21
|
||||
3.24 I (K3)3.25,3.25;D 25.0;I (K3)3.25,3.25;I (S)25.05;G 3.28
|
||||
3.25 I (E),,3.28;I (S-1)24.10
|
||||
3.26 T "YOU HAVE",%7.3,E," UNITS OF ENERGY",!
|
||||
3.27 T "SUGGEST YOU GET SOME FROM YOUR SHIELDS WHICH HAVE",S," UNITS LEFT",!;G 3.16
|
||||
3.28 F I=1,8;D 4.0
|
||||
3.29 G 4.03
|
||||
|
||||
4.01 I (D(I))4.02;R
|
||||
4.02 S D(I)=D(I)+1;R
|
||||
4.03 I (FRAN()-.2),,4.08;S R1=FITR(FRAN()*8+1);I (D(R1))4.06
|
||||
4.04 S D(R1)=D(R1)-(FRAN()*5+1)
|
||||
4.05 T !,"DAMAGE CONTROL REPORT:";D 5.0;T " DAMAGED",!,!;G 4.08
|
||||
4.06 S D(R1)=D(R1)+(FRAN()*5+1)
|
||||
4.07 T !,"DAMAGE CONTROL REPORT:";D 5.0;T " STATE OF REPAIR IMPROVED",!,!
|
||||
4.08 S N=FITR(W1*8);S Z9=0;S Z1=S1;S Z2=S2;D 27.0;S X=S1;S Y=S2
|
||||
4.09 S X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-FITR(C1))
|
||||
4.10 S Y8=-1;S X2=C(C1,2)+[C(C1+1,2)-C(C1,2)]*[C1-FITR(C1)]
|
||||
4.11 F I=1,N;S S1=S1+X1;S S2=S2+X2;I (S1-1)4.29;I (S1-9),4.29,4.29;I (S2-1)4.29;I (S2-9),4.29,4.29;I (A(S1,S2)),,4.30
|
||||
4.12 I (Y8)4.14,4.17,4.13
|
||||
4.13 T "WARP ENGINES SHUTDOWN AT SECTOR",%1,S1," -",S2," DUE TO BAD NAVIGATION",!;S S1=S1-X1;S S2=S2-X2
|
||||
4.14 S Z9=1;S Z1=S1;S Z2=S2;D 27.0;S E=E-N+5;I (W1-1)4.15;S T=T+1
|
||||
4.15 I (T-T0-T9)4.16,4.16;T !,"IT IS STARDATE",%5,T;G 24.04
|
||||
4.16 D 28;G 3.15
|
||||
4.17 S X=Q1*8+X+X1*N;S Y=Q2*8+Y+X2*N;S Q1=FITR(X/8);S Q2=FITR(Y/8)
|
||||
4.18 S S1=FITR(X-Q1*8);S S2=FITR(Y-Q2*8);I (S1)4.19,,4.19;S Q1=Q1-1;S S1=8
|
||||
4.19 I (S2)4.20,,4.20;S Q2=Q2-1;S S2=8
|
||||
4.20 S T=T+1;S E=E-N+5
|
||||
4.21 I (T-T0-T9)4.22,4.22;T !,"IT IS STARDATE",%5,T;G 24.04
|
||||
4.22 G 3.03
|
||||
4.23 I (D(3)),4.25,4.25
|
||||
4.24 T "LONG RANGE SENSORS ARE INOPERABLE",!;G 3.16
|
||||
4.25 T "LONG RANGE SENSOR SCAN FOR QUADRANT ",%1,Q1," -",Q2,!
|
||||
4.26 T "----------------------",!
|
||||
4.27 F I=Q1-1,Q1+1;D 6.0
|
||||
4.28 G 3.16
|
||||
4.29 S Y8=0;S I=N+1;G 4.12
|
||||
4.30 S Y8=1;S I=N+1;G 4.12
|
||||
4.32 F I=1,K3;D 26;S A(R1,R2)=2;S K(I,1)=R1;S K(I,2)=R2;I (I-K3),3.15
|
||||
4.33 C
|
||||
|
||||
5.01 I (R1-2)5.02,5.03;I (R1-4)5.04,5.05;I (R1-6)5.06,5.07;I (R1-8)5.08,5.09;R
|
||||
5.02 T "WARP ENGINES";R
|
||||
5.03 T "S.R. SENSORS";R
|
||||
5.04 T "L.R. SENSORS";R
|
||||
5.05 T "PHASER CNTRL";R
|
||||
5.06 T "PHOTON TUBES";R
|
||||
5.07 T "DAMAGE CNTRL";R
|
||||
5.08 T "SHIELD CNTRL";R
|
||||
5.09 T "COMPUTER";R
|
||||
|
||||
6.01 F J=Q2-1,Q2+1;D 6.03
|
||||
6.02 D 6.05;R
|
||||
6.03 I (I-1)6.04;I (I-8),,6.04;I (J-1)6.04;I (J-8),,6.04;S N(J-Q2+2)=G(I,J);I (D(7))6.12;S Z(I,J)=G(I,J)
|
||||
6.04 S N(J-Q2+2)=0;R
|
||||
6.05 T %3,":",N(1)," :",N(2)," :",N(3)," :",!,"----------------------",!;R
|
||||
6.06 I (D(7)),6.07,6.07;T "COMPUTER FAILURE HAMPERS ACCURACY",!
|
||||
6.07 T "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE =",%4,E,!
|
||||
6.08 A "NUMBER OF UNITS TO FIRE:",X;I (X)3.16,3.16;I (E-X)6.06;S E=E-X
|
||||
6.09 D 25.0;I (D(7)),6.1,6.1;S X=X*FRAN()
|
||||
6.10 F I=1,3;D 7.0
|
||||
6.11 I (E)24.01;G 3.16
|
||||
6.12 C
|
||||
|
||||
7.01 I (K(I,3))7.02,7.02;S H=(X/K3/F0(K(I,1),S1,K(I,2),S2))*(2*FRAN());S K(I,3)=K(I,3)-H;G 7.03
|
||||
7.02 R
|
||||
7.03 T %4,H," UNIT HIT ON KLINGON AT SECTOR "%1,K(I,1)," -",K(I,2)," ("%3,K(I,3)," LEFT)",!
|
||||
7.04 I (K(I,3)),,7.05;D 29.0
|
||||
7.05 I (K9)24.06,24.06;R
|
||||
7.06 I (D(5)),7.07,7.07;T "PHOTON TUBES ARE NOT OPERATIONAL",!;G 3.16
|
||||
7.07 I (P),,7.08;T "ALL PHOTON TORPEDOES EXPENDED",!;G 3.16
|
||||
7.08 A "TORPEDO COURSE (1-9):",C1;I (C1),3.16;I (C1-1)7.08;I (C1-9),7.08,7.08
|
||||
7.09 S X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-FITR(C1))
|
||||
7.10 S X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-FITR(C1))
|
||||
7.11 S X=S1;S Y=S2;S P=P-1;T "TORPEDO TRACK:",!
|
||||
7.12 S X=X+X1;S Y=Y+X2
|
||||
7.13 G 30.01
|
||||
7.14 T :16,%1,X," -",Y,!
|
||||
7.15 S Z9=0;S Z1=X;S Z2=Y;D 22.0;I (Z3),,7.12
|
||||
7.16 S Z9=2;S Z1=X;S Z2=Y;D 22.0;I (Z3),7.24
|
||||
7.17 T "*** KLINGON DESTROYED ***",!;S K3=K3-1;S K9=K9-1;I (K9)24.06,24.06
|
||||
7.18 F I=1,3;D 7.20
|
||||
7.19 G 7.28
|
||||
7.20 I (FITR(X)-K(I,1))7.21,,7.21;I (FITR(Y)-K(I,2))7.21,,7.21;S K(I,3)=0;S A(K(I,1),K(I,2))=0;S I=4;R
|
||||
7.21 C
|
||||
7.24 S Z9=4;S Z1=X;S Z2=Y;D 22.0;I (Z3),24.09;G 24.08
|
||||
7.25 T "YOU LEPIDOPTERIAN! YOU DESTROYED YOUR STARBASE!",!
|
||||
7.27 S B3=B3-1;S Z9=0;S Z1=X;S Z2=Y;D 27.0
|
||||
7.28 S G(Q1,Q2)=K3*100+B3*10+S3;S Z(Q1,Q2)=G(Q1,Q2)
|
||||
7.29 D 25.0;I (E)24.01;G 3.16
|
||||
7.30 I (D(7)),7.31,7.31;T "SHIELD CONTROL IS NON-OPERATIONAL",!;G 3.16
|
||||
7.31 T "ENERGY AVAILABLE =",%6.2,E+S,!
|
||||
7.32 A " NUMBER OF UNITS TO SHIELDS:",X;I (X)3.16;I (E+S-X)7.31
|
||||
7.33 S E=E+S-X;S S=X;G 3.16
|
||||
7.34 I (D(6)),7.35,7.35;T "DAMAGE REPORT IS NOT AVAILABLE",!;G 3.16
|
||||
7.35 T !,"DEVICE STATE OF REPAIR",!
|
||||
7.36 F R1=1,8;D 5.0;T :18,%1,D(R1),!
|
||||
7.37 T !;G 3.16
|
||||
7.38 I (D(8)),7.39,7.39;T "COMPUTER DISABLED",!;G 3.16
|
||||
7.39 A "COMPUTER ACTIVE AND AWAITING COMMAND :",A
|
||||
7.40 I (A)7.41;I (A-3),,7.41;I (A-1)8.01,9.01;I (A-3)11.01,10.01
|
||||
7.41 T "FUNCTIONS AVAILABLE FROM COMPUTER",!
|
||||
7.42 T " 0 = CUMULATIVE GALACTIC RECORD",!," 1 = STATUS REPORT",!
|
||||
7.43 T " 2 = PHOTON TORPEDO DATA",!," 3 = COURSE DATA",!;G 7.39
|
||||
|
||||
8.01 T "COMPUTER RECORD OF GALAXY FOR QUADRANT ",%1,Q1," -",Q2,!
|
||||
8.02 T " 1 2 3 4 5 6 7 8",!
|
||||
8.03 T " ----- ----- ----- ----- ----- ----- ----- -----",!
|
||||
8.04 F I=1,8;T ,%1,I;D 8.05;I (I-8),3.16
|
||||
8.05 F J=1,8;D 8.07;I (J-8),8.08
|
||||
8.06 T " ----- ----- ----- ----- ----- ----- ----- -----",!;R
|
||||
8.07 T %4,Z(I,J)
|
||||
8.08 T !;D 8.06;R
|
||||
|
||||
9.01 T " STATUS REPORT",!
|
||||
9.02 T "NUMBER OF KLINGONS LEFT =",%2,K9,!
|
||||
9.03 T "NUMBER OF STARDATES LEFT =",%4,(T0+T9)-T,!
|
||||
9.04 T "NUMBER OF STARBASES LEFT =",%2,B9,!;G 7.34
|
||||
|
||||
10.01 T "YOU ARE AT QUADRANT ",%1,Q1," -",Q2," SECTOR ",S1," -",S2,!
|
||||
10.02 A "QUADRANT (1) OR SECTOR (2) COMPUTATION :",M6
|
||||
10.03 I (M6-2)10.08,10.04,10.02
|
||||
10.04 A "ENTER NEW SECTOR #'S:",W1,X
|
||||
10.05 S C1=S1;S A=S2;I (FABS(W1-C1)-FABS(X-A)),10.07,10.07
|
||||
10.06 T "WARP FACTOR =",%5.3,FABS(X-A)/8,!;D 12.0;G 3.16
|
||||
10.07 T "WARP FACTOR =",%5.3,FABS(W1-C1)/8,!;D 12.0;G 3.16
|
||||
10.08 A "ENTER NEW QUADRANT #'S:",W1,X
|
||||
10.09 S C1=Q1;S A=Q2;I (FABS(W1-C1)-FABS(X-A)),10.11,10.11
|
||||
10.10 T "WARP FACTOR =",%5.3,FABS(X-A),!;D 12;G 3.16
|
||||
10.11 T "WARP FACTOR =",%5.3, FABS(W1-C1),!;D 12.0;G 3.16
|
||||
|
||||
11.01 T !
|
||||
11.02 F I=1,3;D 11.04
|
||||
11.03 G 3.16
|
||||
11.04 I (K(I,3))11.05,11.05;S C1=S1;S A=S2;S W1=K(I,1);S X=K(I,2);D 12.0;R
|
||||
11.05 R
|
||||
|
||||
12.12 S X=X-A;S A=C1-W1;I (X)12.16;I (A)12.18;I (X),,12.13;I (A),12.23
|
||||
12.13 S C1=1;I (FABS(A)-FABS(X))12.15,12.15
|
||||
12.14 T "DIRECTION =",%5.3,C1+(((FABS(A)-FABS(X))+FABS(A))/FABS(A)),!;G 12.22
|
||||
12.15 T "DIRECTION =",%5.3,C1+(FABS(A)/FABS(X)),!;G 12.22
|
||||
12.16 I (A),,12.17;I (X),12.18;G 12.23
|
||||
12.17 S C1=3;G 12.19
|
||||
12.18 S C1=7
|
||||
12.19 I (FABS(A)-FABS(X)),12.21,12.21
|
||||
12.20 T "DIRECTION =",%5.3,C1+(((FABS(X)-FABS(A))+FABS(X))/FABS(X)),!;G 12.22
|
||||
12.21 T "DIRECTION =",%5.3,C1+(FABS(X)/FABS(A)),!
|
||||
12.22 T "DISTANCE =",%5.3,FSQT(X^2+A^2),!;R
|
||||
12.23 S C1=5;I (FABS(A)-FABS(X))12.15,12.15;G 12.14
|
||||
|
||||
18.01 S Z9=3;S Z1=I;S Z2=J;D 22.0
|
||||
18.02 I (Z3),,18.03;S D0=0;R
|
||||
18.03 S D0=1;S E=3000;S P=10;F Y9=1,8;S D(Y9)=0;S S=0;S I=S1+2;S J=S2+2
|
||||
18.04 T "SHIELDS DROPPED FOR DOCKING PURPOSES",!;R
|
||||
|
||||
19.01 I (K(I,3)),,19.02;R
|
||||
19.02 S H=(K(I,3)/F0(K(I,1),S1,K(I,2),S2))*(2+FRAN())
|
||||
19.03 S S=S-H
|
||||
19.04 T %4,H," UNIT HIT ON ENTERPRISE AT SECTOR ",%1,K(I,1)," -",K(I,2)," (",%4,S," LEFT)",!
|
||||
19.05 R
|
||||
|
||||
22.01 S Z3=0
|
||||
22.02 I (A(Z1,Z2)-Z9),22.03;R
|
||||
22.03 S Z3=1;R
|
||||
|
||||
23.01 F I=S1-1,S1+1;F J=S2-1,S2+1;D 18.0;I (D0),,23.02
|
||||
23.02 I (D(2)),23.03,23.03;T !,"SHORT RANGE SENSORS ARE OUT",!;R
|
||||
23.03 T "----------------",!
|
||||
23.04 S I=1;F J=1,8;D 23.06
|
||||
23.05 G 23.12
|
||||
23.06 I (A(I,J)-1)23.07,23.08;I (A(I,J)-3)23.09,23.10,23.11;R
|
||||
23.07 T " ";R
|
||||
23.08 T " #";R
|
||||
23.09 T " +";R
|
||||
23.10 T " !";R
|
||||
23.11 T " *";R
|
||||
23.12 S I=2;T !;F J=1,8;D 23.06
|
||||
23.13 T :20,"STARDATE",:32,%4,T,!
|
||||
23.14 S I=3;F J=1,8;D 23.06
|
||||
23.15 I (D0-1),23.20;I (K3),,23.18;I (E-(E0*.1))23.19
|
||||
23.17 T :20,"CONDITION",:33,"GREEN"!;G 23.21
|
||||
23.18 T :20,"CONDITION",:33,"RED",!;G 23.21
|
||||
23.19 T :20,"CONDITION",:33,"YELLOW",!;G 23.21
|
||||
23.20 T :20,"CONDITION",:33,"DOCKED",!;G 23.21
|
||||
23.21 S I=4;F J=1,8;D 23.06
|
||||
23.22 T :20,"QUADRANT",:32,%1,Q1," -",Q2,!
|
||||
23.23 S I=5;F J=1,8;D 23.06
|
||||
23.24 T :20,"SECTOR",:32,%1,S1," -",S2,!
|
||||
23.25 S I=6;F J=1,8;D 23.06
|
||||
23.26 T :20,"ENERGY",:32,%4,E,!
|
||||
23.27 S I=7;F J=1,8;D 23.06
|
||||
23.28 T :20,"PHOTONS",:32,%2,P,!
|
||||
23.29 S I=8;F J=1,8;D 23.06
|
||||
23.30 T :20,"SHIELDS",:32,%4,S,!
|
||||
23.31 T "----------------",!
|
||||
|
||||
24.01 T "THE ENTERPRISE IS DEAD IN SPACE. IF YOU SURVIVE ALL IMPENDING",!
|
||||
24.02 T "ATTACK YOU WILL BE DEMOTED TO THE RANK OF PRIVATE",!
|
||||
24.03 I (K3)24.04,24.04;D 25.0;G 24.03
|
||||
24.04 T "THERE ARE STILL "%2,K9," KLINGON BATTLE CRUISERS.",!;L Q
|
||||
24.06 T !"THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN DESTROYED",!;G 24.07
|
||||
24.07 T "THE FEDERATION HAS BEEN SAVED !!!",!,!;L Q
|
||||
24.08 T "YOU CAN'T DESTROY STARS, YOU SIMIAN!",!;G 7.29
|
||||
24.09 S Z9=3;S Z1=X;S Z2=Y;D 22.0;I (Z3),7.12;G 7.25
|
||||
24.10 I (K3),,24.11;T "SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRANT",!;G 3.16
|
||||
24.11 I (D(4)),6.06,6.06;T "PHASER CONTROL IS DISABLED",!;G 3.16
|
||||
|
||||
25.01 I (D0-1)25.02;T "STAR BASE SHIELDS PROTECT THE ENTERPRISE",!;R
|
||||
25.02 I (K3),,25.03;R
|
||||
25.03 F I=1,3;D 19.0
|
||||
25.04 I (S)25.05;R
|
||||
25.05 T "THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED",!
|
||||
25.06 T "THERE ARE STILL "%2,K9," KLINGON BATTLE CRUISERS",!;L Q
|
||||
|
||||
26.01 S R1=FITR(FRAN()*8+1);S R2=FITR(FRAN()*8+1)
|
||||
26.02 S Z9=0;S Z1=R1;S Z2=R2
|
||||
26.03 D 22.0;I (Z3),26.01;R
|
||||
|
||||
27.01 S A(Z1,Z2)=Z9;R
|
||||
|
||||
28.01 F I=1,8;F J=1,8;I (A(I,J)-2)28.02,,28.02;S A(I,J)=0
|
||||
28.02 C
|
||||
28.03 I (K6)28.05,28.05;F I=1,K6;I (K(I,3)),,28.04;I (I-K6),28.05
|
||||
28.04 D 26;S K(I,1)=R1;S K(I,2)=R2;S A(R1,R2)=2
|
||||
28.05 R
|
||||
|
||||
29.01 T "KLINGON AT SECTOR ",%1,K(I,1)," -",K(I,2)," DESTROYED.",!
|
||||
29.02 S K3=K3-1;S K9=K9-1;S Z9=0;S Z1=K(I,1);S Z2=K(I,2);D 27.0
|
||||
29.03 S G(Q1,Q2)=K3*100+B3*10+S3
|
||||
29.04 S Z(Q1,Q2)=G(Q1,Q2);R
|
||||
|
||||
30.01 I (X-1),30.02,30.02;T "TORPEDO MISSED",!;D 25.0;I (E)24.01;G 3.16
|
||||
30.02 I (X-9)30.03;T "TORPEDO MISSED",!;D 25.0;I (E)24.01;G 3.16
|
||||
30.03 I (Y-1),30.04,30.04;T "TORPEDO MISSED",!;D 25.0;I (E)24.01;G 3.16
|
||||
30.04 I (Y-9)30.05;T "TORPEDO MISSED",!;D 25.01;I (E)24.0;G 3.16
|
||||
30.05 G 7.14
|
||||
|
||||
31.99 S Z'=FSQT((A'-B')^2+(C'-D')^2)
|
||||
|
||||
BIN
files/games_interchange/footbl.bas
Normal file
BIN
files/games_interchange/footbl.bas
Normal file
Binary file not shown.
27
files/games_interchange/footbl.hlp
Normal file
27
files/games_interchange/footbl.hlp
Normal file
@ -0,0 +1,27 @@
|
||||
FOOTBL.HLP
|
||||
|
||||
FOOTBL.BAS PROGRAMED BY F. MASON
|
||||
|
||||
THIS PROGRAM SIMULATES A FOOTBALL GAME
|
||||
ONE PLAYER IS KNIGHTS AND THE OTHER IS NOBLES.
|
||||
GAME ENDS IN 40 PLAYS...
|
||||
|
||||
THESE ARE THE CODES FOR THE POSIBLE PLAYS:
|
||||
|
||||
OFFENSE: DEFENSE:
|
||||
RUN THROUGH LINE ----- = 1 ZONE ------------ = 50
|
||||
RUN AROUND END ------- = 2 DEEP ZONE ------- = 60
|
||||
SHORT YARDAGE RUN ---- = 3 BLITZ ----------- = 70
|
||||
SHORT DOWN-OUT PASS -- = 4 GOAL LINE STAND - = 80
|
||||
MEDIUM DIST. PASS ---- = 5 PUNT RETURN ----- = 90
|
||||
BOMB ----------------- = 6
|
||||
PUNT ----------------- = 7
|
||||
FIELD GOAL ATTEMPT --- = 8
|
||||
|
||||
|
||||
TO RUN THE GAME YOU MUST TYPE 'R BASIC' IF THE COMPUTER
|
||||
PRINTS A '.' WHEN YOU HIT RETURN. WHEN THE COMPUTER
|
||||
PRINTS 'READY, FOR HELP TYPE HELP' OR 'READY' TYPE IN
|
||||
'OLD D11:FOOTBL'. THE COMPUTER WILL RESPOND WITH ANOTHER
|
||||
'READY'. TYPE 'RUN' OR 'RUNNH' AND THE COMPUTER WILL BEGIN
|
||||
EXECUTING THE GAME.
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user