1 GOSUB 520
2 CALL COLOR(8,6,3)
3 CALL COLOR(13,4,4)
4 CALL COLOR(6,2,4)
5 CALL COLOR(7,2,4)
6 DIM A(29),B(3),M$(3),MI(3),V(3),NE(24),AH(3)
7 E=1
8 FOR F=1 TO 29
9 A(F)=F
10 NEXT F
11 FOR F=0 TO 3
12 RANDOMIZE
13 V(F)=INT((55-30+1)*RND)+30
14 NEXT F
15 OI=0
16 QI=25
17 CI=5
18 TY=50
19 TH=90
20 XQ=80
21 A(27)=0
22 RESTORE 533
23 FOR F=1 TO 23
24 READ C,G$
25 CALL CHAR(C,G$)
26 NEXT F
27 F$="FFFFFFFFFFFFFFFF"
28 S$="0103070F1F3F7FFF"
29 CALL CHAR(130,S$)
30 CALL CHAR(42,"0000001866816618")
31 CALL CHAR(137,S$)
32 CALL CHAR(88,F$)
33 CALL CHAR(134,F$)
34 CALL CHAR(136,F$)
35 CALL CHAR(144,F$)
36 CALL CHAR(129,"80C0E0F0F8FCFEFF")
37 CALL CHAR(133,"0")
38 RESTORE 540
39 FOR F=1 TO 24
40 READ FG
41 NE(F)=FG
42 NEXT F
43 FOR F=0 TO 3
44 B(F)=0
45 RANDOMIZE
46 IF E=1 THEN 48
47 B(F)=INT(((E+4)-(E-4)+1)*RND)+(E-4)
48 NEXT F
49 RT=0
50 VV=0
51 M$(0)="n"
52 M$(1)="e"
53 M$(2)="s"
54 M$(3)="w"
55 LE=INT((4-1+1)*RND)+1
56 AT=INT((3-1+1)*RND)+1
57 FOR F=1 TO 4
58 ON F GOSUB 554,556,558,560
59 FOR Q=1 TO E
60 READ N
61 NEXT Q
62 IF N<>0 THEN 64
63 LET M$(F-1)="Q"
64 MI(F-1)=N
65 NEXT F
66 CALL CLEAR
67 GOSUB 545
68 CALL SCREEN(11)
69 PRINT:
70 ER=E
71 GOSUB 73
72 GOTO 81
73 IF ER>15 THEN 76
74 ON ER GOSUB 497,489,457,473,457,457,480,466,466,489,473,466,497,497,466
75 GOTO 77
76 ON ER GOSUB 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,457,457,473,493,473,489,473,497,497
77 FOR F=1 TO 4
78 PRINT " "
79 NEXT F
80 RETURN
81 ST$="score  "&STR$(OI)
82 Y=15
83 GOSUB 573
84 ST$="i q    "&STR$(QI)
85 Y=17
86 GOSUB 573
87 ST$="wealth "&STR$(TY)
88 Y=19
89 GOSUB 573
90 ST$="energy "&STR$(TH)
91 Y=21
92 GOSUB 573
93 FOR F=1 TO 4
94 ON F GOSUB 103,105,110,112
95 IF B((F-1))<>E THEN 101
96 READ JK
97 FOR P=1 TO JK
98 READ X2,Y2,Z
99 CALL HCHAR(X2,Y2,Z)
100 NEXT P
101 NEXT F
102 GOTO 114
103 RESTORE 544
104 RETURN
105 RESTORE 541
106 IF E<>19 THEN 109
107 B(1)=E
108 GOSUB 449
109 RETURN
110 RESTORE 542
111 RETURN
112 RESTORE 543
113 RETURN
114 RESTORE 570
115 CALL COLOR(5,2,4)
116 X=8
117 FOR F=1 TO 24
118 READ J,I$
119 IF A(F)<>E THEN 123
120 IF J=0 THEN 123
121 CALL HCHAR(21,X,J)
122 X=X+1
123 NEXT F
124 IF NE(E)=0 THEN 127
125 ON NE(E)GOTO 126,1,128
126 CALL HCHAR(22,14,71)
127 GOTO 130
128 CALL HCHAR(23,X+4,64)
129 GOTO 130
130 IF LE=2 THEN 132
131 IF E<>1 THEN 135
132 X3=X+((3-1+1)*RND)+1
133 CALL HCHAR(21,X3,78)
134 CALL HCHAR(21,X3+1,79)
135 PRINT " route";
136 FOR F=0 TO 3
137 IF M$(F)="Q" THEN 139
138 PRINT " ";M$(F);
139 NEXT F
140 PRINT:
141 IF RT<>1 THEN 143
142 PRINT:" teleport"
143 IF TH>10 THEN 145
144 PRINT:" you feel weak"
145 IF TH<1 THEN 578
146 GOSUB 545
147 INPUT ">":R$
148 IF TH<1 THEN 578
149 DATA wizard,manian,serpent,dactyl,dragon
150 RESTORE 572
151 FOR F=1 TO 17
152 READ W$
153 IF SEG$(R$,1,3)=W$ THEN 156
154 NEXT F
155 GOTO 159
156 ON F GOTO 169,169,169,169,184,206,218,66,240,244,256,271,315,380,384,421,441
157 PRINT:" ok"
158 GOTO 145
159 PRINT:" you cant"
160 GOTO 145
161 RESTORE 570
162 FOR O=1 TO 27
163 READ J,U$
164 U$=SEG$(U$,1,3)
165 IF SEG$(R$,4,3)=U$ THEN 168
166 NEXT O
167 GOTO 155
168 RETURN
169 MV=F-1
170 ON F GOSUB 554,556,558,560
171 GOTO 172
172 IF AT=1 THEN 282
173 XE=MI(MV)
174 IF XE=0 THEN 562
175 IF XE=50 THEN 547
176 IF XE=60 THEN 549
177 IF XE=40 THEN 447
178 AT=0
179 VV=0
180 E=E+XE
181 TH=TH-1
182 OI=OI+1
183 GOTO 43
184 GOSUB 161
185 IF O=27 THEN 202
186 IF O=26 THEN 195
187 IF O=16 THEN 406
188 IF O=23 THEN 410
189 IF A(O)<>E THEN 159
190 QI=QI+1
191 A(O)=0
192 OI=OI+1
193 AT=1
194 GOTO 157
195 IF NE(E)<>3 THEN 159
196 NE(INT((24-2+1)*RND)+2)=3
197 FW=FW+1
198 NE(E)=0
199 AT=1
200 A(O)=0
201 GOTO 191
202 IF NE(E)<>1 THEN 159
203 CI=CI+1
204 TY=TY+10
205 GOTO 198
206 GOSUB 208
207 GOTO 145
208 RR=0
209 RESTORE 570
210 FOR F=1 TO 27
211 READ J,I$
212 IF A(F)<>RR THEN 214
213 PRINT " ";CHR$(J);" ";I$;
214 NEXT F
215 RETURN
216 GOSUB 208
217 GOTO 145
218 GOSUB 161
219 IF O=26 THEN 224
220 IF O=27 THEN 230
221 IF A(O)<>0 THEN 159
222 A(O)=E
223 GOTO 157
224 IF A(26)<>0 THEN 159
225 FW=FW-1
226 NE(E)=3
227 IF FW>0 THEN 157
228 A(26)=26
229 GOTO 157
230 IF A(27)<>0 THEN 159
231 CI=CI-1
232 NE(E)=1
233 TY=TY-10
234 IF TY>0 THEN 237
235 TY=0
236 VV=2
237 IF CI>0 THEN 157
238 A(27)=E
239 GOTO 157
240 IF A(26)<>0 THEN 159
241 FW=FW-1
242 TH=TH+INT((42-1+1)*RND)+1
243 GOTO 227
244 GOSUB 161
245 IF O<>1 THEN 252
246 IF A(O)<>0 THEN 159
247 IF E<>1 THEN 157
248 E=2
249 PRINT:" your journey to mania has   begun":
250 OI=OI+10
251 GOTO 43
252 IF O<>6 THEN 159
253 IF A(6)<>0 THEN 159
254 CC=1
255 GOTO 157
256 IF E<>1 THEN 260
257 PRINT:" act like a king":
258 QI=QI+10
259 GOTO 145
260 IF LE<>2 THEN 159
261 RANDOMIZE
262 ER=INT((24-2+1)*RND)+2
263 TH=TH-15
264 QI=QI+10
265 CALL SCREEN(2)
266 CALL CLEAR
267 GOSUB 73
268 FOR F=1 TO 550
269 NEXT F
270 GOTO 66
271 IF RT<>1 THEN 159
272 IF TY>0 THEN 275
273 PRINT:" you need coins":
274 GOTO 145
275 TY=TY-10
276 IF E=18 THEN 280
277 RANDOMIZE
278 E=INT((17-2+1)*RND)+2
279 GOTO 43
280 E=19
281 GOTO 43
282 UY=1
283 FOR F=1 TO 3
284 IF B(F)<>E THEN 287
285 AH(UY)=F
286 UY=UY+1
287 NEXT F
288 UY=UY-1
289 IF UY=0 THEN 173
290 RW=INT((3-1+1)*RND)+1
291 IF RW=1 THEN 173
292 RX=INT((UY-1+1)*RND)+1
293 IF RX>UY THEN 173
294 ON AH(RX)GOSUB 306,309,312
295 FOR F=1 TO INT((2-1+1)*RND)+1
296 READ GG$,OO,EE
297 NEXT F
298 PRINT " ";GG$
299 TH=TH-OO
300 IF EE=0 THEN 145
301 IF EE<>50 THEN 304
302 E=24
303 GOTO 43
304 E=INT((EE-2+1)*RND)+2
305 GOTO 43
306 RESTORE 308
307 RETURN
308 DATA the manian attacks,10,0,you've been captured,5,50
309 RESTORE 309
310 RETURN
311 DATA the serpent bites you,25,0,the serpent spits venom,0,0
312 RESTORE 314
313 RETURN
314 DATA the dactyl attacks,25,0,the dactyl swoops down and carries you off,5,17
315 GOSUB 317
316 GOTO 327
317 RESTORE 149
318 FOR F=1 TO 5
319 READ MM$
320 FOR P=1 TO LEN(R$)
321 IF SEG$(R$,P,3)=SEG$(MM$,1,3)THEN 325
322 NEXT P
323 NEXT F
324 GOTO 155
325 ON F GOSUB 365,374,371,368,377
326 RETURN
327 PRINT:
328 INPUT " what with ":WW$
329 SS=0
330 IF WW$<>"not" THEN 332
331 GOTO 343
332 IF WW$<>"swo" THEN 340
333 IF A(16)<>0 THEN 159
334 IF ZZ<>0 THEN 338
335 PRINT:" the sword disappears":
336 A(16)=16
337 GOTO 145
338 SS=SS+3
339 GOTO 343
340 IF WW$<>"sce" THEN 159
341 IF A(2)<>0 THEN 159
342 SS=SS+2
343 IF A(23)<>0 THEN 345
344 SS=SS+1
345 PRINT:
346 INPUT " how much energy ":LL
347 IF LL<=TH THEN 350
348 PRINT:" you only have ";TH
349 GOTO 145
350 TH=TH-LL
351 V(ZZ)=V(ZZ)-SS*LL
352 IF V(ZZ)>0 THEN 359
353 IF E=19 THEN 564
354 PRINT:" he dies ":
355 V(ZZ)=XQ
356 XQ=XQ+15
357 B(ZZ)=6
358 GOTO 145
359 RESTORE 539
360 FOR F=1 TO INT((5-1+1)*RND)+1
361 READ BB$
362 NEXT F
363 PRINT:" ";BB$
364 GOTO 145
365 IF B(0)<>E THEN 159
366 ZZ=0
367 RETURN
368 IF B(3)<>E THEN 159
369 ZZ=3
370 RETURN
371 IF B(2)<>E THEN 159
372 ZZ=2
373 RETURN
374 IF B(1)<>E THEN 159
375 ZZ=1
376 RETURN
377 IF E<>19 THEN 159
378 ZZ=1
379 RETURN
380 IF E<>7 THEN 159
381 E=13
382 B(0)=14
383 GOTO 43
384 GOSUB 317
385 RESTORE 518
386 FOR P=1 TO 6
387 READ YY$,WZ$,II$
388 FOR F=1 TO LEN(R$)
389 IF SEG$(R$,F,LEN(YY$))=YY$ THEN 395
390 IF SEG$(R$,F,3)="car" THEN 403
391 NEXT F
392 NEXT P
393 PRINT:" good question":
394 GOTO 145
395 IF ZZ<>0 THEN 398
396 PRINT:" ";WZ$:
397 GOTO 145
398 IF ZZ<>1 THEN 393
399 PRINT:" ";II$
400 GOTO 145
401 IF ZZ<>1 THEN 393
402 IF DD<>0 THEN 393
403 IF ZZ<>3 THEN 393
404 AH(RX)=3
405 GOTO 294
406 IF E<>16 THEN 189
407 IF CC=1 THEN 189
408 PRINT:" the sword is held in a      rock":
409 GOTO 145
410 IF E<>23 THEN 189
411 IF VV=2 THEN 189
412 IF VV=1 THEN 418
413 IF B(0)=E THEN 189
414 PRINT:" a wizard appears":
415 VV=1
416 B(0)=E
417 GOTO 145
418 PRINT:" thunderbolts fly":
419 TH=TH-10
420 GOTO 145
421 RR=E
422 PRINT:
423 GOSUB 209
424 IF NE(E)<>1 THEN 426
425 PRINT " G coins ";
426 IF NE(E)<>3 THEN 428
427 PRINT " @ wine ";
428 IF E=1 THEN 430
429 IF LE<>2 THEN 431
430 PRINT " NO peephole";
431 RESTORE 149
432 FOR F=0 TO 3
433 READ EM$
434 IF B(F)<>E THEN 439
435 IF E<>19 THEN 438
436 PRINT " dragon";
437 GOTO 439
438 PRINT " ";EM$;
439 NEXT F
440 GOTO 145
441 IF E<>24 THEN 445
442 PRINT:" rescued at last":
443 E=INT((17-2+1)*RND)+2
444 GOTO 43
445 PRINT:" you are doing fine":
446 GOTO 145
447 PRINT:" west leads to               adventuremania."
448 GOTO 145
449 CALL CHAR(80,"8487C5E3FAFBF9F6")
450 CALL CHAR(81,"42C2468EBEBE3ECE")
451 CALL CHAR(82,"C7C7858788881D1A")
452 V(1)=200
453 CALL CHAR(83,"E6E6F2FA9A8CCE57")
454 CALL CHAR(84,"0")
455 CALL CHAR(85,"0")
456 RETURN
457 CALL COLOR(8,6,6)
458 CALL COLOR(13,4,6)
459 CALL COLOR(14,4,6)
460 PRINT " XXXXXXXXXXXXXXX"
461 PRINT " "
462 FOR F=1 TO 4
463 PRINT " "
464 NEXT F
465 RETURN
466 CALL COLOR(13,4,6)
467 CALL COLOR(8,6,6)
468 CALL COLOR(15,16,6)
469 RESTORE 472
470 GOSUB 513
471 RETURN
472 DATA XXXXXXXXXXXXXXX,XXXXXXXXXXXXXXX,XXXXXXXXXXX,XXXXXX,XX,
473 CALL COLOR(15,9,9)
474 RT=1
475 CALL COLOR(14,7,7)
476 RESTORE 478
477 GOSUB 513
478 DATA XXXXXXXXXXXXXXX,XXXXXXXXX,,,,
479 RETURN
480 CALL COLOR(15,9,10)
481 CALL COLOR(14,12,12)
482 PRINT " "
483 PRINT " "
484 FOR F=1 TO 4
485 PRINT " "
486 NEXT F
487 CALL HCHAR(22,11,147)
488 RETURN
489 CALL COLOR(13,4,4)
490 CALL COLOR(8,6,6)
491 CALL COLOR(15,16,6)
492 CALL COLOR(14,7,7)
493 RESTORE 496
494 GOSUB 513
495 RETURN
496 DATA XXXXXXXXXXXXXXX,XXXXX,,,,
497 RESTORE 512
498 CALL COLOR(13,4,5)
499 CALL COLOR(14,4,6)
500 GOSUB 513
501 IF M$(0)="Q" THEN 506
502 CALL VCHAR(20,14,88,2)
503 CALL VCHAR(20,15,88,2)
504 CALL VCHAR(22,14,134,2)
505 CALL VCHAR(22,15,134,2)
506 IF M$(3)="Q" THEN 511
507 CALL VCHAR(20,8,133,2)
508 CALL VCHAR(20,9,133,2)
509 CALL VCHAR(22,8,134,2)
510 CALL VCHAR(22,9,134,2)
511 RETURN
512 DATA XXXXXXXX,XXXXXXXX,XXXXXXX,XXXXXX,XXXXX,XXXX
513 FOR F=1 TO 6
514 READ S$
515 PRINT " ";S$
516 NEXT F
517 RETURN
518 DATA legend,corridors of time,only time will tell,where are the corridors,continue your quest,go back
519 DATA help,your doing fine,leave ring,hello,hello,hello,shield,its very valuable,your money or your life
520 CALL CLEAR
521 CALL CHAR(147,"3C42BDA1A1BD423C")
522 CALL SCREEN(11)
523 CALL CHAR(145,"191B1B1A181840FF")
524 CALL CHAR(146,"FF02181858D8D898")
525 CALL COLOR(15,2,11)
526 PRINT TAB(15);""
527 PRINT TAB(15);""
528 PRINT: : :TAB(7);"intrigue software": : :
529 PRINT TAB(12);"present": : : :
530 PRINT TAB(11);"m a n i a": : : :
531 PRINT TAB(12);"  1983": : : :
532 RETURN
533 DATA 64,1010103828282838,65,183C997E7E,67,183C182442422418,68,0106060810204080
534 DATA 69,3C66E78181662418,70,805020500804021F,71,6090906006090906"
535 DATA 72,00000101010243A3,73,8080C0C0C0A06060,74,A12020277B772727,75,C000C0F06CE672F2,76,2F2F3F3F3F26262E
536 DATA 77,78F87CFC7C303038,80,0103020303010019,81,F1F9E9B9B91141FD,82,7ECFA7934A6635343C,83,BD7F3F7F33F3BBF9
537 DATA 84,1B07070F0303030F,85,BDFDBDFFB919191E,78,030F3C3C797BF4F8,79,C0F03C3C9EDE2F1F,86,40A0404C32014DB2
538 DATA 87,99DBFF99BDA5245A
539 DATA he ducks,he falls,you missed,he strikes,he weakens
540 DATA 1,0,3,1,0,3,0,1,0,0,0,3,3,0,0,1,0,0,1,3,0,3,0,0
541 DATA 6,21,5,80,21,6,81,22,5,82,22,6,83,23,5,84,23,6,85
542 DATA 1,22,9,86
543 DATA 1,23,11,87
544 DATA 6,21,16,72,21,17,73,22,16,74,22,17,75,23,16,76,23,17,77
545 PRINT " **************************"
546 RETURN
547 PRINT:" the door is shut"
548 GOTO 145
549 IF CC<>1 THEN 552
550 E=22
551 GOTO 43
552 PRINT:" a force field bars the      exit":
553 GOTO 145
554 RESTORE 566
555 RETURN
556 RESTORE 567
557 RETURN
558 RESTORE 568
559 RETURN
560 RESTORE 569
561 RETURN
562 PRINT:" you cant go ";W$
563 GOTO 145
564 PRINT:" you are at the entrance to   "the corridors of time"": : :
565 GOTO 579
566 DATA 0,0,0,5,3,1,50,0,6,0,0,6,0,9,0,5,0,0,0,1,0,-12,-10,0
567 DATA 0,1,1,0,1,-3,2,0,0,0,0,0,0,-1,0,0,-1,-1,0,1,0,0,0,0
568 DATA 0,0,0,1,0,-4,0,-3,0,-7,-9,0,0,-1,0,-6,-6,0,-1,-3,-5,0,-9,0
569 DATA 40,0,-1,0,-1,0,1,1,1,1,1,-5,1,0,1,0,1,-9,0,0,0,-1,60,0
570 DATA 65,crown,68,sceptre,0,,0,,0,,67,ring,0,,0,,0,,0,,0,,0,
571 DATA 0,,0,,0,,70,sword,0,,0,,0,,0,,0,,65,coronet,69,shield,0,,0,,64,wine,71,coins,0,wizard,peephole
572 DATA n,e,s,w,tak,inv,dro,scr,dri,wea,pee,tel,fig,ope,say,wha,hel
573 Y2=19
574 FOR F=1 TO LEN(ST$)
575 CALL HCHAR(Y,(Y2+F),ASC(SEG$(ST$,F,1)))
576 NEXT F
577 RETURN
578 PRINT:"     you have died": : :
579 PRINT:" score ";OI
580 PRINT:" iq    ";QI
581 PRINT:" wealth";TY
582 PRINT: : :
583 INPUT "        play again ":YR$
584 IF YR$="y" THEN 1
585 END
