Notes

Disk info for Volume_244_Games.dsk:

File Name: riag_006_Volume_244_-_Games/Volume_244_Games.dsk
Disk Name: /G27/
Physical Size (bytes): 143360
Free Space (bytes): 30208
Used Space (bytes): 113152
Physical Size (KB): 140
Free Space (KB): 29
Used Space (KB): 110
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 59
Used Blocks: 221
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: 12/31/1987
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 27
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 0
Volume Name: G27

Disk directory for Volume_244_Games.dsk:

riag_006_Volume_244_-_Games/Volume_244_Games.dsk /G27/
A.............A DIR 001 12/31/1987 12/31/1987 512
A...BIG.RED...A DIR 001 12/31/1987 12/31/1987 512
A...COMPUTER..A DIR 001 12/31/1987 12/31/1987 512
A.....CLUB....A DIR 001 12/31/1987 12/31/1987 512
B.............B DIR 001 12/31/1987 12/31/1987 512
C.423.NORFOLK.C DIR 001 12/31/1987 12/31/1987 512
C.NORFOLK.NE..C DIR 001 12/31/1987 12/31/1987 512
C....68701....C DIR 001 12/31/1987 12/31/1987 512
C.............C DIR 001 12/31/1987 12/31/1987 512
D.VOLUME..G27.D DIR 001 12/31/1987 12/31/1987 512
D..P8..GAMES..D DIR 001 12/31/1987 12/31/1987 512
D.............D DIR 001 12/31/1987 12/31/1987 512
PRODOS SYS 032 04/17/1987 12/31/1987 15,485
BASIC.SYSTEM SYS 021 06/18/1984 12/31/1987 10,240 A=$2000
STARTUP BAS 005 01/07/1988 01/07/1988 1,933 A=$0801
HELLO.TXT TXT 004 01/22/1988 01/22/1988 1,496
TEX SYS 024 09/11/1987 01/21/1988 11,564
E.............E BAS 001 01/07/1988 01/07/1988 67 A=$0801
NUKE.POWER BAS 023 01/22/1988 01/21/1988 10,760 A=$0801
STARS.1.2 BAS 005 01/22/1988 01/21/1988 2,005 A=$0801
MATH.GUESS.V2.2 BAS 008 01/22/1988 01/21/1988 3,171 A=$0801
HANGMAN.V1.1 BAS 010 01/22/1988 01/21/1988 4,288 A=$0801
CHASE.V1.2 BAS 015 01/22/1988 01/21/1988 7,161 A=$0801
SOLITAIRE BAS 006 01/22/1988 01/21/1988 2,238 A=$0801
FOOTBALL BAS 022 01/22/1988 01/21/1988 10,579 A=$0801
CLOUZOT BAS 015 01/22/1988 01/21/1988 6,856 A=$0801
CLEW.SO BAS 011 01/22/1988 01/21/1988 4,661 A=$0801
ProDOS format; 30,208 bytes free; 113,152 bytes used.

Text found in Volume_244_Games.dsk/CHASE.V1.2.bas:

5 TEXT : HOME
10 VTAB (10): PRINT TAB( 13)"MONSTER CHASE": PRINT : PRINT TAB( 14)"BY T. NELSON": PRINT TAB( 15)"(JAN.1980)"
12 PRINT : PRINT SPC( 8)"REVISED BY DOUG TRUEMAN": PRINT SPC( 15)"(MAR 1987)
15 GOSUB 10000
16 HOME
20 PRINT TAB( 13)"MONSTER CHASE ": PRINT :
30 PRINT "IN THIS SIMULATION YOU'RE TRAPPED IN A CAGE WITH A HUNGRY GREEN MONSTER WHO HASA LIFE SPAN OF ONLY A FEW TURNS (YOU OR
40 PRINT "THE COMPUTER MAY SELECT THE NUMBER)": PRINT : PRINT "YOUR MOVEMENT AND THAT OF THE MONSTER TAKES PLACE ON A 5X5 GRID. SOMEWHERE ON
45 PRINT "EACH GRID THERE IS A PIT FILLED WITH QUICKSAND. IF ANYONE FALLS INTO IT THEY SINK---AND LOSE!": PRINT
48 PRINT "THE BARS OF THE CAGE ARE ELECTIFIED SO IF YOU TRY AND GO THROUGH THEM YOU WILL BE KILLED AND LOSE!": PRINT
50 PRINT "YOU MAY MOVE NORTH, EAST, SOUTH, OR WESTBY ENTERING N,E,S OR W. IF YOU ENTER ANYOTHER LETTER, YOU WILL STAY IN THE SAME PLACE.
60 GOSUB 10000
67 HOME
70 PRINT "THE MONSTER IS PROGRAMMED TO MOVE TOWARDS YOU (HE CAN MOVE DIAGONALLY TOO)
75 PRINT "YOU DECIDE THE GAMES DIFFICULTLY.": PRINT : PRINT "1. YOU'VE A STUPID MONSTER & VISBLE PIT.";
80 PRINT "2. YOU'VE A SMART MONSTER & VISIBLE PIT.";
82 PRINT "3. YOU'VE A STUPID MONSTER/INVISBLE PIT.";
84 PRINT "4. YOU'VE A SMART MONSTER/INVISBLE PIT."
86 PRINT : PRINT "WHICH LEVEL OF DIFFICULTY? (1-4) ";: GET CHOICE$: PRINT CHOICE$: GOSUB 10010:C = CH: IF FLAG GOTO 67
88 PRINT : PRINT "DO YOU WANT TO DETERMINE THE NUMBER OF TURNS? (Y/N) ";: GET I$: PRINT I$: IF I$ = "Y" OR I$ = "y" THEN INPUT "HOW MANY? ";N$:N = VAL(N$)
90 IF N < = 0 THEN N = INT(10 * RND(1)) +5
92 PRINT : PRINT "YOUR ONLY HOPE FOR SURVIVAL IS TO OUTWITTHE MONSTER FOR "N" TURNS OR LURE IT": PRINT "INTO THE PIT. GOOD LUCK!
95 GOSUB 10000
96 HOME
200 GR : REM DISPLAY GRID FOR CAGE
210 X = 4:Y = 2
220 COLOR= 15: REM WHITE
230 FOR I = 0 TO 35
240 HLIN X,X +30 AT Y +I
250 NEXT I
260 REM GROUT BETWEEN FLOOR TILES (YELLOW)
270 COLOR= 13
275 HLIN X,X +30 AT Y: HLIN X,X +30 AT Y +35
280 HLIN X,X +30 AT Y +7: HLIN X,X +30 AT Y +14: HLIN X,X +30 AT Y +21: HLIN X,X +30 AT Y +28
285 VLIN Y +1,Y +34 AT X +6: VLIN Y +1,Y +34 AT X +12: VLIN Y +1,Y +34 AT X +18: VLIN Y +1,Y +34 AT X +24
290 VLIN Y +1,Y +34 AT X: VLIN Y +1,Y +34 AT X +30
300 REM BARS AROUND CAGE
305 COLOR= 10: REM GREY
310 PLOT X -1,Y -1: PLOT X +3,Y -1: PLOT X +7,Y -1: PLOT X +11,Y -1: PLOT X +15,Y -1: PLOT X +19,Y -1: PLOT X +23,Y -1: PLOT X +27,Y -1: PLOT X +31,Y -1
320 PLOT X -1,Y +36: PLOT X +3,Y +36: PLOT X +7,Y +36: PLOT X +11,Y +36: PLOT X +15,Y +36: PLOT X +19,Y +36: PLOT X +23,Y +36: PLOT X +23,Y +36: PLOT X +27,Y +36: PLOT X +31,Y +36
330 PLOT X -1,Y +3: PLOT X -1,Y +7: PLOT X -1,Y +11: PLOT X -1,Y +15: PLOT X -1,Y +19: PLOT X -1,Y +23: PLOT X -1,Y +27: PLOT X -1,Y +31
340 PLOT X +31,Y +3: PLOT X +31,Y +7: PLOT X +31,Y +11: PLOT X +31,Y +15: PLOT X +31,Y +19: PLOT X +31,Y +23: PLOT X +31,Y +27: PLOT X +31,Y +31
341 COLOR= 15: PLOT X +11,Y +11
350 REM DETERMINE LOCATION OF PIT
355 X = 4:Y = 3
360 PZ = INT(23 * RND(1)) +1
370 IF PZ <1 THEN PZ = 1
380 IF PZ >23 THEN PZ = 23
389 IF PZ = 1 THEN PY = 1
390 IF PZ = 1 THEN PX = 7
391 IF PZ = 2 THEN PY = 1
392 IF PZ = 2 THEN PX = 13
393 IF PZ = 3 THEN PY = 1
394 IF PZ = 3 THEN PX = 19
395 IF PZ = 4 THEN PY = 1
396 IF PZ = 4 THEN PX = 25
397 IF PZ = 5 THEN PY = 8
398 IF PZ = 5 THEN PX = 1
399 IF PZ = 6 THEN PY = 8
400 IF PZ = 6 THEN PX = 7
401 IF PZ = 7 THEN PY = 8
402 IF PZ = 7 THEN PX = 13
403 IF PZ = 8 THEN PY = 8
404 IF PZ = 8 THEN PX = 19
405 IF PZ = 9 THEN PY = 8
406 IF PZ = 9 THEN PX = 25
407 IF PZ = 10 THEN PY = 15
408 IF PZ = 10 THEN PX = 1
409 IF PZ = 11 THEN PY = 15
410 IF PZ = 11 THEN PX = 7
411 IF PZ = 12 THEN PY = 15
412 IF PZ = 12 THEN PX = 13
413 IF PZ = 13 THEN PY = 15
414 IF PZ = 13 THEN PX = 19
415 IF PZ = 14 THEN PY = 15
416 IF PZ = 14 THEN PX = 25
417 IF PZ = 15 THEN PY = 22
418 IF PZ = 15 THEN PX = 1
419 IF PZ = 16 THEN PY = 22
420 IF PZ = 16 THEN PX = 7
421 IF PZ = 17 THEN PY = 22
422 IF PZ = 17 THEN PX = 13
423 IF PZ = 18 THEN PY = 22
424 IF PZ = 18 THEN PX = 19
425 IF PZ = 19 THEN PY = 22
426 IF PZ = 19 THEN PX = 25
427 IF PZ = 20 THEN PY = 29
428 IF PZ = 20 THEN PX = 1
429 IF PZ = 21 THEN PY = 29
430 IF PZ = 21 THEN PX = 7
431 IF PZ = 22 THEN PY = 29
432 IF PZ = 22 THEN PX = 13
433 IF PZ = 23 THEN PY = 29
434 IF PZ = 23 THEN PX = 19
438 IF C = 3 THEN 455
439 IF C = 4 THEN 455
440 IF C <1 THEN C = 1: IF C >4 THEN C = 4
441 REM DRAW PIT
442 X = 4:Y = 2
443 XP = X +PX:YP = Y +PY
445 COLOR= 0: REM BLACK
450 FOR I = 0 TO 5: HLIN XP,XP +4 AT YP +I: NEXT I
455 X = 4:Y = 2: REM SET CONDITIONS
456 XP = X +PX:YP = Y +PY:MX = 1:MY = 1
457 HX = 25:HY = 29
458 XM = X +MX:YM = Y +MY
459 XH = X +HX:YH = Y +HY
460 REM PLACE MONSTER
470 GOSUB 2000
480 REM PLACE HUMAN
490 GOSUB 2500
500 REM BEGIN HUMAN MOVEMENT LOOP
505 FOR T = 1 TO N
509 PRINT "MOVE NUMBER ";T;" OUT OF ";N
510 PRINT "HUMAN'S TURN- WHICH DIRECTION (N,S,E,W, OR'X')? ";: GET H$: PRINT H$
515 GOSUB 2800
520 IF H$ = "N" THEN YH = YH -7: GOTO 570
530 IF H$ = "E" THEN XH = XH +6
540 IF H$ = "S" THEN YH = YH +7
550 IF H$ = "W" THEN XH = XH -6
570 GOSUB 2500: REM REPLOT HUMAN
572 IF XH = 0 OR YH = 0 OR XH >29 OR YH >31 THEN PRINT "YOU CAN'T GET OUT OF THE CAGE. YOU HAVE BEEN ELECTRICUTED!
573 IF XH = 0 OR YH = 0 OR XH >29 OR YH >31 THEN 980
574 IF XH = XM AND YH = YM THEN GOSUB 2100
575 IF XH = XM AND YH = YM THEN PRINT "YOU RAN RIGHT INTO HIS MOUTH! CHOMP"
576 IF XH = XM AND YH = YM THEN GOSUB 2100
577 IF XH = XM AND YH = YM THEN 980
580 IF XH = XP AND YH = YP THEN HOME : PRINT "YOU FELL IN THE QUICKSAND-- YOU LOSE!": FOR V1 = 1 TO 100: NEXT
583 IF XH = XP AND YH = YP THEN GOSUB 2900
585 IF XH = XP AND YH = YP THEN 980
600 REM MONSTER'S MOVE
610 GOSUB 2700: REM REMOVE MONSTER
620 IF C = 1 THEN 700
630 IF C = 3 THEN 700
640 IF XM = XH +6 AND YM = YH THEN XM = XH: GOTO 860
650 IF XM = XH -6 AND YM = YH THEN XM = XH: GOTO 860
660 IF YM = YH +7 AND XM = XH THEN YM = YH: GOTO 860
670 IF YM = YH -7 AND XM = XH THEN YM = YH: GOTO 860
700 REM DETERMINE MONSTER'S MOVE
710 IF XM = XH AND YM XH AND YM XH AND YM = YH THEN D = 3
740 IF XM >XH AND YM >YH THEN D = 4
750 IF XM = XH AND YM >YH THEN D = 5
760 IF XM YH THEN D = 6
770 IF XM 1 AND D <5 THEN XM = XM -6
830 IF D >5 THEN XM = XM +6
840 IF D >3 AND D <7 THEN YM = YM -7
850 IF D <3 OR D = 8 THEN YM = YM +7
860 IF XM <5 THEN XM = 5
870 IF XM >29 THEN XM = 29
880 IF YM <3 THEN YM = 3
890 IF YM >31 THEN YM = 31
900 GOSUB 2000: REM REPOSITON HUMAN
910 HOME
920 IF XM = XH AND YM = YH THEN GOSUB 2100
930 IF XM = XH AND YM = YH THEN PRINT "YOU'VE BEEN EATEN!"
940 IF XM = XH AND YM = YH THEN 980
949 HOME
950 IF XM = XP AND YM = YP THEN GOSUB 2900
952 HOME : IF XM = XP AND YM = YP THEN PRINT "THE MONSTER FELL IN QUICKSAND!": FOR PAUSE = 1 TO 75: NEXT PAUSE
953 IF XM = XP AND YM = YP AND C = 3 THEN PRINT TAB( 3)"YOU WERE SAVED BY LUCK & QUICKSAND.": PRINT "NOTHING TO TAKE PRIDE IN.": GOTO 988
954 IF XM = XP AND YM = YP THEN 988
960 NEXT T
970 HOME : PRINT "YOU SURVIVED!!!!"
975 GOSUB 3500
979 HOME
980 PRINT "YOU LASTED ";T -1;" OUT OF ";N;" POSSIBLE TURNS.": GOSUB 10000
981 IF T -1 = N THEN PRINT TAB( 5)"A PERFECT SCORE!"
982 IF T = N -1 THEN PRINT "YOU ALMOST MADE IT!"
983 IF XM < >XP AND XM < >XH AND T -1 "N" AND I$ < >"n" THEN 992
1000 PRINT "WELL, OK, WE'LL QUIT FOR NOW.": PRINT "DO LET'S PLAY AGAIN SOON.": TEXT : HOME : PRINT CHR$(4)"-STARTUP"
2000 REM MONSTER SUBROUTINE
2005 COLOR= 12: REM GREEN BODY
2010 FOR I = 0 TO 4: HLIN XM +1,XM +3 AT YM +I: NEXT I
2030 PLOT XM,YM +2: PLOT XM +4,YM +2
2040 PLOT XM +1,YM +5: PLOT XM +3,YM +5
2050 COLOR= 15: REM WHITE MOUTH
2060 PLOT XM +2,YM +1
2070 RETURN
2100 REM VICTORIOUS MONSTER SUBROUTINE
2110 COLOR= 12
2120 FOR I = 0 TO 1: HLIN XM +1,XM +3 AT YM +I: NEXT I
2130 FOR I = 2 TO 4: HLIN XM +1,XM +2 AT YM +I: NEXT I
2140 PLOT XM,YM +2: PLOT XM +1,YM +5: PLOT XM +3,YM +5
2150 COLOR= 1: REM RED MOUTH
2160 PLOT XM +2,YM +1
2170 COLOR= 10: REM GREY SHIELD
2180 FOR I = 2 TO 4: HLIN XM +3,XM +4 AT YM +I: NEXT I
2190 COLOR= 15: PLOT XM,YM +3: REM REMOVE HUMAN'S HAND
2200 RETURN
2500 REM HUMAN SUBROUTINE
2510 COLOR= 9: REM ORANGE FLESH
2520 FOR I = 0 TO 1: HLIN XH +1,XH +3 AT YH +I: NEXT I
2530 PLOT XH +2,YH +2
2540 PLOT XH,YH +3: PLOT XH +1,YH +5: PLOT XH +3,YH +5
2560 COLOR= 1: REM RED SUIT
2570 HLIN XH +1,XH +2 AT YH +3
2580 PLOT XH +2,YH +4
2590 COLOR= 10: REM GREY SHIELD
2600 FOR I = 2 TO 4: HLIN XH +3,XH +4 AT YH +I: NEXT I
2610 RETURN
2700 REM CLEANUP MONSTER SUBROUTINE
2705 COLOR= 15: REM WHITE
2710 FOR I = 0 TO 5: HLIN XM,XM +4 AT YM +I: NEXT I
2720 RETURN
2800 REM CLEANUP SUBROUTINE FOR HUMAN
2810 COLOR= 15: REM WHITE
2820 FOR I = 0 TO 5: HLIN XH,XH +4 AT YH +I: NEXT I
2830 RETURN
2900 REM QUICKSAND SUBROUTINE
2910 XP = PX +X:YP = PY +Y
2920 COLOR= 0: REM BLACK
2930 HLIN XP,XP +4 AT YP +5
2935 FOR PAUSE = 1 TO 100: NEXT PAUSE
2940 HLIN XP,XP +4 AT YP +4
2945 FOR PAUSE = 1 TO 100: NEXT PAUSE
2950 HLIN XP,XP +4 AT YP +3
2955 FOR PAUSE = 1 TO 100: NEXT PAUSE
2960 HLIN XP,XP +4 AT YP +2
2965 FOR PAUSE = 1 TO 100: NEXT PAUSE
2970 HLIN XP,XP +4 AT YP +1
2975 FOR PAUSE = 1 TO 100: NEXT PAUSE
2980 HLIN XP,XP +4 AT YP
3000 RETURN
3500 REM DYING MONSTER SUBROUTINE
3510 COLOR= 15: REM WHITE
3520 PLOT XM +1,YM: GOSUB 4000
3530 PLOT XM +2,YM: GOSUB 4000
3540 PLOT XM +3,YM: GOSUB 4000
3550 HLIN XM +1,XM +3 AT YM +1: GOSUB 4000
3560 HLIN XM,XM +4 AT YM +2: GOSUB 4000
3570 HLIN XM +1,XM +3 AT YM +3: GOSUB 4000
3580 PLOT XM +1,YM +4: PLOT XM +3,YM +4
3590 COLOR= 12: PLOT XM +2,YM +5
4000 FOR PAUSE = 1 TO 100: NEXT PAUSE: RETURN
4010 RETURN
10000 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT PT$: RETURN
10010 FLAG = 0:CHOICE = VAL(CHOICE$): IF CHOICE <1 OR CHOICE >4 THEN PRINT : PRINT "PLEASE ENTER A NUMBER FROM 1 TO 4." CHR$(7):FLAG = 1
10020 RETURN
20000 REM *** REVISED BY
20010 REM *** DOUG TRUEMAN
20020 REM *** IMPROVED INPUT ROUTINES
20030 REM *** IMPROVED DISPLAY
30040 REM *** TRUE RANDOM
30050 REM *** IMPROVED EXIT
30060 REM *** CONVERTED TO PRODOS

Text found in Volume_244_Games.dsk/CLEW.SO.bas:

10 DIM S$(5),R$(6),P(5,9)
20 REM *********************
30 REM * *
40 REM * INSPECTOR CLEW-SO *
50 REM * BY: RON CARLSON *
60 REM * FEB. 1979 *
70 REM * ADAPTED BY *
75 REM * DONALD BROWN *
80 REM * MAY 1979 *
81 REM * *
82 REM * AS FOUND IN *
83 REM *RECREATIONAL *
84 REM * COMPUTING *
85 REM * MAY/JUNE 1979 *
86 REM * *
87 REM *********************
90 S$(1) = "BILL":S$(2) = "MARY":S$(3) = "PAUL":S$(4) = "SUZY":S$(5) = "JOHN"
100 R$(1) = "LOUNGE":R$(2) = "ATRIUM":R$(3) = "LIVING":R$(4) = "DINING":R$(5) = "TROPHY":R$(6) = "GARAGE"
110 GOTO 160
120 ZA$ = LEFT$(ZA$,4): FOR AA = 1 TO 5: IF ZA$ < >S$(AA) THEN NEXT :PP = 0: RETURN
130 PP = AA: RETURN
140 ZA$ = LEFT$(ZA$,6): FOR AA = 1 TO 6: IF ZA$ < >R$(AA) THEN NEXT :PP = 0: RETURN
150 PP = AA: RETURN
160 HOME : VTAB 2: HTAB 12: INVERSE : PRINT "INSPECTOR CLEW-SO": NORMAL : PRINT : PRINT TAB( 13);"BY RON CARLSON"
170 PRINT TAB( 9);"ADAPTED BY DONALD BROWN": PRINT : PRINT
210 PRINT "BILL, MARY, JOHN, SUZY AND PAUL ARE": PRINT "HOUSE GUESTS. THEIR HOST WAS MURDERED": PRINT "BY ONE OF THEM BETWEEN 1 PM. AND 9 PM."
220 PRINT "YOUR JOB AS INSPECTOR CLEW-SO IS TO FIND";: PRINT "THE KILLER, TIME, AND ROOM. YOU WILL": PRINT "BE GIVEN A HOUSE DIAGRAM AND A SET OF"
230 PRINT "QUESTIONS FOR THE SUSPECTS, BUT THE": PRINT "GUILTY PERSON MAY TRY TO MISLEAD YOU BY": PRINT "LYING SOME OF THE TIME."
240 PRINT "IF ONE OF THE SUSPECTS CLAIM THAT THE": PRINT "HOST WAS ALREADY DEAD OR THAT THE HOST": PRINT "WAS STILL ALIVE, THEN YOU HAVE FOUND THE";: PRINT "ROOM WHERE THE MURDER TOOK PLACE.": PRINT
250 PRINT : PRINT "(HIT ANY KEY TO CONTINUE)";: GET A$: PRINT : HOME
260 PRINT "HOUSE DIAGRAM--","O (WINDOWS)"
310 H = 0:C = 0:C1 = 0: PRINT "!---------------------------!": PRINT "! ! O GARAGE !": PRINT "! O TROPHY! !": PRINT "! DINING !---!- -! -- !"
320 PRINT "! !------!": PRINT "!--O----------! -! !": PRINT "! !--!": PRINT "! !- ------ !"
330 PRINT "! LIVING ---! ! !": PRINT "!-- ! O LOUNGE !": PRINT " ! O ATRIUM ! ----!"
340 PRINT " !--------!---------!-----!"
350 PRINT : POKE 34, PEEK(37)
360 VTAB 1: HTAB 33: PRINT "SUSPECTS": FOR AA = 1 TO 5: HTAB 35: PRINT S$(AA): NEXT
400 HOME
460 FOR K = 1 TO 5:P(K,1) = INT(6 * RND(1)) +1: NEXT K: FOR L = 2 TO 9: FOR K = 1 TO 5
510 A = INT(6 * RND(K)) +1: IF A = P(K,L -1) THEN 510
520 P(K,L) = A: NEXT K,L
560 REM ESTABLISHED SUSPECT'S
565 REM MOVEMENTS
570 REM RANDOM ASSIGNMENT OF
575 REM KILLER,TIME,ROOM
580 M = INT(5 * RND(1)) +1:T = INT(9 * RND(2)) +1:R = P(M,T)
610 PRINT : PRINT "INSPECTOR CLEW-SO, WHO DO YOU WANT TO": INPUT " QUESTION? ";S1$
615 IF S1$ = "CRIME" OR LEFT$(S1$,3) = "SOL" THEN 1200
620 ZA$ = S1$: GOSUB 120:S = PP: IF S = 0 THEN 610
630 HOME
640 PRINT "DO YOU WISH TO QUESTION ";S$(S): PRINT "ABOUT--": PRINT " 1 - WHEREABOUTS AT PARTICULAR TIME": PRINT " 2 - TIME SUSPECT IN CERTAIN ROOM"
680 INPUT " 3 - THE CRIME IS SOLVED -- ";A: IF A <1 OR A >3 OR A < > INT(A) THEN 630
700 C = C +1: ON A GOTO 720,990,1200
720 HOME : PRINT S$(S);", ";
740 INPUT "WHERE WERE YOU AT ";T1: IF T1 <1 OR T1 >9 THEN 740
750 PRINT
760 R1 = P(S,T1): IF S < >M THEN 860
780 REM LIAR SECTION
790 IF RND(2) <.5 THEN 910
800 R1 = INT(6 * RND(3)) +1: IF RND(4) <.5 THEN 840
820 PRINT "THE HOST WAS ALREADY DEAD.": GOTO 910
840 PRINT "OUR HOST WAS STILL ALIVE.": GOTO 910
860 IF R1 < >R THEN 910
880 IF RND(5) <.5 THEN 910
890 IF T1 T THEN PRINT " THE HOST WAS ALREADY DEAD."
910 PRINT "I WAS IN THE ";R$(R1);" ROOM."
920 FOR K = 1 TO 5: IF K = S THEN 960
940 IF P(K,T1) = R1 THEN PRINT "I WAS WITH ";S$(K)
950 IF ABS(R1 -P(K,T1)) = 1 THEN PRINT "I SAW ";S$(K)
960 NEXT K: GOTO 610
980 REM ROOM QUESTIONING
990 HOME : PRINT S$(S);",";
1000 INPUT "WHEN WERE YOU IN THE ";ZA$:ZA$ = LEFT$(ZA$,6)
1010 GOSUB 140:T1 = PP
1020 IF T1 = 0 THEN 1000
1025 PRINT
1030 IF S < >M THEN 1110
1040 IF RND(5) <.5 THEN 1110
1050 T1 = INT( RND(5) *6) +1
1090 PRINT "I WAS NOT IN THAT ROOM.": GOTO 610
1110 K = 0: FOR B = 1 TO 9: IF P(S,B) = T1 THEN PRINT "I WAS IN THAT ROOM AT ";B:K = 1
1120 NEXT : IF K = 0 THEN PRINT "I WAS NOT IN THAT ROOM"
1130 GOTO 610
1190 REM CONFRONTATION SECTION
1200 C1 = C1 +1
1205 HOME
1210 PRINT "INSPECTOR DO YOU THINK YOU KNOW :"
1220 PRINT " 1 KILLER": PRINT " 2 ROOM": PRINT " 3 TIME": INPUT " 4 TOTALLY BAFFLED ---";A
1250 IF A <1 OR A >4 OR A < > INT(A) THEN 1210
1260 ON A GOTO 1270,1420,1350,1550
1270 INPUT " THE KILLER IS ? ";ZA$: GOSUB 120: IF PP = 0 THEN 1210
1280 IF PP < >M THEN 1530
1285 VTAB M +2: HTAB 35: INVERSE : PRINT S$(M): NORMAL : HOME
1290 PRINT " YOU HAVE THE KILLER, INSPECTOR CLEW-SO":H = H +1: IF H/2 = INT(H/2) THEN PRINT "YOU HAD HIM BEFORE, REMEMBER?":H = H -1
1300 IF H = 7 THEN 1500
1340 GOTO 610
1350 INPUT "TIME OF THE MURDER ";T1: IF T1 <1 OR T1 >9 OR T1 < > INT(T1) THEN 1210
1360 IF T1 < >T THEN 1530
1370 VTAB 9: HTAB 34: INVERSE : PRINT "TIME:";T1: NORMAL : HOME
1380 PRINT " YOU HAVE THE RIGHT TIME.":H = H +2: IF INT(H/2)/2 = INT(H/4) THEN PRINT "YOU HAD IT BEFORE, DUMMY!":H = H -2
1390 IF H = 7 THEN 1500
1400 GOTO 610
1420 INPUT "ROOM OF THE MURDER?";ZA$: GOSUB 140: IF PP = 0 THEN 1420
1430 IF PP < >R THEN 1530
1435 VTAB 11: HTAB 34: INVERSE : PRINT R$(R): HTAB 35: PRINT "ROOM": NORMAL : HOME
1440 PRINT " YOU HAVE THE RIGHT ROOM":H = H +4: IF H >7 THEN PRINT "I TOLD IT WAS RIGHT THE LAST TIME.":H = H -4
1450 IF H = 7 THEN 1500
1470 GOTO 610
1500 PRINT : PRINT "YOU ARE BRILLIANT, INSPECTOR CLEW-SO": PRINT "IT TOOK YOU ";C;" QUESTIONS AND ";C1: PRINT " CONFRONTATIONS.": GOTO 1590
1530 PRINT "INSPECTOR CLEW-SO YOU ARE A BUMBLING IDIOT. TRY AGAIN.": PRINT : GOTO 610
1550 PRINT "TOO BAD INSPECTOR CLEW-SO": PRINT "THE FACTS ARE:": PRINT " ";S$(M);" KILLED THE HOST": PRINT " AT ";T;" O'CLOCK IN THE": PRINT " ";R$(R);" ROOM"
1590 PRINT : INPUT "DO YOU WANT A NEW CASE?";A$: TEXT : HOME : IF LEFT$(A$,1) = "Y" THEN 260
1600 VTAB 5: PRINT "I HOPE YOU'VE ENJOYED YOURSELF"
1610 FOR V1 = 1 TO 9000: NEXT : PRINT : PRINT CHR$(4)"-STARTUP"

Text found in Volume_244_Games.dsk/CLOUZOT.bas:

2 REM
3 REM OUTWIT A BRILLIANT DETECTIVE.
4 REM
5 REM
6 REM APPLESOFT 32K
7 REM
8 REM AUTHOR UNKNOWN
9 REM
10 REM ADAPTED TO APPLE FROM PET BY KEITH FAULKNER.
11 REM ***********************
13 REM * *
14 REM * SAN MATEO COUNTY *
15 REM * OFFICE OF EDUCATION *
16 REM * & *
17 REM * COMPUTER-USING *
18 REM * EDUCATORS *
19 REM * *
20 REM * SOFTSWAP *
21 REM * *
22 REM * 333 MAIN STREET *
23 REM * REDWOOD CITY *
24 REM * CA 94063 *
25 REM * *
26 REM * (415)363-5472 *
28 REM * *
29 REM ***********************
30 REM *PROGRAM MAY BE COPIED*
31 REM *FOR EDUCATIONAL USE &*
32 REM *MAY NOT BE SOLD.COPY-*
33 REM *RIGHT 1982 CUE,INC *
34 REM ***********************
40 GOTO 100
50 VTAB 22: HTAB 1
51 PRINT "PRESS TO END"
52 PRINT "PRESS TO CONTINUE => ";
53 GET BV$
54 IF BV$ = CHR$(27) THEN 30000
55 IF BV$ < > CHR$(13) THEN 53
56 RETURN
60 GET I$: PRINT I$:RE = ASC(I$) -64: RETURN
100 C$ = "CLOUZOT: ":I = RND( - PEEK(79)):SP$ = " "
110 GOSUB 1800: REM POKE SOUND SUBROUTINE TO PAGE 3
120 A = 9:N = 6: DIM P(A,1),AL$(5),T(A,N +1),A(A,N +1),CN$(5):N9 = .9999: GOTO 410
130 DATA "AUNT ANN","BENSON
140 DATA "CORA COOK","DR. DENTON
150 DATA "ESMERALDA","FRED FELL
160 DATA "THE KILLER
170 DATA "INNOCENT","GUILTY
180 DATA "A MAN","A WOMAN
190 DATA "BLUE-EYED","BROWN-EYED
200 DATA "LEFT-HANDED","RIGHT-HANDED
210 DATA "TALL","SHORT
220 DATA "RICH","POOR
230 DATA "ATHLETIC","CLUMSY
240 DATA "BRILLIANT","STUPID
250 DATA "AMBITIOUS","LAZY
260 DATA "UNNHH! NOT JIU JITSU, KATO, YOU FOOL!
270 DATA "WHO HAS REMOVED THE ARM FROM THIS CHAIR?
280 DATA "NEVER MIND, THE SURETE PAYS FOR DAMAGES.
290 DATA "OF COURSE, I HAD ALREADY DEDUCED THAT.
300 DATA "I AM NOBODY'S FOOL, MY FRIEND!
310 DATA "LET GO OF THE CUE-STICK, YOU OAF!","HMMM. VERY SUSPICIOUS.
320 DATA "IN FRANCE THE WEEK OF THE MURDER
330 DATA "ILL THE EVENING OF THE KILLING
340 DATA "WITH RELATIVES IN AKRON WHEN THE MURDER WAS COMMITTED
350 DATA "IN JAIL, DRUNK WHEN POOR VINCENT DIED
360 DATA "AT A STATE DINNER THAT NIGHT
370 DATA "AT THE BALLET WHEN THE DEED WAS DONE
380 DATA "SCANDALOUS!","YES, YES, VERY SAD","IN FRANCE THAT WOULD BE ILLEGAL
390 DATA "I WAS AFFLICTED THUS, BEFORE I JOINED THE SURETE
400 DATA "WHO IS MORE DESERVING?","QUELLE DOMMAGE!
410 FOR S = 1 TO N +1: READ S$(S): NEXT
420 FOR P = 1 TO A: READ P$(P,0),P$(P,1): NEXT : FOR I = 0 TO 6: READ J$(I): NEXT
430 FOR I = 0 TO 5: READ AL$(I): NEXT : FOR I = 0 TO 5: READ CN$(I): NEXT
440 TEXT : HOME
450 VTAB 8
460 PRINT TAB( 8)"C L O U Z O T !
465 PRINT : PRINT "DO YOU WANT SOUND (Y/N)? ";
466 GET SN$: IF SN$ < >"Y" AND SN$ < >"N" THEN 466
467 PRINT SN$
468 IF SN$ = "N" THEN POKE 770,96
470 PRINT : PRINT : PRINT "DO YOU WANT THE RULES (Y/N)? ";: GOSUB 60
475 IF I$ = "N" THEN 885
480 IF I$ < >"Y" GOTO 450
485 HOME
490 PRINT : PRINT
500 PRINT "YOU ARE ASSISTING THE GREAT INSPECTOR
510 PRINT
520 PRINT "CLOUZOT. A MURDER HAS BEEN COMMITTED.
530 PRINT
540 PRINT "THERE ARE "N" SUSPECTS. "N -1" ARE INNOCENT -
550 PRINT
560 PRINT "THEY ALWAYS TELL THE TRUTH. THE OTHER
570 PRINT
580 PRINT "IS GUILTY AND MAY LIE. WHENEVER THE"
590 PRINT
600 PRINT "INSPECTOR ASKS FOR A SUSPECT, TYPE:"
610 FOR S = 1 TO N: PRINT : PRINT TAB( 5); CHR$(S +64)" FOR "S$(S);
620 IF S = 2 THEN PRINT " THE BUTLER";
630 NEXT : PRINT "."
640 GOSUB 50
650 HOME : PRINT : PRINT
660 PRINT " CLOUZOT WILL THEN INTERROGATE THAT"
670 PRINT
680 PRINT "SUSPECT, AND YOU WILL SEE THE ANSWER.
690 PRINT : PRINT : PRINT
700 PRINT " WHEN YOU THINK YOU KNOW THE KILLER,
710 PRINT
720 PRINT "TYPE K. THE INSPECTOR WILL CHALLENGE
730 PRINT
740 PRINT "YOU TO NAME THE GUILTY PARTY. THEN,
750 PRINT
760 PRINT "TYPE THE SUSPECT'S INITIAL TO MAKE THE
770 PRINT
780 PRINT "ACCUSATION.
790 GOSUB 50: HOME : VTAB 2
800 PRINT " YOU SET THE LEVEL OF DIFFICULTY (THE
810 PRINT
820 PRINT "LIKELIHOOD OF THE GUILTY PARTY LYING),
830 PRINT
840 PRINT "FROM 0 (EASIEST) TO 5 (THE KILLER WILL
850 PRINT
860 PRINT "ALWAYS TELL THE TRUTH).
870 PRINT : PRINT : PRINT
880 PRINT "YOU MAY TYPE Q AT ANY TIME TO QUIT.
885 IF SN$ = "N" THEN 950
890 I = 132: GOSUB 1480:I = 117: GOSUB 1490:I = 0: GOSUB 1490:I = 104: GOSUB 1490:I = 99: GOSUB 1480
900 I = 0: GOSUB 1480
910 I = 87: GOSUB 1490:I = 83: GOSUB 1490:I = 0: GOSUB 1490: GOSUB 1490:I = 87: GOSUB 1490:I = 99: GOSUB 1490
920 I = 87: GOSUB 1490:I = 83: GOSUB 1490:I = 61: GOSUB 1490:I = 66: GOSUB 1490:I = 83: GOSUB 1490:I = 99: GOSUB 1490
930 I = 0: GOSUB 1490:I = 66: GOSUB 1490:I = 69: GOSUB 1480:I = 0: GOSUB 1490:I = 83: GOSUB 1490:I = 87: GOSUB 1490
940 I = 93: GOSUB 1490:I = 99: GOSUB 1470
950 GOSUB 50
960 HOME : VTAB 10
970 PRINT "DIFFICULTY LEVEL (0-5): ";: GOSUB 60:D = RE +16
980 IF I$ <"0" OR I$ >"5" THEN HOME : VTAB 8: PRINT "ZERO TO FIVE ONLY!": PRINT : GOTO 970
990 D = D/5:G = 40 +A *D: PRINT : PRINT TAB( 10)"GOOD LUCK!": PRINT
1000 K = INT(N * RND(1)) +1
1010 FOR S = 1 TO N:T(1,S) = 0:T(2,S) = 0: NEXT
1020 S = 1: IF K = 2 OR K = 4 OR K = 6 THEN S = 0
1030 T(2,N +1) = S
1040 T(1,K) = 1: FOR P = 3 TO A: FOR S = 1 TO N:T(P,S) = INT(.5 + RND(1)): NEXT
1050 T(P,S) = T(P,K): NEXT :AL = RND(1) *6
1060 FOR C = 1 TO G: PRINT "NEXT SUSPECT? ";: GOSUB 60
1070 VTAB ( PEEK(37))
1080 IF RE = 17 THEN 1320
1090 IF RE = 11 THEN 1300
1100 W = RE: IF W <1 OR W >N THEN PRINT "YOU STUPID FOOL! NEXT SUSPECT! ";: GOSUB 60: GOTO 1080
1110 P = INT(A * RND(A) +N9)
1120 S = INT((N +4) * RND(A) +N9)
1130 IF S >N THEN S = N +1: IF P = 1 THEN 1110
1140 L = T(P,S): IF P = 2 AND S < = N THEN 1110
1150 IF S < >W THEN AR$ = S$(S) +" IS ": GOTO 1170
1160 AR$ = "I'M ": IF P = 1 THEN 1110
1170 IF W = K AND RND(1) >D THEN L = 1 -L
1180 A$ = P$(P,L):I$ = " " +S$(W) +": ": IF P >1 THEN X = W: GOTO 1220
1190 IF L OR RND(A) <.7 THEN 1110
1200 X = S +AL: IF X >5 THEN X = X -5: IF X >5 THEN X = X -5
1210 AR$ = LEFT$(AR$, LEN(AR$) -3) +"WAS ":A$ = AL$(X):X = A
1220 I$ = I$ +AR$ +A$: GOSUB 1500: IF I = 0 THEN 1110
1230 IF P = 1 THEN GOSUB 1680
1240 J = 50 * RND(A): IF J <7 THEN I$ = C$ +J$(J): GOTO 1280
1250 IF J <44 OR P <5 THEN 1290
1260 IF L THEN I$ = C$ +CN$( RND(1) *6): GOTO 1280
1270 I$ = C$ +"PERHAPS NOT SO " +P$(P,L) +" AS CLOUZOT, EH?
1280 PRINT : GOSUB 1740
1290 NEXT C: HOME : VTAB 10: PRINT "THAT IS ENOUGH CLUES": GOTO 1310
1300 HOME : VTAB 8: PRINT "AHHH, YOU HAVE BEEN PAYING ATTENTION."
1310 PRINT : PRINT "WHO IS THE KILLER? ";: GOSUB 60: PRINT
1320 HOME : VTAB 7
1330 IF RE = 17 THEN PRINT "HA HAA!": GOTO 1390
1340 I = RE: IF I <1 OR I >N THEN PRINT "DO NOT TRIFLE WITH ME, M'SIEU!": GOTO 1310
1350 IF K < >I THEN PRINT "WRONG! ": GOTO 1390
1360 Z = 0: PRINT "VE";: FOR I = 1 TO (G +1 -C)/8: PRINT "R";: NEXT
1370 PRINT "Y GOOD. SOMEDAY YOU TOO MAY BE
1380 PRINT "A GREAT CRIMINOLOGIST!": GOTO 1440
1390 Z = A: PRINT : PRINT "ONLY A MASTER BRAIN LIKE MINE KNOWS THE"
1400 PRINT "KILLER IS:": PRINT :Q = 255
1410 FOR M = 3 TO A: FOR J = 0 TO 999: NEXT :I = 240 -20 *M: GOSUB 1490: PRINT P$(M,T(M,K))", ";: IF M = 6 THEN PRINT
1420 Q = Q -A: NEXT : FOR I = 0 TO 1500: NEXT : PRINT : PRINT : INVERSE : HTAB 10: PRINT S$(K);: NORMAL : PRINT "!
1430 POKE 768,255: POKE 769,255: CALL 770
1440 FOR I = 0 TO 400: NEXT : PRINT : PRINT "YOU HAD "C -1" CLUES";
1450 IF Z THEN PRINT ", YOU BUMBLING CRETIN!
1460 GOSUB 50: GOTO 30000
1470 POKE 768,I +1: POKE 769,40: CALL 770
1480 FOR T = 0 TO 50: NEXT
1490 IF I = 0 THEN FOR T = 1 TO 150: NEXT : RETURN
1495 FOR T = 0 TO 100: NEXT : POKE 768,I +1: POKE 769,50: CALL 770: RETURN
1500 R = A(P,S):Q = INT(R/10):R = R -10 *Q: IF L THEN I = R:R = Q:Q = I
1510 IF Q = A THEN 1590
1520 IF R = A OR R = X OR Q = X THEN I = 0: RETURN
1530 IF R AND Q THEN 1590
1540 GOSUB 1730: IF Q THEN PRINT : PRINT C$"OF COURSE...": GOTO 1630
1550 R = R +X: IF R >X THEN R = A
1560 IF L THEN I = R:R = Q:Q = I
1570 I = A:A(P,S) = Q *130 +R: RETURN
1580 :
1590 GOSUB 1730
1600 FOR I = 0 TO 2500: NEXT : PRINT C$"J'ACCUSE! ": FOR I = 0 TO 2500: NEXT
1610 PRINT "MAIS- BY NOW YOU MUST KNOW.": GOTO 1310
1620 :
1630 FOR I = 1 TO A: FOR J = 1 TO N +1:Y = A(I,J):Z = INT(Y/10):Y = Y -10 *Z
1640 IF Y AND Y < >Q AND Y < >W THEN Y = A: IF Z = Q OR Z = W THEN 1600
1650 IF Z AND Z < >Q AND Z < >W THEN Z = A: IF Y AND Y 127): IF T < >32 AND T < >45 THEN NEXT
1770 PRINT LEFT$(I$,Z): IF Z2 = 0 THEN FOR Z2 = 8 TO 12: IF MID$ (I$,Z2,1) < >":" THEN NEXT
1780 I$ = LEFT$(SP$,Z2 +1) + MID$ (I$,Z +1): GOTO 1750
1790 PRINT I$: RETURN
1800 POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240: POKE 780,9: POKE 781,202
1810 POKE 782,208: POKE 783,245: POKE 784,174: POKE 785,0: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 790,96: POKE 791,0: POKE 792,0
1820 RETURN
30000 HOME
30010 VTAB 10
30020 PRINT "WOULD YOU LIKE TO PLAY AGAIN (Y/N)? ";
30030 GET RS$
30040 IF RS$ = "Y" THEN 960
30050 IF RS$ < >"N" THEN 30030
30060 HOME : VTAB 10
30070 PRINT "WOULD ANYONE ELSE LIKE TO PLAY (Y/N)? ";
30080 GET RS$
30090 IF RS$ = "Y" THEN RUN
30100 IF RS$ < >"N" THEN 30080
30110 PRINT
30120 PRINT CHR$(4)"- STARTUP"

Text found in Volume_244_Games.dsk/E.............E.bas:

10 D$ = CHR$(4)
20 PRINT D$"-STARTUP"
30 REM *** END OF PRODOS CHAIN HELLO

Text found in Volume_244_Games.dsk/HELLO.TXT:

11
-
NUKE.POWER
-
STARS.1.2
-
MATH.GUESS.V2.2
-
HANGMAN.V1.1
-
CHASE.V1.2
-
SOLITAIRE
-
FOOTBALL
-
CLOUZOT
-
CLEW.SO
-
TEX

EXIT TO BASIC
VOLUME G27
P8 GAMES
..CONVERTED DOS 3.3 GAMES
IN THIS GAME YOU TRY TO RUN
A NUCLEAR POWER PLANT WITH
NO SAFE-GUARD SYSTEMS. YOU'LL
BE RATED ON HOW MUCH POWER
YOU CAN GENERATE WITHOUT
MELTING THE REACTOR DOWN.








IN THIS GAME YOU TRY TO GUESS
A NUMBER THE COMPUTER IS
THINKING OF. YOU ARE GIVEN
HINTS IN THE FORM OF STARS
WHICH INDICATE HOW CLOSE YOU
ARE.








THIS IS A WELL WRITTEN GAME
WHERE YOU TRY TO FIGURE OUT A
MATHEMATICAL EQUATION THE
COMPUTER HAS IN MIND. THE
PROGRAM RUNS SMOOTHLY AND WILL
SHARPEN YOUR ANALYTICAL MATH
SKILLS.







THIS IS A LOW-RES VERSION OF
THE CLASSIC GAME HANGMAN.












CHASE IS A LO-RES GAME. IN
CHASE YOU ARE PUT IN A CAGE
WITH A TERMINALLY ILL MONSTER.
YOU MUST TRICK IT INTO A PIT
OF QUICKSAND OR SURVIVE TILL
IT DIES.








THIS IS A PUZZLE THAT USES
'CHECKER' LIKE PIECES.












THIS FOOTBALL SIMULATION
ALLOWS YOU TO CALL AN OFFEN-
SIVE AND DEFENSIVE PLAY AND
TELLS YOU THE RESULT. THE
BALL'S POSITION IS DISPLAYED
ON A FOOTBALL FIELD USING
LOW-RES GRAPHICS.







YOU AND INSPECTOR CLOUZOT ARE
INVESTIGATING A MURDER. YOU
MUST FIND THE MURDERER USING
THE CLUES REVEALED DURING AN
INTERROGATION.









AS INSPECTOR CLEW-SO YOU MUST
"DETERMINE WHO, WHERE AND WHEN
A MURDER TOOK PLACE IN THIS
CLUE-LIKE GAME.










YOU CAN USE THIS UTILITY TO
READ TEXT FILES.

Text found in Volume_244_Games.dsk/MATH.GUESS.V2.2.bas:

10 REM *** HANG * MATH
20 REM *** VERSION 1.2
100 V1 = PEEK(78) +256 * PEEK(78):V1 = RND(V1): DIM R$(8),F(9,5),A(5,5),P$(5,5),N(5): FOR I = 1 TO 8: READ R$(I): NEXT
110 TEXT : HOME : HTAB 14: PRINT "MATH * GUESS": HTAB 14: PRINT "VERSION 2.0": PRINT : HTAB 12: PRINT "BY DOUG TRUEMAN": HTAB 10: PRINT "FOR BIG RED COMPUTER
120 PRINT : HTAB 9: PRINT "REVISED FROM HANG MATH": HTAB 13: PRINT "AUTHOR UNKOWN"
130 PRINT : PRINT : PRINT "MATH * GUESS - A GAME OF SKILL, LUCK, AND DEDUCTION": PRINT : PRINT "PLAY AT LEAST 3 GAMES TO GET AN ACCURATEPERFORMANCE RATING."
140 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT
150 Q = RND(1):G = 0:T = 0
160 VTAB 23: PRINT SPC( 39): VTAB 23: HTAB 10: PRINT "WAIT WHILE I SET UP"
170 FOR I = 1 TO 5: FOR J = 1 TO 5:P$(I,J) = "*":A(I,J) = 999: NEXT : NEXT : FOR I = 0 TO 9: FOR J = 1 TO 5:F(I,J) = 0: NEXT : NEXT :A(1,1) = INT(10 * RND(1))
180 A(2,1) = INT(10 * RND(1)):A(3,1) = INT(9 * RND(1)) +1:A(1,2) = INT(10 * RND(1))
190 A(2,2) = INT(9 * RND(1)) +1:N(1) = 100 *A(3,1) +10 *A(2,1) +A(1,1)
200 N(2) = 10 *A(2,2) +A(1,2):N(3) = A(1,2) *N(1):N(4) = A(2,2) *N(1) *10
210 N(5) = N(1) *N(2): FOR I = 5 TO 1 STEP -1:M = 10 ^(I -1): FOR J = 3 TO 5
220 Q = N(J)/M:A(I,J) = INT(Q +.001): NEXT J
221 FOR J = 3 TO 5:N(J) = N(J) -A(I,J) *M:N(J) = INT(N(J) +.9): NEXT J
230 NEXT I:A(1,4) = 999:A(5,3) = 999:B$ = " ":N1 = 0:N5 = 7: GOTO 360
240 N1 = N1 +1
250 PRINT "DIGIT? ";
260 GET V1$:MIN = 0:MAX = 9: GOSUB 1000:D = V1: IF FLAG THEN 260
270 PRINT D: PRINT "COLUMN? ";
280 GET V1$:MIN = 1:MAX = 5: GOSUB 1000:C = V1: IF FLAG THEN 280
290 PRINT C
300 N9 = N5
320 IF F(D,C) < >0 THEN GOSUB 1200: GOTO 360
340 F(D,C) = 1: FOR I = 1 TO 5: IF A(C,I) < >D THEN 350
345 P$(C,I) = STR$(D):N5 = N5 +1
350 NEXT I: IF N9 "N" AND Q$ < >"n" THEN GOTO 445
450 Q = V/2:Q = INT(Q): IF Q <1 THEN Q = 1
460 IF Q >8 THEN Q = 8
470 HOME : PRINT : PRINT "YOUR PERFORMANCE RATING WAS ";: PRINT R$(Q): VTAB 10: HTAB 18: PRINT "BYE"
480 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT
490 ONERR GOTO 510
500 PRINT CHR$(4)"-STARTUP": END
510 PRINT : POKE 216,0: PRINT CHR$(4)"CATALOG": END
1000 FLAG = 0:V1 = INT( VAL(V1$)): IF V1 MAX OR STR$(V1) < >V1$ THEN FLAG = 1: RETURN
1030 RETURN
1200 HOME : PRINT "YOU GUESSED "D" IN COLUME "C" BEFORE."
1210 PRINT : PRINT " PREVIOUS GUESSES BY COLUMN": FOR I = 1 TO 5
1220 PRINT "COL.";I;":";: FOR J = 0 TO 9: IF F(J,I) = 1 THEN PRINT J;: NEXT : PRINT : NEXT : PRINT : IF J = 10 THEN 1240
1230 NEXT : PRINT : NEXT : PRINT
1240 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: RETURN
2000 DATA EXCELLENT,VERY GOOD,GOOD,ABOVE AVERAGE,ABOUT AVERAGE
2010 DATA BELOW AVERAGE,FAIR,POOR
3000 REM *** VERSION 1.1
3010 REM ** 3/12/87
3020 REM ** DOUG TRUEMAN
3025 REM ** FOR BIG RED COMPUTER
3030 REM ** ADAPTED FROM HANGMATH
3040 REM ** AUTHOR UNKNOWN
3050 REM ** INPUT ROUTINES IMPROVED
3060 REM ** FORMAT OF PROBLEMS FIXED
3065 REM ** ADDED TRUE RANDOM
3070 :
3080 REM *** VERSION 2.0
3090 REM ** 6/2/87
3100 REM ** BY DT FOR BRC
3110 REM ** FIXED FATAL FLAW IN 20
3120 REM ** ADDED CREDIT LINES
3130 REM ** IMPROVED INPUT ROUTINES
3140 REM ** ADDED ENDING ROUTINE
3150 REM ** ADDED WAIT MESSAGE
3160 REM ** IMPROVED FORMAT
3170 REM ** IMPROVED TITLE PAGE
3180 REM ** BETTER FORMAT OF RATING
3190 REM ** FIXED NESTING ERR IN LINES 1220 - 1230
3199 :
3200 REM *** VERSION 2.1
3210 REM ** 12/1/87
3220 REM ** BY DT FOR BRC
3230 REM ** CONVERTED TO PRODOS
3299 :
3300 REM *** VERSION 2.2
3310 REM ** 1/22/88
3320 REM ** BY DT FOR BRAC
3330 REM ** MINOR CHANGE TO END ROUTINE

Text found in Volume_244_Games.dsk/NUKE.POWER.bas:

2 Q = -16336: TEXT : HOME
3 FOR J = 1 TO 2: VTAB J *4 +2: HTAB 4: FOR I = 1 TO 34: PRINT "*";: NEXT : PRINT : NEXT
4 A$ = "NUCLEAR POWER PLANT"
5 FOR I = 1 TO 19 + LEN(A$)/2
6 FOR J = 1 TO INT(5 * RND(1) +.5):P = PEEK(Q): FOR T = 1 TO 20: NEXT T,J
7 VTAB 8: HTAB 40 -I: PRINT LEFT$(A$,I)" ": NEXT I
8 FOR I = 1 TO 2500: NEXT I
10 HOME : PRINT SPC( 11)"NUCLEAR POWER PLANT": PRINT
20 REM FROM C.C. DEC 80 P.128
50 PRINT : PRINT "THIS PROGRAM SIMULATES THE OPERATION OF A NUCLEAR POWER REACTOR. THE OBJECT IS TO OPERATE THE PLANT AT A MAXIMUM
80 PRINT "AVERAGE POWER OUTPUT WITHOUT CAUSING A REACTOR MELTDOWN.": PRINT
110 PRINT "THE CONTROL RODS ADJUST THE AMOUNT OF HEAT PRODUCED BY THE REACTOR. PRIMARY COOLANT TRANSFERS THIS HEAT TO THE HEAT EXCHANGER. SECONDARY COOLANT TRANSFERS
150 PRINT "HEAT FROM THE HEAT EXCHANGER TO THE TURBINE, WHERE POWER IS PRODUCED, AND FINALLY TO THE COOLING TOWER. THE EMERGENCY COOLANT IS USED TO HELP SHUT
190 PRINT "DOWN THE REACTOR WHEN OTHER SYSTEMS FAIL. UNLIKE THE OTHER COOLANTS, EMERGENCY COOLANT IS NOT RECYCLED.
220 PRINT : INPUT "ENTER 'D' TO SEE REACTOR DIAGRAM ENTER 'I' FOR WORKING INSTRUCTIONS ENTER 'S' TO START OPERATION: ";A$
221 IF A$ = "D" OR A$ = "d" THEN GOSUB 6000: GOTO 220
222 IF A$ = "S" OR A$ = "s" THEN 390
223 IF A$ < >"I" AND A$ < >"i" THEN HOME : GOTO 220
225 TEXT : HOME
230 PRINT "THE CONTROLS ARE OPERATED BY TYPING IN THE DESIRED CONTROL ROD SETTING AND FLOW RATES.(USE VALUES FROM 0 TO 100) IF NO ENTRY IS MADE, THE VALUES WILL
250 PRINT "NOT CHANGE. USE THE SPACE BAR TO STEP TO THE DIFFERENT FUNCTIONS. WHEN THE DESIRED ENTRIES HAVE BEEN MADE, USE THE 'RETURN' KEY TO ADVANCE TO THE NEXT DAY.
270 PRINT "THE REACTOR CAN BE OPERATED UNTIL A MELTDOWN OCCURS OR THE REACTOR FUEL IS EXHAUSTED. THE FUEL WILL LAST FOR ABOUT 100 TO 150 DAYS. WHEN THE FUEL
290 PRINT "IS EXHAUSTED, YOUR PERFORMANCE WILL BE EVALUATED.
298 PRINT : INPUT " (PRESS RETURN TO CONTINUE)";A$
300 HOME : PRINT : PRINT "IF YOU WANT TO REPAIR DAMAGE OR REPLACE COOLANT, BRING THE REACTOR TEMPERATURE DOWN BELOW 100 AND SHUT OFF THE COOLANT FLOWS. THIS WILL CAUSE AN AUTOMATIC
320 PRINT "MAINTENANCE SHUTDOWN AND ALL COOLANT WILL BE REPLENISHED AND REPAIRS MADE. THE GREATER THE DAMAGE, THE LONGER THE REPAIRS WILL TAKE.": PRINT
350 PRINT " WARNING: THIS POWER PLANT HAS NO AUTOMATIC SAFETY DEVICES!": PRINT
380 GOTO 220
390 REM INITIATE
400 GOSUB 2000
410 RH = 0
420 RL = 0
430 DAY% = 0
440 TT = 0
450 DMGE% = 0
455 A% = 0:A1% = 0:A2% = 0
460 REM WRITE REPORT
470 TEXT : HOME
475 DAY% = DAY% +1
480 PRINT SPC( 7)"APPLE NUCLEAR POWER PLANT STATUS REPORT - DAY ";DAY%
500 PRINT : PRINT "WARNINGS:
520 IF RT% >800 THEN PRINT " REACTOR OVERHEATED":RD% = RD% +1 +(RT% >850) +(RT% >900) +2 *(RT% >950):PD% = PD% +1:ED% = ED% +1 +(RT% >850)
530 IF XT% >500 THEN PRINT " HEAT EXCHANGER OVERHEATED":XD% = XD% +1 +(XT% >600):PD% = PD% +1:SD% = SD% +1
540 IF GO% >2000 THEN PRINT " TURBINE OVERLOADED":TD% = TD% +1 +(GO% >2500):SD% = SD% +1
550 IF CT% >300 THEN PRINT " COOLING TOWER OVERHEATED":SD% = SD% +1
560 IF GO% <1000 THEN PRINT " POWER OUTPUT LOW"
570 IF EV% <200 THEN PRINT " EMERGENCY COOLANT LOW
580 IF PV% <100 THEN PRINT " PRIMARY COOLANT LOW":PD% = PD% +1
590 IF SV% <100 THEN PRINT " SECONDARY COOLANT LOW":SD% = SD% +1
600 PRINT
610 PRINT "DAMAGE:
620 IF RD% >3 THEN PRINT " REACTOR CORE DAMAGED
630 IF PD% >4 THEN PRINT "PRIMARY COOLANT LEAK - ";PD%;"/DAY":PV% = (PV% -PD%) *((PV% -PD%) >0)
640 IF SD% >4 THEN PRINT " SECONDARY COOLANT LEAK - ";SD%;"/DAY":SV% = (SV% -SD%) *((SV% -SD%) >0)
650 IF ED% >2 THEN PRINT " EMERGENCY COOLANT LEAK - ";2 *ED%;"/DAY":EV% = (EV% -2 *ED%) *((EV% -2 *ED%) >0)
660 IF PB% THEN PRINT " PRIMARY COOLANT PUMP FAILURE - ";10 *PD% *(PD% <10) +100 *(PD% > = 10);"%
670 IF SB% THEN PRINT " SECONDARY COOLANT PUMP FAILURE - ";10 *SD% *(SD% <10) +100 *(SD% > = 10);"%
680 IF X% THEN PRINT " HEAT EXCHANGER FAILURE
690 IF GB% THEN PRINT " TURBINE FAILURE
710 PRINT : IF RD% >5 THEN PRINT " MELTDOWN! MELTDOWN! MELTDOWN!": GOTO 3000
720 PRINT "INDICATORS:
730 PRINT " REACTOR TEMP. (MAX 800) ";RT%
740 PRINT " HEAT EXCHANGER TEMP. (MAX 500) ";XT%
750 PRINT " COOLING TOWER TEMP. (MAX 300) ";CT%
760 PRINT " POWER OUTPUT (MAX 2000 KW) ";GO%;" KW
765 KW% = TT/DAY%
770 PRINT " AVERAGE POWER OUTPUT ";KW%;" KW/DAY
800 PRINT " CONTROL RODS- ";A%
810 PRINT " COOLANTS
820 PRINT " EMERGENCY LEVEL- ";EV%;" FLOW- ";EF%
830 PRINT " PRIMARY LEVEL- ";PV%;" FLOW- ";PF%
840 PRINT " SECONDARY LEVEL- ";SV%;" FLOW- ";SF%;
850 IF (100 -RL) <5 THEN PRINT : PRINT : PRINT "REACTOR FUEL EXHAUSTED": GOTO 4000
900 REM GET NEW CONTROL VALUES
910 P = PEEK(37)
920 VTAB (P -3)
930 HTAB (20)
950 A2% = A1%:A1% = A%
955 B$ = "": FOR I = 1 TO 4
960 GET A$:Z = ASC(A$)
965 IF (Z < >13 AND Z < >32) AND (Z >57 OR Z <48) THEN 960
970 B$ = B$ +A$: IF Z = 13 THEN 1170
975 IF Z = 32 THEN 990
980 A% = VAL(B$):A% = A% +(100 -A%) *(A% >100)
985 PRINT A$;: NEXT I
990 VTAB (P -1)
1000 HTAB (35)
1005 B$ = "": FOR I = 1 TO 4
1010 GET A$:Z = ASC(A$)
1015 IF (Z < >13 AND Z < >32) AND (Z >57 OR Z <48) THEN 1010
1020 B$ = B$ +A$: IF Z = 13 THEN 1170
1025 IF Z = 32 THEN 1050
1030 EF% = VAL(B$):EF% = EF% +(100 -EF%) *(EF% >100)
1035 IF EF% >EV% THEN EF% = EV%
1040 PRINT A$;: NEXT I
1050 VTAB (P)
1060 HTAB (35)
1065 B$ = "": FOR I = 1 TO 4
1070 GET A$:Z = ASC(A$)
1075 IF (Z < >13 AND Z < >32) AND (Z >57 OR Z <48) THEN 1070
1080 B$ = B$ +A$: IF Z = 13 THEN 1170
1085 IF Z = 32 THEN 1110
1090 PF% = VAL(B$):PF% = PF% +(100 -PF%) *(PF% >100)
1100 PRINT A$;: NEXT I
1110 VTAB (P +1)
1120 HTAB (35)
1125 B$ = "": FOR I = 1 TO 4
1130 GET A$:Z = ASC(A$)
1135 IF (Z < >13 AND Z < >32) AND (Z >57 OR Z <48) THEN 1130
1140 B$ = B$ +A$: IF Z = 13 THEN 1170
1145 IF Z = 32 THEN 1165
1150 SF% = VAL(B$):SF% = SF% +(100 -SF%) *(SF% >100)
1160 PRINT A$;: NEXT I
1165 HTAB (1): VTAB (P -3): CALL -958: GOTO 800
1170 IF PF% = 0 AND SF% = 0 AND RH <1 AND RT% <100 AND A% = 0 THEN GOSUB 2000: HTAB (1): VTAB (24): CALL -922: PRINT " MAINTENANCE SHUTDOWN - ";MD%;" DAYS": FOR I = 0 TO 5000: NEXT
1180 IF EF% >EV% THEN EF% = EV%
1200 REM DAMAGE ASSESSMENT AND OPERATION CALCULATIONS
1205 EV% = EV% -EF% -2 *ED% *(ED% >3)
1210 PD% = PD% +(PF% >90) *( RND(20) >.95)
1220 SD% = SD% +(SF% >90) *( RND(20) >.92)
1230 PB% = PD% >5
1240 SB% = SD% >5
1250 IF PF% >(100 -PD% *10) AND PB% THEN PF% = (100 -PD% *10) *(100 -PD% *10 >0)
1260 IF SF% >(100 -SD% *10) AND SB% THEN SF% = (100 -SD% *10) *(100 -SD% *10 >0)
1270 RL = RL +RH/50
1280 RH = (A% *30 +A1% *60 +A2% *10)/2500 *(100 -RL)
1300 PH = PF% *(100 *(PV% >100) +PV% *(PV% < = 100))/350
1310 EH = EF%/200 *(RT% -25)
1320 RT% = RT% +RH -EH -PH -5 *(RT% >25)
1325 RT% = 25 +(RT% -25) *(RT% >25)
1330 XT% = ((RT% -25) *PF% +(CT% -25) *SF%)/(PF% +SF% +1) +25
1340 IF XB% THEN XT% = RT% *.8 +5
1350 SH = SF% *(100 *(PV% >100) +PV% *(PV% < = 100))/350 *(XT% -CT%)
1360 IF XB% THEN SH = SH *.2
1370 GO% = SH/XT% *(XT% -CT%) *2/3
1375 IF GO% >2600 THEN GO% = 2600
1380 GO% = GO% *(GO% >0) *(GB% = 0)
1390 CT% = 25 +((XT% -25) *(SH -GO%)/(SH +1) *.75)
1395 CT% = 25 *(CT% < = 25) +CT% *(CT% >25)
1400 IF XB% <1 THEN XB% = (XD% >2) *( RND(4) >.9)
1410 IF GB% <1 THEN GB% = (GD% >4) *( RND(4) >.9)
1420 TT = TT +GO%
1430 GOTO 470
2000 REM MAINTENANCE REPAIR SUBROUTINE
2010 EV% = 300
2020 PV% = 120
2030 SV% = 120
2040 RT% = 25
2050 XT% = 25
2060 CT% = 25
2070 DMGE% = DMGE% +2 *RD% +ED% +PD% +XD% +SD% +GD%
2080 MD% = 5 +3 *(10 *(RD% >3) +(ED% >3) +(PD% >3) +(SD% >3) +2 *PB% +2 *SB% +3 *XB% +3 *GB%):DAY% = DAY% +MD%
2090 RD% = 0
2100 ED% = 0
2110 PD% = 0
2120 XD% = 0
2130 SD% = 0
2140 GD% = 0
2150 PB% = 0
2160 SB% = 0
2170 XB% = 0
2180 GB% = 0
2190 EF% = 0:PF% = 0:SF% = 0
2195 GO% = 0
2200 RETURN
3000 REM MELTDOWN ENDING
3010 PRINT
3020 IF RD% >6 THEN 3100
3030 PRINT "THE REACTOR CORE HAS BEEN DESTROYED BY
3040 PRINT "UNCONTROLLED THERMAL RUNAWAY. HOWEVER,
3050 PRINT "THE CONTAINMENT BUILDING HAS NOT YET
3060 PRINT "RUPTURED.": PRINT
3080 PRINT "INITIATE YOUR EVACUATION PLAN.
3090 GOTO 5000
3100 PRINT "THE REACTOR CORE HAS MELTED DOWN AND
3110 PRINT "PRODUCED A STEAM EXPLOSION. THE
3120 PRINT "CONTAINMENT BUILDING HAS RUPTURED.
3130 PRINT "LETHAL RADIOACTIVE GASES AND DEBRIS
3140 PRINT "HAVE ESCAPED.": PRINT
3160 PRINT "INITIATE YOUR EVACUATION AND RADIATION
3170 PRINT "CLEANUP PLANS AND GET MEDICAL
3180 PRINT "ASSISTANCE.
3190 GOTO 5000
4000 REM EVALUATION OF GAME RESULTS
4020 PRINT : PRINT "OVER A PERIOD OF ";DAY%;" DAYS, YOU HAVE
4030 PRINT "PRODUCED AN AVERAGE POWER OUTPUT OF
4040 PRINT KW%;" KILOWATTS PER DAY.
4050 AKW% = 1 +(KW% >1000) +(KW% >1200) +(KW% >1500) +(KW% >1800)
4070 PRINT : PRINT "YOUR AVERAGE POWER PRODUCTION RATE IS
4080 ON AKW% GOTO 4090,4100,4110,4120,4140
4090 PRINT "HORRIBLE! FIND A LESS DEMANDING JOB.": GOTO 4200
4100 PRINT "WAY BELOW YOUR AREA'S POWER NEEDS.": GOTO 4200
4110 PRINT "ADEQUATE. YOU COULD DO BETTER.": GOTO 4200
4120 PRINT "EXCELLENT! POWER COSTS IN YOUR AREA
4130 PRINT "WILL NOT BE INCREASED.": GOTO 4200
4140 PRINT "NEAR THE MAXIMUM! POWER COSTS IN YOUR
4150 PRINT "AREA WILL DROP SIGNIFICANTLY.
4200 REM DAMAGE EVALUATION
4215 PRINT : GOSUB 2000
4220 D% = 1 +(DMGE% >10) +(DMGE% >20) +(DMGE% >30)
4230 PRINT "THE EQUIPMENT DAMAGE SUSTAINED DURING
4240 PRINT "THIS PERIOD WAS ";
4250 ON D% GOTO 4260,4270,4280,4290
4260 PRINT "VERY LIGHT.": GOTO 5000
4270 PRINT "MODERATE.": GOTO 5000
4280 PRINT "HEAVY.": GOTO 5000
4290 PRINT "SEVERE.
5000 REM END
5020 PRINT : PRINT "WOULD YOU LIKE TO TRY AGAIN? (Y OR N) ";
5030 INPUT A$
5040 IF A$ = "" THEN 5030
5050 IF A$ = "Y" OR A$ = "y" THEN GOSUB 2000: GOTO 390
5055 IF A$ < >"n" AND A$ < >"N" THEN GOTO 5020
5060 PRINT : PRINT CHR$(4)"-STARTUP"
5100 B$ = ""
5105 FOR I = 1 TO 4
5110 GET A$
5130 IF ASC(A$) < >32 THEN 5140
5134 IF B$ = "" THEN RETURN
5136 OUT% = VAL(B$)
5138 RETURN
5140 IF ASC(A$) = 13 THEN POP : GOTO 1170
5150 B$ = B$ +A$
5160 PRINT A$;
5170 NEXT I
5180 RETURN
6000 GR : COLOR= 15: FOR I = 0 TO 39: HLIN 0,39 AT I: NEXT
6005 DE = 6000
6010 HOME : VTAB 23
6020 PRINT " THIS IS THE REACTOR VESSEL
6030 RESTORE
6035 COLOR= 1
6040 FOR I = 1 TO 29
6050 READ X1,X2,Y
6060 HLIN X1,X2 AT Y
6070 NEXT
6080 DATA 7,9,6,15,17,6,6,18,7,5,19,8,5,7,9,17,19,9,5,6,10,18,19,10,5,6,11,18,19,11,5,6,12,18,19,12,5,6,13,18,19,13,5,6,14
6090 DATA 18,19,14,5,6,15,18,19,15,5,6,16,18,19,16,5,6,17,18,19,17,5,6,18,18,19,18,5,7,19,17,19,19,6,18,20,7,17,21,8,16,22
6100 COLOR= 0
6110 HLIN 13,14 AT 6
6120 COLOR= 12
6130 HLIN 14,15 AT 5
6140 HLIN 16,15 AT 4
6150 HLIN 15,16 AT 3
6160 FOR I = 1 TO DE: NEXT
6170 VTAB 23
6180 PRINT " THIS IS THE REACTOR CORE
6190 COLOR= 8
6200 FOR I = 9 TO 15
6210 VLIN 11,17 AT I
6220 NEXT
6230 FOR I = 1 TO DE: NEXT
6240 VTAB 23
6250 PRINT " THESE ARE THE CONTROL RODS "
6260 COLOR= 13
6270 VLIN 2,17 AT 11
6280 VLIN 2,17 AT 13
6290 FOR I = 1 TO DE: NEXT
6300 VTAB 23
6310 PRINT " THE EMERGENCY COOLANT CAN COOL THE
6320 PRINT " REACTOR IN AN EMERGENCY.
6330 COLOR= 2
6340 FOR I = 1 TO 36
6350 READ X,Y
6360 PLOT X,Y
6370 FOR J = 1 TO 200: NEXT J
6380 NEXT I
6390 DATA 4,2,4,4,5,2,5,3,5,4,6,2,6,3,6,4,7,3,8,3,9,3,10,3,11,3,12,3,12,4,12,5,12,6,12,7,12,8,12,9
6400 DATA 13,9,14,9,15,9,16,9,16,8,16,7,16,6,16,5,16,4,16,3,17,3,18,3,19,3,20,3,22,3,24,3
6410 FOR I = 1 TO DE: NEXT I
6420 HOME : VTAB 23
6430 PRINT " THE PRIMARY COOLANT CARRIES HEAT FROM
6440 PRINT " THE REACTOR CORE TO THE HEAT EXCHANGER
6450 FOR I = 1 TO 52
6460 READ Y,X
6470 PLOT X,Y
6480 FOR J = 1 TO 200: NEXT J
6490 NEXT I
6500 FOR I = 1 TO DE: NEXT I
6510 DATA 4,25,4,27,5,25,5,26,5,27,6,25,6,26,6,27,7,26,8,26,9,26,10,26,11,26,12,26,12,25,12,24,12,23,12,22,12,21,12,20,12,19
6515 DATA 12,18,12,17,12,16,12,15,13,15,14,15,15,15,16,15,16,16,16,17,16,18
6520 DATA 16,19,16,20,16,21,16,22,16,23,16,24,16,25,16,26,16,27,16,28,16,29,16,30,15,30,14,30,13,30,13,30,12,30,12,29,12,28,12,27
6540 HOME : VTAB 23
6550 PRINT " THIS IS THE HEAT EXCHANGER
6560 COLOR= 5
6570 HLIN 28,34 AT 10
6580 VLIN 10,18 AT 34
6590 HLIN 28,34 AT 18
6600 VLIN 10,18 AT 28
6605 COLOR= 2: PLOT 28,12: PLOT 28,16: COLOR= 5
6610 FOR I = 1 TO DE: NEXT I
6620 VTAB 23
6630 PRINT " THIS IS THE GENERATOR TURBINE
6640 HLIN 5,18 AT 30
6650 VLIN 30,36 AT 18
6660 HLIN 5,18 AT 36
6670 VLIN 30,36 AT 5
6680 COLOR= 0
6690 HLIN 2,17 AT 33
6700 FOR I = 7 TO 15 STEP 2
6710 PLOT I,34: PLOT I +1,32
6720 NEXT I
6730 FOR I = 1 TO DE: NEXT I
6740 VTAB 23
6750 PRINT " THIS IS THE COOLING TOWER "
6760 COLOR= 5
6770 VLIN 23,25 AT 24
6780 VLIN 23,25 AT 36
6790 VLIN 25,26 AT 25
6800 VLIN 25,26 AT 35
6810 VLIN 26,28 AT 26
6820 VLIN 26,28 AT 34
6830 VLIN 28,36 AT 27
6840 VLIN 28,36 AT 33
6850 PLOT 34,36
6860 PLOT 26,36
6870 HLIN 25,35 AT 38
6880 FOR I = 1 TO DE: NEXT I
6890 VTAB 23
6900 PRINT " THE SECONDARY COOLANT CARRIES HEAT
6910 PRINT " FROM THE HEAT EXCHANGER TO THE "
6920 PRINT " TURBINE AND THEN TO THE COOLING TOWER
6925 COLOR= 2
6930 FOR I = 1 TO 123
6940 READ Y,X
6950 PLOT X,Y
6960 FOR J = 1 TO 200: NEXT J
6970 NEXT I
6980 DATA 4,35,4,37,5,35,5,36,5,37,6,35,6,36,6,37,7,36,8,36,9,36,10,36,11,36,12,36,12,35,12,34,12,33,12,32,13,32,14,32,15,32,16,32
6990 DATA 16,33,16,34,16,35,16,36,17,36,18,36,19,36,20,36,20,35,20,34,20,33,20,32,20,31,20,30,20,29,20,28,20,27,20,26,20,25,20,24,20,23,20,22,20,21
7000 DATA 21,21,22,21,23,21,24,21,25,21,26,21,27,21,27,20,27,19,27,18,27,17,27,16,27,15,27,14,27,13,27,12,27,11,27,10,27,9,27,8,27,7
7010 DATA 28,7,29,7,30,7,31,7,32,7,34,10,32,13,34,16,35,16,35,17,35,18,35,19,35,20,35,21,35,22,35,23,35,24,35,25,35,26,35,27,35,28
7020 DATA 34,28,34,29,34,30,35,30,35,31,35,32,34,32,34,33,34,34,34,35,34,36,34,37,34,38,33,38,32,38,31,38,30,38,29,38,28,38,27,38,26,38,25,38,24,38,23,38
7030 DATA 22,38,21,38,20,38,19,38,18,38,17,38,16,38,15,38,14,38,13,38,12,38,12,37
7040 HOME : VTAB 23
7060 RETURN

Text found in Volume_244_Games.dsk/SOLITAIRE.bas:

5 DIM A(64)
7 V1 = 0:V0 = V1:VT = 2:M = V1:S = V1: FOR V0 = 1 TO 64:A(V0) = 1: NEXT : FOR V1 = 19 TO 43 STEP 8: FOR V0 = V1 TO V1 +3:A(V0) = 0: NEXT : NEXT
10 HOME : VTAB (5): PRINT SPC( 9)"SOLITAIRE CHECKER PUZZLE" SPC( 47)"48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SQAURES OF A STANDARD 64-SQUARE CHECKER-";
20 PRINT "BOARD. THE OBJECT IS TO REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS TO EMPTY SQUARES. WHEN YOU HAVE NO POSSIBLE JUMPS REMAINING INPUT A 'E' IN RESPONSE TO QUESTION 'JUMP FROM?'
30 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT PT$
40 HOME :VT = 2: PRINT "HERE IS THE NUMERICAL BOARD": FOR V0 = 1 TO 57 STEP 8:VT = VT +1: FOR V1 = 0 TO 7: VTAB (VT): HTAB (V1 *4 +5): PRINT V0 +V1: NEXT : NEXT
50 PRINT : PRINT "HERE IS THE CHECKERS CURRENT POSITION.": PRINT
60 FOR V1 = 1 TO 57 STEP 8: FOR V0 = V1 TO V1 +7: IF A(V0) = 0 THEN INVERSE
65 PRINT A(V0);: NORMAL : NEXT : PRINT : NEXT : PRINT
70 VTAB (23): INPUT "JUMP FROM ";CHOICE$: IF CHOICE$ = "0" THEN 400
80 CHOICE = VAL(CHOICE$): IF CHOICE <1 OR CHOICE >64 THEN V1 = V1: VTAB (14): HTAB (10): PRINT "PLEASE ENTER A # FROM 1 TO 64." CHR$(7): GOTO 70
85 VTAB (14): HTAB (10): PRINT SPC( 30)
90 VTAB (23): HTAB (20): INPUT "JUMP TO ";CHOICE$:C2 = VAL(CHOICE$): IF C2 <1 OR C2 >64 THEN V1 = V1: VTAB (14): HTAB (10): PRINT "PLEASE ENTER A # FROM 1 TO 64." CHR$(7): GOTO 90
95 VTAB (14): HTAB (10): PRINT SPC( 30)
100 IF ABS(CH -C2) < >14 AND ABS(CH -C2) < >18 THEN 130
110 IF A((C2 +CH)/2) = 0 OR A(CH) = 0 OR A(C2) = 1 THEN 130
120 GOTO 250
130 VTAB (14): HTAB (10): PRINT "ILLEGAL MOVE...TRY AGAIN..." CHR$(7): VTAB (23): PRINT SPC( 40);: GOTO 70
250 A(C2) = 1:A(CH) = 0:A((C2 +CH)/2) = 0:M = M +1: GOTO 40
400 VTAB (14): HTAB 10: INVERSE : PRINT "DO REALLY WANT TO STOP!"
410 VTAB 15: HTAB 10: NORMAL : PRINT "ENTER Y OR N...";
420 GET CHOICE$: IF CHOICE$ = "Y" OR CHOICE$ = "y" THEN PRINT CH$: GOTO 500
430 IF CHOICE$ < >"N" AND CHOICE$ < >"n" THEN GOTO 420
440 PRINT CH$: VTAB 14: HTAB 10: PRINT SPC( 29): VTAB 15: HTAB 10: PRINT SPC( 29): PRINT : GOTO 70
500 FOR V1 = 1 TO 64:S = S +A(V1): NEXT : HOME : PRINT "YOU MADE "M" JUMPS AND HAD "S" PIECES ": PRINT "REMAINING ON THE BOARD.": PRINT
510 PRINT "TRY AGAIN? (Y/N) ";
520 GET CHOICE$: IF CHOICE$ = "Y" OR CHOICE$ = "y" THEN PRINT : GOTO 7
530 IF CHOICE$ < >"N" AND CHOICE$ < >"n" THEN GOTO 520
540 PRINT : PRINT : PRINT "O.K. HOPE YOU HAD FUN!!"
550 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT PT$
560 ONERR GOTO 580
570 PRINT CHR$(4)"RUN STARTUP": END
580 POKE 216,0: PRINT CHR$(4)"CATALOG": END
1000 REM *** VERSION 1.0
1010 REM ** AUTHOR UNKOWN
1020 :
1030 REM *** VERSION 1.1
1040 REM ** 11/5/84
1050 REM ** DOUG TRUEMAN
1060 REM ** FOR A.S.C.I.I.
1070 REM ** IMPROVED INPUT ROUTINES
1080 REM ** IMPROVED FORMAT!!!
1090 :
1100 REM *** VERSION 1.1.1
1110 REM ** 3/3/87
1120 REM ** BY DT
1130 REM ** FOR BIG RED COMPUTER
1140 REM ** IMPROVED INSTRUCTIONS
1150 REM ** IMPROVED INPUT ROUTINES
1160 :
1170 REM *** VERSION 1.2
1180 REM ** 6/2/87
1190 REM ** BY DT FOR BRAC
1200 REM ** NEW ENDING ROUTINE
1210 REM ** CREDIT LINES ADDED

Text found in Volume_244_Games.dsk/STARS.1.2.bas:

70 HOME
80 X = PEEK(78) +256 * PEEK(79):X = RND(V1)
100 PRINT "***** STARS **** STARS **** STARS *****": PRINT
120 PRINT SPC( 9)"WELCOME TO MY GALAXY.": PRINT SPC( 4)"I'M IN CHARGE OF THE STARS HERE
130 PRINT : PRINT SPC( 10)"PLAY MY GAME *STARS*": PRINT SPC( 4)"AND GET SOME STARS FOR YOURSELF!": PRINT : PRINT
140 PRINT : PRINT SPC( 4)"*** PROGRAMMED BY K.G. WELK ***": PRINT SPC( 4)"*** REVISED BY DOUG TRUEMAN ***": GOSUB 10000
150 HOME : PRINT "WANT TO KNOW HOW TO PLAY ";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN 150
170 IF Z$ < >"Y" THEN 280
180 REM *** HERE IS HOW TO PLAY
190 HOME
200 PRINT "I WILL THINK OF A NUMBER FROM 1 TO 100.
210 PRINT "TRY TO GUESS MY NUMBER. AFTER YOU GUESS I WILL TYPE 1 OR MORE STARS (*). THE CLOSER YOU ARE TO MY NUMBER, THE MORE STARS (*) I WILL TYPE. ONE STAR (*)
240 PRINT "MEANS YOU ARE FAR AWAY FROM MY NUMBER. SEVEN STARS (*******) MEANS YOU'RE VERY
250 PRINT "CLOSE TO MY NUMBER!!!
260 GOSUB 10000
270 REM *** COMPUTER 'THINKS' OF A NUMBER FROM 1 TO 100
280 LET X = INT(100 * RND(1)) +1
300 HOME : PRINT "OK, STARSEEKER, I AM THINKING OF A NUMBER. START GUESSING.
310 REM *** GUESSING BEGINS
320 LET N = 1
330 PRINT
340 INPUT "WHAT IS YOUR GUESS? ";G$:G = INT( VAL(G$))
360 IF G = X THEN 550
370 LET D = ABS(G -X)
375 IF D = 1 THEN PRINT "*";
380 IF D < = 2 THEN PRINT "*";
390 IF D < = 4 THEN PRINT "*";
400 IF D < = 8 THEN PRINT "*";
410 IF D < = 16 THEN PRINT "*";
420 IF D < = 32 THEN PRINT "*";
430 IF D < = 64 THEN PRINT "*";
510 PRINT
520 LET N = N +1
530 GOTO 330
540 REM *** PLAYER HAS GUESSED THE GALACTIC NUMBER
550 HOME : IF N >20 THEN K = 1: GOTO 570
555 VTAB 5: FOR K = 1 TO 21 -N: PRINT " * ";: NEXT : PRINT : PRINT "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
560 PRINT : PRINT
570 PRINT SPC( 14)"THAT'S IT!!!": PRINT : PRINT SPC( 13)"YOU GUESSED MY": PRINT SPC( 14)"COSMIC NUMBER": PRINT SPC( 14)"IN ";N;" GUESSES."
580 PRINT : PRINT : PRINT SPC( 1 + INT(4 -K/6))"YOU EARNED "K -1" STARS THIS TIME";: FOR V1 = 1 TO INT(K/3): PRINT "!";: NEXT : PRINT : GOSUB 10000
600 HOME : PRINT "WANT TO PLAY AGAIN";
620 GET Z$
630 IF Z$ = "Y" OR Z$ = "y" THEN 280
635 IF Z$ < >"N" THEN 620
640 PRINT Z$: PRINT "OK, GOODBYE FOR NOW. PLAY WITH ME AGAIN SOMETIME."
650 GOSUB 10000: HOME : PRINT CHR$(4)"-STARTUP"
10000 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT PT$: RETURN
20000 REM *** REVISED 3/20/87
20010 REM *** BY DOUG TRUEMAN
20020 REM *** ADDED PAGE TURN
20030 REM *** IMPROVED TITLE PAGE
20040 REM *** IMPROVED INSTRUCTIONS
20050 REM *** IMPROVED INPUT ROUTINES
20060 REM *** ADDED TRUE RANDOM
20100 REM *** REVISES 1/22/87
20110 REM *** BY D. TRUEMAN
20120 REM *** IMPROVED END ROUTINE

Text found in Volume_244_Games.dsk/STARTUP.bas:

1 REM *** BIG RED APPLE CLUB
3 REM *** VERSION 1.4
4 REM *** VERSION A (NORMAL)
5 :
10 D$ = CHR$(4): PRINT D$;"PR#0": TEXT : HOME : POKE 216,0
12 PRINT D$"PREFIX": INPUT "";P$: PRINT D$"PREFIX"P$: REM FIX THANKS TO ERIC SCHECHTER
15 PRINT CHR$(21)
20 V1 = 0: GOSUB 7000
30 INVERSE :A$ = "+": GOSUB 800: NORMAL
40 VTAB 14:A$ = "DISTRIBUTED BY": GOSUB 300: VTAB 6:A$ = ISSUE$: GOSUB 300: VTAB 7:A$ = DISKNAME$: GOSUB 300
50 VTAB 16:A$ = CLUB$: GOSUB 300:A$ = "423 NORFOLK AVENUE": GOSUB 300:A$ = "NORFOLK, NE 68701": GOSUB 300
60 HTAB 8: GOSUB 5000
70 HOME : INVERSE :A$ = " ": GOSUB 810: NORMAL : VTAB 2: HTAB 2: INVERSE : FOR V1 = 1 TO 5: PRINT " ";: NEXT : HTAB 35: FOR V1 = 1 TO 5: PRINT " ";: NEXT : NORMAL
75 VTAB 1: INVERSE :A$ = ": :": GOSUB 300: VTAB 3: GOSUB 300: NORMAL
77 V1 = 13 -( LEN(ISSUE$)/2):I2$ = IS$: FOR V2 = 1 TO V1:I2$ = " " +I2$ +" ": NEXT : IF LEN(I2SUE$)/2 < > INT( LEN(I2SUE$)/2) THEN I2SUE$ = I2SUE$ +" "
80 VTAB 2: INVERSE :A$ = I2SUE$: GOSUB 300: NORMAL : VTAB 23:A$ = CLUB$: GOSUB 300
90 FOR V1 = T1 TO T2: HTAB 5: VTAB 5 +V1 -T1: INVERSE
100 IF V1 >9 THEN PRINT CHR$(55 +V1);: GOTO 120
110 PRINT V1;
120 NORMAL : PRINT TAB( 10);TITLE$(V1,1): NEXT
130 VTAB 21: HTAB 10: PRINT "ENTER SELECTION ";: GET A$: PRINT A$
132 IF ASC(A$) >96 THEN A$ = CHR$( ASC(A$) -32)
135 IF A$ > = "A" AND A$ < = "Z" THEN A$ = STR$( ASC(A$) -64 +9)
140 PK = INT( VAL(A$)): IF PK <1 OR PK >W THEN CALL -198: GOTO 130
150 IF PK = W THEN TEXT : HOME : END
151 VTAB 2: INVERSE :A$ = " ": GOSUB 300: NORMAL
152 VTAB 2: INVERSE :A$ = TITLE$(PK,1): GOSUB 300: NORMAL
155 POKE 34,3: POKE 35,22: POKE 32,1: POKE 33,36: VTAB 5: HTAB 10: HOME : POKE 32,5: VTAB 6
160 IF PK 96 THEN A$ = CHR$( ASC(A$) -32)
164 IF A$ < >"M" AND A$ < >"R" THEN CALL -198: GOTO 163
165 PRINT A$: IF A$ = "R" THEN TEXT : HOME : PRINT D$: PRINT D$TITLE$(PK,0)TITLE$(PK,1)
170 TEXT : GOTO 70
299 TEXT : HOME : END
300 HTAB (21 - LEN(A$)/2): PRINT A$: RETURN : REM *** CENTER LINE
400 VTAB 21: HTAB 3: PRINT "M = MENU R = RUN PROGRAM ";: GET A$: PRINT A$
410 IF A$ < >"M" AND A$ < >"R" THEN CALL -198: GOTO 400
420 VTAB 3: HOME : RETURN
799 REM *** PRINT BORDERS
800 VTAB 1: FOR X = 1 TO 40: PRINT A$;: NEXT
810 VTAB 23: FOR X = 1 TO 40: PRINT A$;: NEXT : VTAB 2: FOR X = 2 TO 22: HTAB 1: PRINT A$;: HTAB 40: PRINT A$;: NEXT : RETURN
5000 POKE -16368,0: VTAB 22: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE ";: NORMAL : GET PT$: PRINT PT$: HOME : VTAB 6: RETURN
6999 REM ***READ TEXT FILE
7000 PRINT D$: PRINT D$"OPEN HELLO.TXT": PRINT D$"READ HELLO.TXT": INPUT ARTICLE: DIM TITLE$(AR,1): FOR V1 = 1 TO AR: INPUT TITLE$(V1,0): INPUT TITLE$(V1,1): NEXT : INPUT ISSUE$: INPUT DISKNAME$: INPUT FILE$
7010 DIM ARTICLE$(AR -1,14): FOR V2 = 1 TO AR -1: FOR V1 = 1 TO 14: INPUT ARTICLE$(V2,V1): NEXT : NEXT
7020 PRINT D$: PRINT D$"CLOSE"
7030 T1 = 1:W = AR:T2 = W
7040 CLUB$ = " BIG RED COMPUTER CLUB "
7050 RETURN