Notes

Disk info for 263_Volume_263.dsk:

File Name: riag_010_263_Volume_263/263_Volume_263.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 4096
Used Space (bytes): 139264
Physical Size (KB): 140
Free Space (KB): 4
Used Space (KB): 136
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 16
Used Sectors: 544
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 263_Volume_263.dsk:

riag_010_263_Volume_263/263_Volume_263.dsk DISK VOLUME #254
T 002 ABORT
T 002 AGE
T 002 ALB
T 002 APO
T 002 AU
T 002 BEN
T 002 BIF
T 002 BINA
T 002 BIRD
T 002 BISH
T 002 CAP
T 002 CAR
T 002 CELL1
T 002 CELL10
T 002 CELL11
T 002 CELL12
T 002 CELL13
T 002 CELL14
T 002 CELL15
T 002 CELL16
T 002 CELL17
T 002 CELL18
T 002 CELL19
T 002 CELL2
T 002 CELL20
T 002 CELL3
T 002 CELL4
T 002 CELL5
T 002 CELL6
T 002 CELL7
T 003 CELL8
T 002 CELL9
T 002 CLAN
T 002 COMP
T 002 DATE
T 002 DEG
T 002 DIA
T 002 DOM
T 002 DRUGS
T 002 EAR
A 008 ECO-COPIER
B 003 ECO-COPY.SYS
T 002 ENERGY
T 002 EQU
T 003 EXP
T 003 FINGER
T 002 FM
T 002 FOR
T 002 FOS
T 002 GHOG
T 002 HARV
A 002 HELLO
T 002 ICEBERG
T 002 JUP
T 002 KAN
T 002 LAP
T 002 LIB
T 002 LONG
A 005 LUNAR
A 010 LUNAR MISSION
T 002 MEDU
T 002 MERC
T 002 MET
T 003 MIS8
T 002 MOON
B 034 NONE
T 002 OC3/4
B 033 OPENING
T 002 PAN
T 002 PANT
T 002 PINT
T 002 POP
A 010 QUESTION EDITOR
T 003 RED
T 002 ROM
B 034 SCAPE
B 034 SCREEN1
B 034 SCREEN2
B 034 SCREEN3
B 034 SCREEN4
B 034 SCREEN5
B 002 SHAPE
T 002 SKY
T 002 SNAK
T 002 SNOW
B 002 SOUND
T 002 SPE
T 002 SQU
T 002 SUN
T 002 TAB
B 005 TEXT
A 008 THE EDUCATOR
T 003 THE LESSON
T 002 TWIN
T 002 WEEK
T 002 WHA
T 003 WMON
T 002 YOKE
T 002 WHALE
DOS 3.3 format; 4,096 bytes free; 139,264 bytes used.

Text found in 263_Volume_263.dsk/AU.txt:

4
WHAT IS THE CHEMICAL SYMBOL FOR GOLD?

(USE ALL CAPS)
NONE
AU
37
1
15

Text found in 263_Volume_263.dsk/BIF.txt:

3
THE BIFOCAL LENS WAS INVENTED IN
1790 (T/F)?
NONE
F
34
13

Text found in 263_Volume_263.dsk/EAR.txt:

2
WHAT SCALE MEASURES EARTHQUAKES?
NONE
RICHTER
32

Text found in 263_Volume_263.dsk/ECO-COPIER.bas:

0 PRINT "BLOAD ECO-COPY.SYS"
1 HOME
2 MS = 5:SS = 5:SD = 2:MD = 1
3 GOSUB 200
5 REM
90 CALL 704:CS = PEEK(718)/16
100 POKE 715, PEEK(110) +1: REM BUFSTART
110 POKE 716, PEEK(112) -1: REM BUFEND
160 FT = 0
163 VTAB 5: HTAB 24: PRINT " ": VTAB 8: HTAB 24: PRINT " "
165 CALL 704: POKE 717,SS *16: POKE 718,MS *16: POKE 719,SD: POKE 720,MD
170 VTAB 17: POKE 34,16: CALL -936
171 IF O = 1.23 THEN PRINT A$;":";: GET R$: PRINT
172 HOME
173 POKE 35,18
175 : POKE 222,0: PRINT "READING DOS TRACKS": CALL 707
176 IF JK = 1.09 THEN 405
177 IF O = 1.23 THEN PRINT A$;":";:: GET R$: PRINT
178 PRINT "WRITING DOS TRACKS": CALL 710
180 FOR X = 1 TO 6:: IF O = 1.23 THEN PRINT A$;":";: GET R$: PRINT
181 PRINT "READING": CALL 707: IF O = 1.23 THEN PRINT A$;":";: GET R$: PRINT
182 PRINT "WRITING": CALL 710: NEXT X
190 A$ = "":O = 0
200 TEXT : HOME :A$ = "ECO-COPIER": PRINT TAB( 20 - LEN(A$)/2);A$
201 Y$ = "BY: MICHAEL MONACO": PRINT TAB( 20 - LEN(Y$)/2);Y$
202 PRINT "---------------------------------------":
210 PRINT : PRINT
213 M$(4) = "COPY PRODOS DISK": PRINT M$(4)
214 M$(5) = "COPY DOS DISK": PRINT M$(5)
215 M$(6) = "COPY DOS": PRINT M$(6)
216 M$(7) = "QUIT": PRINT M$(7)
220 VT = 6:TT = 4
230 VTAB VT: INVERSE : PRINT M$(TT): NORMAL
231 IF PEEK( -16384) = 136 AND TT <7 THEN VTAB VT: PRINT M$(TT): NORMAL :VT = VT +1:TT = TT +1: POKE -16368,0
232 IF PEEK( -16384) = 149 AND TT >4 THEN VTAB VT: PRINT M$(TT): NORMAL :VT = VT -1:TT = TT -1: POKE -16368,0
240 IF PEEK( -16384) = 141 THEN 260
250 GOTO 230
260 IF TT = 5 THEN 300
261 IF TT = 4 THEN 300
270 IF TT = 6 THEN 400
280 IF TT = 7 THEN GET R$: PRINT : PRINT : PRINT "RUN HELLO"
299 END
300 VTAB 14: FLASH : PRINT "DISK INFO": NORMAL
301 POKE -16368,0
302 PRINT : PRINT "ORGINAL:":
303 PRINT "SLOT = ";: GET S$: IF VAL(S$) = <0 OR VAL(S$) >7 THEN PRINT : GOTO 300
304 PRINT S$
305 PRINT "DRIVE = ";: GET D$: IF VAL(D$) = <0 OR VAL(D$) >2 THEN PRINT : GOTO 300
306 PRINT D$
310 PRINT : PRINT "DUPLICATE:"
311 PRINT "SLOT = ";: GET S1$: IF VAL(S1$) = <0 OR VAL(S1$) >7 THEN PRINT : GOTO 300
312 PRINT S1$
315 PRINT "DRIVE = ";: GET D1$: IF VAL(D1$) = <0 OR VAL(D1$) >2 THEN PRINT : GOTO 300
316 PRINT D1$
320 PRINT : PRINT "PREPARE DISKS (ESC TO CANCEL): ";: GET T$
321 HOME :SS = VAL(S1$):SD = VAL(D1$):MD = VAL(D$):MS = VAL(S$)
322 IF MD = SD AND MS = SS THEN O = 1.23:A$ = "SWITCH DISKS"
323 IF ASC(T$) = 27 THEN 200
324 IF JK = 1.09 THEN 401
325 IF O = 1.23 THEN TEXT : VTAB 12: PRINT "SWITCH DISKS: ";: GET R$:
326 PRINT : PRINT "INIT XXX,D";SD;",S";SS
340 GOTO 5
400 JK = 1.09: GOTO 300
401 GOTO 5
405 REM
406 IF O = 1.23 THEN PRINT A$;":";: GET R$: PRINT
407 PRINT "WRITING DOS TRACKS": CALL 710:
408 A$ = "":JK = 0:O = 0
410 GOTO 200

Text found in 263_Volume_263.dsk/HELLO.bas:

0 TEXT : HOME
10 POKE 1012,0
11 ONERR GOTO 50
12 HGR : PRINT "BLOAD OPENING,A$4000": POKE -16302,0: POKE -16299,0
13 GET R$
14 PRINT
50 PRINT "RUN THE EDUCATOR"

Text found in 263_Volume_263.dsk/ICEBERG.txt:

8
WHAT FRACTION OF AN ICEBERG SHOWS
ABOVE WATER?

A. 1/7
B. 1/8
C. 1/9
D. 1/10
NONE
C
35
14
2
8
8
8
9

Text found in 263_Volume_263.dsk/LUNAR MISSION.bas:

0 DIM VA$(255): PRINT CHR$(4);"BLOAD TEXT,A$8000"
1 HGR : POKE -16302,0: PRINT CHR$(4);"BLOAD SCAPE"
2 VV = 2: HCOLOR= 7
3 FOR G = 1 TO 50:X = 279 * RND(1):Y = 191 * RND(1): HPLOT X,Y: NEXT
4 V = 2:V1 = 2
5 O = 145: POKE 769,5
6 XX = 20:YY = 30
7 PI = 75
8 LI = 3:II = 30
9 SCALE= 1: ROT= 0
10 PRINT CHR$(4);"BLOAD SHAPE": POKE 232,0: POKE 233,64
11 FOR X = 10 TO 40 STEP 20: XDRAW 1 AT X,180: NEXT
12 POKE -16302,0
13 HCOLOR= 5
30 LOC = 100 * RND(1) +150:LOC = INT(LOC): FOR X = 1 TO 3: HPLOT LOC,O TO LOC +20,O:O = O -1
31 NEXT X
100 XDRAW 1 AT XX,YY
101 IF YY >134 THEN 500
120 IF PDL(0) <10 AND XX >10 THEN CALL 768: XDRAW 1 AT XX,YY:XX = XX -V1:V1 = V1 +.2: XDRAW 1 AT XX,YY
123 IF PEEK( -16286) >127 THEN WAIT -16287,128
125 IF YY >134 THEN 500
130 IF PDL(0) >230 AND XX <269 THEN CALL 768: XDRAW 1 AT XX,YY:XX = XX +V:V = V +.2: XDRAW 1 AT XX,YY
131 IF PDL(0) >230 AND XX <269 AND PDL(1) <39 THEN CALL 768: XDRAW 1 AT XX,YY:XX = XX +V:V = V +.2:YY = YY -2:: XDRAW 1 AT XX,YY
135 IF PI <3 THEN 300
136 IF YY >134 THEN 500
140 PI = PI -.5: POKE 0,PI: CALL 768
145 XDRAW 1 AT XX,YY
150 DIS = 3 * RND(1): IF INT(DIS) = 0 OR INT(DIS) = 2 THEN YY = YY +VV
151 IF INT(DIS) = 1 THEN XX = XX +V1
153 IF YY >136 THEN YY = YY -5
160 VV = VV +.2
161 DIS = 0
210 GOTO 100
300 XDRAW 1 AT II,180:II = II -20:LI = LI -1:PI = 75: IF DIS = 0 THEN XDRAW 1 AT XX,YY: GOTO 302
301 ON INT(DIS) +1 GOSUB 7000,7010,7020: XDRAW 1 AT XX,YY
302 POKE 0,45: CALL 768: POKE 0,127: CALL 768: POKE 0,189: CALL 768: POKE 0,200: CALL 768: POKE 0,255: CALL 768: POKE 0,116: CALL 768
303 IF LI = 1 THEN 690
310 XX = 20:YY = 30
315 O = 145
320 HCOLOR= 0: FOR X = 1 TO 3: HPLOT LOC,O TO LOC +20,O:O = O -1: NEXT X
321 O = 145
325 VV = 1
326 V = 2
327 V1 = 1
330 HCOLOR= 5: GOTO 30
500 FOR X = 1 TO 20: IF LOC +X = INT(XX) THEN 520
501 HCOLOR= 7: IF SC = 0 THEN UU = 1
510 NEXT X
512 IF INT(DIS) = 2 THEN XX = XX -V
515 GOTO 300
520 IF X = 1 OR X = 2 OR X = 3 OR X = 4 THEN SC = SC +50
530 IF X = 5 OR X = 6 OR X = 7 THEN SC = SC +250
540 IF X = 9 OR X = 10 OR X = 11 OR X = 12 OR X = 8 THEN SC = SC +500
545 IF X = 13 OR X = 14 OR X = 15 OR X = 16 THEN SC = SC +250
546 IF X = 17 OR X = 18 OR X = 19 OR X = 20 THEN SC = SC +50
550 IF UU = 1 THEN UU = 0: GOTO 600
555 Q = 1
560 HCOLOR= 7: FOR F = 220 TO OP +220 STEP +7: POKE 233,128: POKE 232,0: IF VA$(W) = "0" THEN VA$(W) = "10"
565 VR = VAL(VA$(Q)): XDRAW 26 +VR AT F,180:Q = Q +1
570 NEXT F
600 S$ = STR$(SC)
601 FOR X = 1 TO LEN(S$):VA$(X) = MID$ (S$,X,1): NEXT X
602 HCOLOR= 0
603 POKE 233,128
615 W = 1
616 OP = ( LEN(S$) -1) *7
620 FOR F = 220 TO OP +220 STEP +7
621 POKE 233,128: POKE 232,0
622 IF VA$(W) = "0" THEN VA$(W) = "10"
625 VR = VAL(VA$(W)): XDRAW 26 +VR AT F,180:W = W +1
630 NEXT F
640 POKE 233,64:
645 PI = 75
646 DATA 67,12,123,78,90,126,178,215,78,90
647 RESTORE
648 FOR WW = 1 TO 9: READ H: POKE 0,H: CALL 768: NEXT
650 HCOLOR= 0: DRAW 1 AT XX,YY: GOTO 310
690 FOR X = 88 TO 95: HCOLOR= 0: HPLOT 105,X TO 9 *7 +105,X: NEXT X
700 CLR = 105: POKE 233,128
710 XDRAW 7 AT CLR,95:CLR = CLR +7: XDRAW 1 AT CLR,95:CLR = CLR +7: XDRAW 13 AT CLR,95:CLR = CLR +7: XDRAW 5 AT CLR,95:CLR = CLR +7
715 CLR = CLR +7
720 XDRAW 15 AT CLR,95:CLR = CLR +7: XDRAW 22 AT CLR,95:CLR = CLR +7: XDRAW 5 AT CLR,95:CLR = CLR +7: XDRAW 18 AT CLR,95
730 WAIT -16287,128: RUN
7000 VV = VV -.2:YY = YY -VV: RETURN
7010 XX = XX -V1: RETURN
7020 VV = VV -.2:YY = YY -VV: RETURN

Text found in 263_Volume_263.dsk/LUNAR.bas:

5 PRINT CHR$(4);"BLOAD SOUND"
6 TEXT : HOME : PRINT
20 A$ = "---- LUNAR MISSION ----": PRINT TAB( 20 - LEN(A$)/2);A$
21 POKE 34,1: PRINT :A$ = "BY:MICHAEL MONACO": PRINT TAB( 20 - LEN(A$)/2);A$
25 POKE 34,5
30 DATA 20,40,20,20,20,40,40,20,40,20 ,40,20,40,20,20,20,20,20,40,40,40,20,40,20,40,20,40,40,40,40,20,20,20
31 DATA 20,40,20,20,20,20,40,40,40,40,40,40,40,20,20,40,20,40,20
34 POKE 0,25
35 FOR X = 1 TO 50: READ F: POKE 769,F: CALL 768: NEXT X
40 INVERSE : HTAB 3: PRINT "JUST IN:": NORMAL
50 PRINT : PRINT " YOU ARE THE PILOT OF THE APOLLO XXV"
51 PRINT : PRINT " LUNAR CAPSULE. YOU WILL HAVE TO PILOT"
52 PRINT : PRINT " THE CAPSULE TO THE ASSIGNED LANDING"
53 PRINT : PRINT " AREA WITHOUT RUNNING OUT OF FUEL, A"
54 PRINT : PRINT " PITCH WILL INDICATE FUEL AMOUNT BY"
55 PRINT : PRINT " GETTING HIGHER AS YOU RUN OUT!!!!"
60 PRINT : FLASH : HTAB 3: PRINT "GOOD LUCK !!!!!!"
61 NORMAL
70 PRINT : PRINT " PRESS ANYTHING TO PLAY: ";: GET R$
76 TEXT : HOME : PRINT
80 PRINT CHR$(4);"RUN LUNAR MISSION"
9999 END
65535

Text found in 263_Volume_263.dsk/MERC.txt:

3
WHAT WAS THE NAME FOR THE US'S 1ST
MANNED SPACE PROGRAM?
NONE
MERCURY
36
23