Empire I World Builders v1.5
Emulation Item Preview
Share or Embed This Item
Notes
Disk info for Empire_I_World_Builders_v1.5_1981_Edu_Ware.do:
File Name: a2_Empire_I_World_Builders_v1.5_1981_Edu_Ware/Empire_I_World_Builders_v1.5_1981_Edu_Ware.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 7168
Used Space (bytes): 136192
Physical Size (KB): 140
Free Space (KB): 7
Used Space (KB): 133
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 28
Used Sectors: 532
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Empire_I_World_Builders_v1.5_1981_Edu_Ware.do:
a2_Empire_I_World_Builders_v1.5_1981_Edu_Ware/Empire_I_World_Builders_v1.5_1981_Edu_Ware.do DISK VOLUME #254
* T 002 CHARACTERS
* B 002 DAVID
* B 002 DISSOLVE
* B 002 DONTHIRTY
* B 002 DONTHREESIX
* B 030 EWS3
* B 002 FARDAFG
* B 002 FARMTHREEFOUR
* B 002 FARMTWOEIGHT
* B 002 IDIT
* B 003 IF.SHAPE
* A 006 INTERACTIVE FANTASIES
* B 002 FAERY
* B 008 PARSER
* B 002 SD
* A 041 WB.1
* A 031 WB.2
* A 039 WB.3
* A 029 WB.4
* A 043 WB.5
* A 047 WB.6
* A 043 WB.7
* A 036 WB.8
* A 042 WB.9
* A 035 WB.10
* A 011 WORLD BUILDERS
* B 002 F
DOS 3.3 format; 7,168 bytes free; 136,192 bytes used.
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/CHARACTERS.txt:
9
SD
FARMTWOEIGHT
FARMTHREEFOUR
DONTHIRTY
DONTHREESIX
DAVID
F
FAERY
IDIT
NINER
D
F
E
X
JOE
URTWO
EFIVE
E
DAFG
VXRFN
N
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/DAVID.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 AD 12 01 02 44 C5 00 00 06 0D 0D 0E 05 0D 12 12 -...DE.. ........
$000010 09 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 01 01 02 00 00 00 ........ ........
$000050 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 ........ ........
$000060 00 00 00 00 00 0E 00 00 00 00 00 00 00 00 00 05 ........ ........
$000070 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/DISSOLVE.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A9 00 D0 15 A9 FE 85 00 A9 01 85 01 20 34 1F 20 ).P.)~.. )... 4.
$000010 41 1F E6 01 C6 00 D0 F4 60 A9 01 85 00 A9 FE 85 A.f.F.Pt `)...)~.
$000020 01 20 41 1F 20 34 1F E6 00 C6 01 D0 F4 60 A2 03 . A. 4.f .F.Pt`".
$000030 CA D0 FD 60 2C 54 C0 A5 00 20 2E 1F E9 01 D0 F9 JP}`,T@% . ..i.Py
$000040 60 2C 55 C0 A5 01 20 2E 1F E9 01 D0 F9 60 99 99 `,U@%. . .i.Py`..
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/DONTHIRTY.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 3F 12 01 02 F4 01 00 00 09 07 07 0F 0E 08 0A 0A ?...t... ........
$000010 06 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 00 0A 00 ........ ........
$000060 00 00 00 00 00 14 00 00 00 00 00 00 00 00 05 05 ........ ........
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/DONTHREESIX.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 3F 12 01 02 F4 01 00 00 0B 0C 05 05 0B 0D 0D 0E ?...t... ........
$000010 0D 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 00 0A 00 ........ ........
$000060 00 00 00 00 00 14 00 00 00 00 00 00 00 00 05 05 ........ ........
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/F.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 C7 12 01 01 88 13 00 00 0E 06 07 0D 0D 0E 09 0C G....... ........
$000010 09 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 00 0A 00 ........ ........
$000060 00 00 00 00 00 14 00 00 00 01 00 00 00 00 00 00 ........ ........
$000070 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/FAERY.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 3F 12 01 02 F4 01 00 00 0D 0B 0A 07 0B 0D 07 0C ?...t... ........
$000010 10 11 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 00 0A 00 ........ ........
$000060 00 00 00 00 00 14 00 00 00 00 00 00 00 00 05 05 ........ ........
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/FARDAFG.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 2C 12 00 02 F4 01 00 00 0E 0B 09 0D 0B 0A 0A 06 ,...t... ........
$000010 08 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 00 0A 00 ........ ........
$000060 00 00 00 00 00 14 00 00 00 00 00 00 00 00 05 05 ........ ........
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/FARMTHREEFOUR.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 3F 12 01 03 10 27 00 00 0A 06 0E 0F 0A 0B 0B 0D ?....'.. ........
$000010 0A 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 01 32 00 ........ ......2.
$000060 00 00 00 00 00 14 00 00 00 00 64 01 01 01 00 00 ........ ..d.....
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/FARMTWOEIGHT.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A0 12 01 03 10 27 00 00 07 09 0A 0C 0C 08 09 0E ....'.. ........
$000010 0B 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 01 32 00 ........ ......2.
$000060 00 00 00 00 00 14 00 00 00 00 64 01 01 01 00 00 ........ ..d.....
$000070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/IDIT.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 3F 12 01 01 88 13 00 00 0C 06 08 08 0E 0B 0B 09 ?....... ........
$000010 09 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 ........ ........
$000050 00 00 00 00 00 00 00 00 00 00 01 01 0A 00 0A 00 ........ ........
$000060 00 00 00 00 00 14 00 00 00 01 00 00 00 00 00 00 ........ ........
$000070 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/IF.SHAPE.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 04 4D 08 00 5B 00 B5 00 0A 09 09 09 09 11 1B 1B .M..[.5. ........
$000010 1B 1B 1B 0A 09 29 2D 2D 11 1B 1F 1B 1F 1B 0A 09 .....)-- ........
$000020 29 2D 2D 11 1B 1B 1B 1B 1B 0A 09 29 2D 2D 11 1B )--..... ...)--..
$000030 1F 1B 1F 1B 0A 09 29 09 29 11 1B 1F 1B 1F 1B 0A ......). ).......
$000040 09 29 09 29 11 1B 1F 1B 1F 1B 0A 09 29 09 29 11 .).).... ....).).
$000050 1B 1F 1B 1F 1B 0A 09 29 2D 2D 00 0A 09 2D 2D 2D .......) --...---
$000060 15 3B 1B 1B 1B 1F 0A 29 09 09 09 15 3B 3F 1B 1B .;.....) ....;?..
$000070 1F 0A 29 09 29 09 11 1B 1B 1F 1B 1F 0A 29 09 29 ..).)... .....).)
$000080 09 11 3B 3F 1B 1B 1F 0A 29 09 09 09 15 3B 1B 1B ..;?.... )....;..
$000090 1B 1F 0A 29 09 09 2D 15 1B 1B 1F 1B 1F 0A 29 09 ...)..-. ......).
$0000A0 29 09 11 1B 1B 1F 1B 1F 0A 29 09 29 09 11 1B 1B )....... .).)....
$0000B0 3F 3F 1F 18 00 0A 09 09 09 09 09 29 2D 2D 2D 11 ??...... ...)---.
$0000C0 1B 1F 1B 1B 3B 1B 1B 1B 1B 1B 0A 09 09 09 09 09 ....;... ........
$0000D0 0D 09 09 29 11 1B 3F 1F 1B 3B 1B 1B 3F 3F 1F 0A ...)..?. .;..??..
$0000E0 29 09 29 09 09 0D 09 0D 09 11 1B 1B 3B 1B 3B 1B ).)..... ....;.;.
$0000F0 1B 3F 3F 1F 0A 09 09 09 09 09 0D 09 0D 09 11 1B .??..... ........
$000100 3F 1F 1B 3B 1B 1B 3F 3F 1F 0A 29 09 29 09 09 0D ?..;..?? ..).)...
$000110 09 09 29 11 1B 1F 1B 1B 3B 1B 1B 1F 1B 1F 0A 29 ..)..... ;......)
$000120 09 29 09 09 0D 09 29 2D 11 1B 1B 3B 1B 3B 1B 1B .)....)- ...;.;..
$000130 1F 1B 1F 0A 29 09 29 09 09 0D 09 0D 09 11 1B 1B ....).). ........
$000140 3B 1B 3B 1B 1B 1F 1B 1F 0A 2D 09 29 09 09 0D 09 ;.;..... .-.)....
$000150 0D 09 11 1B 1B 3B 3F 3F 1B 1B 3F 3F 1F 18 00 A9 .....;?? ..??...)
$000160 15 8D 85 79 A9 2A 8D 87 79 A9 9E 8D 89 79 60 00 ...y)*.. y)...y`.
$000170 00 00 .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/INTERACTIVE FANTASIES.bas:
0 POKE 205,255: POKE 1012,0: TEXT : HOME : NORMAL : CLEAR : HGR2 : HGR : SPEED= 255: HIMEM: 29420: LOMEM: 24576: POKE -16302,0: ONERR GOTO 18
1 PRINT CHR$(4)"BLOADEWS3": PRINT CHR$(4)"BLOADIF.SHAPE": PRINT CHR$(4)"BLOADPARSER": PRINT CHR$(4)"BLOADDISSOLVE,A7936"
2 CALL 31137: HCOLOR= 3: SCALE= 1: ROT= 0: POKE 232,0: POKE 233,86: GOTO 6
3 PR# 0: CALL 1002: RETURN
4 X% = PEEK(P1%) + PEEK(P1%) - PEEK(P1%) + PEEK(P1%): RETURN
5 GOSUB 4: DRAW N8% AT N1% -N% *N2%,N3% -N% *N4%: POKE P1,N% *1 +30: POKE P2,10: RETURN
6 CALL 35328: GOSUB 14: FOR I = N5% TO N6% STEP -N7%:N% = I: SCALE= N%: HCOLOR= C%(N%): GOSUB 5: NEXT : HCOLOR= N0%: FOR I = N5% TO N6% STEP -N7%:N% = I: SCALE= N%: GOSUB 5: NEXT
7 FOR I = 2 TO 7: HCOLOR= C%(I): SCALE= I: GOSUB 4: DRAW 3 AT I *12 -10,I *4 +21: NEXT
8 HCOLOR= 0: FOR I = 2 TO 7: SCALE= I: GOSUB 4: DRAW 3 AT I *12 -10,I *4 +21: NEXT
9 GOSUB 10: FOR I = 30 TO 90 STEP 30: PRINT "@"I"X"I"YN@": NEXT : GOSUB 3: CLEAR : CALL 36263: PRINT CHR$(4)"RUNWORLD BUILDERS": END
10 FOR I = 0 TO 6 STEP 3: HCOLOR= C%(I): HPLOT 91 +I,96 +I TO 113 +I,96 +I TO 113 +I,160 +I TO 91 +I,160 +I TO 91 +I,96 +I
11 HPLOT 91 +I,72 +I TO 113 +I,72 +I TO 113 +I,88 +I TO 91 +I,88 +I TO 91 +I,72 +I
12 HPLOT 133 +I,48 +I TO 140 +I,40 +I TO 175 +I,40 +I TO 175 +I,64 +I TO 168 +I,64 +I TO 161 +I,72 +I TO 161 +I,96 +I TO 175 +I,96 +I
13 HPLOT TO 175 +I,121 +I TO 161 +I,121 +I TO 161 +I,160 +I TO 133 +I,160 +I TO 133 +I,48 +I: NEXT : RETURN
14 HCOLOR= 1: HPLOT 21,12 TO 3,12 TO 3,188 TO 277,188 TO 277,12 TO 107,12: HCOLOR= 3: DRAW 1 AT 23,1: DRAW 2 AT 32,15: VTAB 2: HTAB 6: PRINT "nteractive": HTAB 7: PRINT "antasies"
15 DATA 5,4,1,2,5,6,1,2
16 DIM C%(7): FOR I = 0 TO 7: READ C%(I): NEXT I:N5% = 7:N8% = 3:N7% = 1:N1% = 275:N2% = 35:N3% = 105:N4% = 10:N6% = 2:P1% = -16336
17 PRINT "@I@": FOR I = 3 TO 5: VTAB I: HTAB 28: PRINT SPC( 12): NEXT : PRINT "@2V29H@EMPIRE I@D30H@WORLD@D29H@BUILDERS@I@": RETURN
18 GOSUB 3:ER% = PEEK(222): IF ER% = 8 OR ER% >253 THEN CALL 35339: RESUME
19 TEXT : PRINT "ERROR "ER%" AT LINE " PEEK(218) + PEEK(219) *256": IF": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/SD.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 3F 12 00 02 D7 0F 00 00 0A 09 09 0D 0B 07 12 12 ?...W... ........
$000010 08 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000040 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 01 ........ ........
$000050 00 00 00 01 01 01 01 00 00 00 01 00 00 00 00 00 ........ ........
$000060 00 00 00 00 01 02 00 00 00 00 00 00 00 00 00 01 ........ ........
$000070 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 ........ ........
** END **
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.1.bas:
0 CALL 36281: ONERR GOTO 167
1 HCOLOR= 3:ZZ = FRE(0): GOTO 38
2 PR# 0: CALL 1002: PRINT : RETURN
3 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE... "
4 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 4
5 POKE KP%,0: IF KY% < >160 THEN 4
6 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
7 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE "
8 DC% = FN D(MX% -MN% +1) +MN% -1: PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 8
9 POKE KP%,0: IF KY% < >160 THEN 8
10 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
11 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE "
12 DC% = FN D(6) + FN D(6) + FN D(6): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 12
13 POKE KP%,0: IF KY% < >160 THEN 12
14 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
15 FOR I3 = 1 TO 100: NEXT I3: RETURN
16 FOR I3 = 1 TO 25: NEXT I3: RETURN
17 PRINT S1$ SPC( 34)
18 KY% = PEEK(KS%): IF KY% <128 THEN 18
19 POKE KC%,0:CH% = KY% -176: IF CH% MX% THEN 18
20 PRINT S1$CH%S2$ SPC( 38): RETURN
21 TP% = H2% -H1% -1: VTAB V1%: HTAB H1%: PRINT "@G@Q" LEFT$(LN$,TP%)"E": FOR I4 = V1% +1 TO V2% -1: VTAB I4: HTAB H1%: PRINT 1;: HTAB H2%: PRINT 1;: NEXT I4: VTAB V2%: HTAB H1%: PRINT "Z" LEFT$(LN$,TP%)"C@R@": RETURN
22 TP% = H2% -H1% +1: VTAB V1%: FOR I4 = V1% TO V2%: HTAB H1%: PRINT SPC( TP%)"": NEXT I4: RETURN
23 PRINT "@L15C0K@":V1% = 2:V2% = 10:H1% = 2:H2% = 20: GOSUB 22: PRINT "@R@": RETURN
24 PRINT "@G@": FOR I4 = V1% TO V2%: VTAB I4: HTAB H1%: PRINT 1;: NEXT I4: PRINT "@R@": RETURN
25 FOR I5 = 15872 TO 15883: POKE I5,0: NEXT I5: RETURN
26 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
27 GOSUB 26: GOTO 3
28 GOSUB 26: GOTO 45
29 T1% = 0: CALL 30727:NM$ = "":TP% = PEEK(762): IF TP% <40 THEN FOR I6 = 0 TO TP% -1:NM$ = NM$ + CHR$( PEEK(512 +I6) -128): IF PEEK(512 +I6) < >160 THEN T1% = 1
30 NEXT I6: IF NOT LEN(NM$) OR NOT T1% OR LEN(NM$) >15 THEN 29
31 RETURN
32 MY = 0: FOR I6 = 0 TO 3:MY = MY + PEEK(MY% +I6) *256 ^I6: NEXT I6: RETURN
33 TP = 255 ^4 -1: IF MY >TP THEN MY = TP
34 TP = MY: FOR I6 = 3 TO 0 STEP -1:TP% = MY/256 ^I6: IF TP% >255 THEN TP% = 255
35 POKE MY% +I6,TP%:MY = MY -TP% *256 ^I6: NEXT I6:MY = TP: RETURN
36 FOR I6 = 1 TO 49: IF PS%(I6) = BL% THEN RP$ = "HERE IS A " +PS$(I6): GOSUB 27
37 NEXT I6: RETURN
38 BL% = 1: POKE 30720,22: POKE 30721,1: POKE 30722,32: CALL 35339:Q$(3) = "DEPARTURE WILL BE AFTER CHECK-OUT": DEF FN D(I) = INT( RND(1) *I) +1
39 POKE 15884,0: GOSUB 136: IF DD% THEN GOSUB 154
40 IF LEN(NM$) THEN GOSUB 150
41 TM = 0:MY = 0: FOR I = 1 TO 50:PS%(I) = TM: NEXT : FOR I = 1 TO 128: POKE FS% +I,TM: NEXT : POKE 15891,0
42 PRINT S2$ SPC( 38)S1$ SPC( 34)"@19V0H0K5CG@A" LEFT$(LN$,38)"D@D@A" LEFT$(LN$,34)"WRRRD@35H@1": HTAB 36: PRINT "X@RI15CU@" SPC( 3)IV$: HPLOT 252,175 TO 272,175
43 GOSUB 25: FOR I = 0 TO 3:Q$(I) = "NO REPLY": NEXT : ON BL% GOTO 71,74,78,81,95,98,112,125
44 GOSUB 36
45 FOR I = 0 TO 2: POKE 30724 +I,255: NEXT : CALL 30727: PRINT "@R@"S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726): IF VB% = <4 OR AD% <13 THEN 62
46 IF VB% = 70 THEN 59
47 IF VB% = 31 THEN GOSUB 36:RP$ = Q$(0): GOTO 28
48 IF VB% = 30 THEN 69
49 IF VB% >59 AND VB% <64 THEN RP$ = Q$(VB% -60): GOTO 28
50 IF VB% = 10 AND OB% <51 THEN 65
51 IF VB% = 12 AND OB% <51 THEN 67
52 IF AD% = 100 THEN RP$ = "FINE FOR OBSCENE LANGUAGE IS 50CR":MY = MY -(MY >50) *50: GOTO 28
53 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 28
54 GOTO 56
55 RP$ = "BY YOUR COMMAND": GOTO 28
56 RP$ = "REPHRASE YOUR COMMAND": GOTO 28
57 RP$ = "THERE ARE NONE HERE": GOTO 28
58 RP$ = "YOU HAVE NONE": GOTO 28
59 FOR I = 1 TO 49:TP% = PEEK(PS% +I): IF TP% THEN RP$ = PS$(I) +" - " + STR$(TP%): GOSUB 27
60 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%)
61 NEXT :RP$ = "MONEY - " + STR$(MY): GOTO 28
62 IF AD% >12 THEN RP$ = "GIVE DIRECTION": GOTO 28
63 IF NOT PEEK(15871 +AD%) THEN RP$ = "YOU CAN'T GO IN THAT DIRECTION": GOTO 28
64 BL% = PEEK(15871 +AD%): GOTO 43
65 IF PS%(OB%) < >BL% THEN 58
66 TP% = PEEK(PS% +OB%): POKE PS% +OB%,TP% +(TP% <255):PS%(OB%) = 0: GOTO 55
67 IF NOT PEEK(PS% +OB%) THEN 58
68 POKE PS% +OB%,0:PS%(OB%) = BL%: GOTO 55
69 RP$ = "THERE ARE ROARS IN THE DISTANCE": IF BL% <3 THEN 28
70 RP$ = "YOU CAN HEAR ROCKET FIRE": GOTO 28
71 PRINT "@9C8KG@":H1% = 2:H2% = 39:V1% = 2:V2% = 10: GOSUB 22: FOR I = 0 TO 8: VTAB I +11: PRINT "@1HI@" SPC( I)"@I@J" SPC( 36 -I *2)"H@I@" SPC( I)IV$: NEXT
72 PRINT "@15CG@": VTAB 2: FOR I = 1 TO 18: PRINT "@10H@V@29H@B": NEXT : PRINT "@L7V16H@TRAM@D13H@STATION@15C0KRI@": FOR I = 0 TO 2: VTAB 3 +I: HTAB 12: PRINT SPC( 7): NEXT
73 : PRINT "@2V19H@ NEW YORK @D11H@" CHR$(2)" EXIT@19H@ ROCKET " CHR$(1)"@D19H@ FIELD @I@": POKE 15878,2: POKE 15879,3:Q$(0) = "YOU ARE AT THE NYRF TRAM STATION": GOTO 44
74 PRINT "@0KL@":H1% = 2:H2% = 20:V1% = 2:V2% = 10: GOSUB 22: FOR I = 1 TO 20: HTAB INT( RND(1) *36) +2: VTAB INT( RND(1) *10) +2: PRINT "@" INT( RND(1) *14) +1"C@.": NEXT
75 PRINT "@136K@":V1% = 14:V2% = 16: GOSUB 22: PRINT "@15C14V10HL@" CHR$(26)"@22H@" CHR$(26)
76 GOSUB 15: FOR I = 128 TO 143: PRINT "@11V18H"I"C0K@" CHR$(25):TP% = PEEK(SP%): GOSUB 15: NEXT
77 FOR I = 128 TO 143: GOSUB 15: PRINT "@G"I"C3V32H@]": NEXT : PRINT S2$"@15C0KR@ END OF GAME - WATCH FOR EMPIRE II ": PRINT S1$" INTERSTELLAR SHARKS" SPC( 14): GOSUB 2: NEW : END
78 PRINT "@15C8KL@":H1% = 2:H2% = 20:V1% = 2:V2% = 9: GOSUB 22:V1% = 18:V2% = 18: PRINT "@13K@": GOSUB 22:V1% = 6:V2% = 11:H1% = 4:H2% = 7: PRINT "@138K@": GOSUB 22:H1% = 30:H2% = 33: GOSUB 22
79 PRINT "@0K@":H1% = 15:H2% = 20:V1% = 6:V2% = 9: GOSUB 22: PRINT "@136K@":V1% = 10:V2% = 11: GOSUB 22: PRINT "@R0K15WI2V2H@ NEW @14H@ NEW YORK @29H@ OFF "
80 PRINT "@2H@COLONISTS@14H@ROCKET FIELD@29H@WORLDERS@IG8V22H@#!@R@": GOSUB 25:Q$(0) = "YOU ARE IN THE NYRF LOBBY": POKE 15883,1: POKE 15878,4: POKE 15879,5: GOTO 44
81 TP% = 0: FOR I = 2 TO 128: POKE FS% +I,TP%: NEXT : POKE FS%, FN D(200):TP$ = "COLONIST APPLICATION": GOSUB 128: IF NN% >8 THEN PRINT "@8V3H@NO NEW APPLICANTS BEING ACCEPTED": GOSUB 3:BL% = 3: GOTO 43
82 PRINT "@5V3H@AGE: 18@D3H@SEX:": POKE AG%,18:MN% = 1:MX% = 10: GOSUB 7:TP$ = "FEMALE": IF DC% >4 THEN TP$ = "MALE"
83 PRINT "@6V8H@"TP$: POKE 16130,DC% >4: FOR I = 0 TO 9: VTAB 9 +I: HTAB 3: PRINT AR$(I): GOSUB 11: VTAB 9 +I: HTAB 18: PRINT DC%: POKE AR% +I,DC%: NEXT : GOSUB 3
84 V1% = 6:V2% = 18:H1% = 20: GOSUB 24: PRINT "@8V21H@SELECT CAREER": HTAB 22: PRINT "PATH": FOR I = 1 TO 3: VTAB I +11: HTAB 22: PRINT "<"I"> "CP$(I): NEXT :RP$ = "ENTER THE NUMBER OF YOUR SELECTION": GOSUB 26
85 MN% = 1:MX% = 3: GOSUB 17: PRINT "@5V20H@CAREER:"CP$(CH%): POKE 16131,CH%:H1% = 22:H2% = 36:V1% = 9:V2% = 14: GOSUB 22
86 POKE 16203,1: POKE 16220,10: POKE 16222,10: POKE 16229,20: POKE 16219,1: POKE 16218,1: ON CH% GOTO 87,88,89
87 MY = 5000: POKE 16241,1: POKE 16233,1: GOTO 90
88 MY = 500: POKE 16238,5: POKE 16239,5: GOTO 90
89 MY = 10000: POKE 16234,100: POKE 16221,1: FOR I = 35 TO 37: POKE PS% +I,1: NEXT : POKE 16222,50
90 VTAB 8: FOR I = 1 TO 50: IF PEEK(PS% +I) THEN HTAB 23: PRINT PS$(I)
91 NEXT : PRINT "@6V20H@MONEY: "MY: GOSUB 33
92 RP$ = "WHAT IS YOUR CHARACTER'S NAME?": GOSUB 26: GOSUB 29:TP% = 0: FOR I = 1 TO NN%: IF NM$ = NM$(I) THEN TP% = 1
93 NEXT : IF TP% THEN RP$ = "THAT NAME IS TAKEN": GOSUB 27: GOTO 92
94 PRINT "@2V2H@" SPC( 36)"@I2H@"NM$"@I@": GOSUB 3:Q$(0) = "YOU ARE IN APPLICATION ROOM": GOSUB 2: GOSUB 133:NN% = NN% +1:NM$(NN%) = NM$: GOSUB 140: GOTO 129
95 TP$ = "OFF WORLDER SCREENING": GOSUB 128: IF NOT (NN%) THEN RP$ = "NO COLONISTS HAVE RETURNED TO PLANET": GOSUB 26: GOSUB 3:BL% = 3: GOTO 43
96 VTAB 7: FOR I = 1 TO NN%: HTAB 3: PRINT "<"I"> "NM$(I): NEXT :RP$ = "ENTER NUMBER NEXT TO YOUR NAME": GOSUB 26:MN% = 1:MX% = NN%: GOSUB 17
97 NM$ = NM$(CH%): GOSUB 134: GOSUB 32:Q$(0) = "YOU ARE AT THE SCREENING ROOM": GOTO 129
98 GOSUB 23:H1% = 2:H2% = 38:V1% = 3:V2% = 19: GOSUB 21: PRINT "@1V1HI@"NM$", "CP$( PEEK(16131))"@I5V3H@AGE: " PEEK(AG%): HTAB 4: PRINT "SEX: ";:TP$ = "FEMALE": IF PEEK(16130) THEN TP$ = "MALE"
99 TP% = 20 - PEEK(AG%)/20: FOR I = 0 TO 9: IF PEEK(AR% +I) >TP% THEN POKE AR% +I,TP%
100 NEXT : PRINT TP$: VTAB 9: FOR I = 0 TO 9: HTAB 4: PRINT AR$(I)": " PEEK(AR% +I): NEXT :TP% = PEEK(16137)/2 +.5: VTAB 9: FOR I = 2 TO 5: HTAB 26: PRINT BD$(I)" ";:TP = 10: IF PEEK(BD% +I) >TP% THEN TP = 138
101 PRINT "@G"TP"K@ @R0KD@": NEXT : IF PEEK(AG%) >200 THEN RP$ = "YOU ARE TOO OLD FOR SPACE TRAVEL": GOSUB 27: GOTO 107
102 IF PEEK(AG%) >150 THEN RP$ = RY$ +AR$(6): GOSUB 26:MN% = 1:MX% = 20: GOSUB 7: IF DC% > PEEK(16142) THEN RP$ = "YOU ARE TOO OLD FOR SPACE TRAVEL": GOSUB 27: GOTO 107
103 IF PEEK(AG%) >150 THEN RP$ = "YOUR AGE POSES A RISK": GOSUB 27
104 IF PEEK(16150) >TP% AND PEEK(16150) >TP% THEN RP$ = "YOU ARE UNFIT FOR SPACE TRAVEL": GOSUB 27: GOTO 107
105 GOSUB 3: PRINT "@8K15CL@":H1% = 2:H2% = 20:V1% = 2:V2% = 9: GOSUB 22: PRINT "@1H7K@" SPC( 19)"@138K@":H1% = 17:H2% = 20:V1% = 6:V2% = 11: GOSUB 22: PRINT "@0KIR@": FOR I = 2 TO 4: VTAB I: HTAB 17: PRINT SPC( 8): NEXT
106 PRINT "@2V16H@CUSTOMS@I@": POKE 15882,7: POKE 15883,3:Q$(0) = "YOU ARE IN THE EXAMINING ROOM": GOTO 44
107 GOSUB 23: FOR I = 1 TO 50:PS%(I) = PEEK(PS% +I): NEXT : GOSUB 147: IF NOT NN% THEN 111
108 VTAB 9: FOR I = 1 TO NN%: HTAB 4: PRINT "<"I"> "NM$(I): NEXT :RP$ = "YOU MAY CHOOSE AN HEIR": GOSUB 26:MN% = 1:MX% = NN%: GOSUB 17:NM$ = NM$(CH%)
109 GOSUB 134: FOR I = 1 TO 50:TP% = PEEK(PS% +I):TP% = TP% +PS%(I): IF TP% >255 THEN TP% = 255
110 POKE PS% +I,TP%: NEXT :TP = MY: GOSUB 32:MY = MY +TP: GOSUB 33: GOSUB 132
111 RP$ = "UNTIL A NEW AGE....": GOSUB 27:ZZ = FRE(0): GOTO 38
112 GOSUB 23: PRINT "@133K@":H1% = 14:H2% = 39:V1% = 2:V2% = 19: GOSUB 21:H1% = 2:H2% = 13: GOSUB 22: PRINT "@I15C0K3V2H@ NYRF @D2H@SECURITY@D2H@SCANNER @7V2HLI@" SPC( 4)"@10V4H@" SPC( 2)
113 GOSUB 15: PRINT "@0KG30Y@": FOR I = 1 TO 20: VTAB FN D(2) +7: HTAB FN D(8) +2: PRINT "@" FN D(30) +15"X" FN D(15)"CN@" CHR$( FN D(10) +69): NEXT
114 PRINT "@L138C2V16H@SUBJECT IS@D19H@HOLDING@15CR6V@":TP = 0: FOR I = 1 TO 50: IF NOT PEEK(PS% +I) THEN 117
115 IF PEEK(37) = 16 THEN GOSUB 3:H1% = 17:H2% = 37:V1% = 8:V2% = 17: GOSUB 22: VTAB 8
116 TP% = PEEK(PS% +I): HTAB 17: PRINT PS$(I)" - "TP%:TP = TP +TP%
117 NEXT : IF TP > PEEK(16138) *20 AND NOT ( PEEK(16235) AND PEEK(16237)) THEN RP$ = "YOU MUST DROP SOME BAGGAGE": PRINT "@L138K10V4H@ @R0K@": GOSUB 27:BL% = 6: GOTO 43
118 PRINT "@L10K10V6H@ @R0K@":RP$ = "YOU ARE CLEARED FOR BOARDING": GOSUB 27: GOSUB 23
119 PRINT "@2KL@":H1% = 2:H2% = 20:V1% = 2:V2% = 9: GOSUB 22: PRINT "@7K17V1H@" SPC( 19)"@133K@":H1% = 18:H2% = 26:V1% = 6:V2% = 8: GOSUB 22: PRINT "@9V24H@" CHR$(16) CHR$(14)"@D17H130K@" SPC( 9)
120 PRINT "@G133K10V18H@#!@31H@#!@0K@":H1% = 5:H2% = 14:V1% = 6:V2% = 16: GOSUB 22: PRINT "@0K7C@": VTAB 8: FOR I = 0 TO 9: HTAB 5: PRINT IV$ SPC( I)IV$"J": NEXT : PRINT "@RI15C3V4H@ BOARDING @4HD@ GATE "IV$
121 RP$ = "YOU MAY PASS THE BOARDING GATE": GOSUB 26:TM = TM +10 + FN D(30): IF FN D(3) = 3 THEN 124
122 PRINT "@255X5YL133K@": FOR I = 10 TO 6 STEP -2: VTAB I: PRINT "@26H" FN D(15) +128"CN@" CHR$(15)"@143CUB@";:TP = PEEK(SP%): IF I < >6 THEN PRINT CHR$(14)
123 GOSUB 16: VTAB I: PRINT "@26H@ ": NEXT I: HTAB 27: PRINT " @R15C0K@"
124 Q$(0) = "YOU ARE AT THE BOARDING GATE": POKE 15878,8: POKE 15883,6:Q$(3) = "WE'LL DEPART ONCE YOU ENTER THE GATE": GOTO 44
125 GOSUB 23: FOR I = 2 TO 7: GOSUB 127: NEXT I: FOR I = 7 TO 2 STEP -1: PRINT "@133C@": GOSUB 127: PRINT "@15C@": GOSUB 127: NEXT I
126 RP$ = "YOU ARE ENTERING YOUR ROCKET": GOSUB 26: CALL 36263: GOSUB 2: PRINT CHR$(4)"RUNWB.2": END
127 H1% = 2 +I *2:H2% = 39 -I *2:V1% = 2 +I:V2% = 18 -I: GOSUB 21: RETURN
128 GOSUB 23:H1% = 2:H2% = 39:V1% = 2:V2% = 19: GOSUB 21: PRINT "@I2V2H@" SPC( 36): HTAB 6: PRINT "EMPIRE STATE COLONY AUTHORITY": HTAB 3: PRINT SPC( 36): HTAB 20 - LEN(TP$)/2: PRINT TP$IV$: RETURN
129 PRINT "@L8K@":V1% = 2:V2% = 9:H1% = 2:H2% = 20: GOSUB 22: PRINT "@13K1H17V@" SPC( 19)"@138KG@":H1% = 16:H2% = 24:V1% = 6:V2% = 17: GOSUB 22
130 PRINT "@143CI1V15H@ + @RD15H0K@EXAMINING@D15H@ ROOM @I@": POKE 15882,6: POKE 15883,3: IF PEEK(PS% +49) THEN MN% = 1:MX% = 20: GOSUB 7: IF DC% < PEEK(16145) THEN 126
131 GOTO 44
132 GOSUB 2: PRINT CHR$(4)"UNLOCK"NM$
133 PRINT CHR$(4)"BSAVE"NM$",A16128,L128": PRINT CHR$(4)"LOCK"NM$: CALL 35339: RETURN
134 GOSUB 2: PRINT CHR$(4)"BLOAD"NM$: CALL 35339: RETURN
135 GOSUB 2: PRINT CHR$(4)"UNLOCK"NM$: PRINT CHR$(4)"DELETE"NM$: CALL 35339: RETURN
136 TP$ = "CHARACTERS": GOSUB 2: PRINT CHR$(4)"OPEN"TP$
137 PRINT CHR$(4)"READ"TP$
138 INPUT NN%: IF NN% THEN FOR I = 1 TO NN%: INPUT NM$(I): NEXT
139 PRINT CHR$(4)"CLOSE": CALL 35339: RETURN
140 TP$ = "CHARACTERS": GOSUB 2: PRINT CHR$(4)"UNLOCK"TP$
141 PRINT CHR$(4)"OPEN"TP$
142 PRINT CHR$(4)"WRITE"TP$
143 PRINT NN%: IF NN% THEN FOR I = 1 TO NN%: PRINT NM$(I): NEXT
144 PRINT CHR$(4)"CLOSE"
145 PRINT CHR$(4)"LOCK"TP$: CALL 35339: RETURN
146 GOSUB 2: PRINT CHR$(4)"VERIFYEWS3": CALL 35339: RETURN
147 FOR I = 1 TO NN%: IF NM$ = NM$(I) THEN TP% = I
148 NEXT : IF TP% INT(TP%/2) OR PEEK(16147) >TP% THEN 147
152 GOSUB 33:TP = PEEK(AG%) + INT(TM/512640): IF TP >250 THEN TP = 250
153 POKE AG%,TP: GOTO 132
154 IF NOT ( PEEK(16131) = 2 AND FN D(4) = 2) AND FN D(50) > PEEK(16145) THEN 147
155 FOR I = 7 TO 272 STEP 7: HCOLOR= FN D(8) -1: HPLOT I,8 TO 279 -I,151: NEXT : FOR I = 8 TO 151 STEP 5: HPLOT 7,I TO 272,159 -I: HCOLOR= FN D(8) -1: NEXT : PRINT "@L15C0K250Y@": FOR I = 80 TO 140 STEP 20: PRINT "@"I"XN@": NEXT
156 PRINT "@9V19H@" CHR$(27): PRINT "@E2V12H@I AM THE@D7H@LORD OF LIGHT@E@":DD% = 0:ZZ = FRE(0): POKE -16300,0: POKE -16299,0: FOR I = 0 TO 5: POKE BD% +I,0: NEXT : ONERR GOTO 166
157 GOSUB 146:RP$ = "ROLL YOUR CHARISMA":MN% = 1:MX% = 20: GOSUB 26: GOSUB 7: GOSUB 146: ONERR GOTO 167: IF DD% THEN 163
158 IF DC% < PEEK(16142) THEN 161
159 RP$ = "A PROPHESY": GOSUB 26: IF FN D(20) < PEEK(16145) THEN PRINT "@LE13V4H@AN EMPIRE ISN'T@D5H@BUILT IN A DAY@D7H@NOR BY A MAN@E@": GOTO 3
160 GOSUB 132: GOTO 74
161 IF FN D(20) < PEEK(16145) THEN RP$ = "I WILL GRANT THEE GREAT POWER": GOSUB 27: POKE 16142,18: POKE 16143,18: POKE 16145,18: POKE PS% +49,1: RETURN
162 RP$ = "I WILL GRANT THEE WEALTH": GOSUB 27:MY = MY +50000: RETURN
163 IF FN D(20) < PEEK(16142) THEN DD% = 0:RP$ = "YOU HAVE LOST MY TRUST, MY CHILD": GOSUB 27: RETURN
164 GOSUB 147: IF FN D(10) = 7 THEN GOSUB 2: FOR I = 1 TO NN%:NM$ = NM$(I): PRINT CHR$(4)"UNLOCK"NM$: PRINT CHR$(4)"DELETE"NM$: NEXT :NN% = 0: GOSUB 140:RP$ = "A PLAGUE UPON THY KIND":NM$ = "": GOTO 27
165 RP$ = "TO ETERNITY WITH THEE, UNWORTHY": GOSUB 27: GOTO 147
166 CALL 1002: CALL 35339:RP$ = "CLOSE THY DISK DOOR": GOSUB 27:DD% = 1: GOSUB 2: RESUME
167 GOSUB 2:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
168 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.1": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.10.bas:
0 CALL 36281: ONERR GOTO 176
1 ZZ = FRE(0): GOTO 26
2 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
3 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
4 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 4
5 POKE KP%,0: IF KY% < >160 THEN 4
6 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
7 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
8 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 8
9 POKE KP%,0: IF KY% < >160 THEN 8
10 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
11 RP$ = RY$ +AR$(TP%): GOSUB 13: GOSUB 7:TP = DC% < = PEEK(AR% +TP%): RETURN
12 PRINT "@L15C0K1V@";: FOR I3 = 1 TO 9: PRINT "@1H@" SPC( 19)"": NEXT : PRINT "@R@": RETURN
13 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
14 GOSUB 13: GOTO 30
15 GOSUB 16: GOTO 30
16 GOSUB 13: GOTO 3
17 GOSUB 13: PRINT S1$ SPC( 34): FOR I3 = 0 TO 6: POKE 512 +I3,32: NEXT I3:TP% = 0
18 T1$ = CHR$( PEEK(512 +TP%)): HTAB 2 +TP%: PRINT "@22VI@"T1$"@BI@";
19 KY% = PEEK( -16384): IF KY% <128 THEN 19
20 POKE -16368,0:KY% = KY% -128: PRINT T1$"@B@";: IF KY% = 13 THEN 25
21 IF KY% = 8 AND TP% THEN TP% = TP% -1: GOTO 18
22 IF KY% = 15 AND TP% <4 THEN TP% = TP% +1: GOTO 18
23 IF KY% >47 AND KY% <58 THEN POKE (512 +TP%),KY%: PRINT CHR$(KY%);:TP% = TP% +1: IF TP% = 4 THEN 25
24 GOTO 18
25 T1$ = "": FOR I3 = 0 TO TP%:T1$ = T1$ + CHR$( PEEK(512 +I3)): NEXT I3:TP% = VAL(T1$): RETURN
26 CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
27 FOR I = 0 TO 255: POKE 15260 +I,0: NEXT : GOSUB 148: GOSUB 156: GOSUB 139
28 IF VB% = 63 THEN VB% = 71
29 FOR I = 1 TO 9: READ TP$(I): NEXT : DATA NORTH,WEST,EAST,SOUTH,NO ACTIVITY,PLOWED,SEEDED,HARVEST,HERD
30 FOR I = 0 TO 2: POKE 30724 +I,255: NEXT : GOSUB 140: CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726)
31 IF VB% = 4 THEN 42
32 IF VB% >69 THEN ON VB% -69 GOTO 84,88
33 IF AD% = 100 THEN 48
34 IF VB% = 20 THEN 54
35 IF OB% = 34 THEN 80
36 IF OB% = 48 THEN 91
37 IF OB% = 32 THEN 57
38 IF VB% >100 THEN ON VB% -100 GOTO 74,61,68
39 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 14
40 RP$ = "REPHRASE YOUR COMMAND": GOTO 14
41 RP$ = "BY YOUR COMMAND": GOTO 14
42 IF F1% >5100 THEN F1% = 5100
43 IF F2% >5100 THEN F2% = 5100
44 IF F5% >5100 THEN F5% = 5100
45 IF F7% >510 THEN F7% = 510
46 FOR I = 0 TO 1:TP% = PS% -I *641: POKE TP% +22,F1%/20: POKE TP% +34,F2%/20: POKE TP% +20,F5%/20: POKE TP% +37,F7%/2: NEXT : IF PEEK(15486) THEN GOSUB 173
47 OE = TM:OD = TM:TP% = 3: GOTO 138
48 IF NOT PEEK(15486) THEN RP$ = "YOU HAVE NO SPOUSE": GOTO 53
49 IF F1 THEN RP$ = "A CHILD IS ALREADY ON THE WAY": GOTO 53
50 IF PEEK(15450) >9 THEN RP$ = "YOU CAN SUPPORT NO MORE CHILDREN": GOTO 53
51 TP% = 7: GOSUB 11: GOSUB 2: PRINT : FOR I = 1 TO 10: PRINT CHR$(4)"VERIFYIF.SHAPE": NEXT : CALL 35339: IF NOT TP THEN RP$ = "NO CHILD THIS TIME": GOTO 53
52 RP$ = "YOU WILL SOON HAVE A CHILD":F1 = TM +90720
53 GOSUB 16: GOSUB 98: GOTO 30
54 GOSUB 94: IF NOT PEEK(15367 +AD%) THEN RP$ = "THERE IS NO CATTLE HERE TO KILL": GOSUB 16: GOTO 30
55 TP% = 0: GOSUB 11: IF NOT TP THEN RP$ = "NO KILL WAS MADE": GOTO 53
56 RP$ = "ONE CATTLE HAS BEEN SLAUGHTERED": GOSUB 16: POKE 15367 +AD%, PEEK(15367 +AD%) -1:F7% = F7% -( PEEK(15359 +AD%) = 4):F1% = F1% +30:AD% = 5 -F8%/3: FOR I = 1 TO AD%: GOSUB 98: NEXT : GOTO 30
57 GOSUB 94: GOSUB 96:TP% = 0: GOSUB 11: IF NOT TP THEN RP$ = "YOU COULD NOT PLOW": GOTO 53
58 TP% = PEEK(15363 +AD%): IF NOT TP% THEN TP% = MN%
59 I3 = TP% * FN D(2):I4 = AD%
60 GOSUB 183: POKE 15359 +AD%,1: GOSUB 140:AD% = 13 -F8%: FOR I = 1 TO AD%: GOSUB 98: NEXT : GOTO 30
61 GOSUB 94: IF PEEK(15359 +AD%) < >3 THEN RP$ = "THE FIELD ISN'T READY FOR HARVEST": GOTO 53
62 TP% = 0: GOSUB 11: IF NOT TP THEN RP$ = "YOU EXPERIENCED DIFFICULTIES": GOTO 53
63 VB% = PEEK(15371 +AD%) *F8%: IF NOT VB% THEN RP$ = "NO CROP PRODUCED": GOTO 53
64 I3 = VB% - FN D(VB%):I4 = AD%: GOSUB 181:VB% = VB% *(1 +(VB% <300) *99): IF F4% +VB% >32767 OR F1% +VB% >32767 OR F2% +VB% >32767 THEN VB% = VB%/2: GOTO 64
65 RP$ = STR$(VB%) +" OF FOOD WAS COLLECTED": GOSUB 16
66 RP$ = "HOW MUCH GOES TO CATTLE?": GOSUB 17: IF TP% >VB% THEN 64
67 F4% = F4% +TP%:F1% = F1% +VB% -TP%:F2% = F2% +VB%: GOSUB 98: GOTO 30
68 GOSUB 94: IF NOT F7% THEN RP$ = "YOU HAVE NO ANIMALS": GOSUB 16: GOTO 30
69 FOR I = 1 TO 4: IF PEEK(15359 +I) = 4 THEN POKE 15359 +I,0
70 NEXT :TP% = 0: GOSUB 11:TP% = 0: IF TP THEN TP% = FN D(20 - PEEK(16144)) -1: IF TP% >F7% THEN TP% = F7%
71 IF F7% >255 THEN F7% = 255
72 IF TP% THEN RP$ = STR$(TP%) +" ANIMALS HAVE ESCAPED": GOSUB 16:F7% = F7% -TP%
73 POKE 15359 +AD%,4: FOR I = 1 TO 4: POKE 15367 +I,0: NEXT : POKE 15367 +AD%,F7%: GOSUB 98: GOTO 30
74 GOSUB 94: IF NOT PEEK(15367 +AD%) OR PEEK(15359 +AD%) < >3 THEN RP$ = "THERE ARE NO STRAY CATTLE THERE": GOTO 53
75 TP% = 8: GOSUB 11: IF NOT TP THEN RP$ = "YOU DIDN'T CATCH ANY": GOTO 53
76 TP% = PEEK(15367 +AD%):VB% = FN D(TP%):TP = 0: FOR I = 1 TO 4: IF PEEK(15359 +I) = 4 THEN TP = I:I = 9
77 NEXT :TP = TP +15367
78 IF PEEK(TP) +VB% >255 THEN VB% = VB% -1: GOTO 78
79 RP$ = "YOU'VE ADDED " + STR$(VB%) +" CATTLE": GOSUB 16:F7% = F7% +VB%: POKE TP,F7%: FOR I = 1 TO VB% STEP 3: GOSUB 98: NEXT : GOTO 30
80 GOSUB 94: IF NOT F2% THEN RP$ = "YOU HAVE NO SEED": GOSUB 16: GOTO 30
81 GOSUB 96:RP$ = "HOW MUCH OF YOUR " + STR$(F2%) +" SEED?"
82 GOSUB 17: IF TP% >F2% OR TP% >255 THEN 82
83 POKE 15359 +AD%,2: POKE 15371 +AD%,TP%:F2% = F2% -TP%:I4 = AD%:I3 = 15 -T3%/25 *(5 -T4%): GOSUB 182:AD% = 5 -F8%/4: FOR I = 1 TO AD%: GOSUB 98: NEXT : GOTO 30
84 GOSUB 12: PRINT "@L10K1V9H@FARM REPORT@0KR@": FOR I = 1 TO 4: VTAB I +4: HTAB 3: PRINT TP$(I +(I = 2) *2 -(I = 4) *2)" "TP$(5 + PEEK(15359 +I));:TP% = PEEK(15359 +I): IF TP% = 3 THEN PRINT " (" PEEK(15371 +I) *100" EST.)"
85 IF TP% = 4 THEN PRINT " ("F7%" HEAD)"
86 NEXT : PRINT "@10V3H@FAMILY SIZE: "F8%"@13V3H@FOOD WATER SEED CATTLE FEED@2D3H@"F1%"@12H@"F5%"@22H@"F2%"@31H@"F4%
87 GOSUB 16: GOSUB 139: GOSUB 140: GOSUB 98: GOTO 30
88 TP = PEEK(FS%) + PEEK(AG%) +TM/525600:TP$ = " A.E.": IF TP <200 THEN TP$ = " B.E."
89 RP$ = "YEAR: " + STR$( INT( ABS(TP -200))) +TP$ +" DAY: ":TP = (TP - INT(TP)) *365
90 RP$ = RP$ + STR$( INT(TP)) +" TIME: " + STR$( INT((TP - INT(TP)) *1440)): GOTO 14
91 TP% = 2: GOSUB 11: IF NOT TP OR FN D(10) 32767 THEN TP = 32767
93 F5% = TP: GOTO 53
94 IF NOT AD% OR AD% >4 THEN RP$ = "IN WHICH FIELD?": GOSUB 16: POP : GOTO 30
95 RETURN
96 IF PEEK(15359 +AD%) = 4 THEN RP$ = "YOUR CATTLE IS THERE": GOSUB 16: POP : GOTO 30
97 RETURN
98 TM = TM +10080:T1 = T1 +1: IF T1 >T1% THEN T1 = 0
99 FOR J = 1 TO 4:F7% = 0
101 TP% = 0: IF T1 T3% *40 AND FN D(3) = 2 THEN RP$ = "RAIN DAMAGE TO CROPS": GOSUB 16: POKE 15359 +J,0: GOTO 119
104 IF F5% < PEEK(15371 +J) THEN I3 = 5 = F5%: GOSUB 181
105 F5% = F5% - PEEK(15371 +J):I3 = PEEK(15375 +J): IF I3 >6 -T4% THEN I3 = I3 -1: GOSUB 182: GOTO 119
106 I3 = PEEK(15371 +J) *((9 -TR% +MN%) *10 + PEEK(15363 +J))/238
107 GOSUB 181: POKE 15359 +J,3: POKE 15363 +J, INT( PEEK(15363 +J)/2): GOTO 119
108 IF NOT PEEK(15375 +J) THEN POKE 15371 +J, INT( PEEK(15371 +J)/2): GOTO 110
109 I3 = PEEK(15375 +J) -1: GOSUB 182
110 TP = PEEK(15367 +J): IF TP THEN FOR I3 = 1 TO TP: POKE 15371 +J, INT( PEEK(15371 +J) *.9): NEXT I3
111 IF FN D(20) > PEEK(16145) THEN 119
112 I3 = TP + FN D( PEEK(15371 +J) *2) - FN D(TP): IF I3 = 1 THEN I3 = I3 -( FN D(3) = 1)
113 GOSUB 180: GOTO 119
114 I3 = PEEK(15367 +J): IF F5% F4% THEN I3 = F4% *2
116 F4% = F4% -(I3/2) *( FN D(3) >1): IF I3 >1 THEN I3 = INT(I3 *1.1 +( FN D(9) = 1) -( FN D(20) = 1))
117 GOSUB 180:F7% = F7% +I3:I3 = PEEK(15363 +J) +TP/10
118 GOSUB 183
119 NEXT J: IF F5% 890 +F6% THEN RP$ = "INFLUENZA EPIDEMIC": GOSUB 16:F8% = F8% -( FN D(3) +1) *( FN D(20) > PEEK(AR% +1))
122 GOSUB 132:TP% = F8% -1 - PEEK(15486): IF TP% THEN FOR J = 1 TO TP%: POKE 15450 +J, PEEK(15450 +J) + PEEK(15450 +J) <20: NEXT J
123 IF NOT F1 OR F1 >TM THEN 127
124 F1 = 0:RP$ = "A BABY IS BEING BORN": GOSUB 16:TP% = 0: GOSUB 11: IF NOT TP THEN RP$ = "THE BABY WAS STILLBORN": GOSUB 16: IF DC% = 20 AND PEEK(16130) THEN RP$ = "YOUR WIFE HAS DIED": GOSUB 16: GOSUB 167:DC% = 0: POKE 15486,0:F8% = F8% -1
125 IF DC% = 20 THEN 137
126 IF TP THEN TP = PEEK(15450):TP = TP +1: POKE 15450,TP: POKE 15450 +TP,1:F8% = F8% +1
127 TP = (10 -T5% + FN D(90)) *26: IF F1% >TP AND FN D(3) = 1 THEN F1% = TP:RP$ = "SPOILAGE TO FOOD STORES": GOSUB 16
128 IF F2% >TP AND FN D(3) = 2 THEN F2% = TP:RP$ = "SPOILAGE TO SEED STORES": GOSUB 16
129 IF F4% >TP AND FN D(3) = 3 THEN F4% = TP:RP$ = "SPOILAGE TO CATTLE FEED": GOSUB 16
130 TP = (BD + FN D(5)) *2250: IF F5% >TP THEN F5% = TP:RP$ = "WATER SUPPLY HAS EVAPORATED": GOTO 16
131 RETURN
132 I3 = F8% - PEEK(15486) -1:TP% = PEEK(15450): GOSUB 190
133 IF I3 2) *20: HTAB H1%: PRINT "@L130K@";:TP% = PEEK(15359 +I): ON TP% +1 GOTO 141,142,143,144,146
141 PRINT "@0K@";: FOR J = 1 TO 3: HTAB H1%: PRINT SPC( 9)"": NEXT J: GOTO 147
142 FOR J = 1 TO 3: HTAB H1%: FOR I3 = 1 TO 9: PRINT ">";: NEXT I3: PRINT : NEXT J: GOTO 147
143 FOR J = 1 TO 3: HTAB H1%: FOR I3 = 1 TO 9: PRINT ":";: NEXT I3: PRINT : NEXT J: GOTO 147
144 PRINT "@10K@";:TP% = PEEK(15371 +I): FOR J = 1 TO 3: HTAB H1%: FOR I3 = 1 TO 9: PRINT CHR$(32 +( FN D(255) 2) *20 + FN D(17): PRINT "@E@" CHR$(119)"@E@": NEXT J: GOTO 147
146 TP% = PEEK(15367 +I): FOR J = 1 TO 3: HTAB H1%: FOR I3 = 1 TO 9: PRINT CHR$(32 +( FN D(255) NM$ THEN F1% = F1% +1:TP$(F1%) = NM$(I): PRINT "@3H@<"F1%"> "NM$(I)
150 NEXT : PRINT "@D3H@<0> NONE":RP$ = "CHOOSE YOUR SPOUSE"
151 GOSUB 17: IF TP% >F1% THEN 151
152 PRINT S2$ SPC( 38): IF NOT TP% THEN 155
153 N1$ = TP$(TP%): GOSUB 166: IF PEEK(16130) = PEEK(15489) THEN RP$ = "YOUR SPOUSE CANNOT BE YOUR OWN SEX": GOSUB 16: GOTO 151
154 F8% = 2: POKE 15486,1: RETURN
155 RP$ = "YOU MAY FIND LIVING ALONE DIFFICULT": POKE 15486,0:F8% = 1: GOTO 16
156 TP% = ( PEEK(16222) + PEEK(15581)) *10:F4% = TP%/3:F1% = TP% -F4%:F2% = ( PEEK(16234) + PEEK(15593)) *10:F7% = PEEK(16237) + PEEK(15596):F6% = 1: IF PEEK(16228) THEN F6% = 3
157 IF PEEK(16231) THEN F6% = 9
158 F1 = 0:BD = 8: IF TR% = 2 OR TR% = 4 THEN BD = 6
159 IF TR% = 5 THEN BD = 5
160 IF TR% >6 THEN BD = 3
161 IF TR% = 6 THEN BD = 2
162 IF TR% = 3 THEN BD = 1
163 F5% = ( PEEK(16220) + PEEK(15579)) *10: IF F7% >255 THEN F7% = 255
164 IF F7% THEN POKE 15360,4: POKE 15368,F7%
165 RETURN
166 GOSUB 2: PRINT CHR$(4)"BLOAD"N1$",A15487": CALL 35339: RETURN
167 TP% = 0: FOR J = 1 TO NN%: IF NM$(J) = N1$ THEN TP% = J
168 NEXT J: IF TP% AND TP% 253 THEN CALL 35339: RESUME
177 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.10": NEW : END
180 GOSUB 190: POKE 15367 +I4,I3: RETURN
181 GOSUB 190: POKE 15371 +I4,I3: RETURN
182 GOSUB 190: POKE 15375 +I4,I3: RETURN
183 GOSUB 190: POKE 15363 +I4,I3: RETURN
190 IF I3 >255 THEN I3 = 255
191 IF I3 <0 THEN I3 = 0
192 RETURN
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.2.bas:
0 CALL 36281: ONERR GOTO 157
1 HCOLOR= 3: GOTO 31
2 PR# 0: CALL 1002: PRINT : RETURN
3 TP$(0) = "@0K" + STR$( FN D(15) +128) +"C@": FOR J = 1 TO 9:TP$ = " ": IF FN D(4) = 4 THEN TP$ = "."
4 TP$(0) = TP$(0) +TP$: NEXT J: RETURN
5 VTAB 4: FOR J = 1 TO 7: PRINT "@3H@"TP$(J): NEXT J: FOR J = 7 TO 1 STEP -1:TP$(J) = TP$(J -1): NEXT J:ZZ = PEEK(SP%): RETURN
6 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE... "
7 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 7
8 POKE KP%,0: IF KY% < >160 THEN 7
9 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
10 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE "
11 DC% = FN D(MX%): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 11
12 POKE KP%,0: IF KY% < >160 THEN 11
13 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
14 RP$ = RY$ +AR$(TP%): GOSUB 26:MX% = 20: GOSUB 10:TP = DC% < = PEEK(AR% +TP%): RETURN
15 TP% = H2% -H1% -1: VTAB V1%: HTAB H1%: PRINT "@G@Q" LEFT$(LN$,TP%)"E": FOR I4 = V1% +1 TO V2% -1: VTAB I4: HTAB H1%: PRINT 1;: HTAB H2%: PRINT 1;: NEXT I4
16 VTAB V2%: HTAB H1%: PRINT "Z" LEFT$(LN$,TP%)"C@R@": RETURN
17 TP% = H2% -H1% +1: VTAB V1%: FOR I4 = V1% TO V2%: HTAB H1%: PRINT SPC( TP%)"": NEXT I4: RETURN
18 PRINT "@L15C0K@":V1% = 2:V2% = 10:H1% = 2:H2% = 20: GOSUB 17: PRINT "@R@": RETURN
19 H1% = 4:H2% = 21:V1% = 4:V2% = 17: GOTO 17
20 FOR I5 = 15872 TO 15883: POKE I5,0: NEXT I5: RETURN
21 FOR I5 = 0 TO 3:Q$(I5) = "NO REPLY": NEXT I5: RETURN
22 FOR I5 = 0 TO 2: POKE 30724 +I5,255: NEXT I5: RETURN
23 IF OB% >50 THEN POP : GOTO 53
24 IF NOT PEEK(PS% +OB%) THEN POP :RP$ = "YOU HAVE NONE": GOTO 27
25 RETURN
26 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
27 GOSUB 26: GOTO 35
28 GOSUB 26: GOTO 6
29 FOR I6 = 1 TO 49: IF PS%(I6) = BL% AND FN D(20) < PEEK(16140) THEN RP$ = "HERE IS A " +PS$(I6): GOSUB 28
30 NEXT I6: RETURN
31 BL% = 9: CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
32 PRINT S1$ SPC( 34): FOR I = 0 TO 6: READ TP%(I): NEXT : DATA 3,1,2,10,11,7,139
33 T1$ = "K@ ":OA = 0:F1 = 0: POKE 15891,0: GOSUB 140: ON PEEK(15884) +1 GOTO 96,106
34 GOSUB 21: GOSUB 29
35 GOTO 90
36 GOSUB 22: CALL 30727: PRINT "@R@"S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726): IF VB% <5 OR AD% <13 THEN 69
37 IF VB% = 63 THEN VB% = 71
38 IF VB% >69 THEN ON VB% -69 GOTO 63,66
39 IF VB% = 31 THEN GOSUB 29:RP$ = "YOU ARE IN YOUR ROCKET": IF BL% = 255 THEN RP$ = "YOU ARE IN SPACE"
40 IF VB% = 30 THEN RP$ = "YOU CAN HEAR THE ROCKET ENGINES": IF BL% = 255 THEN RP$ = "THERE IS ONLY SILENCE IN SPACE"
41 IF VB% = 30 OR VB% = 31 THEN 27
42 IF VB% >59 AND VB% <64 THEN RP$ = Q$(VB% -60): GOTO 27
43 IF VB% = 10 THEN 59
44 IF VB% = 12 THEN 62
45 IF VB% >19 AND VB% <30 THEN RP$ = "THERE IS NO ONE HERE": GOTO 27
46 IF OB% >13 AND OB% <20 THEN ON VB% -39 GOTO 82,86
47 IF PEEK(15881) < >255 THEN 51
48 IF AD% = 20 THEN GOSUB 19: GOSUB 143: GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB.1": END
49 IF AD% = 21 THEN 108
50 IF AD% = 22 THEN GOSUB 19: GOSUB 143: GOSUB 147: GOTO 35
51 IF PEEK(15881) = 1 AND AD% = 23 THEN 134
52 IF AD% = 100 THEN RP$ = "I'LL HAVE NO SUCH TALK ON MY SHIP": GOSUB 26: GOTO 36
53 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 27
54 GOTO 56
55 RP$ = "BY YOUR COMMAND": GOTO 27
56 RP$ = "REPHRASE YOUR COMMAND": GOTO 27
57 RP$ = "THERE ARE NONE HERE": GOTO 27
58 RP$ = "YOU HAVE NONE": GOTO 27
59 IF OB% >50 THEN 57
60 IF PS%(OB%) < >BL% THEN 57
61 TP% = PEEK(PS% +OB%): POKE PS% +OB%,TP% +(TP% <255):PS%(OB%) = 0: GOTO 55
62 GOSUB 23: POKE PS% +OB%,0:PS%(OB%) = BL%: GOTO 55
63 FOR I = 1 TO 49: IF PEEK(PS% +I) THEN RP$ = PS$(I) +" - " + STR$( PEEK(PS% +I)): GOSUB 28
64 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%): GOSUB 28
65 NEXT :RP$ = "MONEY - " + STR$(MY): GOSUB 28: GOTO 35
66 TP = PEEK(FS%) + PEEK(AG%) +TM/525600:TP$ = " A.E.": IF TP <200 THEN TP$ = " B.E."
67 RP$ = "YEAR: " + STR$( INT( ABS(TP -200))) +TP$ +" DAY: ":TP = (TP - INT(TP)) *365
68 :RP$ = RP$ + STR$( INT(TP)) +" TIME: " + STR$( INT((TP - INT(TP)) *1440)): GOTO 27
69 IF AD% >12 THEN RP$ = "GIVE DIRECTION": GOTO 27
70 IF NOT PEEK(15871 +AD%) THEN RP$ = "YOU CAN'T GO IN THAT DIRECTION": GOTO 27
71 BL% = PEEK(15871 +AD%): IF BL% = 9 THEN 77
72 IF BL% = 1 THEN 79
73 TP% = 5: GOSUB 14: IF TP THEN RP$ = "YOU ALMOST SPACED YOURSELF": GOSUB 26:BL% = 9: GOTO 34
74 GOSUB 18: FOR I = 1 TO 50: VTAB FN D(17) +1: HTAB FN D(37) +1: PRINT "@L" FN D(15) +128"C0K@.": NEXT :RP$ = "YOU ARE NOW FREE-FLOATING IN SPACE": GOSUB 26
75 IF NOT PEEK(15889) THEN 139
76 GOSUB 20: POKE 15880,9: POKE 15891,1: GOTO 35
77 TM = TM +60:TP% = 0: GOSUB 14: IF TP THEN RP$ = "YOU HAVE BOARDED YOUR SHIP": GOSUB 26: GOSUB 140: GOSUB 155: POKE 15891,0:BL% = 9: GOSUB 20: POKE 15881,255: GOTO 35
78 RP$ = "YOU ARE STILL IN SPACE": GOTO 27
79 T4% = PEEK(15868): IF T4% = 3 OR T4% = 4 OR (T4% = 2 AND PEEK(15890)) OR PEEK(15889) THEN GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB.3": END
80 TP% = 5: GOSUB 14:RP$ = "THE ATMOSPHERE IS NOT BREATHABLE": GOSUB 26: IF TP THEN 35
81 GOTO 139
82 GOSUB 23: IF OB% <14 OR OB% >19 THEN 53
83 IF OB% = 18 AND NOT PEEK(PS% +29) THEN RP$ = "YOU NEED AN AIR TANK": GOTO 27
84 IF OB% = 18 THEN OA = TM +1440: POKE (PS% +29), PEEK(PS% +29) -1
85 POKE (15871 +OB%),5: GOTO 55
86 GOSUB 23: IF OB% <14 OR OB% >19 THEN 53
87 IF OB% = 18 THEN OA = 0
88 POKE (15871 +OB%),0: GOTO 55
89 RP$ = Q$(0): GOTO 89
90 IF FN D(50) = 50 AND BL% = 9 AND NOT (F1 OR PEEK(15891)) THEN F1 = TM + FN D(10): PRINT "@6VR36H138K@ @0KN@": GOTO 36
91 IF F1 AND TM >F1 THEN F1 = 0: POKE 15891,1
92 IF TM >OA AND OA AND PEEK(15889) AND PEEK(16229) THEN POKE 16229, PEEK(16229) -1:OA = TM +1440: GOTO 36
93 IF TM >OA AND OA AND FN D(20) < PEEK(16137) THEN RP$ = "YOU ARE LOW ON AIR": GOSUB 26: GOTO 36
94 IF ( PEEK(15891) AND NOT ( PEEK(15889))) OR (OA AND TM >OA) THEN RP$ = "YOU ARE SUFFOCATING": GOSUB 26: GOTO 139
95 GOTO 36
96 FOR I = 0 TO 1:TP$(I) = "@143C133" +T1$: NEXT :TP$(2) = " " + CHR$(20) + CHR$(21) + CHR$(21) + CHR$(21) + CHR$(22) +" ": FOR I = 3 TO 7:TP$(I) = " " + CHR$(18) + CHR$(17) + CHR$(17) + CHR$(17) + CHR$(19) +" ": NEXT
97 VTAB 4: FOR I = 1 TO 7: PRINT "@L3H@"TP$(I): NEXT :RP$ = "PREPARE FOR LAUNCH": GOSUB 26:ZZ = FRE(0): PRINT "@20YL@": FOR I = 200 TO 50 STEP -1: PRINT "@"I"XN@": NEXT
98 FOR I = 1 TO 42: IF I <10 OR I >19 THEN 101
99 TP$(0) = "@133K@": FOR J = 1 TO 9:TP$ = " ": IF FN D(5) = 5 THEN TP$ = CHR$(23)
100 TP$(0) = TP$(0) +TP$: NEXT J: GOTO 104
101 IF I = 20 THEN TP$(0) = "@129" +T1$: GOTO 104
102 IF I = 30 THEN TP$(0) = "@130" +T1$: GOTO 104
103 IF I >34 THEN GOSUB 3
104 GOSUB 5: NEXT I:RP$ = RY$ +AR$(1):MN% = 1:MX% = 100: GOSUB 26: GOSUB 10: IF DC% >89 + PEEK(16137)/2 THEN 139
105 RP$ = "YOU SURVIVED THE TAKE-OFF": GOSUB 28:ZZ = FRE(0): GOSUB 143: GOSUB 147: GOSUB 20: POKE 15881,255:TM = TM + FN D(3) *10: POKE 15884,1: GOTO 34
106 T4% = PEEK(15868): PRINT "@2VL@":TP% = 0: IF T4% >1 THEN TP% = 133: IF T4% >4 THEN TP% = 5
107 FOR I = 1 TO 2: PRINT "@3H"TP%T1$: NEXT : FOR I = 3 TO 7: PRINT "@3H"TP%(T4%)T1$: NEXT : GOSUB 20: POKE 15881,1:RP$ = "YOU ARE IN YOUR ROCKET": GOSUB 26: GOTO 34
108 ZZ = FRE(0): POKE 15871,T1% -1: POKE 15870,T2%: POKE 15869,T3%: POKE 15868,T4%: POKE 15867,T5%: POKE 15866,T6%: POKE 15865,T7%: POKE 15864,T8%:AV% = 0: IF PEEK(16131) = 1 THEN AV% = 1:FL = 500
109 FOR I = 1 TO T1% *T1%:TP = 0: IF FN D(10) < = T5% AND I < >1 THEN 125
110 ON FN D(T5%) GOSUB 111,112,113,114,114,115,116,116,117,117: GOTO 118
111 TP = 3 +( FN D(2) >1) *5: RETURN
112 TP = 6: RETURN
113 TP = 5: RETURN
114 TP = 1: RETURN
115 TP = 4: RETURN
116 TP = 7: RETURN
117 TP = 2: RETURN
118 ON FN D(T2%) GOSUB 121,121,121,121,122,123,120,120,119,119: GOTO 124
119 TP% = 8: RETURN
120 TP% = 4 + FN D(2): RETURN
121 TP% = 1 +( FN D(3) = 1) *2: RETURN
122 TP% = 2 +( FN D(3) = 1) *5: RETURN
123 TP% = 4: RETURN
124 TP = TP% *10 +TP: IF (I = (T6% >2) OR FN D(20) 1 AND T4% <5 THEN TP = TP +100
125 POKE 15615 +I,TP:ZZ = PEEK(SP%): NEXT : FOR I = 0 TO 3: POKE 15860 +I,0: NEXT : GOSUB 19: PRINT "@L20Y@": FOR I = 50 TO 200: PRINT "@"I"XN@": NEXT :X% = 0:X1% = 0:Y% = 0:Y1% = 0:OD = TM +10080:OE = TM +20160
126 FOR I = 1 TO 7: GOSUB 3:TP$(I) = TP$(0): NEXT : FOR I = 8 TO 30: IF I <15 THEN GOSUB 3: GOTO 132
127 IF I = 15 THEN TP$(0) = "@143C130" +T1$: GOTO 132
128 IF I < >20 THEN 131
129 TP% = 0: IF T4% >1 THEN TP% = 133: IF T4% >4 THEN TP% = 5
130 TP$(0) = "@" + STR$((TP% >128) *128 +15) +"C" + STR$(TP%) +T1$: GOTO 132
131 IF I = 25 THEN TP% = TP%(T4%):TP$(0) = "@" + STR$((TP% >128) *128 +15) +"C" + STR$(TP%) +T1$
132 VTAB 4: FOR J = 7 TO 1 STEP -1: PRINT "@3H@"TP$(J):TP$(J) = TP$(J -1): NEXT J:ZZ = PEEK(SP%): NEXT I:RP$ = "TOUCH DOWN ON PLANET SURFACE": GOSUB 26: GOSUB 20: POKE 15881,1
133 FOR I = 15892 TO 15933: POKE I,0: NEXT : POKE 15855,255: POKE 15854,255:AV = 0:T1% = T1% -1: GOTO 34
134 T4% = PEEK(15868):TP% = TP%(T4%):TP$(0) = "@" + STR$((TP% >128) *128 +15) +"C" + STR$(TP%) +T1$: FOR I = 3 TO 7:TP$(I) = TP$(0): NEXT :TP% = 0: IF T4% >1 THEN TP% = 133: IF T4% >4 THEN TP% = 5
135 PRINT "@20YL@": FOR I = 200 TO 50 STEP -1: PRINT "@"I"XN@": NEXT
136 TP$(0) = "@" + STR$((TP% >128) *128 +15) +"C" + STR$(TP%) +T1$: FOR I = 1 TO 2:TP$(I) = TP$(0): NEXT : FOR I = 1 TO 27: IF I = 10 THEN TP$(0) = "@143C130" +T1$
137 IF I >15 THEN GOSUB 3
138 GOSUB 5: NEXT I: GOSUB 20: POKE 15881,255:TM = TM +30:RP$ = "LIFT-OFF SUCCESSFUL": GOSUB 26: GOTO 35
139 DD% = 1: GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB.1": END
140 GOSUB 18: PRINT "@129K143CR@":H1% = 2:H2% = 23:V1% = 2:V2% = 19: GOSUB 15:H1% = 24:H2% = 39: GOSUB 17:H1% = 3:H2% = 22:V1% = 3:V2% = 18: GOSUB 15
141 : PRINT "@15C0KI@":H1% = 25:H2% = 38: GOSUB 17:TP$ = "USS 1ST WAVE": IF PEEK(16128) + PEEK(AG%) >200 THEN TP$ = "ISS CONQUEST"
142 PRINT "@3V25H@"TP$"@6V25H@ATMOSPHERE @10C@ @G15C10K@": VTAB 9: FOR I = 8 TO 16: HTAB 26: PRINT "T T T T T T": NEXT : PRINT "@R15C0KI@": RETURN
143 T3% = 15616:T4% = 15626:T5% = 15636:T6% = 15646: FOR I = 0 TO 9: POKE T3% +I,84: POKE T4% +I,72: POKE T5% +I, FN D(21): POKE T6% +I, FN D(21): NEXT I:F2% = 0:F3% = 3:F4% = 11:F5% = 21:F6% = 146:F7% = 24:F8% = 135
144 FOR I = 1 TO 10:ZZ = PEEK(SP%): FOR J = 0 TO 9:T1% = PEEK(T3% +J):T2% = PEEK(T4% +J): HCOLOR= F2%: HPLOT T1%,T2%:T1% = T1% +F4% - PEEK(T5% +J):T2% = T2% +F4% - PEEK(T6% +J)
145 IF T1% F6% OR T2% F8% THEN T1% = 84:T2% = 72: POKE T5% +J, FN D(F5%): POKE T6% +J, FN D(F5%)
146 HCOLOR= F3%: HPLOT T1%,T2%: POKE T3% +J,T1%: POKE T4% +J,T2%: NEXT J,I:TM = TM + FN D(6) *10080: RETURN
147 T1% = FN D(5) + FN D(5) + FN D(5) -2:T2% = FN D(4) + FN D(4) + FN D(4) -2:T3% = T1% *T2%:T4% = FN D(3) +1: IF (T1% <6 AND T2% <5) OR (T1% >8 AND T2% >6) THEN T4% = FN D(2) -1
148 IF (T1% <6 AND T2% >6) OR (T1% >8 AND T2% <5) THEN T4% = FN D(2) +4
149 T5% = 0: IF T4% >1 AND T4% <5 THEN T5% = FN D(4) + FN D(4) + FN D(4) -2
150 T6% = 0: IF T5% >1 AND T5% <9 THEN T6% = 10 - SQR( FN D(100))
151 T7% = 0: IF T6% >2 THEN T7% = FN D(3) -1
152 T8% = 0: IF T7% THEN T8% = FN D(6)
153 IF T5% = 10 OR ( PEEK(16131) < >1 AND T6% <2) THEN 147
154 PRINT "@R0K15C0@": GOSUB 19:RP$ = "ORBITING NEW PLANET": GOSUB 26
155 PRINT "@3V3H@DIAMETER: "T1%"@D3H@DENSITY: "T2%"@D3H@GRAVITY: " INT(T3% *4)/100"@D3H@ATMOS.: "AM$(T4%)"@D3H@HYDROGRAPHIC: "T5%"0%"
156 PRINT "@L9V11H"TP%(T4%)"C@" CHR$(11) CHR$(12)"@R15C14V3H@POPULATION: 10^"T6%"@D3H@TECH.: "TH$(T7%)"@D3H@GOV'T: "GV$(T8%): RETURN
157 GOSUB 2:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
158 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.2": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.3.bas:
0 CALL 36281: ONERR GOTO 202
1 ZZ = FRE(0): GOTO 32
2 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
3 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
4 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 4
5 POKE KP%,0: IF KY% < >160 THEN 4
6 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
7 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
8 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 8
9 POKE KP%,0: IF KY% < >160 THEN 8
10 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
11 RP$ = RY$ +AR$(TP%): GOSUB 15: GOSUB 7:TP = DC% < = PEEK(AR% +TP%): RETURN
12 FOR I5 = 15872 TO 15883: POKE I5,0: NEXT I5: RETURN
13 IF NOT PEEK(PS% +OB%) THEN RP$ = "YOU DON'T OWN A " +PS$(OB%): POP : GOTO 17
14 RETURN
15 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
16 GOSUB 15: GOTO 37
17 GOSUB 18: GOTO 37
18 GOSUB 15: GOTO 3
19 TP% = PEEK(16137):TP = PEEK(16146): IF TP > INT(TP%/2) OR PEEK(16147) >TP% THEN 192
20 IF TP > INT(TP%/2) -2 OR PEEK(16147) >TP% -2 THEN RP$ = "YOU ARE CLOSE TO DEATH": GOSUB 18
21 FOR I = 2 TO 5:TP = PEEK(BD% +I): IF TP >100 OR TP < INT(TP%/2 +.5) -1 THEN 24
22 IF TP < = INT(TP%/2 +.5) THEN RP$ = "YOUR " +BD$(I) +" IS SERIOUSLY HURT": GOSUB 18: GOTO 24
23 RP$ = "YOU HAVE LOST YOUR " +BD$(I): GOSUB 18: POKE BD% +I,255:TP% = 2 +(I >3) *6: POKE AR% +TP%, INT( PEEK(AR% +TP%)/2)
24 NEXT : RETURN
25 TP% = FN D(2) -1: POKE BD% +TP%, PEEK(BD% +TP%) +1: GOTO 19
26 TP% = AM% = 133: FOR I = 35 TO 37:TP% = TP% AND PEEK(PS% +I): NEXT
27 IF TP% AND NOT PEEK(15892) AND FN D(TP) = 1 THEN RP$ = "YOUR AXLE HAS BROKEN": GOSUB 18: POKE PS% +35, PEEK(PS% +35) -1:PS%(35) = BL%: IF PEEK(PS% +35) THEN RP$ = "YOU HAVE ANOTHER WAGON": GOSUB 18
28 POKE 15892,1: RETURN
29 TP% = AM% = 133: FOR I = 35 TO 37:TP% = TP% AND PEEK(PS% +I): NEXT
30 IF TP% AND FN D(TP) = 1 THEN RP$ = "A MULE HAS DIED": GOSUB 18:TP% = PEEK(PS% +37) -1:PS%(22) = BL%: POKE PS% +37,TP%:TP% = PEEK(PS% +35): IF TP% THEN PS%(35) = BL%: POKE PS% +35,TP% -1
31 RETURN
32 CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
33 FOR I = 0 TO 8: READ TP%(I): NEXT : DATA 133,3,3,130,10,1,130,11,1
34 POKE 15903,0: POKE 15893,0: POKE 15925,0:AM% = 0: IF T4% >1 THEN AM% = 133: IF T4% >4 THEN AM% = 5
35 GOSUB 201: IF AV THEN AV% = 0:AV = 0
36 TP% = X% *T1% +Y%:TP = PEEK(15616 +TP%):TN% = INT(TP/100):TP = TP -TN% *100:MN% = INT(TP/10):TR% = TP -MN% *10:BL% = 1000 +((X% +1) *T1% +Y% +1) *16 +(X1% +1) *4 +Y1%: GOSUB 194
37 FOR I = 0 TO 2: POKE 30724 +I,255: NEXT : GOSUB 161: CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726)
38 IF VB% <5 OR AD% <12 THEN 53
39 IF AD% = 20 THEN TP% = 1: GOTO 193
40 TP% = OB% <51 AND VB% >9: IF TP% THEN ON VB% -9 GOTO 69,51,73
41 IF VB% >19 AND VB% <30 THEN 103
42 IF VB% >29 THEN DM% = 0: ON VB% -29 GOTO 143,74,149,81,83,86,151
43 IF VB% = 63 THEN VB% = 71
44 IF VB% >39 THEN ON VB% -39 GOTO 90,94
45 IF VB% = 50 THEN 129
46 IF VB% = 55 THEN 110
47 IF VB% >69 THEN ON VB% -69 GOTO 97,100
48 TP% = VB% -80: IF TP% AND TP% <4 AND PEEK(16131) = TP% AND TR% THEN ON TP% GOTO 158,159,160
49 IF AD% = 100 THEN FOR I = 1 TO 20: POKE 49236,0: POKE 49237,0:ZZ = PEEK(SP%): NEXT :RP$ = "YOU ANGER THE POWERS THAT BE": GOSUB 18: ON ( FN D(99) = 99) +1 GOTO 37,192
50 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 16
51 RP$ = "REPHRASE YOUR COMMAND": GOTO 16
52 RP$ = "BY YOUR COMMAND": GOTO 16
53 RP$ = "YOU ARE NOT CLOSE ENOUGH": IF NOT (OB% = 110 OR AD% = 9 AND OB% = 255) THEN 56
54 IF NOT (X% OR Y% OR X1% OR Y1%) THEN TP% = 2: GOTO 193
55 GOTO 17
56 IF NOT (OB% = 100 OR AD% = 9 AND OB% = 255 OR VB% = 2) THEN 59
57 IF AV% AND X% = PEEK(15863) AND Y% = PEEK(15862) AND X1% = PEEK(15861) AND Y1% = PEEK(15860) THEN TP% = 4: GOTO 193
58 GOTO 17
59 IF NOT (OB% = 115 OR AD% = 9) THEN 62
60 IF TN% AND NOT (X1% OR Y1%) THEN TP% = 5: GOTO 193
61 GOTO 17
62 IF AD% >4 THEN RP$ = "INAPPROPRIATE DIRECTION": GOTO 17
63 IF AD% = 1 THEN X1% = X1% -1: IF X1% <0 THEN X1% = 3:X% = X% -1: IF X% <0 THEN X% = T1%
64 IF AD% = 2 THEN X1% = X1% +1: IF X1% >3 THEN X1% = 0:X% = X% +1: IF X% >T1% THEN X% = 0
65 IF AD% = 4 THEN Y1% = Y1% -1: IF Y1% <0 THEN Y1% = 3:Y% = Y% -1: IF Y% <0 THEN Y% = T1%
66 IF AD% = 3 THEN Y1% = Y1% +1: IF Y1% >3 THEN Y1% = 0:Y% = Y% +1: IF Y% >T1% THEN Y% = 0
67 IF PS%(35) = BL% AND NOT ( PEEK(PS% +35) OR PEEK(15892)) AND PEEK(PS% +37) THEN POKE PS% +35,1:PS%(35) = 0
68 TP% = 1: FOR I = 35 TO 37:TP% = TP% AND PEEK(PS% +I): NEXT :TM = TM +(TR% +20 - PEEK(16144)) *63 * PEEK(15868)/(TP% +1): GOTO 36
69 OB% = OB% +(OB% = 20 AND PS%(50) = BL%) *30: IF PS%(OB%) < >BL% THEN RP$ = "THERE IS NONE HERE": GOTO 16
70 IF OB% = 35 AND NOT PEEK(PS% +37) THEN RP$ = "YOU NEED A MULE": GOTO 16
71 TP = 0: FOR I = 1 TO 50:TP = TP + PEEK(PS% +I): NEXT : IF TP > PEEK(16138) *999/ PEEK(15869) AND NOT ( PEEK(16235) AND PEEK(16237)) THEN RP$ = "YOU CARRY TOO MUCH": GOTO 16
72 TP% = PEEK(PS% +OB%): POKE PS% +OB%,TP% +(TP% <255):PS%(OB%) = 0: GOTO 52
73 GOSUB 13: POKE PS% +OB%,0:PS%(OB%) = BL%: GOTO 52
74 RP$ = "YOU ARE IN " +TR$(TR%): GOSUB 18:TP% = PEEK(16140) +1: IF FN D(20) -DM% BL% THEN RP$ = "HERE IS WATER": GOSUB 18
80 GOTO 37
81 TP = 16222:TP% = PEEK(TP): IF NOT TP% THEN RP$ = "YOU HAVE NO FOOD": GOTO 16
82 POKE TP,TP% -1:OE = OE +20160: GOTO 52
83 TP = 16250:TP% = PEEK(TP): IF TP% THEN POKE TP,TP% -1:RP$ = "YOUR WATER IS POISONED": GOSUB 18: GOSUB 25: GOTO 37
84 TP = 16220:TP% = PEEK(TP): IF NOT TP% THEN RP$ = "YOU HAVE NO WATER": GOTO 16
85 POKE TP,TP% -1:OD = OD +10080: GOTO 52
86 IF NOT PEEK(16221) THEN RP$ = "YOU HAVE NO WATER TESTING KIT": GOTO 16
87 IF PS%(20) < >BL% OR PS%(50) < >BL% THEN RP$ = "THERE IS NO WATER HERE": GOTO 16
88 TP$ = "WATER TESTS AS ":RP$ = TP$ +"GOOD": IF PS%(50) = BL% AND FN D(20) < PEEK(16141) THEN RP$ = TP$ +"BAD"
89 GOTO 16
90 IF OB% <14 OR OB% >19 THEN 50
91 GOSUB 13: IF OB% = 18 AND NOT PEEK(PS% +29) THEN RP$ = "YOU'LL NEED AN AIR TANK": GOTO 16
92 IF OB% = 18 THEN OA = TM +1440: POKE PS% +29, PEEK(PS% +29) -1
93 POKE 15871 +OB%,5: GOTO 52
94 IF OB% <14 OR OB% >19 THEN 50
95 GOSUB 13: IF OB% = 18 THEN OA = 0
96 POKE 15871 +OB%,0: GOTO 52
97 FOR I = 1 TO 49: IF PEEK(PS% +I) THEN RP$ = PS$(I) +" - " + STR$( PEEK(PS% +I)): GOSUB 18
98 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%): GOSUB 18
99 NEXT :RP$ = "MONEY - " + STR$(MY): GOTO 16
100 TP = PEEK(FS%) + PEEK(AG%) +TM/525600:TP$ = " A.E.": IF TP <200 THEN TP$ = " B.E."
101 RP$ = "YEAR: " + STR$( INT( ABS(TP -200))) +TP$ +" DAY: ":TP = (TP - INT(TP)) *365
102 RP$ = RP$ + STR$( INT(TP)) +" TIME: " + STR$( INT((TP - INT(TP)) *149)): GOTO 16
103 IF NOT PEEK(15903) AND VB% < >25 THEN RP$ = "YOU HAVE NO OPPONENT": GOTO 16
104 IF VB% < >25 THEN POKE 15925,1:TP% = 6: GOTO 193
105 TP = PEEK(16209): IF NOT TP THEN RP$ = "OUT OF BULLETS": GOTO 16
106 IF VB% < >7 AND VB% < >8 THEN RP$ = "LOAD WHAT?": GOTO 16
107 IF F1% = 8 THEN POKE 16209,TP -1: POKE 16153,1: GOTO 52
108 TP% = PEEK(16152):T1 = 6 -TP%: IF T1 >TP THEN T1 = TP
109 POKE 16209,TP -T1: POKE 16152,TP% +T1: GOTO 52
110 IF OB% <49 THEN GOSUB 13: IF OB% <14 THEN 103
111 IF OB% <20 THEN 90
112 ON OB% -19 GOTO 83,86,81
113 IF OB% < >23 THEN 117
114 IF NOT (TR% = 4 OR TR% = 7) THEN RP$ = "THERE IS NO WOOD HERE": GOTO 16
115 IF FN D(20) > PEEK(16136) THEN TP% = FN D(4) +1: POKE BD% +TP%, PEEK(BD% +TP%) +1:RP$ = "YOU CHOPPED YOUR " +BD$(TP%): GOSUB 15: GOSUB 19: GOTO 37
116 PS%(2) = BL%:RP$ = "YOU CUT A STICK": GOTO 16
117 IF OB% = 28 OR OB% = 31 THEN POKE 15891,OB% -25: GOTO 52
118 IF OB% = 42 THEN TP$ = DR$((X% >0) +(X% >T1%/2)) +DR$(3 +(Y% >0) +(Y% >T1%/2)): IF NOT LEN(TP$) THEN TP$ = "VICINITY"
119 IF OB% = 42 THEN RP$ = "YOUR SHIP IS IN THE " +TP$: GOTO 16
120 IF OB% = 43 THEN DM% = 5: GOTO 74
121 IF OB% = 47 THEN DM% = 3: GOTO 74
122 IF OB% < >45 THEN 125
123 IF MN% = 8 THEN FOR I = 1 TO 100:ZZ = PEEK(SP%): NEXT I: GOTO 37
124 FOR I = 1 TO 10: FOR J = 1 TO 50: NEXT J:ZZ = PEEK(SP%): NEXT I: GOTO 37
125 IF OB% < >44 THEN 128
126 IF MN% <5 OR MN% = 6 THEN RP$ = "THERE IS METAL HERE": GOTO 16
127 RP$ = "NO METAL": GOTO 16
128 RP$ = "IT IS ALWAYS IN USE": GOTO 16
129 IF OB% <49 THEN GOSUB 13
130 IF OB% >13 AND OB% <20 THEN RP$ = "YOUR SHIPMATES CAN FIX THAT": GOTO 16
131 TM = TM +200 - PEEK(16141) *10: IF OB% < >120 THEN 136
132 IF NOT PEEK(16202) THEN RP$ = "YOU NEED A STICK": GOTO 16
133 IF NOT ( PEEK(16225) OR PEEK(16227)) THEN RP$ = "YOU HAVE NO TOOLS": GOTO 16
134 TP% = 0: GOSUB 11: IF NOT TP THEN RP$ = "YOU FAILED": GOTO 16
135 POKE 15893,1:RP$ = "YOU'VE BUILT A SMALL SHELTER": GOTO 16
136 IF OB% < >36 THEN 141
137 IF NOT PEEK(15892) THEN RP$ = "YOUR AXLE IS NOT BROKEN": GOTO 16
138 IF NOT ( PEEK(16002) OR PEEK(16025) OR PEEK(16027)) THEN RP$ = "YOU HAVE NO TOOLS": GOTO 16
139 TP% = 0: GOSUB 11: POKE 15892,0: IF TP THEN RP$ = "IT IS FIXED": GOTO 16
140 RP$ = "YOU BROKE IT BEYOND REPAIR": POKE 16236,0: GOTO 16
141 IF OB% = 100 THEN RP$ = "YOU MUST GET INSIDE THE ATV": GOTO 16
142 RP$ = "YOU CAN NOT FIX THAT HERE": GOTO 16
143 RP$ = "NOTHING": IF PEEK(15889) THEN 148
144 IF NOT TR% OR TR% = 2 THEN RP$ = "THE SURF": GOTO 147
145 IF TR% = 3 THEN RP$ = "THE SIFTING SANDS": GOTO 147
146 IF FN D(10) = 1 THEN RP$ = "AN ANIMAL": IF FN D(3) = 1 THEN TP% = FN D(3) +10: POKE 15903,TP%: POKE 15925,0: PRINT "@"AM%"K0C11V15HL@" CHR$(118 +TP%)"@R0K@": GOTO 37
147 IF TN% AND FN D(20) < PEEK(16140) THEN RP$ = "A TOWN"
148 RP$ = "YOU CAN HEAR " +RP$: GOTO 16
149 RP$ = "YOU SMELL NOTHING SPECIAL": IF AM% = 133 AND PS%(50) = BL% AND FN D(20) < PEEK(16140) THEN RP$ = "THE WATER SMELLS BAD"
150 GOTO 16
151 TM = TM +480: FOR I = 0 TO 5:TP% = PEEK(BD% +I): IF TP% AND TP% <100 THEN POKE BD% +I,TP% -1:TM = TM +60
152 NEXT : IF FN D(150) <75 + PEEK(15893) *10 THEN 52
153 IF AV% AND FN D(99) = 99 THEN AV% = 0: PRINT "@"AM%"K15C9V9HL@ @R0K@": GOTO 37
154 IF TR% = 7 AND FN D(9) = 9 THEN POKE 16222,0:RP$ = "YOUR FOOD HAS SPOILED": GOTO 16
155 IF TR% = 3 AND FN D(9) = 9 THEN POKE 16220,0:RP$ = "YOUR WATER HAS EVAPORATED": GOTO 16
156 IF AM% = 133 AND FN D(20) = 20 THEN POKE 15903,13:TP% = 6: PRINT "@9V15H"AM%"KL@" CHR$(121): GOTO 193
157 POKE PS% + FN D(50),0: GOTO 52
158 TP% = 8: ON ( PEEK(16223) OR PEEK(16233) OR PEEK(16248)) +1 GOTO 50,193
159 RP$ = "YOU HAVE NO AUDIENCE": GOTO 16
160 TP% = 10: GOTO 193
161 TP = 16229:TP% = 15889: IF TM >OA AND OA AND PEEK(TP) THEN POKE TP, PEEK(TP) -1:OA = TM +1440: GOTO 164
162 IF TM >OA AND OA AND FN D(20) < PEEK(16137) THEN RP$ = "YOU ARE LOW ON AIR": GOSUB 18: GOTO 164
163 IF (OA 4) AND NOT PEEK(TP%)) THEN RP$ = "YOU ARE SUFFOCATING": GOSUB 18: GOTO 192
164 IF NOT T4% AND FN D(40 +TR% *4) = 1 AND PEEK(TP%) THEN RP$ = "METEOR STORM DAMAGE TO " +PS$(18): GOSUB 15: HCOLOR= 3: PRINT "@20Y@": FOR I = 20 TO 62 STEP 3: HPLOT 7,8 TO 7 +2 *I,8 +2 *I: PRINT "@"I"XN@": NEXT : POKE TP%, PEEK(TP%) -1: GOSUB 201
165 IF T4% < >6 OR FN D(99) <99 THEN 168
166 RP$ = "ATMOSPHERE DAMAGE TO ": IF FN D(3) <3 AND PEEK(TP%) THEN POKE TP%, PEEK(TP%) -1:RP$ = RP$ +PS$(18): GOSUB 18: GOTO 168
167 TP% = 40 + FN D(8): IF PEEK(PS% +TP%) THEN POKE PS% +TP%, PEEK(PS% +TP%) -1:RP$ = RP$ +PS$(TP%): GOSUB 18
168 IF OE AND OE PEEK(16137) THEN GOSUB 25
169 IF OD AND OD PEEK(16137) THEN GOSUB 25
170 ON TR% +1 GOTO 171,185,175,176,178,185,179,181,184
171 PS%(20) = BL%: IF FN D(4) = 1 OR MN% = 9 THEN PS%(50) = BL%
172 IF NOT (X1% AND Y1%) OR X1% *3 OR Y1% = 3 THEN RP$ = "YOU ARE WADING IN WATER": GOSUB 15: GOTO 185
173 TP% = 0: GOSUB 11: IF NOT TP THEN 192
174 RP$ = "YOU ARE STILL AFLOAT": GOSUB 15: GOTO 185
175 PS%(20) = ( FN D(2) = 1) *BL%:PS%(50) = ( FN D(5) = 1 OR MN% = 9) *BL%: GOTO 185
176 TP = 10: GOSUB 29:OD = OD - FN D(60):TP% = 16220: IF FN D(10) = 10 AND PEEK(TP%) THEN POKE TP%, PEEK(TP%) -1
177 GOTO 185
178 PS%(2) = BL%:PS%(20) = ( FN D(20) = 20) *BL%: GOTO 185
179 TP = 40: GOSUB 26: GOTO 185
180 PS%(2) = ( FN D(3) <3) *BL%: GOTO 185
181 TP = 5: GOSUB 26:TP = 40: GOSUB 29:PS%(2) = ( FN D(4) = 1) *BL%: IF FN D(99) <99 THEN 185
182 RP$ = "YOU ARE TRAPPED IN QUICKSAND": GOSUB 18:TP% = 0: GOSUB 11: IF NOT TP THEN 192
183 TP% = FN D(49):TP = PEEK(PS% +TP%): IF TP THEN POKE PS% +TP%,TP -1:RP$ = "YOU HAVE LOST " +PS$(TP%): GOSUB 18: GOTO 185
184 PS%(20) = ( FN D(20) = 20) *BL%:TP = 10: GOSUB 26:TP = 30: GOSUB 29
185 TP% = 0: IF AM% = 133 AND TR% >4 AND FN D(5) = 5 THEN TP% = FN D(3) +10: POKE 15903,TP%: PRINT "@9V15H"AM%"KL@" CHR$(108 +TP%)" @0K@": IF TP% = 13 THEN TP% = 6: GOTO 193
186 IF TP% THEN RETURN
187 IF AM% < >133 AND FN D(30) = 9 THEN TP% = 2
188 IF AM% = 133 AND FN D(50) 253 THEN CALL 35339: RESUME
203 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.3": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.4.bas:
0 CALL 36281: ONERR GOTO 148
1 ZZ = FRE(0): GOTO 35
2 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
3 PRINT "@L3V4H"AM%"K15C@" SPC( 16)"@GI18H@J H@D19HI@7@L@": GOSUB 4:TP$(0) = T1$: GOSUB 8:TP$(1) = T1$: GOSUB 10: RETURN
4 T1$ = "": FOR I3 = 1 TO 16:TP$ = " ": IF I3 = 3 AND TN% AND NOT (X1% OR Y1%) THEN TP$ = CHR$(97 + PEEK(15865)): GOTO 7
5 IF I3 = 12 AND NOT (X% OR X1% OR Y% OR Y1%) THEN TP$ = CHR$(14): GOTO 7
6 IF FN D(3) = 3 THEN TP$ = CHR$(100 +TR%)
7 T1$ = T1$ +TP$: NEXT I3: RETURN
8 T1$ = "": FOR I3 = 1 TO 16:TP$ = " ": IF FN D(3) = 3 THEN TP$ = CHR$(100 +TR%)
9 T1$ = T1$ +TP$: NEXT I3: RETURN
10 PRINT "@L5V"AM%"K4H@"TP$(0)"@D4H"TP%(TR%)"K@"TP$(1)"@R0K@":TP$(1) = TP$(0): RETURN
11 HPLOT 227,108 TO 227 +10 * SIN(F1),108 -10 * COS(F1): RETURN
12 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
13 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 13
14 POKE KP%,0: IF KY% < >160 THEN 13
15 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
16 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
17 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 17
18 POKE KP%,0: IF KY% < >160 THEN 17
19 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
20 RP$ = RY$ +AR$(TP%): GOSUB 27: GOSUB 16:TP = DC% < = PEEK(AR% +TP%): RETURN
21 TP% = H2% -H1% -1: VTAB V1%: HTAB H1%: PRINT "@G@Q" LEFT$(LN$,TP%)"E": FOR I4 = V1% +1 TO V2% -1: VTAB I4: HTAB H1%: PRINT 1;: HTAB H2%: PRINT 1;: NEXT I4: VTAB V2%: HTAB H1%: PRINT "Z" LEFT$(LN$,TP%)"C@R@": RETURN
22 TP% = H2% -H1% +1: VTAB V1%: FOR I4 = V1% TO V2%: HTAB H1%: PRINT SPC( TP%)"": NEXT I4: RETURN
23 FOR I5 = 15872 TO 15883: POKE I5,0: NEXT I5: RETURN
24 FOR I5 = 0 TO 2: POKE 30724 +I5,255: NEXT I5: RETURN
25 IF NOT PEEK(PS% +OB%) THEN RP$ = "YOU DON'T OWN A " +PS$(OB%): GOSUB 30
26 RETURN
27 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
28 GOSUB 27: GOTO 37
29 GOSUB 30: GOTO 37
30 GOSUB 27: GOTO 12
31 TP% = PEEK(16137):TP = PEEK(16146): IF TP > INT(TP%/2) OR PEEK(16147) >TP% THEN 143
32 IF TP > INT(TP%/2) -2 OR PEEK(16147) >TP% -2 THEN RP$ = "YOU ARE CLOSE TO DEATH": GOSUB 30
33 RETURN
34 TP% = FN D(2) -1: POKE BD% +TP%, PEEK(BD% +TP%) +1: GOTO 31
35 BL% = 300: CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
36 GOSUB 145
37 GOSUB 24: GOSUB 116: CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726)
38 IF VB% <5 OR AD% <12 THEN 51
39 IF OB% <51 AND VB% >9 THEN ON VB% -9 GOTO 64,41,67
40 IF VB% >19 AND VB% <30 THEN 90
41 DM% = 0: IF VB% >29 THEN ON VB% -29 GOTO 110,68,111,72,74,43,113
42 IF VB% = 63 THEN VB% = 71
43 IF VB% >39 THEN ON VB% -39 GOTO 77,81
44 IF VB% = 50 THEN 106
45 IF VB% = 55 THEN 97
46 IF VB% >69 THEN ON VB% -69 GOTO 84,87
47 IF AD% = 100 THEN RP$ = "AND UP YOUR ATV, TOO!": GOTO 29
48 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 28
49 RP$ = "REPHRASE YOUR COMMAND": GOTO 28
50 RP$ = "BY YOUR COMMAND": GOTO 28
51 IF AD% = 9 THEN RP$ = "YOU ARE IN YOUR ATV": GOTO 28
52 IF AD% = 10 THEN 55
53 IF VB% = 2 THEN 60
54 RP$ = "YOU MUST DRIVE YOUR ATV TO MOVE": GOTO 28
55 IF PEEK(15889) OR (T4% = 2 AND PEEK(15890)) OR T4% = 3 OR T4% = 4 THEN 58
56 TP% = 5: GOSUB 20:RP$ = "THERE IS NO AIR OUTSIDE": GOSUB 27: IF TP THEN 143
57 GOTO 37
58 RP$ = "YOU ARE EXITING YOUR ATV": IF AV THEN TP% = 2: GOSUB 20:RP$ = "YOU MADE IT OUT": IF NOT TP THEN RP$ = "THE DOOR IS STUCK": GOTO 28
59 POKE 15863,X%: POKE 15862,Y%: POKE 15861,X1%: POKE 15860,Y1%: GOSUB 27:TP% = 3: GOTO 144
60 IF NOT FL THEN RP$ = "YOU ARE OUT OF FUEL": GOTO 28
61 IF PEEK(15926) THEN RP$ = "YOU ATV IS BROKEN": GOTO 28
62 IF AV THEN TP% = 0: GOSUB 20: IF NOT TP THEN RP$ = "YOU ARE MAKING THINGS WORSE":AV = AV - FN D(2): GOTO 28
63 GOTO 124
64 OB% = OB% +(OB% = 20 AND PS%(50) = BL%) *30: IF PS%(OB%) < >BL% THEN RP$ = "THERE IS NONE HERE": GOTO 28
65 TP = 0: FOR I = 1 TO 50:TP = TP + PEEK(PS% +I): NEXT : IF TP > PEEK(16138) *999/ PEEK(15869) AND NOT ( PEEK(16135) AND PEEK(16137)) THEN RP$ = "YOU CARRY TOO MUCH": GOTO 28
66 TP% = PEEK(PS% +OB%): POKE PS% +OB%,TP% +(TP% <255):PS%(OB%) = 0: GOTO 50
67 GOSUB 25: POKE PS% +OB%,0:PS%(OB%) = BL%: GOTO 50
68 RP$ = "YOUR ATV IS IN " +TR$(TR%): GOSUB 30:TP% = PEEK(16140) +1: IF FN D(20) -DM% 19 THEN 48
78 GOSUB 25: IF OB% = 18 AND NOT PEEK(PS% +29) THEN RP$ = "YOU NEED AN AIR TANK": GOTO 28
79 IF OB% = 18 THEN OA = TM +1440: POKE PS% +29, PEEK(PS% +29) -1
80 POKE 15871 +OB%,5: GOTO 50
81 IF OB% <14 OR OB% >19 THEN 48
82 GOSUB 25: IF OB% = 18 THEN OA = 0
83 POKE 15871 +OB%,0: GOTO 50
84 FOR I = 1 TO 49: IF PEEK(PS% +I) THEN RP$ = PS$(I) +" - " + STR$( PEEK(PS% +I)): GOSUB 30
85 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%): GOSUB 30
86 NEXT :RP$ = "MONEY - " + STR$(MY): GOTO 28
87 TP = PEEK(FS%) + PEEK(AG%) +TM/525600:TP$ = " A.E.": IF TP <200 THEN TP$ = " B.E."
88 RP$ = "YEAR: " + STR$( INT( ABS(TP -200))) +TP$ +" DAY: ":TP = (TP - INT(TP)) *365
89 RP$ = RP$ + STR$( INT(TP)) +" TIME: " + STR$( INT((TP - INT(TP)) *111)): GOTO 28
90 IF VB% < >24 THEN RP$ = "THERE IS NO ONE HERE": GOTO 28
91 IF FL <100 THEN RP$ = "YOU DON'T HAVE ENOUGH FUEL": GOTO 28
92 FL = FL -100: PRINT "@10X10Y@": HCOLOR= 3: FOR I = 36 TO 64: HPLOT 136,I TO 136,36: PRINT "@N@": NEXT
93 PRINT "@LE6V138C@": FOR I = 0 TO 7: HTAB 19 -I *2: PRINT CHR$(11)"@I@" SPC( I *2)"@I@" CHR$(12)"@N@";: NEXT I: PRINT "@ER15C0K@":TR% = 1:TN% = 0: GOSUB 3: POKE 15927,1: IF MN% PEEK(AR% +6) THEN POKE TP,TP% -3
95 IF AV THEN AV = 0: IF FN D(2) = 1 THEN AV = TM -5
96 PRINT "@IR15C0K16V23H@ @23H@"FL"@I@": GOTO 37
97 IF OB% <50 THEN GOSUB 25: IF OB% <14 THEN 90
98 IF OB% = 43 THEN DM% = 5: GOTO 68
99 IF OB% = 47 THEN DM% = 3: GOTO 68
100 IF OB% = 42 THEN TP$ = DR$((X% >0) +(X% >T1%/2)) +DR$(3 +(Y% >0) +(Y% >T1%/2)): IF NOT LEN(TP$) THEN TP$ = "VICINITY"
101 IF OB% = 42 THEN RP$ = "YOUR SHIP IS IN THE " +TP$: GOTO 28
102 IF OB% < >30 THEN RP$ = "IT IS OF NO USE IN THE ATV": GOTO 28
103 IF NOT PEEK(15926) THEN RP$ = "YOUR ATV IS NOT BROKEN":TM = TM +5: GOTO 28
104 TM = TM +10 * FN D(3):TP% = 5: GOSUB 20: IF NOT TP THEN RP$ = "IT IS STILL BROKEN": GOTO 28
105 RP$ = "YOU FIXED YOUR ATV": POKE 15926,0: GOTO 28
106 IF OB% <49 THEN GOSUB 25
107 IF OB% >13 AND OB% <20 THEN RP$ = "YOUR SHIPMATES CAN FIX THAT": GOTO 28
108 IF OB% = 100 OR PEEK(15926) THEN RP$ = "YOU MUST USE THE PROPER TOOLS": GOTO 28
109 RP$ = "THERE IS NOTHING TO FIX HERE": GOTO 28
110 RP$ = "YOUR VEHICLE IS SOUND-PROOF": GOTO 28
111 RP$ = "YOU SMELL NOTHING SPECIAL": IF AM% = 133 AND PS%(50) = BL% AND FN D(20) < PEEK(16140) THEN RP$ = "THE WATER SMELLS BAD"
112 GOTO 28
113 TM = TM +480: FOR I = 0 TO 5:TP% = PEEK(BD% +I): IF TP% AND TP% <100 THEN POKE BD% +I,TP% -1:TM = TM +60
114 NEXT : IF FN D(60) = 6 AND PEEK(15866) THEN FL = FL/2
115 GOTO 50
116 TP = 16229:TP% = 15889: IF TM >OA AND OA AND PEEK(TP) THEN POKE TP, PEEK(TP) -1:OA = TM +1440: GOTO 119
117 IF TM >OA AND OA AND FN D(20) < PEEK(16137) THEN RP$ = "YOU ARE LOW ON AIR": GOSUB 30: GOTO 119
118 IF OA AND OA PEEK(16137) THEN GOSUB 34
121 IF OD AND OD PEEK(16137) THEN GOSUB 34
122 IF ( NOT TR% OR TR% = 7) AND FN D(50) = 2 THEN AV = TM +5 + FN D(5):RP$ = "YOUR ATV IS SINKING": GOSUB 30
123 RETURN
124 SP = 1:TP = .392695:F1 = 0:BD = 0:H1% = 31:H2% = 35:V1% = 13:V2% = 15: GOSUB 22: GOSUB 11
125 KY% = PEEK(KS%): IF KY% >128 THEN POKE KP%,0
126 KY% = KY% -128: IF KY% = 66 OR KY% = -62 THEN SP = SP -(SP >1): IF FN D(SP) = 1 THEN RP$ = "YOUR ATV HAS STOPPED": GOTO 29
127 IF KY% = 21 THEN HCOLOR= 0: GOSUB 11:F1 = F1 +TP: HCOLOR= 3: GOSUB 11
128 IF KY% = 8 THEN HCOLOR= 0: GOSUB 11:F1 = F1 -TP: HCOLOR= 3: GOSUB 11
129 IF KY% >48 AND KY% <54 THEN SP = KY% -48:F2 = SP -TR%/3 +1
130 TP% = 0:X1% = X1% - INT( COS(F1) *F2): IF X1% >3 THEN X1% = 0:X% = X% +1:TP% = 1: IF X% >T1% THEN X% = 0
131 IF X1% <0 THEN X1% = 3:X% = X% -1:TP% = 1: IF X% <0 THEN X% = T1%
132 Y1% = Y1% + INT( SIN(F1) *F2): IF Y1% >3 THEN Y1% = 0:Y% = Y% +1:TP% = 1: IF Y% >T1% THEN Y% = 0
133 IF Y1% <0 THEN Y1% = 3:Y% = Y% -1:TP% = 1: IF Y% <0 THEN Y% = T1%
134 IF TP% THEN TP% = PEEK(15616 +Y% +X% *T1%):TN% = TP%/100:TP% = TP% -TN% *3:MN% = TP%/10:TR% = TP% -MN% *10
135 FOR I = 1 TO 2:TP$(1) = TP$(0): ON I GOSUB 4,8:TP$(0) = T1$: GOSUB 10: NEXT I:FL = FL -SP:TM = TM +T3% *10: IF FL <0 THEN FL = 0
136 PRINT "@R15C0K@":H1% = 5:H2% = 8:V1% = 12:V2% = 15: GOSUB 22: VTAB 12 + INT((X% *4 +X1%)/(T1% +1)): HTAB 5 + INT((Y% *4 +Y1%)/(T1% +1)): PRINT "@G10C@T@R15C@"
137 PRINT "@IR16V12H@" SPC( 15)"@13H@"SP"@23H@"FL"@I@": IF NOT FL THEN RP$ = "OUT OF FUEL": GOTO 29
138 IF BD THEN FOR I = 1 TO 20:ZZ = PEEK(SP%): NEXT I: IF BD SP THEN 125
140 ON TR% +1 GOTO 141,125,125,125,125,142,142,141,142
141 AV = TM +5 + FN D(10):RP$ = "YOUR ATV IS SINKING": GOTO 29
142 BD = TM + FN D(2000): GOTO 125
143 DD% = 1: GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB.1": END
144 GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB."TP%: END
145 PRINT "@L15C129K@":H1% = 2:H2% = 20:V1% = 2:V2% = 10: GOSUB 22:V1% = 3:V2% = 10:H1% = 4:H2% = 37: GOSUB 21:H2% = 9:V1% = 11:V2% = 16: GOSUB 21:H1% = 29:H2% = 37:V2% = 17: GOSUB 21
146 PRINT "@15C0KI@":H1% = 12:H2% = 27: GOSUB 22: VTAB 12: HTAB 16: PRINT "STEERING": HTAB 13: PRINT "LEFT RIGHT": HTAB 15: PRINT CHR$(2) SPC( 7) CHR$(1): HTAB 18: PRINT "BRAKE": HTAB 12: PRINT "SPEED B FUEL"
147 HTAB 14: PRINT 1;: HTAB 24: PRINT FL"@I@":V1% = 12:V2% = 15:H1% = 5:H2% = 8: GOSUB 22:H1% = 30:H2% = 36:V2% = 16: GOSUB 22: GOSUB 3: PRINT "@11V32H@N@2D29H@W@35H@E@2D32H@S": RETURN
148 GOSUB 2:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
149 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.4": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.5.bas:
10 CALL 36281: ONERR GOTO 1890
20 ZZ = FRE(0): GOTO 370
30 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
40 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
50 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 50
60 POKE KP%,0: IF KY% < >160 THEN 50
70 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
80 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
90 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 90
100 POKE KP%,0: IF KY% < >160 THEN 90
110 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
120 RP$ = RY$ +AR$(TP%): GOSUB 230: GOSUB 80:TP = DC% < = PEEK(AR% +TP%): RETURN
130 PRINT "@"V1%"V@";: FOR I3 = V1% TO V2%: PRINT "@"H1%"H@" SPC( H2%)"": NEXT I3: RETURN
140 FOR I3 = 0 TO 9: POKE 15909 +I3, FN D(6) + FN D(6) + FN D(6): NEXT I3: RETURN
150 PRINT "@G15C0K1V1H@Q";: FOR I3 = 2 TO 17: PRINT "R";: NEXT I3: PRINT "E": FOR I3 = 2 TO 17: PRINT "@1H@1@18H@1": NEXT I3: PRINT "@1H@Z";: FOR I3 = 2 TO 17: PRINT "R";: NEXT I3: PRINT "C@R2H2V@SALE ITEM PRICE": VTAB 5: RETURN
160 FOR I3 = H1% TO H2%: HTAB 3:TP = PEEK(F1% +I3): IF TP THEN PRINT PS$(I3)"@13H@" INT(F6% *F5% *TP/100)
170 NEXT I3: RETURN
180 GOSUB 190:PS%(OB%) = 0: RETURN
190 TP% = PEEK(PS% +OB%): POKE PS% +OB%,TP% +(TP% <255): RETURN
200 IF OB% >50 THEN POP : GOTO 450
210 IF NOT PEEK(PS% +OB%) THEN RP$ = "YOU DON'T OWN A " +PS$(OB%): POP : GOTO 240
220 RETURN
230 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
240 GOSUB 230: GOTO 450
250 GOSUB 230: GOTO 40
260 GOSUB 230: PRINT S1$ SPC( 34): FOR I3 = 0 TO 6: POKE 512 +I3,32: NEXT I3:TP% = 0
270 T1$ = CHR$( PEEK(512 +TP%)): HTAB 2 +TP%: PRINT "@22VI@"T1$"@BI@";
280 KY% = PEEK( -16384): IF KY% <128 THEN 280
290 POKE -16368,0:KY% = KY% -128: PRINT T1$"@B@";: IF KY% = 13 THEN 340
300 IF KY% = 8 AND TP% THEN TP% = TP% -1: GOTO 270
310 IF KY% = 15 AND TP% <3 THEN TP% = TP% +1: GOTO 270
320 IF KY% >47 AND KY% <58 THEN POKE (512 +TP%),KY%: PRINT CHR$(KY%);:TP% = TP% +1: IF TP% = 4 THEN 340
330 GOTO 270
340 T1$ = "": FOR I3 = 0 TO TP%:T1$ = T1$ + CHR$( PEEK(512 +I3)): NEXT I3:TP% = VAL(T1$): IF TP% >255 THEN 260
350 RETURN
360 PRINT "@IG@" MID$ (TP$,TP% *7 -6,7)"@"TP% *4"YNFRI0K@";: RETURN
370 CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
380 F1% = 15715:F2% = 0: POKE 15853,0: POKE 15925,0
390 FOR I = 1 TO 9: READ TP$(I):TP%(I) = 0: NEXT : DATA ARMORY,COMPANY STORE,FEED STORE,GENERAL STORE,LIVERY,PARK,CHURCH,TOWN HALL,CASINO
400 IF X% < > PEEK(15855) OR Y% < > PEEK(15854) THEN GOSUB 1400
410 F6% = PEEK(15852):F3% = PEEK(15700 +F2%):BL% = 4000 +(X% *15 +Y%) *15 +F2%: IF NOT F3% OR F3% >9 THEN TP% = 3: GOTO 1380
420 GOSUB 1510: IF F2% >11 AND NOT PEEK(15853) THEN RP$ = "THE CITY LIMITS ARE TO THE NORTH": GOSUB 230
430 IF PEEK(15928) = 6 THEN FOR I = 0 TO 2:PS%( PEEK(15905 +I)) = BL%: NEXT : POKE 15928,0
440 GOSUB 450: GOTO 410
450 FOR I = 0 TO 2: POKE 30724 +I,255: NEXT : CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726)
460 IF VB% <9 OR AD% <15 THEN 590
470 ON VB% -9 GOTO 680,740,730,820,560,950,990,1030
480 IF VB% = 18 AND F3% = 2 THEN 1300
490 IF VB% >19 AND VB% <30 THEN 1090
500 IF VB% = 31 THEN 1190
510 IF VB% >32 THEN ON VB% -32 GOTO 910,930
520 IF VB% >59 THEN ON VB% -59 GOTO 1170,1160
530 IF VB% = 70 THEN 1060
540 IF VB% = 82 AND PEEK(16131) = 2 THEN 1280
550 IF VB% = 90 AND F3% = 9 THEN 1230
560 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 240
570 RP$ = "REPHRASE YOUR COMMAND": GOTO 240
580 RP$ = "BY YOUR COMMAND": GOTO 240
590 IF NOT PEEK(15853) THEN 620
600 IF AD% = 12 OR AD% = 10 OR VB% = 4 THEN POKE 15853,0: RETURN
610 RP$ = "INAPPROPRIATE DIRECTION": GOTO 240
620 IF AD% = 11 OR AD% = 1 THEN F2% = F2% +4:TP% = 3: ON (F2% >15) +1 GOTO 1370,1380
630 IF AD% = 9 AND F3% < >6 THEN POKE 15853,1: RETURN
640 IF AD% = 12 OR AD% = 2 THEN F2% = F2% -4 +(F2% <4) *16: RETURN
650 IF AD% = 4 OR AD% = 7 THEN F2% = F2% -1 +(F2%/4 = INT(F2%/4)) *4: RETURN
660 IF AD% = 3 OR AD% = 8 THEN F2% = F2% +1 +((F2% +1)/4 = INT((F2% +1)/4)) * -4: RETURN
670 GOTO 610
680 RP$ = "THERE IS NONE HERE": IF OB% >50 THEN 240
690 IF PS%(OB%) < >BL% THEN 240
700 IF OB% = 35 AND NOT PEEK(PS% +37) THEN RP$ = "YOU NEED A MULE": GOTO 240
710 RP$ = "YOU CARRY TOO MUCH":TP = 0: FOR I = 1 TO 50:TP = TP + PEEK(PS% +I): NEXT I: IF TP > PEEK(16138) *999/ PEEK(15869) AND NOT ( PEEK(16235) AND PEEK(16237)) THEN 240
720 GOSUB 180: GOTO 580
730 GOSUB 200: POKE PS% +OB%,0:PS%(OB%) = BL%: GOTO 580
740 GOSUB 1360:RP$ = "YOU DON'T HAVE A LICENSE":TP% = (T8% = 2 OR T8% >4): IF TP% AND NOT (F4% = 2 OR PEEK(16212) OR F3% = 8) THEN F4% = 1: GOTO 240
750 IF TP% AND NOT (F4% = 2 OR PEEK(16213)) AND F3% = 1 THEN F4% = 1: GOTO 240
760 GOSUB 1820: IF NOT TP THEN RP$ = "WE DON'T CARRY THAT": GOTO 240
770 RP$ = "HOW MANY?": GOSUB 260: IF NOT TP% THEN RP$ = "MAKE UP YOUR MIND": GOTO 240
780 IF MY 255 THEN RP$ = "YOU CAN'T CARRY THAT MANY": GOTO 240
800 MY = MY -TP% *TP: IF OB% <50 THEN FOR I = 1 TO TP%: GOSUB 190: NEXT
810 GOTO 580
820 GOSUB 1360: IF (T8% = 2 OR T8% >4) AND NOT (F4% = 2 OR PEEK(16212)) THEN RP$ = "YOU NEED A PURCHASING LICENSE":F4% = 1: GOTO 240
830 GOSUB 1820:TP = INT(TP * FN D(3)/4): IF NOT TP OR FN D(20) < PEEK(16142) OR OB% >100 THEN RP$ = "NOT INTERESTED": GOTO 240
840 IF (OB% = 100 AND NOT AV%) THEN RP$ = "YOU HAVE NONE": GOTO 890
850 IF OB% = 100 THEN AV% = AV% -1:MY = MY +TP:RP$ = "SOLD": GOTO 240
860 RP$ = "I'LL PAY " + STR$(TP) +" A PIECE": GOSUB 250:RP$ = "HOW MUCH WILL YOU SELL?": GOSUB 260: IF NOT TP% THEN RP$ = "MAKE UP YOUR MIND": GOTO 240
870 T1 = PEEK(PS% +OB%): IF T1 50 THEN RP$ = "YOU CAN'T": GOTO 240
970 TP% = 0: GOSUB 120: IF TP THEN RP$ = "SUCCESS!": GOSUB 180: GOTO 240
980 POKE 15931,1: IF FN D(20) < PEEK(16142) THEN RP$ = "GET OUT, YOU THIEF!": GOSUB 230:AD% = 10: GOTO 590
981 IF NOT T7% THEN RP$ = "I'LL TEACH YOU TO STEAL!": GOSUB 230: GOTO 1390
982 IF T7% = 2 THEN 985
983 IF PEEK(16131) = 2 THEN POKE 16131,1:RP$ = "YOU ARE DEFROCKED FOR THIS": GOTO 989
984 IF PEEK(16148) + PEEK(16149) <500 THEN POKE 16148 + NOT ( PEEK(16148)),255:RP$ = "YOUR ARM HAS BEEN CUT OFF": GOTO 989
985 IF MY >1000 THEN MY = MY -1000:RP$ = "THE FINE FOR STEALING IS 1000 CR": GOTO 989
986 RP$ = "THE PENALTY FOR STEALING IS ONE YEAR":TM = TM +525600: FOR I = 1 TO 250: PRINT "@S@": NEXT : CALL 35339:OD = TM +20:OE = OD: IF OA >0 THEN OA = TM +20
989 GOSUB 230:AD% = 10: GOTO 590
990 GOSUB 1360: IF NOT F4% THEN RP$ = "FOR WHAT?": GOTO 240
1000 TP% = 6: GOSUB 120: IF NOT TP THEN RP$ = "GET OUT!": GOSUB 230:AD% = 10: GOTO 590
1010 RP$ = "HOW MUCH?": GOSUB 260: IF TP% <50 + FN D(200) OR MY 22 OR OB% < >20 OR OB% < >130 OR FN D(20) > PEEK(16142) THEN RP$ = "BE OFF!": GOTO 240
1040 IF OB% = 130 THEN TP = PEEK(15903) * FN D(2):RP$ = "HERE IS " + STR$(TP) +" CREDITS":MY = MY +TP: GOTO 240
1050 RP$ = "I'LL GIVE YOU SOME": GOSUB 190: GOTO 240
1060 FOR I = 1 TO 49:TP% = PEEK(PS% +I): IF TP% THEN RP$ = PS$(I) +" - " + STR$(TP%): GOSUB 250
1070 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%): GOSUB 250
1080 NEXT :RP$ = "MONEY - " + STR$(MY): GOTO 240
1090 IF NOT PEEK(15903) AND VB% < >25 THEN RP$ = "YOU HAVE NO OPPONENT": GOTO 240
1100 IF VB% < >25 THEN POKE 15925,1:TP% = 6: GOTO 1380
1110 TP = PEEK(16209): IF NOT TP THEN RP$ = "OUT OF BULLETS": GOTO 240
1120 IF VB% < >7 AND VB% < >8 THEN RP$ = "LOAD WHAT?": GOTO 240
1130 IF F1% = 8 THEN POKE 16209,TP -1: POKE 16153,1: GOTO 580
1140 TP% = PEEK(16152):T1 = 6 -TP%: IF T1 >TP THEN T1 = TP
1150 POKE 16209,TP -T1: POKE 16152,TP% +T1: GOTO 580
1160 GOSUB 1340:RP$ = "I AM A " +PR$( PEEK(15903)): GOTO 240
1170 TP = 0: GOSUB 1340:RP$ = "LOOK FOR YOURSELF": GOSUB 1820: IF TP THEN RP$ = "THEY'RE SOLD IN A LOCAL STORE"
1180 GOTO 240
1190 TP$ = "IN FRONT": IF PEEK(15853) THEN TP$ = "INSIDE"
1200 RP$ = "YOU ARE " +TP$ +" OF A " +TP$(F3%): GOSUB 250:TP = PEEK(15903): IF TP THEN RP$ = "YOU ARE FACING A " +PR$(TP): GOSUB 250:TP = PEEK(15905): IF TP THEN RP$ = "HE HAS A " +PS$(TP): GOSUB 250
1210 FOR I = 1 TO 49: IF PS%(I) = BL% THEN RP$ = "HERE IS A " +PS$(I): GOSUB 250
1220 NEXT : GOTO 450
1230 RP$ = "PLACE YOUR BET": GOSUB 260:T1 = TP%: IF NOT T1 OR T1 >MY THEN RP$ = "NO MONEY TO PLAY": GOTO 240
1240 TP% = 9: GOSUB 120: PRINT "@2V9X@":TP$ = "@138K@,@138K@.@128K@;@128K@P": FOR I = 1 TO DC%: HTAB 27: FOR J = 0 TO 2:TP% = FN D(4): GOSUB 360: NEXT J,I
1250 IF DC% = PEEK(16145) THEN TP% = FN D(4): HTAB 27: FOR J = 0 TO 2: GOSUB 360: NEXT J:RP$ = "PAYS 3 TO 1":MY = MY +2 *T1: GOTO 240
1260 IF DC% < PEEK(16145)/2 THEN TP% = FN D(2): HTAB 27: GOSUB 360: GOSUB 360:TP% = FN D(2) +2: GOSUB 360:RP$ = "PAYS OFF 2 TO 1":MY = MY +T1: GOTO 240
1270 HTAB 27:TP% = FN D(2): GOSUB 360:TP% = FN D(2) +2: GOSUB 360:TP% = FN D(2): GOSUB 360:RP$ = "A LOSER":MY = MY -T1: GOTO 240
1280 IF F3% < >6 THEN RP$ = "SPEAKING IS DONE IN THE PARK": GOTO 240
1290 TP% = 9: GOTO 1380
1300 GOSUB 1360:TP = 0: FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN T1 = TP% *(I +1) *10:TP = TP +T1:RP$ = STR$(T1) +" CR. FOR THE " +MN$(I): GOSUB 250: POKE 16160 +I,0
1310 NEXT : IF PEEK(16249) THEN POKE 16169,0:RP$ = "YOUR WHITE ROCKS ARE WORTHLESS": GOSUB 250
1320 IF NOT TP THEN RP$ = "YOU HAVE NO MINERALS TO EXCHANGE": GOTO 240
1330 MY = MY +TP:RP$ = "TOTAL VALUE: " + STR$(TP) +" CREDITS": GOTO 240
1340 IF NOT PEEK(15903) THEN RP$ = "THERE IS NO ONE HERE": GOSUB 230: POP : GOTO 450
1350 RETURN
1360 IF NOT PEEK(15853) THEN RP$ = "THERE IS NOTHING HERE": GOSUB 230: POP : GOTO 450
1370 RETURN
1380 POKE 15928,5:F1 = PEEK(15903):N1$ = PR$(F1): GOSUB 30: CALL 36263: PRINT CHR$(4)"RUNWB."TP%: END
1390 TP% = 6: POKE 15925,1:BL% = BL% -F3%: GOTO 1380
1400 POKE 15852, FN D(21) +9: POKE 15855,X%: POKE 15854,Y%: FOR I = 0 TO 15
1410 TP = FN D(9): IF (TP = 1 AND (T8% = 1 OR T8% = 4 OR T8% = 5)) OR (TP = 2 AND NOT (T8% = 3 OR T7% = 2)) OR (TP = 9 AND T8% = 4) OR TP = 8 OR TP = 6 THEN 1410
1420 POKE 15700 +I,TP:TP%(TP) = 1: NEXT : POKE 15706,6: IF T8% THEN POKE 15707,8
1430 FOR I = 1 TO 50: POKE F1% +I,0: NEXT : IF TP%(1) THEN TP = 10:H2% = T7% *3 +3 +(T7% = 2):H1% = 1: GOSUB 1500:H1% = 14:H2% = 14 +T7%: GOSUB 1500: POKE F1% +9,T7% = 2
1440 IF TP%(4) THEN H2% = T7% *3 +25:H1% = 21:TP = .25: GOSUB 1500
1450 IF TP%(3) THEN H1% = 32:H2% = 34:TP = .5: GOSUB 1500
1460 IF TP%(2) THEN H1% = 42:H2% = 48:TP = 1: GOSUB 1500:H1% = 18:H2% = 19:TP = 10: GOSUB 1500
1470 IF TP%(5) THEN FOR I = 35 TO 37: POKE F1% +I,200: NEXT
1480 IF TP%(7) AND T8% = 4 THEN H1% = 38:H2% = 39:TP = 1: GOTO 1500
1490 RETURN
1500 FOR I = H1% TO H2%: POKE F1% +I, INT(( FN D(2) -1) *TP *I +.5): NEXT I: RETURN
1510 F4% = 0:F5% = FN D(21) +9: POKE 15903,0: IF PEEK(15853) THEN 1660
1520 PRINT "@L133K@":H1% = 1:H2% = 19:V1% = 1:V2% = 6: GOSUB 130: IF F3% = 6 THEN 1630
1530 PRINT "@4K@":V1% = 13:V2% = 15: GOSUB 130: IF F3% = 7 THEN 1640
1540 ON T7% +1 GOTO 1550,1560,1570
1550 PRINT "@136K@":H1% = 7:H2% = 13:V1% = 5:V2% = 9: GOSUB 130: PRINT "@G0V138K136C@": FOR I = 0 TO 3: HTAB 7 -I: PRINT "H"IV$ SPC( 26 +I *2)IV$"T": NEXT : GOTO 1580
1560 PRINT "@7K@":H1% = 7:H2% = 13:V1% = 5:V2% = 9: GOSUB 130: PRINT "@L0K5V8H@ @30H@ @G7K@": FOR I = 0 TO 1: FOR J = 0 TO 2: VTAB 4 +J: HTAB 8 +I *21: PRINT SPC( 5): VTAB 3: HTAB 8 +J *2 +I *21: PRINT " ": NEXT J,I: GOTO 1580
1570 TP$ = CHR$(28): PRINT "@15C129KL1V@": FOR I = 1 TO 6: HTAB 8: FOR J = 7 TO 19: PRINT TP$;: NEXT J: PRINT : NEXT I
1580 PRINT "@R15C0K@":V1% = 10:V2% = 14:H1% = 17:H2% = 4: GOSUB 130: PRINT IV$:V1% = 6:V2% = 8:H1% = 12:H2% = 16: GOSUB 130: VTAB 8: HTAB 21 - LEN(TP$(F3%))/2: PRINT TP$(F3%)IV$
1590 IF F3% = 8 THEN PRINT "@L13V17H@" CHR$(112)"@R@": POKE 15905,T7% *3 +2 - NOT (T7%): POKE 15906,14 +T7%: GOSUB 140: POKE 15903,4
1600 IF F3% = 5 THEN PRINT "@142K@":V1% = 11:V2% = 14:H1% = 1:H2% = 6: GOSUB 130:H1% = 33: GOSUB 130: PRINT "@0K@"
1610 IF F3% = 9 THEN PRINT "@138KGI6V16H@, . @0K@; P@IR@"
1620 RETURN
1630 PRINT "@L10K@":V1% = 11:V2% = 14: GOSUB 130: PRINT "@10C133K9V1H@";: FOR I = 1 TO 19: PRINT CHR$(32 +( FN D(3) = 3) *72);: NEXT : PRINT "@R15C0K@": RETURN
1640 PRINT "@G2K5C@":V1% = 4:V2% = 7:H1% = 18:H2% = 4: GOSUB 130:V1% = 8:V2% = 14:H1% = 7:H2% = 26: GOSUB 130: PRINT "@6V7H@ @32H@ @D7H@ @32H@ @11V10H@T@29H@T@138C133K5V7H@6@32H@6"
1650 VTAB 3: FOR I = 0 TO 1: HTAB 20 -I: PRINT "H"IV$ SPC( I *2)IV$"J": NEXT : PRINT "@L0K15C5V19H@" CHR$(27)"@11V18H@ @D2B@" CHR$(118)" @R@": POKE 15903,10: GOSUB 140: POKE 15905,3: POKE 15906,0: RETURN
1660 POKE 15903,7: POKE 15905, FN D(T7%) -1: POKE 15906,0: GOSUB 140:RP$ = "WHAT CAN I DO FOR YOU?":H1% = 1:H2% = 19:V1% = 1:V2% = 9: PRINT "@L15C0K@": GOSUB 130: ON F3% GOTO 1670,1700,1710,1720,1730,10,1750,1770,1800
1670 GOSUB 150:H1% = 1:H2% = 17: GOSUB 160: PRINT "@L1V20H@";: FOR I = 1 TO 9: PRINT CHR$(17);: NEXT I: VTAB 4: FOR I = 1 TO 7: PRINT "@20H@" CHR$(17)"@36H@" CHR$(17): NEXT I
1680 PRINT "@20H@";: FOR I = 1 TO 9: PRINT CHR$(17);: NEXT I: FOR I = 0 TO 2: FOR J = 1 TO 3:TP% = PEEK(F1% +I *3 +J): IF TP% THEN VTAB J *4 +2: HTAB I *4 +25: PRINT "@G@" CHR$(I *3 +J -1)
1690 NEXT J,I: PRINT "@R@": GOTO 230
1700 GOSUB 150:H1% = 42:H2% = 48: GOSUB 160:H1% = 18:H2% = 19: GOSUB 160: PRINT "@L129K@":H1% = 20:H2% = 9:V1% = 1:V2% = 9: GOSUB 130: PRINT "@4V24H@UNITED@D26H@ORES@D26H@INC.@0KR@": GOTO 230
1710 GOSUB 150:H1% = 32:H2% = 34: GOSUB 160: PRINT "@130CI@":H1% = 28:H2% = 2:V1% = 1:V2% = 9: GOSUB 130: PRINT "@GI@";: FOR I = 1 TO 8: HTAB 29 -I: PRINT "H"IV$ SPC( I *2)IV$"J": NEXT : PRINT "@R15C@": GOTO 230
1720 GOSUB 150:H1% = 21:H2% = 30: GOSUB 160: PRINT "@L10C5V22H@GENERAL@D24H@STORE@R15C@": GOTO 230
1730 GOSUB 150:H1% = 35:H2% = 37: GOSUB 160: IF T7% = 2 THEN PRINT "@2H@ATV@12H@5000@D2H@FUEL@12H@2/GL"
1740 PRINT "@L10K1V@";: FOR I = 1 TO 9: HTAB 21: FOR J = 1 TO 9: PRINT CHR$(120);: NEXT J: PRINT : NEXT I: PRINT "@R0K@": GOTO 230
1750 POKE 15903,10: PRINT "@L10K@": VTAB 2: FOR I = 1 TO 8: PRINT "@28H@ ": NEXT : PRINT "@6V20H@" SPC( 9)"@0K28H@" CHR$(27)"@B16V@" CHR$(118)"@R@": IF T8% = 4 THEN GOSUB 150:H1% = 38:H2% = 39: GOSUB 160: GOTO 230
1760 HCOLOR= 3: FOR I = 0 TO 119 STEP 3: HPLOT 7 +I,8 TO 126 -I,144: NEXT : FOR I = 0 TO 136 STEP 4: HPLOT 7,8 +I TO 126,144 -I: NEXT : GOTO 230
1770 POKE 15903,4: POKE 15905,T7% *2 +2: POKE 15906,T7% *3 +14
1780 IF T8% = 2 OR T8% >4 THEN PRINT "@L16V20H@";: FOR I = 1 TO 9: PRINT CHR$(26);: NEXT I: PRINT "@I28H@ @IUB@" CHR$(112): GOSUB 150: PRINT "@5V2H@HUNTING 500@D2H@PURCHASING 100@D2H@WEAPONS 1000": GOTO 230
1790 : PRINT "@L16V1H@";: FOR I = 1 TO 19: PRINT CHR$(26);: NEXT : PRINT "@I28H@ @UBI@" CHR$(112): GOTO 230
1800 GOSUB 150: PRINT "@5V2H@FOOD" SPC( 10)"10@D2H@WATER" SPC( 9)"5@133K@":H1% = 19:H2% = 19:V1% = 8:V2% = 17: GOSUB 130: PRINT "@0K133CG4V@";: FOR I = 0 TO 4: HTAB 24 -I: PRINT "H"IV$ SPC( 9 +I *2)IV$"J": NEXT I
1810 PRINT "@133K2V24H@" SPC( 9)"@D24H@" SPC( 9): PRINT "@3V0K@";: FOR I = 0 TO 2: HTAB 27 +I *2: PRINT " ";: NEXT : PRINT "@L138K8V25H@ @15C0KE12V22H@JACKPOT@RE@": GOTO 230
1820 TP = 0: IF (F3% = 1 AND OB% <18) OR (F3% = 3 AND OB% >31 AND OB% <35) OR (F3% = 4 AND OB% >20 AND OB%) OR (F3% = 5 AND OB% >34 AND OB% <38) OR (F3% = 7 AND (OB% = 38 OR OB% = 39)) THEN 1880
1830 IF F3% = 2 AND ((OB% >41 AND OB% <49) OR OB% = 18 OR OB% = 19) THEN 1880
1840 IF F3% = 5 AND T7% = 2 THEN TP = (OB% = 100) *5000 +(OB% = 101) *2
1850 IF F3% = 8 AND (T8% = 2 OR T8% >4) THEN TP = (OB% = 11) *17 +(OB% = 12) *100 +(OB% = 13) *36
1860 IF F3% = 9 THEN TP = (OB% = 20) *5 +(OB% = 22) *10
1870 RETURN
1880 TP = INT(F6% *F5% * PEEK(F1% +OB%)/100): RETURN
1890 GOSUB 30:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
1900 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.5": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.6.bas:
10 CALL 36281: ONERR GOTO 2800
20 ZZ = FRE(0): GOTO 560
30 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
40 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
50 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 50
60 POKE KP%,0: IF KY% < >160 THEN 50
70 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
80 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
90 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 90
100 POKE KP%,0: IF KY% < >160 THEN 90
110 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
120 RP$ = RY$ +AR$(TP%): GOSUB 190: GOSUB 80:TP = DC% < = PEEK(AR% +TP%): RETURN
130 RP$ = RY$ +AR$(TP%): GOSUB 190: GOSUB 80: IF DC% = 20 THEN 2730
140 IF DC% = 1 THEN POP : GOTO 2580
150 TP = DC% >(20 - PEEK(AR% +TP%)): RETURN
160 IF OB% >49 THEN POP : GOTO 750
170 IF NOT PEEK(PS% +OB%) THEN RP$ = "YOU DON'T OWN A " +PS$(OB%): POP : GOTO 200
180 RETURN
190 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
200 GOSUB 190: GOTO 630
210 GOSUB 220: GOTO 630
220 GOSUB 190: GOTO 40
222 IF FN D(500) < PEEK(16148) + PEEK(16149) AND FN D(99) > PEEK(16145) THEN RP$ = "YOUR ARMS ARE TOO DAMAGED": POP : GOTO 220
223 RETURN
226 IF FN D(500) < PEEK(16150) + PEEK(16151) AND FN D(99) > PEEK(16145) THEN RP$ = "YOUR LEGS ARE TOO DAMAGED": POP : GOTO 220
227 RETURN
230 IF NOT F3% OR F3% = 25 THEN 260
240 IF FN D(20) < PEEK(15909) THEN PRINT "@15V"F6% -1"HEG@" CHR$(105 + FN W(F3%))"@ER@":RP$ = "PARRIED": POP : GOTO 220
250 RETURN
260 IF FN D(20) < PEEK(15917) THEN RP$ = "DODGED": POP : GOTO 220
270 RETURN
280 TP = PEEK(PS% +TP%): POKE PS% +TP%,TP +(TP <255): RETURN
290 TP = PEEK(PS% +TP%): POKE PS% +TP%,TP -(TP >0): RETURN
300 F1% = 0: FOR J = 1 TO 8: IF PEEK(PS% +J) THEN F1% = J
310 NEXT J: FOR J = 25 TO 23 STEP -2: IF NOT F1% AND PEEK(PS% +J) THEN F1% = J
320 NEXT J:F2% = 0: FOR J = 14 TO 18: IF PEEK(15871 +J) THEN F2% = J
330 NEXT J:T1$ = " ": IF F1% THEN T1$ = CHR$( FN W(F1%) -1)
340 RETURN
350 F3% = PEEK(15905):F4% = PEEK(15907): IF NOT F3% AND (F4% = 23 OR F4% = 25) THEN F3% = F4%: POKE 15907,0
360 F4% = PEEK(15906):F4% = F4% *(F4% >13 AND F4% <17):F3% = F3% *(F3% <9 OR F3% = 23 OR F3% = 25):T2$ = " ": IF F3% THEN T2$ = CHR$( FN W(F3%) +15)
370 RETURN
380 F3% = F3% *(F1 <11): PRINT "@R15C0K2V2H@"NM$"@21H@"N1$: FOR I3 = 2 TO 21 STEP 19: PRINT "@4V"I3"H@WEAPON:" SPC( 11)"@D"I3"H@ARMOR:" SPC( 12): NEXT I3: PRINT "@4V9H@"PS$(F1%)"@28H@"PS$(F3%)"@D9H@"PS$(F2%)"@28H@"PS$(F4%)
390 FOR I3 = 0 TO 1: VTAB 8:I5 = I3 *19 +3: HTAB I5: PRINT AR$(1)":" PEEK(16137 -I3 *227): FOR J = 0 TO 5: HTAB I5:F9% = PEEK(BD% +J -I3 *227): PRINT BD$(J)":"F9%: IF F9% >99 THEN PRINT "@U"I5 +5"H@GONE"
391 NEXT J,I3
400 PRINT "@L15C0K15V"F6% -2"H@ " CHR$(108 +F1)"@"F5%"H@" CHR$(122)"@G15V"F5% +2"H@ @B@"T1$"@E"F6% -1"H@"T2$"@ER@": RETURN
410 PRINT "@G15V"F5% +2"H@"T1$"@B@" CHR$( FN W(F1%) -1)"@20Y250XNB@"T1$"@R@": RETURN
420 ZZ = 0: GOTO 440
430 ZZ = 1
440 TP$ = CHR$( FN W(F1%) -1): IF F1% >8 AND F1% < >23 AND F1% < >25 THEN TP$ = "T"
450 PRINT "@G15V@";: FOR J = F5% +3 TO F6%: HTAB J: PRINT TP$;: IF J >F5% +3 THEN PRINT "@BB@ ";
460 NEXT J: PRINT SPC( ZZ)"@R@":TP% = F1%: GOSUB 290:PS%(F1%) = BL%: GOTO 300
470 BD = 125: GOTO 490
480 BD = 115
490 FOR J = 1 TO 10:ZZ = PEEK(SP%) - PEEK(SP%) + PEEK(SP%): NEXT J: FOR J = (F5% +3) *7 TO F6% *7: HCOLOR= 3: HPLOT J,BD: HCOLOR= 0: HPLOT J,BD: NEXT J: RETURN
500 IF (OB% >8 AND OB% < >23 AND OB% < >25) THEN RETURN
510 IF NOT PEEK(PS% +OB%) THEN RETURN
520 F1% = OB%: GOSUB 380:T1$ = CHR$( FN W(F1%) +95): GOTO 400
530 TP% = PEEK(15932): POKE 15932,TP% -(TP% >0): RETURN
540 TP% = PEEK(15932): POKE 15932,TP% +(TP% <18): RETURN
550 FOR J = 16 TO 17: VTAB J: HTAB F5% +1: PRINT SPC( 3): NEXT J: RETURN
560 CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1: DEF FN W(I) = I +(I = 23) * -14 +(I = 25) * -15
570 FOR I = 0 TO 5: POKE 15919 +I,0: NEXT : IF F1 <11 THEN F6% = 21: GOTO 610
580 FOR I = 0 TO 3: POKE 15905 +I,0: NEXT :F6% = 23: IF F1 = 12 THEN POKE 15907,40
590 N1$ = PR$(F1):TP% = F1 -10:T1 = 15909: FOR I = 0 TO 9: POKE T1 +I, FN D(5) +(4 -TP%) *5 +(TP% = 2) *5: NEXT
600 POKE T1 +3, FN D(5) +TP% *3: POKE T1, FN D(5) +F1 *4: POKE T1 +9, FN D(3) +(TP% -1) *2 +(TP% = 2) *5
610 GOSUB 300:F5% = 16: GOSUB 350: GOSUB 2770: GOSUB 380: GOSUB 400: POKE 15932,10 - PEEK(15925) *5
620 TP% = PEEK(15925): POKE 15925, NOT TP%: ON TP% +1 GOTO 1630,2180
630 GOSUB 380: GOSUB 400: FOR J = 0 TO 2: POKE 30724 +J,255: NEXT J: GOSUB 1590: CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726)
640 IF AD% = 7 OR AD% = 12 THEN 780
650 IF AD% = 8 OR AD% = 11 THEN 800
660 ON VB% GOTO 770,740,770,830
670 IF VB% >9 THEN ON VB% -9 GOTO 860,740,900
680 IF VB% >19 THEN ON VB% -19 GOTO 1340,1100,1510,740,1060,1290,1260,1180,1540
690 IF VB% = 31 THEN 910
700 IF VB% >39 THEN ON VB% -39 GOTO 960,1000
710 IF VB% = 70 THEN 1030
720 IF VB% = 55 THEN 1380
730 IF AD% = 100 THEN 1570
740 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 200
750 RP$ = "REPHRASE YOUR STATEMENT": GOTO 200
760 RP$ = "BY YOUR COMMAND": GOTO 220
770 RP$ = "SPECIFY LEFT OR RIGHT": GOTO 200
780 GOSUB 226: IF F5% <2 THEN 820
790 GOSUB 550:F5% = F5% -1: GOTO 400
800 GOSUB 226: IF F5% >F6% -4 THEN 820
810 GOSUB 550:F5% = F5% +1: GOTO 400
820 RP$ = "INAPPROPRIATE DIRECTION": GOTO 200
830 GOSUB 226: IF FN D( PEEK(16142)) < PEEK(15932) THEN TP% = PEEK(15928): GOTO 2760
840 TP% = 8: GOSUB 120: IF TP THEN TP% = PEEK(15928): GOTO 2760
850 RP$ = "YOU ARE UNABLE TO ESCAPE": GOTO 220
860 IF OB% >50 THEN 750
870 IF PS%(OB%) < >BL% THEN RP$ = "THERE IS NONE HERE": GOTO 190
880 GOSUB 222:TP = 0: FOR J = 1 TO 50:TP = TP + PEEK(PS% +J): NEXT J: IF TP > PEEK(16138) *999/ PEEK(15869) AND NOT ( PEEK(16235) AND PEEK(16237)) THEN RP$ = "YOU CARRY TOO MUCH": GOTO 190
890 TP% = OB%: GOSUB 280:PS%(OB%) = 0: GOSUB 300: GOTO 760
900 GOSUB 160: POKE PS% +OB%,0:PS%(OB%) = BL%: GOSUB 300: GOTO 760
910 RP$ = "YOU ARE FACING A " +PR$(F1): GOSUB 220:TP = PEEK(16140): IF FN D(20) 19 THEN 750
970 IF OB% = 18 AND NOT PEEK(PS% +29) THEN RP$ = "YOU NEED AN AIR TANK": GOTO 200
980 IF OB% = 18 THEN OA = TM +1440: POKE PS% +29, PEEK(PS% +29) -1
990 POKE 15871 +OB%,5: GOSUB 300: GOTO 760
1000 GOSUB 160: IF OB% <14 OR OB% >19 THEN 750
1010 IF OB% = 18 THEN OA = 0
1020 POKE 15871 +OB%,0: GOSUB 300: GOTO 760
1030 FOR J = 1 TO 49: IF PEEK(PS% +J) THEN RP$ = PS$(J) +" - " + STR$( PEEK(PS% +J)): GOSUB 220
1040 NEXT J: FOR J = 0 TO 8:TP% = PEEK(16160 +J): IF TP% THEN RP$ = MN$(J) +" - " + STR$(TP%): GOSUB 220
1050 NEXT J:RP$ = "MONEY - " + STR$(MY): GOTO 190
1060 GOSUB 500: IF F1% = 1 THEN 1410
1070 IF F1% = 7 THEN 1430
1080 IF F1% = 8 THEN 1470
1090 RP$ = "SHOOT WHAT?": GOTO 200
1100 GOSUB 500: IF F5% 1 AND F1% <7 THEN TP% = (F1% -1) *2
1140 IF F1% = 7 OR F1% = 8 THEN TP% = 3
1150 IF F1% = 23 THEN TP% = 6
1160 IF F1% = 25 THEN TP% = 4
1170 TP% = FN D(TP%): GOTO 2190
1180 IF F1% = 1 THEN 1410
1190 IF NOT F1% AND OB% >50 THEN 1510
1200 GOSUB 222: GOSUB 500: IF OB% <50 THEN GOSUB 160:F1% = OB%
1210 IF F1% = 20 OR F1% = 28 OR F1% = 31 OR F1% = 35 OR F1% = 37 OR F1% = 25 THEN 900
1220 TP% = 3: GOSUB 130: IF NOT TP THEN GOSUB 430:RP$ = "MISSED": GOTO 220
1230 GOSUB 420: GOSUB 230:TP% = FN D(2): IF F1% <7 THEN TP% = FN D(F1%)
1240 IF F1% = 23 THEN TP% = FN D(6)
1250 GOTO 2190
1260 GOSUB 500: GOSUB 530: IF AD% >39 AND AD% <44 THEN POKE 15933,AD% -39
1270 IF F1% THEN T1$ = CHR$( FN W(F1%) +95): GOSUB 400
1280 RETURN
1290 TP = PEEK(16209): IF NOT TP THEN RP$ = "OUT OF BULLETS": GOTO 220
1300 GOSUB 500: IF F1% < >7 AND F1% < >8 THEN RP$ = "YOU CAN'T LOAD A " +PS$(F1%): GOTO 220
1310 GOSUB 540: IF F1% = 8 THEN POKE 16209,TP -1: POKE 16153,1: GOTO 760
1320 TP% = PEEK(16152):T1 = 6 -TP%: IF T1 >TP THEN T1 = TP
1330 POKE 16209,TP -T1: POKE 16152,TP% +T1: GOTO 760
1340 IF NOT F1% THEN 1510
1350 IF F1% = 7 OR F1% = 8 THEN 1060
1360 IF F5% >F6% -5 THEN 1100
1370 GOTO 1180
1380 GOSUB 160: IF FN W(OB%) <13 THEN F1% = OB%: GOTO 1340
1390 IF OB% = 49 AND FN D(50) < PEEK(16145) THEN 2730
1400 GOTO 740
1410 GOSUB 222:F1% = 1:TP% = 0: GOSUB 130: IF NOT TP THEN GOSUB 430:RP$ = "MISSED": GOTO 220
1420 GOSUB 420: GOSUB 260:TP% = FN D(6): GOTO 2190
1430 GOSUB 222:TP% = PEEK(16152): IF NOT TP% THEN RP$ = "PISTOL IS NOT LOADED": GOTO 190
1440 POKE 16152,TP% -1:TP% = 3: GOSUB 130: IF NOT TP AND F6% -F5% >4 THEN RP$ = "MISSED": GOSUB 480: GOTO 220
1450 GOSUB 470: IF F6% -F5% >8 THEN GOSUB 260
1460 TP% = FN D(6): GOTO 2190
1470 GOSUB 222: IF NOT PEEK(16153) THEN RP$ = "RIFLE IS NOT LOADED": GOTO 190
1480 POKE 16153,0:TP% = 3: GOSUB 130: IF NOT TP AND F6% -F5% >4 THEN RP$ = "MISSED": GOSUB 480: GOTO 220
1490 GOSUB 470: IF F6% -F5% >8 THEN GOSUB 260
1500 TP% = FN D(8): GOTO 2190
1510 GOSUB 222: IF F5% OA AND OA AND PEEK(TP) THEN POKE TP, PEEK(TP) -1:OA = TM +1440: RETURN
1600 IF TM >OA AND OA AND FN D(20) < PEEK(16137) THEN RP$ = "YOU ARE LOW ON AIR": GOTO 190
1610 IF (OA 4) AND NOT PEEK(TP%)) THEN RP$ = "YOU ARE SUFFOCATING": GOSUB 190: GOTO 2750
1620 RETURN
1630 F8% = INT(( PEEK(15909) + PEEK(15917))/10) +1: FOR I = 1 TO F8%: GOSUB 350: GOSUB 380: GOSUB 400: IF F1 >10 THEN ON F1 -10 GOTO 1870,1900,1970
1640 IF NOT F3% THEN 1680
1650 IF F3% = 1 OR F3% = 23 THEN 1740
1660 IF F3% = 7 OR F3% = 8 THEN 1800
1670 GOTO 1760
1680 FOR J = 1 TO 8: IF PS%(J) = BL% AND FN D(20) < PEEK(15913) AND F5% +3 = F6% AND F1 <11 THEN PS%(J) = 0:F3% = J:J = 9: NEXT J: GOTO 1860
1690 NEXT J: IF FN D(20) > PEEK(15916) OR F1% AND FN D(20) < PEEK(16914) THEN 2030
1700 IF F5% PEEK(15909) THEN RP$ = N1$ +" MISSED": GOTO 1860
1720 TP% = 0: GOSUB 120: IF TP THEN RP$ = "YOU DODGED IT": GOSUB 220: GOTO 1860
1730 TP% = FN D(3): GOSUB 2340: GOTO 1860
1740 IF F5% = F6% -3 THEN F7% = FN D(6): GOTO 2110
1750 F7% = FN D(4): GOTO 2070
1760 IF F5% = F6% -3 THEN F7% = FN D(F3% *2 +(F3% = 25) -21): GOTO 2110
1770 IF FN D( PEEK(15932)) > FN D( PEEK(16142)) THEN 2050
1780 IF FN D(20) > PEEK(15916) THEN 2030
1790 F7% = FN D(3): GOTO 2070
1800 IF FN D(5) <3 +(F6% -F5% <6) *9 THEN F7% = FN D(6 +(F3% = 8) *2): GOTO 2140
1810 IF FN D(20) < PEEK(15916) AND FN D(20) > PEEK(15932) THEN 2030
1820 F7% = FN D(3): IF F5% = F6% -3 THEN 2110
1830 IF FN D(99) < PEEK(15914) THEN 2070
1840 GOTO 2050
1850 RP$ = "MISSED": GOSUB 220
1860 POKE 15905,F3%: NEXT I: GOTO 620
1870 IF FN D(20) < PEEK(15914) THEN 2030
1880 IF FN D(3) = 1 THEN 2050
1890 GOTO 1860
1900 IF F6% = F5% +3 THEN 1940
1910 IF FN D(20) < PEEK(16145) THEN 2030
1920 IF FN D(20) > PEEK(15914) OR FN D(20) > PEEK(15916) THEN 2050
1930 GOTO 1860
1940 PRINT "@15V"F6% -1"HG@" CHR$(16)"@NBR@" CHR$(32): IF FN D(20) > PEEK(15909) THEN RP$ = "MISSED": GOSUB 220: GOTO 1860
1950 TP% = 0: GOSUB 120: IF TP THEN RP$ = "YOU DODGED THE HORN": GOSUB 220: GOTO 1860
1960 F3% = 1:TP% = FN D(4): GOSUB 2340:F3% = 0: GOTO 1860
1970 IF F6% = F5% +3 THEN 2000
1980 IF FN D(30) < PEEK(16145) THEN 2030
1990 GOTO 2050
2000 GOSUB 2068: PRINT "@15V"F6% -1"HG@" CHR$(39)"@NBR@ ": IF FN D(20) > PEEK(15909) THEN RP$ = "MISSED": GOSUB 220: GOTO 1860
2010 TP% = 0: GOSUB 120: IF TP THEN RP$ = "YOU DODGED THE CLAW": GOSUB 220: GOTO 1860
2020 F3% = 6:TP% = FN D(8): GOSUB 2340:F3% = 0: GOTO 1860
2030 GOSUB 2063: IF F6% = 37 THEN TP% = PEEK(15928): GOTO 2760
2040 PRINT "@15V"F6% -1"H@ @D3B@ ":F6% = F6% +1: GOSUB 400: GOTO 1860
2050 GOSUB 2063: IF F6% = F5% +3 THEN 1860
2060 FOR J = 16 TO 17: VTAB J: HTAB F6%: PRINT SPC( 3): NEXT J:F6% = F6% -1: GOSUB 400: GOTO 1860
2063 IF FN D(40) < PEEK(15923) + PEEK(15924) THEN POP : GOTO 1860
2065 RETURN
2068 IF FN D(40) < PEEK(15921) + PEEK(15922) THEN POP : GOTO 1860
2069 RETURN
2070 GOSUB 2068:TP% = 3 +( FN D(20) < PEEK(15909)):TP$ = CHR$( FN W(F3%) +15): PRINT "@G15V@";: FOR J = F6% TO F5% +TP% STEP -1: HTAB J: PRINT TP$;: IF J 10 THEN ON F1 -10 GOTO 2220,2230,2240
2200 IF F4% THEN TP = F4%:T1 = F1%: GOSUB 2460
2210 GOTO 2250
2220 TP% = TP% - FN D(2): GOTO 2250
2230 TP% = TP% -1: GOTO 2250
2240 TP% = TP% - FN D(5)
2250 IF TP% <1 THEN RP$ = "NO DAMAGE DONE": GOTO 220
2260 IF TP% >2 THEN PRINT "@15V"F6% -1"HG@";: FOR J = 130 TO 138 STEP 2: PRINT "@20X20YN"J"C@" CHR$(41)"@B@";: NEXT J: PRINT " @R15C@"
2270 TP = PEEK(15933): IF NOT TP THEN TP = FN D(4)
2280 IF AD% >39 AND AD% <44 THEN TP = AD% -39
2290 TP = TP +15918 +(TP = 3 AND FN D(2) = 2) +(TP = 4) * FN D(2): IF PEEK(TP) >100 THEN TP% = 0: GOTO 2290
2300 POKE TP, PEEK(TP) +TP%: GOSUB 380:TP% = PEEK(15910): IF PEEK(15919) > INT(TP%/2) OR PEEK(15920) >TP% THEN 2730
2310 FOR J = 2 TO 5:TP = 15919 +J: IF PEEK(TP) >50 OR PEEK(TP) < = INT(TP%/2 +.5) THEN 2330
2320 RP$ = N1$ +" HAS LOST HIS " +BD$(J): POKE TP,250: GOSUB 220:TP = 15909 +(J <3) *8: POKE TP, INT( PEEK(TP)/2)
2330 NEXT J: RETURN
2340 IF F2% THEN TP = F2%:T1 = F3%: GOSUB 2460
2350 IF TP% <1 THEN RP$ = "YOU WERE NOT INJURED": GOTO 220
2360 IF TP% >2 THEN PRINT "@15V"F5% +2"HG@";: FOR J = 130 TO 138 STEP 2: PRINT "@20X20YN"J"C@" CHR$(38)"@B@";: NEXT J: PRINT " @R15C@"
2370 AD% = FN D(6) -1:TP = PEEK(16137): IF AD% >1 THEN 2430
2380 IF AD% THEN 2410
2390 TP% = PEEK(BD%) +TP%: POKE BD%,TP%: GOSUB 380: IF TP% > INT(TP/2) THEN 2750
2400 RP$ = "DAMAGE TO YOUR HEAD": GOTO 220
2410 TP% = PEEK(BD% +1) +TP%: POKE BD% +1,TP%: GOSUB 380: IF TP% >TP THEN 2750
2420 RP$ = "DAMAGE TO YOUR TORSO": GOTO 220
2430 IF PEEK(BD% +AD%) >100 THEN RP$ = "NO DAMAGE DUE TO MISSING " +BD$(AD%): GOTO 220
2440 TP% = PEEK(BD% +AD%) +TP%: POKE BD% +AD%,TP%: IF TP% < = INT(TP/2 +.5) THEN RP$ = "DAMAGE TO YOUR " +BD$(AD%): GOSUB 220: GOTO 380
2450 RP$ = "YOUR " +BD$(AD%) +" IS GONE": GOSUB 220: POKE BD% +AD%,255:TP = 16136 +(BD% >3) *9: POKE TP, INT( PEEK(TP)/2): GOTO 380
2460 ON TP -13 GOTO 2470,2500,2530,2570,2560,2570
2470 IF NOT T1 THEN TP% = TP% - FN D(2): RETURN
2480 IF T1 <7 OR T1 = 23 OR T1 = 25 THEN TP% = TP% - FN D(3): RETURN
2490 TP% = TP% -1: RETURN
2500 IF NOT T1 THEN TP% = TP% - FN D(5): RETURN
2510 IF T1 <7 OR T1 = 23 OR T1 = 25 THEN TP% = TP% - FN D(5): RETURN
2520 TP% = TP% - FN D(3): RETURN
2530 IF NOT T1 THEN TP% = TP% - FN D(5): RETURN
2540 IF T1 <7 OR TP = 23 OR T1 = 25 THEN TP% = TP% -1: RETURN
2550 TP% = TP% - FN D(5): RETURN
2560 TP% = TP% - FN D(3): RETURN
2570 RETURN
2580 RP$ = "FUMBLE: ": ON FN D(8) GOTO 2590,2620,2640,2650,2670,2690,2700,2710
2590 IF NOT F1% THEN TP% = FN D(2):RP$ = RP$ +"DAMAGE TO YOURSELF": GOSUB 220: GOTO 2340
2600 TP% = F1%: GOSUB 290:RP$ = RP$ +"WEAPON DESTROYED": GOSUB 300: GOSUB 400: GOSUB 220: IF F1% = 7 OR F1% = 8 THEN TP% = FN D(3): GOTO 2340
2610 RETURN
2620 IF NOT F1% THEN 2580
2630 RP$ = RP$ +"WEAPON DROPPED":TP% = F1%: GOSUB 290:PS%(F1%) = BL%: GOSUB 300: GOSUB 400: GOTO 220
2640 RP$ = RP$ +"LOSE TURN": GOTO 220
2650 IF F5% >F6% -4 THEN 2580
2660 RP$ = RP$ +"MOVE FORWARD": GOSUB 550:F5% = F5% +1: GOSUB 400: GOTO 220
2670 IF F5% <2 THEN 2580
2680 RP$ = RP$ +"MOVE BACKWARD": GOSUB 550:F5% = F5% -1: GOSUB 400: GOTO 220
2690 RP$ = RP$ +"HURT SELF":TP% = FN D(3): GOSUB 220:TP = FN D(6): GOTO 2350
2700 RP$ = RP$ +"HURT OPPONENT":TP% = FN D(3): GOSUB 220:AD% = FN D(4) +39: GOTO 2250
2710 FOR J = 1 TO 20:TP% = FN D(48): IF NOT PEEK(PS% +TP%) THEN NEXT J: GOTO 2580
2720 J = 50: NEXT J: GOSUB 290:PS%(TP%) = BL%:RP$ = RP$ +"DROPPED " +PS$(TP%): GOTO 220
2730 RP$ = "YOU HAVE KILLED THE " +PR$(F1): GOSUB 220: POKE 15929,F1:PS%(F3%) = BL%:PS%(F4%) = BL%:PS%( PEEK(15907)) = BL%:PS%(22) = BL%: GOSUB 940
2740 TP% = PEEK(15928): GOTO 2760
2750 DD% = 1:TP% = 1
2760 POKE 15928,6: GOSUB 30: CALL 36263: PRINT CHR$(4)"RUNWB."TP%: END
2770 PRINT "@L15C0K1V@";: FOR I = 1 TO 8: PRINT "@1H@" SPC( 19)"": NEXT
2780 TP$ = "@B@" + CHR$(100 +TR%): PRINT "@"TP%(TR%)"K17V1H@";: FOR I = 1 TO 19: PRINT " ";: IF FN D(3) = 3 THEN PRINT TP$;
2790 NEXT : PRINT "@R0K@": RETURN
2800 GOSUB 30:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
2810 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *2570"WB.6": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.7.bas:
0 CALL 36281: ONERR GOTO 215
1 ZZ = FRE(0): GOTO 23
2 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
3 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
4 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 4
5 POKE KP%,0: IF KY% < >160 THEN 4
6 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
7 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
8 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 8
9 POKE KP%,0: IF KY% < >160 THEN 8
10 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
11 RP$ = RY$ +AR$(TP%): GOSUB 15: GOSUB 7:TP = DC% < = PEEK(AR% +TP%): RETURN
12 IF OB% >49 THEN POP : GOTO 36
13 IF NOT PEEK(PS% +OB%) THEN RP$ = "YOU DON'T OWN A " +PS$(OB%): POP : GOTO 16
14 RETURN
15 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
16 GOSUB 15: GOTO 26
17 GOSUB 18: GOTO 26
18 GOSUB 15: GOTO 3
19 TP% = PEEK(16147) +TP%: POKE 16147,TP%:TP = PEEK(16137): IF TP% >TP THEN 189
20 IF TP% >TP -2 THEN RP$ = "YOU ARE CLOSE TO DEATH": GOSUB 18
21 RETURN
22 TP = PEEK(PS% +TP%): POKE PS% +TP%,TP +(TP <255): RETURN
23 CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
24 POKE 15928,TP%:TP% = FN D(10): FOR I = 1 TO TP%: READ N1$: NEXT :N1$ = N1$ +"": DATA LAZARUS,GAHERIS,DRACO,ZORA,HOBART,LEE QUAN,GORT,ILIA,BONZO,SAMWISE
25 POKE 15904,2: POKE 15925,0:F1% = 0: GOSUB 193:RP$ = "A " +PR$(F1) +" APPROACHES": GOSUB 16: GOSUB 112: GOTO 190: END
26 FOR I = 0 TO 2: POKE 30724 +I,255: NEXT : GOSUB 108: CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726)
27 IF VB% = 4 THEN 39
28 IF VB% >9 THEN ON VB% -9 GOTO 44,29,48,29,79,81,89,94
29 IF VB% >19 AND VB% <30 THEN 69
30 IF VB% >29 THEN ON VB% -29 GOTO 76,49,77,54,56,31,78
31 IF VB% >39 THEN ON VB% -39 GOTO 59,63
32 IF VB% = 70 THEN 66
33 IF VB% = 61 THEN RP$ = "I AM " +N1$ +", THE " +PR$(F1): GOTO 18
34 IF AD% = 30 OR AD% = 31 THEN RETURN
35 IF AD% = 100 THEN 41
36 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 16
37 RP$ = "REPHRASE YOUR STATEMENT": GOTO 16
38 RP$ = "BY YOUR COMMAND": GOTO 16
39 IF F1% AND FN D( PEEK(15917)) > FN D( PEEK(16144)) THEN RP$ = "DON'T MAKE A MOVE": GOTO 18
40 GOTO 190
41 IF T8% = 4 AND F1 = 10 OR F1 = 4 OR T8% = 1 AND F1 = 9 THEN TP$ = "OFFENSIVE LANGUAGE":TP = 10 * FN D(3): GOTO 186
42 IF F1% THEN RP$ = "HOLD THY TONGUE, SPACE SLIME": GOTO 16
43 RP$ = "SUCH LANGUAGE!": GOSUB 15: GOTO 190
44 IF OB% >50 THEN 37
45 OB% = OB% +(OB% = 20 AND PS%(50) = BL%) *30: IF PS%(OB%) < >BL% THEN RP$ = "THERE IS NONE HERE": GOTO 16
46 TP = 0: FOR I = 1 TO 50:TP = TP + PEEK(PS% +I): NEXT : IF TP > PEEK(16138) *999/ PEEK(15869) AND NOT ( PEEK(16235) AND PEEK(16237)) THEN RP$ = "YOU CARRY TOO MUCH": GOTO 16
47 TP% = OB%: GOSUB 22:PS%(OB%) = 0: GOTO 38
48 GOSUB 12: POKE PS% +OB%,0:PS%(OB%) = BL%: GOTO 38
49 RP$ = "YOU ARE FACING A " +PR$(F1): GOSUB 18:TP = PEEK(16140):TP% = PEEK(15905): IF FN D(20) 19 THEN 37
60 IF OB% = 18 AND NOT PEEK(PS% +19) THEN RP$ = "YOU NEED AN AIR TANK": GOTO 16
61 IF OB% = 18 THEN OA = TM +1440: POKE PS% +19, PEEK(PS% +19) -1
62 POKE 15871 +OB%,5: GOTO 38
63 GOSUB 12: IF OB% <14 OR OB% >19 THEN 37
64 IF OB% = 18 THEN OA = 0
65 POKE 15871 +OB%,0: GOTO 38
66 FOR I = 1 TO 49: IF PEEK(PS% +I) THEN RP$ = PS$(I) +" - " + STR$( PEEK(PS% +I)): GOSUB 18
67 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%): GOSUB 18
68 NEXT :RP$ = "MONEY - " + STR$(MY): GOTO 16
69 IF VB% >24 AND F1 < >4 AND FN D( PEEK(16142)) - PEEK(16130) *2 > FN D( PEEK(15916)) THEN RP$ = "I'LL LEAVE YOU BE": GOSUB 15: GOTO 190
70 IF VB% < >25 THEN POKE 15925,1: GOTO 192
71 TP = PEEK(16209): IF NOT TP THEN RP$ = "OUT OF BULLETS": GOTO 16
72 IF VB% < >7 AND VB% < >8 THEN RP$ = "LOAD WHAT?": GOTO 16
73 IF F1% = 8 THEN POKE 16209,TP -1: POKE 16153,1: GOTO 38
74 TP% = PEEK(16152):T1 = 6 -TP%: IF T1 >TP THEN T1 = TP
75 POKE 16209,TP -T1: POKE 16152,TP% +T1: GOTO 38
76 RP$ = "YOU HEAR THE " +PR$(F1): GOTO 16
77 RP$ = "YOU SMELL NOTHING SPECIAL": GOTO 16
78 RP$ = "THAT WOULD BE RUDE": GOTO 16
79 POKE 15930,F1: IF OB% = 130 THEN MY = MY -(MY >0): RETURN
80 GOSUB 12: POKE PS% +OB%, PEEK(PS% +OB%) -1: RETURN
81 TP% = 0: GOSUB 11: IF NOT TP THEN 85
82 IF PEEK(15907) = OB% THEN TP% = OB%: GOSUB 22: POKE 15907,0: RETURN
83 TP% = PEEK(15908): IF OB% = 130 AND TP% THEN POKE 15908,0:MY = MY +TP%: RETURN
84 RP$ = "YOU TURNED UP EMPTY": GOTO 18
85 IF F1 = 4 OR (F1 = 10 AND T8% = 4) THEN RP$ = "STEALING IS A CRIME": GOSUB 15:TP = FN D(3) *12: GOTO 188
86 POKE 15931,F1: IF F1 < >10 THEN RP$ = "YOU'RE TRYING TO RIP ME OFF!": GOSUB 15: GOTO 192
87 IF FN D(20) < PEEK(16142) THEN RP$ = "LET ME GIVE YOU MY MONEY":MY = MY + PEEK(15908): POKE 15908,0: GOTO 18
88 RP$ = "CRIME IS NOT THE WAY": GOTO 18
89 IF NOT F1% THEN RP$ = "YOU HAVE NO REASON TO BRIBE ME": GOTO 18
90 TP = F1 *10 * FN D(100): IF F1 = 4 AND T8% AND FN D(20) < PEEK(16916) THEN RP$ = "BRIBERY IS A CRIME": GOSUB 18:TP = FN D(5): GOTO 188
91 IF MY FN D( PEEK(16142)): IF OB% <18 THEN F2 = OB% >13: GOTO 99
95 IF OB% = 20 THEN 102
96 IF OB% = 22 THEN 104
97 IF OB% = 130 THEN 106
98 RP$ = "I HAVE NONE": GOTO 18
99 IF ((F1 = 3 OR F1 = 5 OR F1 = 6) AND TP%) OR F1 = 4 OR F1% THEN 192
100 IF PEEK(15905 +F2) < >OB% THEN 98
101 POKE 15905 +F2,0:TP% = OB%: GOSUB 22:RP$ = "WHATEVER YOU SAY": GOTO 16
102 IF TR% = 3 OR F1% THEN 98
103 RP$ = "I CAN SPARE SOME":TP% = OB%: GOSUB 22: GOTO 18
104 IF F1% OR (F1 = 3 OR F1 = 4 OR F1 = 9) AND TP AND PEEK(16131) < >2 THEN 98
105 GOTO 103
106 IF F1% OR ((F1 = 3 OR F1 = 4 OR F1 = 9) AND FN D(9) >1) OR ( PEEK(16131) < >2 AND NOT TP) OR NOT PEEK(15908) THEN 98
107 TP = PEEK(15908):TP% = FN D(TP):RP$ = "HERE IS " + STR$(TP%) +" CREDITS": POKE 15908,TP -TP%:MY = MY +TP%: GOTO 18
108 TP = 16229:TP% = 15889: IF TM >OA AND OA AND PEEK(TP) THEN POKE TP, PEEK(TP) -1:OA = TM +1440: RETURN
109 IF TM >OA AND OA AND FN D(20) < PEEK(16137) THEN RP$ = "YOU ARE LOW ON AIR": GOSUB 15: RETURN
110 IF (OA 4) AND NOT PEEK(TP%)) THEN RP$ = "YOU ARE SUFFOCATING": GOSUB 15: GOTO 189
111 RETURN
112 F2% = PEEK(15930):F3% = PEEK(15929): ON F1 GOTO 113,118,129,137,152,154,157,165,168,172
113 IF ( NOT T8% OR T8% = 4 OR T8% = 6) AND (F2% = 1 OR F2% = 10) THEN TP = FN D(10) +10 *T7%: GOTO 179
114 IF F2% = 3 AND NOT (T8% = 1 OR T8% = 5) THEN 180
115 IF F3% = 3 OR (F3% = 4 AND (T8% = 1 OR T8% = 2 OR T8% = 5)) OR (F3% = 9 AND T8% = 4) THEN TP = FN D(10) +10 *T7%: GOTO 178
116 IF F3% = 1 OR (F3% = 10 AND T8% = 4) THEN 181
117 GOTO 182
118 IF AM% = 133 THEN 123
119 IF NOT PEEK(16229) THEN RP$ = "YOU'RE LOW ON AIR": GOSUB 18:RP$ = "HERE'S AN AIR TANK": GOSUB 15: POKE 16229,1: GOTO 190
120 RP$ = "I'M LOW ON AIR": GOSUB 18:RP$ = "LET ME HAVE ONE OF YOUR TANKS": GOSUB 16: IF VB% = 14 AND OB% = 29 THEN RP$ = "THANKS": GOSUB 15: GOTO 190
121 IF FN D( PEEK(15916)) > FN D( PEEK(16142)) THEN RP$ = "YOU WON'T NEED ONE IF YOU'RE DEAD": GOSUB 15: GOTO 192
122 RP$ = "GASP....CHOKE": GOSUB 15: GOTO 190
123 IF F3% = 13 OR F3% = 11 THEN TP = FN D(10 *F3%): GOTO 178
124 IF PEEK(16131) < >2 AND T8% = 6 THEN RP$ = "YOU'RE TRESSPASSING ON MY LAND": GOSUB 15: GOTO 192
125 IF FN D(5) <5 OR PEEK(16131) = 3 THEN 182
126 RP$ = "DO YOU WANT TO SETTLE ON MY LAND?": GOSUB 18:F2 = 1000 *T6%:RP$ = "MY ASKING PRICE IS " + STR$(F2): GOSUB 16: IF AD% < >30 THEN 190
127 IF MY 14 OR OB% < >130) AND MY THEN RP$ = "SO WE HAVE TO DO THIS THE HARD WAY": GOSUB 15: GOTO 192
134 IF NOT MY THEN RP$ = "YOU'RE WORSE OFF THAN I AM": GOSUB 18: GOTO 185
135 MY = 0:RP$ = "THANKS FOR DOING BUSINESS": GOSUB 15: IF FN D(5) <3 THEN 192
136 RETURN
137 IF (T8% = 6 AND F3% AND F3% <11) OR (F3% = 2 AND T8% = 3) OR F3% = 4 OR F3% >7 THEN 181
138 IF F3% = 1 AND T8% = 1 THEN TP$ = "KILLING PROPERTY":TP = 1000 * FN D(10): GOTO 186
139 IF F3% = 3 OR F3% = 5 THEN TP = FN D(100) *10: GOTO 178
140 IF F3% = 12 THEN TP$ = "KILLING A UNICORN":TP = FN D(5) *23: GOTO 186
141 IF F2% = 3 OR F2% = 5 OR (F2% = 1 AND T8% = 1) THEN TP = 5 + FN D(10):RP$ = "AIDING CRIMINALS IS A CRIME": GOSUB 18: GOTO 188
142 IF F3% = 4 OR (F3% = 10 AND T8% = 4) THEN TP = 100 * FN D(5): GOTO 179
143 IF PEEK(16131) = 2 AND T8% = 4 THEN TP$ = "IMPERSONATING A PRIEST":TP = FN D(5) *250: GOTO 186
144 TP% = PEEK(15931): IF TP% THEN POKE 15931,0:RP$ = "YOU ARE UNDER ARREST FOR STEALING": GOSUB 18:TP = TP% *2: GOTO 188
145 IF PEEK(16131) < >2 AND T8% = 4 AND TN% THEN TP$ = "TREADING ON HOLY GROUND":TP = FN D(10) *10: GOTO 186
146 IF PEEK(16131) = 1 AND T8% = 1 AND TN% THEN TP$ = "MINING ON PRIVATE PROPERTY":TP = FN D(10) *23: GOTO 186
147 IF PEEK(16131) < >2 AND T8% = 1 AND TN% THEN TP$ = "TRESSPASSING":TP = FN D(20) +10: GOTO 186
148 IF F3% >10 AND NOT PEEK(16154) THEN POKE 16129,0:TP$ = "HUNTING WITHOUT A LICENSE":TP = FN D(3) *25: GOTO 186
149 IF FN D(5) = 1 OR NOT T8% THEN 185
150 F2 = T8% *10:RP$ = "I AM COLLECTING TAXES":F1% = 1: GOSUB 16: IF (VB% < >14 AND OB% < >130) OR MY PEEK(16142) THEN RP$ = "THIS IS MY FOREST": GOSUB 18: GOSUB 176:RP$ = "YOU MAY LEAVE PEACEFULLY": GOSUB 15: GOTO 190
153 ON FN D(2) GOTO 182,185
154 IF F2% = 3 OR (T8% = 5 AND F2% = 4) OR (F2% = 9 AND T8% = 1) THEN 180
155 IF F3% = 3 OR (T8% = 5 AND F3% = 4) OR (F3% = 9 AND T8% = 1) THEN TP = FN D(100) *10: GOTO 178
156 ON FN D(3) GOTO 176,182,185
157 IF FN D(2) = 1 THEN 162
158 F2 = FN D(25) *10:RP$ = "I HAVE A " +PS$( PEEK(15907)) +" FOR SALE": GOSUB 18
159 RP$ = "WILL YOU BUY IT FOR " + STR$(F2) +" CREDITS?": GOSUB 16: IF AD% = 30 AND MY >F2 THEN RP$ = "SOLD": GOSUB 15:MY = MY -F2:TP% = PEEK(15907): GOTO 22
160 IF F2 >5 THEN TP% = 6: GOSUB 11: IF TP THEN F2 = F2 - INT(F2/(4 + FN D(4))) -1: GOTO 159
161 RP$ = "THEN GOOD DAY TO YOU": GOSUB 15: GOTO 190
162 FOR I = 1 TO 40:F2 = 20 + FN D(17): IF NOT PEEK(PS% +F2) THEN NEXT : GOTO 158
163 I = 99: NEXT :F3 = FN D(25) *5:RP$ = "I WISH TO BUY YOUR " +PS$(F2): GOSUB 18:RP$ = "WILL YOU SELL IT FOR " + STR$(F3) +" CREDITS?": GOSUB 16: IF AD% = 30 THEN MY = MY +F3: POKE PS% +F2, PEEK(PS% +F2) -1: GOTO 190
164 GOTO 161
165 FOR I = 1 TO 48:F2 = FN D(48): IF NOT PEEK(PS% +F2) THEN NEXT : GOTO 182
166 I = 51: NEXT :RP$ = "I WILL TRADE YOU MY " +PS$( PEEK(15907)): GOSUB 18:RP$ = "FOR YOUR " +PS$(F2): GOSUB 18:RP$ = "WILL YOU DO IT?": GOSUB 16: IF AD% < >30 THEN 161
167 POKE PS% +F2, PEEK(PS% +F2) -1:TP% = PEEK(15907): GOSUB 22:RP$ = "DONE": GOSUB 15: GOTO 190
168 IF F2% = 3 OR (F2% = 5 AND T8% = 1) OR (F2% = 6 AND T8% >1) OR (F2% = 8 AND T8% = 5) THEN TP = FN D(4) *500: GOTO 178
169 IF (F3% = 1 AND T8% = 1) OR (F3% = 2 AND T8% = 3) THEN TP = FN D(4) *500:TP$ = "KILLING AN EMPLOYEE": POKE 15929,0: GOTO 186
170 IF FN D(20) < PEEK(16142) THEN 185
171 RP$ = "HMMMPH!": GOSUB 15: GOTO 190
172 IF T8% = 4 THEN 137
173 IF NOT F2% OR F2% >2 OR PEEK(16131) = 2 THEN 185
174 RP$ = "YOU HAVE HELPED THE POOR": GOSUB 18:RP$ = "WOULD YOU LIKE TO BE A MISSIONARY?": GOSUB 16: IF AD% = 30 THEN POKE 16131,2:RP$ = "WELCOME TO THE FLOCK": GOSUB 15: GOTO 190
175 RP$ = "MAY THE LORD OF LIGHT BE WITH YOU": GOSUB 15: GOTO 190
176 RP$ = "DROP YOUR WEAPONS":F1% = 1: GOSUB 16:TP% = 0: FOR I = 1 TO 9:TP% = TP% OR PEEK(PS% +I): NEXT : IF TP% AND FN D(20) < PEEK(15913) THEN RP$ = "SINCE YOU WON'T COMPLY..": GOSUB 15: GOTO 192
177 RETURN
178 MY = MY +TP:RP$ = "I AM REWARDING YOU FOR KILLING A": GOSUB 18:RP$ = PR$(F3%) +". HERE IS " + STR$(TP) +" CREDITS": POKE 15929,0: GOTO 18
179 MY = MY +TP:RP$ = "I AM REWARDING YOU FOR AIDING A": GOSUB 18:RP$ = PR$(F2%) +" I KNOW. HERE IS ": GOSUB 18:RP$ = STR$(TP) +" CREDITS": POKE 15930,0: GOTO 18
180 F1% = 1:RP$ = "YOU'RE THE ONE WHO AIDED THE": GOSUB 18:RP$ = PR$(F2%): GOSUB 18: POKE 15930,0: GOTO 192
181 F1% = 1:RP$ = "YOU'RE THE ONE WHO KILLED THE": GOSUB 18:RP$ = PR$(F3%): GOSUB 18: POKE 15929,0: GOTO 192
182 RP$ = "PLEASE, GIVE ME SOME FOOD": GOSUB 16: IF VB% = 14 AND OB% = 22 THEN POKE 15930,F1:RP$ = "THANK YOU": GOSUB 15: GOTO 190
183 TP% = PEEK(PS% +22): IF FN D( PEEK(15916)) > FN D( PEEK(16142)) AND TP% THEN POKE PS% +22,TP% -1: IF FN D(20) < PEEK(16140)/2 THEN RP$ = "SOMEONE IS STEALING FOOD": GOTO 16
184 RP$ = "THANKS FOR NOTHING": GOSUB 15: ON ( FN D(4) = 1) +1 GOTO 190,192
185 RP$ = "LET ME GIVE YOU SOME OF MY FOOD": GOSUB 15:TP% = 22: GOSUB 22: RETURN
186 F2 = TP:RP$ = "THERE IS A FINE OF " + STR$(F2) +" CREDITS FOR": GOSUB 18:RP$ = TP$:F1% = 1: GOSUB 16: IF MY 14 OR OB% < >130 THEN TP = INT(F2/10) +1:RP$ = "FAILURE TO PAY FINE IS A JAIL TERM": GOSUB 18: GOTO 188
187 MY = MY -F2: RETURN
188 FOR I = 1 TO 500: POKE 49236,0: POKE 49237,0: NEXT :TM = TM +TP *43200:OE = TM +20160:OD = TM +10080:RP$ = "YOUR JAIL TERM OF " + STR$(TP) +" MONTHS IS OVER": GOSUB 15: GOTO 190
189 DD% = 1:TP% = 1: GOTO 191
190 TP% = 3
191 POKE 15928,3: GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB."TP%: END
192 TP% = 6: GOTO 191
193 POKE 15908, FN D(30): FOR I = 0 TO 2: POKE 15905 +I,0: NEXT : FOR I = 0 TO 9: POKE 15909 +I,3 * FN D(6): NEXT : ON F1 GOTO 194,197,203,204,206,208,210,211,211,212
194 POKE 15905,2 +( FN D(3) = 3): IF FN D(2) = 2 THEN GOSUB 214
195 IF FN D(20) = 7 THEN POKE 15907,34
196 RETURN
197 : POKE 15905,2 +( FN D(4) <4): IF AM% < >133 THEN POKE 15906,18: POKE 15907,29: RETURN
198 IF FN D(3) = 2 THEN 214
199 IF NOT T7% THEN POKE 15907,33 + FN D(4): RETURN
200 IF T7% = 1 THEN POKE 15907,22 + FN D(5): RETURN
201 POKE 15907,43 + FN D(2): IF FN D(3) = 1 THEN POKE 15907,48: RETURN
202 RETURN
203 GOSUB 214: POKE 15906,14 +(T7% = 2): POKE 15905,T7% *2 +2: RETURN
204 POKE 15906,14 +T7%: POKE 15905,3 +T7% *3 -(T7% = 2): IF FN D(5) <5 THEN POKE 15907,42 +T7% *5 -(T7% = 2) *9
205 RETURN
206 POKE 15905,1 +T7% *3 +(T7% = 2): POKE 15906,14: GOSUB 214: IF FN D(2) -1 THEN POKE 15907,42 +T7% *5 -(T7% = 2) *9: IF PEEK(15907) >48 THEN POKE 15907,0
207 RETURN
208 POKE 15905,2 +T7%: GOSUB 214: IF FN D(2) -1 THEN POKE 15907,25
209 POKE 15906,14 +(T7% >0): RETURN
210 POKE 15905,2 +(T7% >0): POKE 15907,19 + FN D(15): RETURN
211 POKE 15905,3 +T7% +(T7% = 2) *2: POKE 15906,14: POKE 15907,17 + FN D(20): RETURN
212 POKE 15905,2 +T7% +(T7% = 2) *2: GOSUB 214: IF FN D(3) <3 OR T8% = 4 THEN POKE 15907,37 + FN D(2): IF FN D(50) = 8 THEN POKE 15907,49
213 RETURN
214 POKE 15907,20 +( FN D(2) = 1) *2: RETURN
215 GOSUB 2:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
216 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.7": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.8.bas:
0 CALL 36281: ONERR GOTO 195
1 ZZ = FRE(0): GOTO 28
2 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
3 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
4 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 4
5 POKE KP%,0: IF KY% < >160 THEN 4
6 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
7 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
8 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 8
9 POKE KP%,0: IF KY% < >160 THEN 8
10 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
11 RP$ = RY$ +AR$(TP%): GOSUB 15: GOSUB 7:TP = DC% < = PEEK(AR% +TP%): RETURN
12 IF OB% >50 THEN POP : GOTO 49
13 IF NOT PEEK(PS% +OB%) THEN RP$ = "YOU DON'T OWN A " +PS$(OB%): POP : GOTO 17
14 RETURN
15 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
16 GOSUB 15: GOTO 37
17 GOSUB 18: GOTO 37
18 GOSUB 15: GOTO 3
19 TP% = PEEK(16137):TP = PEEK(16146): IF TP > INT(TP%/2) OR PEEK(16147) >TP% THEN 175
20 IF TP > INT(TP%/2) -2 OR PEEK(16147) >TP% -2 THEN RP$ = "YOU ARE NEAR DEATH": GOSUB 18
21 FOR I = 2 TO 5:TP = PEEK(BD% +I): IF TP >100 OR TP < INT(TP%/2 +.5) -1 THEN 24
22 IF TP < = INT(TP%/2 +.5) THEN RP$ = "YOUR " +BD$(I) +" IS SERIOUSLY HURT": GOSUB 18: GOTO 24
23 RP$ = "YOU HAVE LOST YOUR " +BD$(I): GOSUB 18: POKE (BD% +I),255:TP% = 2 +(I >3) *6: POKE AR% +TP%, INT( PEEK(AR% +TP%)/2)
24 NEXT : RETURN
25 FOR I = 0 TO 1: POKE (BD% +I), PEEK(BD% +I) +1: NEXT : GOTO 19
26 FOR I = 0 TO 5:TP = PEEK(BD% +I): IF TP <255 AND FN D(3) = 1 THEN POKE BD% +I,TP + FN D(4)
27 NEXT : GOTO 19
28 CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
29 DEF FN T(I) = TP%/I = INT(TP%/I)
30 FOR I = 1 TO 3: READ TP%(I): NEXT : DATA 1,3,5
31 F1 = 0:F1% = 0:F2% = 3:F3% = 3:TP% = 7:F4% = 7:F5% = 0:F6% = 0: IF PEEK(PS% +33) THEN F6% = 1
32 IF PEEK(PS% +23) THEN F6% = 3
33 IF PEEK(PS% +48) THEN F6% = 2
34 POKE 15878,( PEEK(16141) >0) *41:TP = PEEK(16246): IF TP THEN POKE 15878,46
35 GOSUB 190: GOSUB 182
36 GOSUB 37: GOTO 36
37 FOR I = 0 TO 2: POKE 30724 +I,255: NEXT : GOSUB 94: CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726): IF F5% AND VB% >5 AND AD% >18 THEN 49
38 IF VB% <5 OR AD% <19 THEN 106
39 IF VB% = 41 AND PEEK(15878) = OB% THEN POKE 15878,0: GOSUB 182: GOTO 51
40 IF ((OB% = 23 OR OB% = 33 OR OB% = 48) AND PEEK(PS% +OB%)) OR VB% = 81 THEN GOSUB 184: GOTO 81
41 IF OB% = 46 OR OB% = 41 THEN POKE 15878,OB%: GOSUB 182: GOTO 51
42 IF VB% >29 THEN ON VB% -29 GOTO 73,69,77,52,54
43 IF VB% >39 THEN ON VB% -39 GOTO 56,60
44 IF VB% = 63 THEN VB% = 71
45 IF VB% >69 THEN ON VB% -69 GOTO 63,66
46 IF OB% >43 AND OB% <46 THEN GOSUB 12: ON OB% -43 GOTO 79,86
47 IF OB% = 150 THEN 89
48 IF OB% = 151 THEN 92
49 IF VB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 16
50 RP$ = "REPHRASE YOUR COMMAND": GOTO 16
51 RP$ = "BY YOUR COMMAND": GOTO 16
52 TP = 16222:TP% = PEEK(TP): IF NOT TP% THEN RP$ = "YOU HAVE NO FOOD": GOTO 16
53 POKE TP,TP% -1:OE = OE +20160: GOTO 51
54 TP = 16220:TP% = PEEK(TP): IF NOT TP% THEN RP$ = "YOU HAVE NO WATER": GOTO 16
55 POKE TP,TP% -1:OD = OD +10080: GOTO 51
56 GOSUB 12: IF OB% <14 OR OB% >19 THEN 49
57 IF OB% = 18 AND NOT PEEK(PS% +29) THEN RP$ = "YOU'LL NEED AN AIR TANK": GOTO 16
58 IF OB% = 18 THEN OA = TM +1440: POKE PS% +29, PEEK(PS% +29) -1
59 POKE 15871 +OB%,5: GOTO 51
60 GOSUB 12: IF OB% <14 OR OB% >18 THEN 49
61 IF OB% = 18 THEN OA = 0
62 POKE 15871 +OB%,0: GOTO 51
63 FOR I = 1 TO 49:TP% = PEEK(PS% +I): IF TP% THEN RP$ = PS$(I) +" - " + STR$(TP%): GOSUB 18
64 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%): GOSUB 18
65 NEXT :RP$ = "MONEY - " + STR$(MY): GOTO 16
66 TP = PEEK(FS%) + PEEK(AG%) +TM/525600:TP$ = " A.E.": IF TP <200 THEN TP$ = " B.E."
67 RP$ = "YEAR: " + STR$( INT( ABS(TP -200))) +TP$ +" DAY: ":TP = (TP - INT(TP)) *365
68 RP$ = RP$ + STR$( INT(TP)) +" TIME: " + STR$( INT((TP - INT(TP)) *81)): GOTO 16
69 TP% = F4%: IF NOT FN T(3) OR FN D(20) > PEEK(16140) THEN RP$ = "YOU SEE NOTHING": GOTO 16
70 IF MN% = 9 THEN RP$ = "HERE ARE SOME WHITE ROCKS": GOTO 16
71 RP$ = "HERE IS A MINERAL VEIN": IF FN D(20) < PEEK(16141) THEN RP$ = "THERE IS " +MN$(MN%) +" HERE"
72 GOTO 16
73 IF PEEK(15889) THEN 76
74 TP = FN D(20) < PEEK(16140): IF F1 -TM < FN D(75) AND TP AND F1 THEN RP$ = "YOU HEAR RUMBLING": GOTO 16
75 IF ( NOT PEEK(15877) OR PEEK(15887) = 7) AND TP THEN RP$ = "YOU HEAR WATER BEHIND THE ROCKS": GOTO 16
76 RP$ = "YOU HEAR NOTHING": GOTO 16
77 TP% = F4%: IF FN T(5) AND FN D(20) < PEEK(16140) AND NOT ( PEEK(15889) OR PEEK(15890)) THEN RP$ = "YOU SMELL GAS": GOTO 16
78 RP$ = "YOU SMELL NOTHING": GOTO 16
79 RP$ = "NO METAL": IF MN% <5 OR MN% = 6 THEN RP$ = "THERE IS METAL NEARBY":TP% = F4%: IF FN T(3) THEN RP$ = "THERE IS METAL HERE"
80 GOTO 16
81 IF PEEK(16160 +MN%) >248 THEN RP$ = "YOU CAN MINE NO MORE " +MN$(MN%): GOTO 16
82 TP% = 0: GOSUB 145:TP% = 2: GOSUB 11:TP% = F4%: IF NOT FN T(3) OR NOT TP OR (MN% = 9 AND F1% <3) THEN RP$ = "NOTHING YET": GOTO 16
83 TP% = FN D(F1% +1):TP = 16160 +MN%: POKE TP, PEEK(TP) +TP%: IF MN% = 9 THEN TP = PEEK(16249) +TP%: IF TP <255 THEN POKE 16249,TP
84 RP$ = "YOU'VE MINED " + STR$(TP%) +" UNITS OF " +MN$(MN%): IF FN D(30) -1 8 THEN FOR I = 1 TO 10: FOR J = 1 TO 100: NEXT J:ZZ = PEEK(SP%): NEXT I: GOTO 37
87 TP% = F4%: IF FN T(3) THEN FOR I = 1 TO 100:ZZ = PEEK(SP%): NEXT : GOTO 37
88 FOR I = 1 TO 50: FOR J = 1 TO 10: NEXT J:ZZ = PEEK(SP%): NEXT I: GOTO 37
89 IF NOT PEEK(16202) THEN RP$ = "YOU NEED A STICK": GOTO 17
90 TM = TM +5:TP% = 0: GOSUB 11: IF NOT TP THEN RP$ = "YOU COULDN'T LIGHT IT": GOTO 17
91 POKE 15878,1:RP$ = "YOU HAVE A TORCH": GOSUB 177: GOTO 17
92 TP% = 9: GOSUB 11: IF TP THEN GOSUB 189:TP% = 3: GOTO 176
93 RP$ = "NOTHING HAPPENED":TM = TM + FN D(30): GOTO 16
94 TP = 16229:TP% = 15889: IF TM >OA AND OA AND PEEK(TP) THEN POKE TP, PEEK(TP) -1:OA = TM +1440: GOTO 97
95 IF TM >OA AND OA AND FN D(20) < PEEK(16137) THEN RP$ = "YOU ARE LOW ON AIR": GOTO 18: GOTO 97
96 IF (OA 4) AND NOT PEEK(TP)) THEN RP$ = "YOU ARE SUFFOCATING": GOSUB 15: GOTO 175
97 IF OE AND OE PEEK(16137) THEN GOSUB 25
98 IF OD AND OD PEEK(16137) THEN GOSUB 25
99 IF F1 AND F1 99 - PEEK(16137) AND NOT ( PEEK(15889) OR PEEK(15890)) THEN RP$ = "GAS INHALATION": GOSUB 18: GOSUB 25
102 IF FN D(10000) <100 - PEEK(15878) THEN POKE 15878,0:RP$ = "YOUR LIGHT HAS GONE OUT": GOSUB 18: GOSUB 182
103 IF T4% >4 AND FN D(99) = 1 THEN POKE PS% +40 + FN D(6),0:RP$ = "ATMOSPHERE DAMAGE TO EQUIPMENT": GOSUB 18
104 TP% = F4%: IF MN% = 8 AND NOT PEEK(15889) AND FN D(40) = 1 AND FN T(3) THEN RP$ = "YOU HAVE RADIATION POISONING": GOSUB 18: GOSUB 25
105 RETURN
106 IF F5% THEN 142
107 IF VB% = 4 AND NOT F1% THEN TP% = 3: GOTO 176
108 V1% = F1%:H1% = F2%:F7% = F3%: GOSUB 157:F4% = TP%: ON AD% GOTO 131,137,126,118,114,110,118,126,109,109,131,137
109 RP$ = "INAPPROPRIATE DIRECTION": GOTO 16
110 IF F1% = 5 THEN RP$ = "YOU ARE AT THE MAXIMUM DEPTH": GOTO 16
111 TP% = F4%: IF FN T(2) THEN 153
112 TP% = 0: GOSUB 145:TP% = 2: GOSUB 11: IF TP THEN 153
113 RP$ = "YOU MUST DIG MORE": GOTO 16
114 IF NOT F1% THEN 109
115 V1% = F1% -1:H1% = F2%:F7% = F3%: GOSUB 157: IF NOT FN T(2) THEN 109
116 TP% = 2: GOSUB 11:TP = TP OR FN D(20) >( PEEK(16224) OR PEEK(16225)): IF NOT TP OR FN D(200) 5 THEN H1% = 0: GOSUB 190:F2% = 0: GOSUB 182:Y1% = Y1% +1: IF Y1% >3 THEN Y1% = 0:Y% = Y% +1: IF Y% >T1% THEN Y% = 0
130 GOTO 122
131 IF NOT (F1% OR F3%) THEN TP% = 3: GOTO 176
132 IF F3% THEN F7% = F3% -1: GOSUB 157: IF FN T(7) OR NOT F1% THEN F3% = F7%: GOSUB 182:TP% = 0: GOSUB 152: GOTO 51
133 TP% = 0: GOSUB 145:TP% = 2: GOSUB 11: IF NOT TP% THEN 124
134 GOSUB 171:F3% = F3% -1: IF F3% <0 THEN GOSUB 190:F3% = 5:X1% = X1% -1: IF X1% = 0 THEN X1% = 3:X% = X% -1: IF X% <0 THEN X% = T1%
135 GOSUB 194:T7% = F3%: GOSUB 157: IF NOT FN T(7) THEN TP% = TP% *7: GOSUB 156
136 GOSUB 177:F4% = TP%: GOTO 51
137 IF NOT F1% AND F3% = 5 THEN TP% = 3: GOTO 176
138 IF F3% <5 THEN F7% = F3% +1: GOSUB 157: IF FN T(7) OR NOT F1% THEN F3% = F7%: GOSUB 182:TP% = 0: GOSUB 152: GOTO 51
139 TP% = 0: GOSUB 145:TP% = 2: GOSUB 11: IF NOT TP% THEN 124
140 GOSUB 171:F3% = F3% +1: IF F3% >5 THEN GOSUB 190:F3% = 0:X1% = X1% +1: IF X1% >3 THEN X1% = 0:X% = X% +1: IF X% >T1% THEN X% = 0
141 GOTO 135
142 TP% = 2: GOSUB 11: IF DC% = 20 THEN GOSUB 26
143 IF TP AND FN D(3) >2 -( PEEK(16223) AND PEEK(16224)) THEN RP$ = "YOU HAVE FREED YOURSELF": GOSUB 188:F5% = 0: GOSUB 148:TP% = 0: GOSUB 152: GOTO 16
144 TM = TM + FN D(30):RP$ = "YOU ARE TRAPPED": GOTO 16
145 HTAB F2% *6 +4 -TP%:T1 = 115: GOTO 147
146 HTAB F2% *6 +7 -TP%:T1 = 121
147 PRINT "@"AM% * NOT F1%"KG@";: VTAB F1% *3 +3: FOR I = 1 TO 10: FOR J = 0 TO 1: PRINT CHR$(T1 +F6% +J *3)"@B@";:ZZ = PEEK(SP%): NEXT J,I:TM = TM +TP%(F6%) *T2%: PRINT "@0KR@": RETURN
148 H1% = F2%:V1% = F1%:F7% = F3%: VTAB F1% *3 +2: HTAB F2% *6 +3: PRINT "@L"AM% * NOT F1%"K@ @2B@";: IF F3% <5 THEN F7% = F3% +1: GOSUB 157: IF FN T(7) THEN PRINT "@130K@ @B@";
149 IF F3% THEN F7% = F3% -1: GOSUB 157: IF FN T(7) THEN PRINT "@143C@" CHR$(28)"@15CB@";
150 PRINT "@15C0K@";:F7% = F3%: GOSUB 157: IF FN T(2) THEN VTAB F1% *3 +4: PRINT "@R@ "
151 PRINT "@R@": RETURN
152 VTAB F1% *3 +2: HTAB F2% *6 +5 -TP%: PRINT "@L"143 -128 *(AM% <128 AND NOT F1%)"CE@" CHR$(122)"@ER15C@": RETURN
153 VTAB F1% *3 +4: HTAB F2% *6 +5: PRINT SPC( 2):TP% = F4%: IF NOT FN T(2) THEN TP% = TP% *2: GOSUB 156:TP% = 0: FOR I3 = 1 TO 3: GOSUB 145: NEXT I3
154 GOSUB 148:F1% = F1% +1:V1% = F1%:H1% = F2%:F7% = F3%: GOSUB 157: IF NOT FN T(7) THEN TP% = TP% *7: GOSUB 156
155 F4% = TP%: PRINT "@L@": VTAB F1% *3 +2: HTAB F2% *6 +3: PRINT SPC( 3)"@R@": GOSUB 188:TP% = 0: GOSUB 152: GOTO 51
156 POKE 15360 +(V1% *6 +H1%) *6 +F7%,TP%: RETURN
157 TP = X% *T1% +Y%:TP% = 1: POKE 15877,TR%: IF H1% >5 THEN 164
158 IF H1% <0 THEN 162
159 IF F7% >5 THEN 168
160 IF F7% <0 THEN 166
161 TP% = PEEK(15360 +(V1% *6 +H1%) *6 +F7%): RETURN
162 IF NOT Y1% THEN TP = X% *T1% +Y% -1: IF NOT Y% THEN TP = X% *T1% +T1%
163 GOTO 169
164 IF Y1% = 3 THEN TP% = X% *T1% +Y% +1: IF Y% = T1% THEN TP = X% *T1%
165 GOTO 169
166 IF NOT X1% THEN TP = (X% -1) *T1% +Y%: IF NOT X% THEN TP = T1% *T1% +Y%
167 GOTO 169
168 IF X1% = 3 THEN TP% = (X% +1) *T1% +Y%: IF X% = T1% THEN TP = Y%
169 TP = PEEK(15616 +TP): IF TP >100 THEN TP = TP -100
170 TP = TP - INT(TP/10) *10: POKE 15877,TP: RETURN
171 IF PEEK(15877) AND NOT ( PEEK(15877) = 7 AND FN D(10) = 1) THEN RETURN
172 PRINT "@L133K@": VTAB F1% *3 +2: HTAB F2% *6 +3: PRINT SPC( 3)"@0T0KR@":RP$ = "THE CAVERN HAS FLOODED": GOSUB 15: GOTO 175
173 IF PEEK(15877) AND NOT ( PEEK(15877) = 7 AND FN D(10) = 1) THEN RETURN
174 PRINT "@G133K@": VTAB F1% *3 +2: FOR I = 135 TO 128 STEP -1: HTAB F2% *6 +3 +(AD% = 11) *2 +(AD% = 3 OR AD% = 8) *5: PRINT "@"I"C@" CHR$(12):ZZ = PEEK(SP%): NEXT I
175 DD% = 1:TP% = 1
176 GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB."TP%: END
177 T1 = F1%:T2 = F2%: PRINT "@L15C"AM%"KL1V1H@" SPC( 19)"@1H@" CHR$(100 +TR%)"@37H@" CHR$(100 +TR%)"@130K@": FOR I = 1 TO 8: PRINT "@1H@" SPC( 19)""
178 NEXT : PRINT "@0K1V@": FOR I = 0 TO 5:TP% = PEEK(15360 +I *6 +F3%): IF FN T(2) THEN HTAB I *6 +5: PRINT SPC( 1)
179 NEXT I: FOR I = 1 TO 5: FOR J = 0 TO 5:TP% = PEEK(15360 +(I *6 +J) *6 +F3%)
180 IF FN T(7) THEN F1% = I:F2% = J: GOSUB 148
181 NEXT J,I:TP% = 0:F1% = T1:F2% = T2: GOTO 152
182 IF PEEK(15878) THEN 177
183 PRINT "@L15C0K3V@";: FOR I = 1 TO 8: PRINT "@1H@" SPC( 19)"": NEXT :RP$ = "YOU HAVE NO LIGHT": GOTO 18
184 IF OB% = 33 THEN F6% = 1
185 IF OB% = 23 THEN F6% = 3
186 IF OB% = 48 THEN F6% = 2
187 RETURN
188 F1 = (TM +(T2% +7 -F1%) * FN D(30)) *(F1% >0): RETURN
189 VTAB F1% *3 +2: HTAB F2% *6 +5: FOR I = 128 TO 143: PRINT "@"I"CL@" CHR$(29)"@BR15C@";: FOR J = 1 TO 20:ZZ = PEEK(SP%): NEXT J,I: RETURN
190 TP = 15360:BD = 90:T2% = PEEK(15870):T4% = PEEK(15868): FOR I = 0 TO 215:TP% = 1: IF FN D(BD) 253 THEN CALL 35339: RESUME
196 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.8": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WB.9.bas:
0 CALL 36281: ONERR GOTO 231
1 ZZ = FRE(0): GOTO 39
2 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
3 CALL 35339: PRINT IV$S1$"PRESS TO CONTINUE..."
4 KY% = PEEK(KS%):ZZ = RND(1): IF KY% <128 THEN 4
5 POKE KP%,0: IF KY% < >160 THEN 4
6 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
7 CALL 35339: PRINT IV$S1$"PRESS TO ROLL DIE..."
8 DC% = FN D(20): PRINT "@22V36H@ @3B@"DC%:ZZ = PEEK(SP%):KY% = PEEK(KS%): IF KY% <128 THEN 8
9 POKE KP%,0: IF KY% < >160 THEN 8
10 PRINT IV$S1$ SPC( 34)S2$ SPC( 38): RETURN
11 RP$ = RY$ +AR$(TP%): GOSUB 16: GOSUB 7:TP = DC% < = PEEK(AR% +TP%): IF NOT TP THEN RP$ = "YOU HAVE STRAYED": GOTO 19
12 RETURN
13 IF OB% >49 OR NOT PEEK(PS% +OB%) THEN RP$ = "YOU HAVE NONE": GOSUB 19: POP : GOTO 30
14 RETURN
15 TP% = PEEK(PS% +OB%): POKE PS% +OB%,TP% -(TP% >0): RETURN
16 PRINT S2$"@R30X30YN@" SPC( 38)"@2H@"RP$: RETURN
17 GOSUB 16: GOTO 47
18 GOSUB 19: GOTO 47
19 GOSUB 16: GOTO 3
20 TP% = PEEK(16137):TP = PEEK(16146): IF TP > INT(TP%/2) OR PEEK(16147) >TP% THEN 218
21 IF TP > INT(TP%/2) -2 OR PEEK(16147) >TP% -2 THEN RP$ = "YOU ARE NEAR DEATH": GOSUB 19
22 FOR I = 2 TO 5:TP = PEEK(BD% +I): IF TP >100 OR TP < INT(TP%/2 +.5) -1 THEN 25
23 IF TP < = INT(TP%/2 +.5) THEN RP$ = "YOUR " +BD$(I) +" IS SERIOUSLY HURT": GOSUB 19: GOTO 25
24 RP$ = "YOU HAVE LOST YOUR " +BD$(I): GOSUB 19: POKE (BD% +I),255:TP% = 2 +(I >3) *6: POKE AR% +TP%, INT( PEEK(AR% +TP%)/2)
25 NEXT : RETURN
26 FOR I = 0 TO 1: POKE (BD% +I), PEEK(BD% +I) +1: NEXT : GOTO 20
27 FOR I = 0 TO 5:TP = PEEK(BD% +I): IF TP <255 AND FN D(3) = 1 THEN POKE BD% +I,TP + FN D(4)
28 NEXT : GOTO 20
29 RP$ = "THE PEOPLE ARE PUZZLED":F4% = F4% -5 + FN D(9):F5% = F5% +4 - FN D(9): GOTO 19
30 RP$ = "THE PEOPLE ARE CONFUSED":F4% = F4% - FN D(9):F5% = F5% - FN D(20): GOTO 19
31 RP$ = "THE PEOPLE ARE PLEASED":F4% = F4% -5 + FN D(20):F5% = F5% + FN D(5): GOTO 19
32 RP$ = "THE PEOPLE ARE UPSET":F4% = F4% - FN D(20):F5% = F5% - FN D(30): GOTO 19
33 RP$ = "A MIRACLE!":F4% = F4% + FN D(30):F5% = F5% + FN D(30): GOTO 19
34 RP$ = "BLASPHEMY!":F4% = F4% - FN D(40):F5% = F5% - FN D(40): GOTO 19
35 RP$ = "YOU HAVE PASSED THE TEST":F4% = F4% + FN D(20):F5% = F5% + FN D(10): GOTO 19
36 F3% = F3% + NOT F3%: GOTO 35
37 F3% = F3% +(F3% = 1): GOTO 35
38 F3% = F3% +(F3% = 2): GOTO 35
39 CALL 35339: DEF FN D(I) = INT( RND(1) *I) +1
40 F1 = 0: GOSUB 220:F3% = PEEK(16169 +F1%): IF F3% >3 THEN RP$ = "YOU HAVE TRANSCENDED ALL OF THIS": GOSUB 16:TP% = 3: GOTO 219
41 IF F1% = 4 AND F3% = 3 THEN 213
42 TP% = F1% <4: FOR I = 1 TO 3:TP% = TP% AND PEEK(16169 +I) = 3: NEXT : IF TP% THEN 207
43 IF F3% = 3 THEN RP$ = "YOU ARE MASTER OF THIS SECT": GOSUB 19
44 TP% = F3% +1:F2% = 10 *TP%:F4% = F2%:F5% = F2%: POKE 15361,0
45 FOR I = 1 TO 3: READ TP$(I): NEXT : DATA WINE,POISON,BLOOD
46 GOSUB 157: GOSUB 47: GOTO 46
47 GOSUB 226: ON VB% GOTO 209,30,67,65: IF VB% = 63 THEN VB% = 71
48 IF VB% >9 THEN ON VB% -9 GOTO 74,30,30,76,86,74,30,91
49 IF VB% = 21 THEN 95
50 IF VB% >19 AND VB% <29 THEN 93
51 IF VB% >29 THEN ON VB% -29 GOTO 100,107,112,120,114
52 IF VB% = 41 THEN 98
53 IF VB% = 50 THEN 146
54 IF VB% = 55 THEN 133
55 IF VB% >69 THEN ON VB% -69 GOTO 78,81
56 IF VB% = 82 THEN 84
57 IF VB% = 100 THEN 130
58 IF AD% <5 THEN 127
59 IF AD% = 23 THEN 71
60 IF AD% = 40 OR AD% = 41 THEN RETURN
61 IF AD% = 100 THEN 150
62 IF OB% = 150 THEN 146
63 IF VB% <255 OR AD% <255 OR OB% <255 THEN RP$ = "THAT WORD IS NOT USED NOW": GOTO 17
64 RP$ = "REPHRASE YOUR COMMAND": GOTO 17
65 TP% = F2% *F4%/1000: IF TP% >0 THEN MY = MY +TP%:RP$ = "YOUR COLLECTION COMES TO " + STR$(TP%) +" CREDITS": GOSUB 16
66 TP% = 5: GOTO 219
67 IF F6% < >2 THEN 69
68 TP% = 0: GOSUB 11: ON TP +1 GOTO 32,36
69 IF F6% < >54 THEN 30
70 TP% = 9: GOSUB 11: ON TP +1 GOTO 32,215
71 IF F6% < >44 THEN 29
72 TP% = 9: GOSUB 11: IF NOT (TP AND PEEK(16249)) THEN RP$ = "NOTHING HAPPENS": GOSUB 19: GOTO 32
73 RP$ = "YOU ARE RISING OFF OF THE GROUND": GOSUB 19: GOSUB 33: GOTO 38
74 IF F6% = 1 OR F6% = 41 THEN MY = MY +10 * FN D(99): GOTO 34
75 GOTO 30
76 IF F1% = 1 AND (OB% = 38 OR OB% = 39) THEN GOSUB 13:TP = 100 * FN D( PEEK(16142)):RP$ = "HERE IS " + STR$(TP) +" CREDITS FOR IT":MY = MY +TP: GOSUB 19: GOTO 29
77 GOTO 32
78 FOR I = 1 TO 49:TP% = PEEK(PS% +I): IF TP% THEN RP$ = PS$(I) +" - " + STR$(TP%): GOSUB 19
79 NEXT : FOR I = 0 TO 8:TP% = PEEK(16160 +I): IF TP% THEN RP$ = MN$(I) +" - " + STR$(TP%): GOSUB 19
80 NEXT :RP$ = "MONEY - " + STR$(MY): GOTO 17
81 TP = PEEK(FS%) + PEEK(AG%) +TM/525600:TP$ = " A.E.": IF TP <200 THEN TP$ = " B.E."
82 RP$ = "YEAR: " + STR$( INT( ABS(TP -200))) +TP$ +" DAY: ":TP = (TP - INT(TP)) *365
83 RP$ = RP$ + STR$( INT(TP)) +" TIME: " + STR$( INT((TP - INT(TP)) *1440)): GOTO 17
84 TM = TM +10 * FN D(3):TP% = 6: GOSUB 11:RP$ = "A LACKLUSTER SERMON": IF TP THEN RP$ = "A GOOD SERMON"
85 TP = -3 +6 *TP:F4% = F4% +TP * FN D(3):F5% = F5% +TP: GOTO 19
86 IF F6% = 1 AND OB% = 130 THEN TP% = 7: GOSUB 11: ON TP +1 GOTO 30,36
87 IF OB% = 130 AND F1% = 1 THEN 31
88 IF (OB% = 22 OR OB% = 20 OR OB% = 34) AND F1% = 3 THEN GOSUB 13: GOSUB 31: GOTO 15
89 IF OB% >37 AND OB% <41 THEN 34
90 GOSUB 13: GOSUB 29: GOTO 15
91 IF F1% = 1 AND OB% = 130 OR F1% = 3 AND (OB% = 22 OR OB% = 34) THEN RP$ = "THE PEOPLE SEARCH THEIR PURSES": GOSUB 19: GOTO 31
92 GOTO 32
93 IF F6% = 5 AND F1% = 2 THEN TP% = 7: GOSUB 11: ON TP +1 GOTO 30,31
94 ON (F1% = 2) +1 GOTO 34,30
95 IF F6% < >34 THEN 93
96 TP% = 0: GOSUB 11: IF NOT TP THEN RP$ = "YOU HAVE CASTRATED THE CHILD": GOSUB 19: GOTO 32
97 RP$ = "YOU HAVE PERFORMED THE CIRCUMCISION": GOSUB 19: GOTO 31
98 IF F6% < >33 THEN 30
99 GOTO 31
100 IF F1 AND F1 PEEK(16140) THEN RP$ = "THE CROWD IS CAPTIVATED": GOTO 104
103 RP$ = "AND SO SHALL YE REAP": IF F1% >1 THEN RP$ = "BLOOD IS THE WATER OF LIFE": IF F1% >2 THEN RP$ = "GO FORTH AND MUTIPLY": IF F1% >3 THEN RP$ = "POWER TO THE TRUE APEX"
104 IF F3% >1 THEN RP$ = "CONSUMABLE GOODS": IF F1% >1 THEN RP$ = "THE HEAD HAS THE TEMPLE": IF F1% >2 THEN RP$ = "UNICORN HORN": IF F1% >3 THEN RP$ = "ARISE TO THE APEX"
105 IF F6% = 32 THEN RP$ = "MUNCH...MUNCH..BURP"
106 RP$ = "..." +RP$: GOTO 17
107 IF F1 AND F1 30 THEN RP$ = "YOU SEE THE MASSES": GOTO 17
110 TP% = 9: GOSUB 11: IF NOT TP THEN GOSUB 32: GOTO 26
111 GOTO 29
112 TP% = PEEK(15360): IF TP% AND FN D(20) < PEEK(16140) THEN RP$ = "YOU SMELL " +TP$(TP%): GOTO 17
113 RP$ = "YOU SMELL NOTHING": GOTO 17
114 T1 = PEEK(15360): IF NOT T1 THEN RP$ = "THERE IS NO BOWL HERE": GOSUB 19: GOTO 30
115 RP$ = "YOU HAVE DRUNK " +TP$(T1): GOSUB 19: IF T1 = 2 THEN GOSUB 26
116 IF (T1 = 1 AND F6% = 3) OR (T1 = 2 AND F6% = 22) THEN RP$ = "YOU DRINK WISELY": GOSUB 19: ON ( FN D(2) = 1) +1 GOTO 31,119
117 IF T1 = 3 THEN 31
118 GOTO 29
119 ON T1 GOTO 36,37
120 IF F6% = 41 THEN 38
121 IF F6% < >32 THEN 29
122 IF AD% = 42 THEN FOR I = 2 TO 3: POKE BD% +I,0: NEXT
123 IF AD% = 40 THEN POKE BD%,0: GOTO 38
124 IF AD% = 41 THEN POKE BD% +1,0
125 IF AD% = 43 THEN FOR I = 4 TO 5: POKE BD% +I,0: NEXT
126 GOTO 31
127 IF F6% < >11 THEN 30
128 TP% = 5: GOSUB 11:RP$ = "A POOR PREDICTION": IF TP THEN RP$ = "A WISE PREDICTION": GOSUB 19: GOTO 31
129 GOSUB 19: GOTO 32
130 IF F6% = 12 THEN 32
131 IF F6% = 32 THEN 34
132 GOTO 30
133 GOSUB 13: IF OB% < >38 THEN 138
134 IF F6% < >5 THEN 137
135 GOSUB 15:TP% = 9: GOSUB 11:TP% = (F2% = 2) +1: IF TP THEN RP$ = "HE IS CURED": GOSUB 19: ON TP% GOTO 33,29
136 RP$ = "HE IS STILL SICK": GOSUB 19: ON TP% GOTO 32,30
137 IF F6% = 30 THEN GOSUB 15: GOTO 31
138 IF OB% < >41 THEN 141
139 IF F6% = 12 THEN 29
140 ON (F1% = 4) +1 GOTO 31,34
141 IF OB% = 3 THEN 95
142 IF OB% = 39 AND F6% = 14 THEN 31
143 IF OB% < >40 THEN 30
144 IF F6% = 33 THEN GOSUB 230: GOTO 38
145 GOTO 34
146 IF OB% < >150 THEN 30
147 IF F1% = 4 THEN 34
148 IF F6% AND F6% < >12 THEN 29
149 TP% = 0: GOSUB 11: ON TP +1 GOTO 32,31
150 IF OB% = 150 AND F1% = 4 THEN 34
151 IF OB% = 151 AND F1% = 4 THEN ON (F6% = 4) +1 GOTO 31,36
152 IF OB% = 151 THEN 34
153 IF F6% < >13 THEN ON (F6% = 33) +1 GOTO 30,34
154 TP% = 6: GOSUB 11: GOSUB 230: IF NOT TP THEN RP$ = "NO CHILD WILL COME OF IT": GOSUB 19: GOTO 32
155 TP% = 1: GOSUB 11: IF NOT TP THEN RP$ = "YOU HAVE CONTRACTED SYPHILIS": GOSUB 19: GOSUB 26
156 RP$ = "A CHILD WAS CONCIEVED": GOSUB 19: GOTO 31
157 POKE 15360,0:F2% = F2% +F4%/99: IF F2% >100 THEN 159
158 F2% = F2% +F4%/99: GOSUB 225: IF F4% < -50 AND F3% THEN F3% = F3% -1:F4% = -25
159 IF F1 AND F1 2 THEN RP$ = "CONQUER OTHER SECTS, MASTER": GOTO 16
165 IF NOT F3% AND F4% > FN D(20) +20 THEN RP$ = " IS PLACED BEFORE YOU":F6% = F1%: ON F6% GOTO 175,176,177,178
166 IF NOT F3% THEN 162
167 IF FN D(2) = 1 THEN RP$ = "I BRING YOU ONE WHO IS SICK":F6% = 5: GOTO 16
168 IF FN D(2) = 1 THEN F6% = F1% +10: ON F1% GOTO 179,180,181,183
169 IF F3% = 1 AND F4% >40 + FN D(50) THEN F6% = 20 +F1%: ON F1% GOTO 184,187,188,190
170 IF F3% <2 THEN 162
171 IF FN D(2) = 1 THEN RP$ = "YOU ARE GIVEN THE EVIL EYE":F6% = 30: GOTO 16
172 IF FN D(2) = 1 THEN F6% = 30 +F1%: ON F1% GOTO 195,197,201,202
173 IF F3% = 2 AND FN D(2) = 1 THEN F6% = 30 +F1%: ON F1% GOTO 203,197,201,204
174 GOTO 162
175 RP$ = "MONEY" +RP$: GOTO 16
176 RP$ = "HOT COAL" +RP$: GOTO 16
177 RP$ = "WINE" +RP$: POKE 15360, FN D(2): GOTO 16
178 RP$ = "GIVE PRAISE TO THE LORD OF LIGHT": GOTO 16
179 RP$ = "WHERE SHOULD I SELL, WISE ONE?": GOTO 16
180 RP$ = "A WITCH IS TO BE BURNED AT THE STAKE": GOTO 16
181 RP$ = "HERE IS A UNFERTILE MAN": IF PEEK(16130) THEN RP$ = "HERE IS A BARREN WOMAN"
182 GOTO 16
183 RP$ = "BRING GOOD FORTUNE TO MY BABY": GOTO 16
184 GOSUB 205: IF TP% = <4 OR TP% = 6 THEN ON (AD% = 30) +1 GOTO 30,37
185 IF AD% = 30 THEN N1$ = PR$( PEEK(15903)):TP% = 6: GOTO 219
186 GOTO 31
187 RP$ = "POISON IS PLACED BEFORE YOU": POKE 15360,2: GOTO 16
188 GOSUB 205: IF TP% = 3 OR TP% = 5 THEN ON (AD% = 30) +1 GOTO 30,37
189 GOTO 185
190 PRINT "@130C0KGI@": VTAB 12: FOR I = 1 TO 8: HTAB 18: PRINT SPC( 6): NEXT : VTAB 13: FOR I = 1 TO 3: FOR J = 0 TO 1: HTAB 19 +J: PRINT "T T": NEXT J,I: PRINT "@I15C0KR@"
191 RP$ = "A DEADLY SNAKE HAS BEEN PLACED": GOSUB 19:RP$ = "SOMEWHERE IN THIS TREE STUMP": GOSUB 19:T1% = FN D(5)
192 FOR I = 1 TO T1%:RP$ = "PLACE A HAND IN ONE OF THE HOLES": GOSUB 16: GOSUB 227: IF AD% = 41 THEN I = 9: NEXT I: GOTO 32
193 TP% = 9: GOSUB 11: IF NOT TP THEN I = 9:RP$ = "IT BIT YOU!": NEXT I: GOSUB 19: GOTO 26
194 RP$ = "IT WASN'T IN THAT HOLE": GOSUB 19: NEXT I: GOTO 37
195 RP$ = "A BAR OF IRON IS PLACED BEFORE YOU": GOSUB 19:TP% = 9: GOSUB 11: IF TP THEN RP$ = "IT HAS TURNED TO GOLD": GOSUB 19:MY = MY +200: GOTO 33
196 RP$ = "THE BAR REMAINS THE SAME": GOSUB 19: GOTO 32
197 T1 = FN D(9): PRINT "@I1V@";: FOR I = 1 TO 4: HTAB 19: PRINT " ": NEXT : PRINT "@IL15C133K5V18H@ @D18H@" CHR$(108 +T1)"@0KR@":RP$ = "WE SHALL SACRIFICE A " +PR$(T1): GOSUB 19
198 RP$ = "PRESS ANY KEY TO INTERVENE": GOSUB 16: POKE KP%,0: FOR I = 0 TO 36: HCOLOR= 6: HPLOT 126,8 +I TO 139,8 +I: HCOLOR= 3: HPLOT 126,35 +I TO 139,35 +I:ZZ = PEEK(SP%)
199 IF PEEK(KS%) >128 THEN POKE KP%,0:I = 99: NEXT : GOTO 32
200 FOR J = 1 TO 100: NEXT J,I: HCOLOR= 5: FOR I = 139 TO 110 STEP -1: HPLOT I,70 TO I,71: NEXT : FOR I = 70 TO 87: HPLOT 110,I TO 111,I: NEXT : POKE 15360,3: HCOLOR= 3: RETURN
201 RP$ = "A TEMPLE PROSTITUTE JOINS YOU": GOTO 16
202 RP$ = "A YOUNG MAN WISHES HIS PUBERTY RITE": GOTO 16
203 RP$ = "A BOWL OF GLOWING COINS APPEARS":F6% = 41: GOTO 16
204 PRINT "@L138K9V18H@" CHR$(118)"@R0K@":RP$ = "I AM THY RULER. ARISE":F6% = 44: GOTO 16
205 TP% = FN D(10): POKE 15903,TP%: POKE 15905,T7% *3 +2: POKE 15906,T7% +15: FOR I = 0 TO 9: POKE 15909 +I,3 * FN D(6): NEXT :RP$ = "WILL YOU KILL A " +PR$(TP%): GOSUB 16: GOTO 227
206 RETURN
207 F6% = 51: PRINT "@130KGI9V20H@45@I0KR@":RP$ = "A ROCK BLOCKS THE TEMPLE DOOR": GOSUB 16
208 GOSUB 47: GOTO 207
209 IF F6% < >51 THEN 30
210 TP% = 9: GOSUB 11: IF NOT TP THEN RP$ = "THE ROCK WILL NOT BUDGE": GOTO 19
211 PRINT "@L130K1V@";: FOR I = 1 TO 7: HTAB 2: PRINT SPC( 19)"": NEXT : PRINT "@135K@";: FOR I = 1 TO 2: HTAB 2: PRINT SPC( 19)"": NEXT : FOR I = 7 TO 272 STEP 3: HCOLOR= FN D(7): HPLOT 140,16 TO I,144: NEXT
212 PRINT "@0K1V19H@" CHR$(27)"@BEG13V@45@14V19HL@" CHR$(26)"@RE@":RP$ = "BEHOLD THE WHITE STONE": GOSUB 19:RP$ = "HER POWERS ARE GREAT. IT IS YOURS": GOSUB 16:TP% = PEEK(16249): POKE 16249,TP% +(TP% <255): HCOLOR= 3:F3% = 0: GOTO 6
213 F6% = 54: HCOLOR= 6: FOR I = 98 TO 167: HPLOT 133,88 TO I,144: NEXT : HCOLOR= 3:RP$ = "A PATH OF WATER LEADS THE WAY": GOSUB 16
214 GOSUB 47: GOTO 214
215 PRINT "@L1V@";: FOR I = 1 TO 7: HTAB 2: PRINT SPC( 19)"": NEXT : PRINT "@13K@";: FOR I = 1 TO 2: HTAB 2: PRINT SPC( 19)"": NEXT I: PRINT "@132K3V@";: FOR I = 1 TO 7: HTAB 4: PRINT SPC( 17)"": NEXT : PRINT "@136K4V4H@ @24H@ @0KI8V@";
216 FOR I = 1 TO 4: HTAB 6: PRINT SPC( 15)"": NEXT : PRINT "@G9V@";: FOR I = 1 TO 6: HTAB 7: FOR J = 1 TO 28: PRINT "@" FN D(15)"K@U";: NEXT J: PRINT : NEXT I
217 PRINT "@R0K3V@";: FOR I = 1 TO 3: HTAB 16: PRINT SPC( 8)"": NEXT : PRINT "@4V15H@EMPIRE I@G15C132K6V3H@";: FOR I = 1 TO 34: PRINT "R";: NEXT : PRINT "@R15C0K@": GOTO 218
218 DD% = 1:TP% = 1: GOTO 219
219 POKE 16169 +F1%,F3%:N1$ = N1$ +"":F1 = PEEK(15903): POKE 15928,9: GOSUB 2: CALL 36263: PRINT CHR$(4)"RUNWB."TP%: END
220 PRINT "@L133K1V@";: FOR I = 1 TO 5: HTAB 2: PRINT SPC( 19)"": NEXT I: PRINT "@10K@";: FOR I = 1 TO 4: HTAB 2: PRINT SPC( 19)"": NEXT I: PRINT "@15C0K@"
221 IF PEEK(FS%) + PEEK(AG%) +TM/525600 >199 THEN F1% = 4: PRINT "@R@";: HCOLOR= 5: FOR I = 0 TO 63: HPLOT 133 -I,88 TO 133,16 TO 133 +I,88: NEXT : HCOLOR= 3: RETURN
222 PRINT "@I1V20H@" CHR$(27): FOR I = 1 TO 4: HTAB 21: PRINT " ": NEXT : VTAB 10: IF T8% = 4 OR T7% = 1 THEN F1% = 2: HTAB 17: PRINT " @RI@": RETURN
223 IF T8% = 1 OR NOT T7% THEN HTAB 19: PRINT " @RI@":F1% = 3: RETURN
224 F1% = 1: HCOLOR= 7: FOR I = 0 TO 1: HPLOT 140,8 +I TO 105,8 +I TO 105,42 +I TO 91,42 +I TO 119,42 +I: HPLOT 154,8 +I TO 189,8 +I TO 189,42 +I TO 207,42 +I TO 175,42 +I: NEXT : PRINT "@IR@": RETURN
225 PRINT "@L15C10K@";: FOR I = 12 TO 18 STEP 2: VTAB I: HTAB 2: FOR J = 1 TO 19: PRINT CHR$(32 +( FN D(99) < = F2%) *(76 + FN D(10)));: NEXT J,I: PRINT "@0KR@": RETURN
226 FOR J = 0 TO 2: POKE 30724 +J,255: NEXT J: CALL 30727: PRINT S2$ SPC( 38):TM = TM +1:VB% = PEEK(30724):AD% = PEEK(30725):OB% = PEEK(30726): RETURN
227 GOSUB 226: IF AD% = 30 OR AD% = 31 THEN RETURN
228 IF VB% = 4 THEN 65
229 F4% = F4% - FN D(20 - PEEK(16142)):RP$ = "PLEASE ANSWER YES OR NO": GOSUB 16: GOTO 227
230 GOSUB 2: FOR I = 1 TO 9: PRINT CHR$(4)"VERIFYCHARACTERS": NEXT : CALL 35339: RETURN
231 GOSUB 2:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
232 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WB.9": NEW : END
Text found in Empire_I_World_Builders_v1.5_1981_Edu_Ware.do/WORLD BUILDERS.bas:
0 CALL 36281: ONERR GOTO 36
1 TP = FRE(0):TP% = 0: GOTO 6
2 PR# 0: CALL 1002: PRINT : NORMAL : RETURN
3 FOR I = 1 TO 500: NEXT I: RETURN
4 TP% = H2% -H1% -1: VTAB V1%: HTAB H1%: PRINT "@G@Q" LEFT$(LN$,TP%)"E": FOR I = V1% +1 TO V2% -1: VTAB I: HTAB H1%: PRINT 1;: HTAB H2%: PRINT 1;: NEXT I: VTAB V2%: HTAB H1%: PRINT "Z" LEFT$(LN$,TP%)"C@R@": RETURN
5 VTAB V2%: HTAB H1%: PRINT "Z" LEFT$(LN$,TP%)"C@R@": RETURN
6 CALL 35328: POKE 230,64: FOR I = 1 TO 40:LN$ = LN$ +"R": NEXT : GOSUB 32
7 DIM Q$(3),AR$(9),PS$(50),PS%(50),BD$(5),CP$(3),GV$(6),AM$(6),TH$(2),TR$(8),PR$(13),DR$(5),MN$(9)
8 DATA DEXTERITY,CONSTITUTION,STRENGTH,AIM,SENSES,INTELLIGENCE,CHARISMA,WILL POWER,SPEED,PSIONICS
9 FOR I = 0 TO 9: READ TP$:AR$(I) = TP$ +"": NEXT
10 DATA HEAD,TORSO,L ARM,R ARM,L LEG,R LEG
11 FOR I = 0 TO 5: READ TP$:BD$(I) = TP$ +"": NEXT
12 DATA MINER,MISSIONARY,HOMESTEADER
13 FOR I = 1 TO 3: READ TP$:CP$(I) = TP$ +"": NEXT
14 DATA NONE,SPEAR,STICK,KNIFE,FOIL,CUTLASS,BROADSWORD,PISTOL,RIFLE,BULLET,SIGHT
15 DATA HUNTING,PURCHASING,WEAPON,LEATHER,MESH,ABSORBTION,NOTHING,VACSUIT,RESPIRATOR,WATER
16 DATA TESTER,FOOD,AXE,PULLEY,ROPE,METALWORK,CARPENTRY,TENT,TANK,ELECTRONIC
17 DATA CABIN,PLOW,SHOVEL,SEED,WAGON,AXLE,MULE,AMULET,CHARM,HORN
18 DATA LAMP,COMPASS,OILLENS,DETECTOR,GEIGER,ELECTORCH,BINOCULARS,DRILL,CRYSTALS,POISON
19 FOR I = 0 TO 50: READ TP$:PS$(I) = TP$ +"":PS%(I) = 0: NEXT
20 DATA NONE,FEUDAL,OLIGARCHY,COMPANY,RELIGIOUS,DICTATOR,DEMOCRACY
21 FOR I = 0 TO 6: READ TP$:GV$(I) = TP$ +"": NEXT
22 DATA NONE,TRACE,THIN,STANDARD,DENSE,CORROSIVE,INSIDEOUS
23 FOR I = 0 TO 6: READ TP$:AM$(I) = TP$ +"": NEXT
24 DATA ANCIENT,MEDIEVAL,MODERN: FOR I = 0 TO 2: READ TP$:TH$(I) = TP$ +"": NEXT
25 FOR I = 0 TO 8: READ TP$:TR$(I) = TP$ +"": NEXT : DATA WATER,A PLAIN,THE BEACH,THE DESERT,A FOREST,THE HILLS,ROUGH TERRAIN,A SWAMP,THE MOUNTAINS
26 FOR I = 1 TO 13: READ TP$:PR$(I) = TP$ +"": NEXT : DATA PEASANT,WORKER,BANDIT,SOLDIER,HUNTER,VIGILANTE,MERCHANT,TRADER,NOBLE,MISSIONARY,HEFFELUMP,UNICORN,BANDERSNATCH
27 FOR I = 0 TO 5: READ TP$:DR$(I) = TP$ +"": NEXT : DATA ,NORTH,SOUTH,,WEST,EAST
28 FOR I = 0 TO 9: READ TP$:MN$(I) = TP$ +"": NEXT : DATA TIN,COPPER,ALUMINUM,IRON,SILVER,CRYSTAL,ALLOYS,GEMS,URANIUM,WHITE ROCKS
29 AR% = 16136:AG% = 16129:MY% = 16132:BD% = 16146:PS% = 16200:SP% = -16336:KS% = -16384:KP% = -16368:FS% = 16128
30 S1$ = "@R15C0K22V1H@" +"":S2$ = "@R15C0K20V1H@" +"":IV$ = "@I@" +"":RY$ = "ROLL YOUR" +" "
31 CALL 36263: GOSUB 2: PRINT CHR$(4)"RUNWB.1": END
32 PRINT "@PK5C0H0V0@":H1% = 1:T1% = 2:T2% = 240:T3% = 100:T4% = 21:T5% = 37:T6% = 15:T7% = 129: FOR I = H1% TO 4: PRINT SPC( T2%): NEXT :H2% = 40:V1% = H1%:V2% = 24: GOSUB 4: PRINT "@L@"
33 FOR I = H1% TO T3%: VTAB RND(H1%) *T4% +T1%: HTAB RND(H1%) *T5% +T1%: PRINT "@" INT( RND(H1%) *T6% +T7%)"C@.": NEXT
34 CALL 7936: CALL 35339: GOSUB 3: PRINT "@132CG5V20H@.@50X250YNB@ ": HCOLOR= 6: FOR I = 0 TO 132 STEP 2: HPLOT 140 -I,167 TO 140,36 TO 140 +I,167:TP% = PEEK( -16336): NEXT
35 PRINT "@R0K143CE2V16H@EMPIRE I@D15H@VERSION 1.5@L16V15H@WORLD@D12H@BUILDERS@R22V1H@COPYRIGHT 1981 EDU-WARE SERVICES, INC.@E@": RETURN
36 GOSUB 2:KY% = PEEK(222): IF KY% = 8 OR KY% >253 THEN CALL 35339: RESUME
37 TEXT : PRINT "ERROR "KY%" AT LINE " PEEK(218) + PEEK(219) *256":WORLD BUILDERS": NEW : END
- Addeddate
- 2014-06-12 21:36:12
- Emulator
- apple2e
- Emulator_ext
- do
- Identifier
- a2_Empire_I_World_Builders_v1.5_1981_Edu_Ware
- Scanner
- Internet Archive Python library 0.6.5
comment
Reviews
667 Views
DOWNLOAD OPTIONS
IN COLLECTIONS
The Apple II Library: Games The Software Library: Apple Computer Software Library The Emulation StationUploaded by Jason Scott on