-
Notifications
You must be signed in to change notification settings - Fork 1
/
gq6_en.txt
1109 lines (1109 loc) · 89.7 KB
/
gq6_en.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1 ifpeek(792)=71thenpoke792,193:rem version 1.2 en 29.05.-1
10 forii=1to18:reada:next:data11,,3,4,2,2,64,,2,9,2,10,26,,1,4,6,8:rem sid data, distremove
15 si=54272:gosub9100:gosub9300:goto30
20 ti$="000000":forze=-1to.:ze=(ti<tw):next:return
25 o=int(pm*100)
26 z$=str$(o):z$=right$(z$,len(z$)-1):z$=right$("00"+z$,3)
27 o$=left$(z$,1)+"."+right$(z$,2):return
30 sc=1065:co=55296:gosub9060:printchr$(8)"{blk}{clr}":poke53280,0:poke53281,0:l=100:lv=1:pm=1:g=1:w%=1:ut=6
32 rem reset - punkte, inv, drachen, items, fulgi, quests, haendlerzaehler
34 pu=.:i%=.:d%=.:ae=.:cf=.:wd=.:sw=.:jg=.:ts=.:hg=.:s%=.:fb=.:nq=.:vq=.:vo%=.:l1=.:vh%=.:h%=.
35 rem 12 missions - dragon pal, zombie hunter, gambler, fairy swatter, little coward
36 rem beer drinker, stone sober, piggy bank, party pooper, gourmet, abstainer, holy saint
37 ga%=.:df%=.:zk%=.:zo%=.:fk%=.:fg%=.:os%=.:gl%=.:nu%=.:ab%=.:es%=.:gt%=.:he%=.
38 q$="":forii=1to28:w(ii,2)=.:next:rem waffen/items/alk
50 gosub9000:x=16:gosub8198
54 sysq,1,17,"{wht}what is thy name? ";:a%=1:gosub800
61 ifg$=""theng$="nobody":printg$;
62 n$=g$:print:ifn$="cheator"thenprint"{down}{down}{wht} choose the start depth:{yel}";:v=2:h=15:gosub700:lv=a%
63 a$=" adventurer":b$=" scrimper":c$=" deadbeat":f$=" warrior"
64 x=16:gosub8198:sysq,0,16,"{wht}choose your dwarf:":print"{wht}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{pur}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{yel}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{gry2}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{orng}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof}"
65 sysq,0,18,"{wht}{rvon} character {pur}boozy{yel}gold{gry2} weapon {orng} backpack {rvof}"
66 sysq,13,19,"{pur}2.5{yel} 3 {gry1}spear {cyn}imp ale {gry3}":sysq,13,20,"{pur}0.5{yel} 9 {gry1}dagger {grn}gems"
67 sysq,13,21,"{pur}3.0{yel} 0 {gry1}dagger {cyn}orc beer{gry3}":sysq,13,22,"{pur}1.5{yel} 2 {gry1}sword {lred}swatter{gry3}"
68 print"{up}{up}{up}{up}"a$chr$(13)b$chr$(13)c$chr$(13)f$;
69 v=1:h=4:gosub700:ifa%=1theng=3:pm=2.5:w%=2:w(22,2)=1:i%=1
70 ifa%=2theng=9:pm=0.5:w(18,2)=1:i%=1:a$=b$
71 ifa%=3theng=0:pm=3:w(24,2)=1:i%=1:a$=c$
72 ifa%=4theng=2:pm=1.5:w%=3:w(17,2)=1:i%=1:a$=f$
73 rem g$="{wht}ende!":e$="":lv=9:pu=43210:g=1234:nq=2:vq=2:d%=7:s%=1:goto5900
74 rem lv=6:l1=6:vq=1:vo%=2:rem zweite quest letzter ork vo%=orkcount
75 rem vo% =0 bestanden, =-1 frau tot, >0 nicht gesucht
76 rem jg=2:lv=6:fb=1:l1=.:rem start 2. quest
77 rem lv=4:nq=1:q$="123456": rem 1. quest done
78 x=16:gosub8198:sysq,0,16,"{wht} controls ":print"{cyn} move: {gry3}joystick port 2 {gry1}/ {gry3}wasd"
79 print"{cyn} backpack: {gry3}fire button{red}Q {gry1}/ {gry3}return {gry1}/ {gry3}i":print"{cyn} give up: {gry3}f1{down}{wht}"
80 printn$", the"a$"!":a$="":gosub7800:tw=180:gosub20:poke198,.
100 print"{clr}":ka=0:u=0:z=0:gm%=lv*20+60:gosub9250:gosub460:gosub200:ifd%>.thengosub550
101 ifjg=-1thenjg=.
110 sysq,px%+1,py%+1,"{wht}"c$(pr):gosub220:gosub500
111 ifdf%=2thena$="dragon pal":df%=3:gosub197
112 ifzk%=12thena$="zombie hunter":zk%=13:gosub197
113 ifzo%=5thena$="gambler":zo%=6:gosub197:rem at-risk
114 iffk%=3thena$="fairy swatter":fk%=4:gosub197
115 iffg%=10thena$="little coward":fg%=11:gosub197
116 ifos%=10thena$="beer drinker":os%=11:gosub197
117 ifhe%=2thena$="holy saint":he%=3:gosub197
118 ifnu%=.andpm<0.01thena$="stone sober":nu%=1:gosub197
119 ifgl%=.andg>249thena$="piggy bank":gl%=1:gosub197
120 ifes%=2thena$="party pooper":es%=3:gosub197
122 ifgt%=4thena$="gourmet":gt%=5:gosub197
124 rem abstainer ab% 7200
130 gosub2000:ifpm<2thenl=l-1
132 ifg>gm%thenl=l-1
134 ifl<.thenl=.
136 pm=pm-.01:ifpm<.thenpm=.
138 ife$="{f1}"theng$="{wht}you really gave up!":a%=-1:goto7000
140 ife$="+"then7200
142 ifl<1theng$="{wht}you died miserably! {lred}0% health":a%=-1:goto7000
144 ifpm>3.51thenifsw=.theng$="{wht}you died happily! {pur}over 3.5 boozy":a%=-1:goto7000
150 n%=int(rnd(.)*3)*lv:iflv<3thenn%=0
155 a%=k%(px%,py%)-2:ifa%<.then110
160 ifa%>13then195:rem >12
165 ifa%=.then7200:rem exit door
170 gosub225
175 ona%gosub4200,4000,5000,4100,5100,5200,5300,5400,5500,5600,5700,5800,6200
185 pu=pu+5:ifu=1thenlv=lv+1:gosub7805:goto100:rem falltuer
188 ifu=2thenpx%=xf:py%=yf:u=.:gosub570:rem flucht
189 ifu=3then5880:rem fulgore kampf
190 goto110
195 a%=a%-13:sysq,1,21,"{gry3}on the wall you see rune"a%" {up}{gry3}{CBM-@}{down}{left}{left}{CBM-M}{wht}{rvon}"mid$(q$,a%,1)"{rvof}{gry3}{CBM-G}{down}{left}{left}{CBM-T}":rem -12
196 print"{cyn} remember it well!";:k%(px%,py%)=1:gosub700:gosub570:goto110
197 sysq,1,20,"{gry3}mission {wht}"a$" {gry3}accomplished!{yel}":ga%=ga%+1
198 sysq,0,21,ga%"{cyn}of {yel}12{cyn} done";:d=10:gosub750:gosub570:return
200 sysq,23,0,"{brn}{CBM-D}{CBM-O}{CBM-O}{CBM-P}{CBM-O}{CBM-O}{CBM-P}{CBM-P}{CBM-O}{CBM-O}{CBM-P}{CBM-O}{CBM-O}{CBM-F}":forii=1to10step2:sysq,23,ii,"{CBM-N} {CBM-H}"
205 sysq,23,ii+1,"{CBM-L} {CBM-J}":next:sysq,23,11,"{CBM-C}{CBM-U}{CBM-U}{CBM-Y}{CBM-U}{CBM-U}{CBM-Y}{CBM-Y}{CBM-U}{CBM-U}{CBM-Y}{CBM-U}{CBM-U}{CBM-V}"
210 sysq,0,18,"{orng}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}";
215 sysq,0,19,"{rvon} gold quest 6 depth";:print"{rvon}"lv"{left}"left$(" ",11-len(str$(lv))):return
220 gosub225:poke780,7:gosub9200:gosub300:gosub9250:return
225 forii=.to12:m%(ii)=.:next
226 v=.:n=.:a1%=1:a2%=2:a3%=3:ifpr=0then230
227 ifpr=1then250
228 a1%=-1:a2%=-2:a3%=-3:ifpr=3thengoto250
230 ifk%(px%-a1%anddx%,py%-a3%anddy%)=.thenm%(0)=1
231 ifk%(px%+a1%anddx%,py%-a3%anddy%)=.thenm%(1)=1
232 k%=k%(px%,py%-a3%anddy%):ifk%=.thenm%(2)=1:n=1
233 ifk%=2thenm%(2)=2
234 ifk%(px%-a1%anddx%,py%-a2%anddy%)=.thenm%(3)=1
235 ifk%(px%+a1%anddx%,py%-a2%anddy%)=.thenm%(4)=1
236 k%=k%(px%,py%-a2%anddy%):ifk%=.thenm%(5)=1:n=2
237 ifk%=2thenm%(5)=2
238 ifk%>1andk%<16thenm%(12)=1:rem <15
239 ifk%(px%-a1%anddx%,py%-a1%anddy%)=.thenm%(6)=1
240 ifk%(px%+a1%anddx%,py%-a1%anddy%)=.thenm%(7)=1
241 k%=k%(px%,py%-a1%anddy%):ifk%=.thenm%(8)=1:n=3:goto245
242 ifk%=2thenm%(8)=2
243 ifk%>2andk%<16thenm%(11)=1:rem <15
244 k=sc+px%+(40*(py%-a1%anddy%)):ifpeek(k)=160thenpokek,164
245 k%=k%(px%-a1%anddx%,py%):ifk%=.ork%=2thenm%(9)=1:goto247
246 k=sc+(px%-a1%anddx%)+py%*40:ifpeek(k)=160thenpokek,164
247 k%=k%(px%+a1%anddx%,py%):ifk%=.ork%=2thenm%(10)=1:return
248 k=sc+(px%+a1%anddx%)+py%*40:ifpeek(k)=160thenpokek,164
249 return
250 ifk%(px%+a3%anddx%,py%-a1%anddy%)=.thenm%(0)=1
251 ifk%(px%+a3%anddx%,py%+a1%anddy%)=.thenm%(1)=1
252 k%=k%(px%+a3%anddx%,py%):ifk%=.thenm%(2)=1:n=1
253 ifk%=2thenm%(2)=2
254 ifk%(px%+a2%anddx%,py%-a1%anddy%)=.thenm%(3)=1
255 ifk%(px%+a2%anddx%,py%+a1%anddy%)=.thenm%(4)=1
256 k%=k%(px%+a2%anddx%,py%):ifk%=.thenm%(5)=1:n=2
257 ifk%=2thenm%(5)=2
258 ifk%>1andk%<16thenm%(12)=1:rem <15
259 ifk%(px%+a1%anddx%,py%-a1%anddy%)=.thenm%(6)=1
260 ifk%(px%+a1%anddx%,py%+a1%anddy%)=.thenm%(7)=1
261 k%=k%(px%+a1%anddx%,py%):ifk%=.thenm%(8)=1:n=3:goto265
262 ifk%=2thenm%(8)=2
263 ifk%>2andk%<16thenm%(11)=1:rem <15
264 k=sc+(px%+a1%anddx%)+py%*40:ifpeek(k)=160thenpokek,164
265 k%=k%(px%,py%-a1%anddy%):ifk%=.ork%=2thenm%(9)=1:goto267
266 k=sc+px%+(py%-a1%anddy%)*40:ifpeek(k)=160thenpokek,164
267 k%=k%(px%,py%+a1%anddy%):ifk%=.ork%=2thenm%(10)=1:return
268 k=sc+px%+(py%+a1%anddy%)*40:ifpeek(k)=160thenpokek,164
270 return
300 a$="{left}{left}{left}{left}{left}{left}":b%=.:c%=.:ifm%(8)=.then305
301 m%(5)=.:m%(2)=.:m%(12)=.:ifm%(6)>.orm%(9)>.thenm%(0)=.:m%(3)=.
302 ifm%(7)>.orm%(10)>.thenm%(1)=.:m%(4)=.
303 ifm%(9)>.thenm%(6)=.
304 ifm%(10)>.thenm%(7)=.
305 ifm%(5)=.then308
306 m%(2)=.:m%(12)=.:ifm%(6)>.thenm%(0)=.
307 ifm%(7)>.thenm%(1)=.
308 ifm%(3)>.thenm%(0)=.
309 ifm%(4)>.thenm%(1)=.
310 sysq,24,1,"";:forii=1to10:print" {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:next
311 ifm%(8)=1then370
312 ifm%(5)=1then340
315 ifm%(3)=1then320
316 ifm%(0)=1thensysq,27,4,"{gry2}{CBM-@}{down}{left}{CBM-M}{down}{left}{CBM-T}";
320 ifm%(4)=1then330
322 ifm%(1)=1thensysq,32,5,"{gry2}{CBM-G}{up}{left}{CBM-@}{down}{down}{left}{CBM-T}";
330 ifm%(2)=.orn>1then334
332 sysq,28,4,"{gry2}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{CBM-G} {CBM-M}{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
334 ifn=3then370
336 ifm%(2)=2thenifn<2thensysq,28,4,"{gry2}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{CBM-G}{orng}{rvon}{CBM-K}{rvof}{CBM-K}{gry2}{CBM-M}{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
340 ifm%(6)=1then344
342 ifm%(3)=1thensysq,25,4,"{gry3}{CBM-T}P{down}{left}{left} {CBM-M}{down}{left}{left}{CBM-@}{SHIFT-@}";
344 ifm%(3)=1andm%(5)=.thensysq,27,4,"{gry3}M{down}{left}{CBM-M}{down}{left}N";
350 ifm%(7)=1then354
352 ifm%(4)=1thensysq,33,4,"{gry3}O{CBM-T}{down}{left}{left}{CBM-G} {down}{left}{left}L{CBM-@}";
354 ifm%(4)=1andm%(5)=.thensysq,32,4,"{gry3}N{down}{left}{CBM-G}{down}{left}M";
360 ifm%(5)=.orn>2then364
362 sysq,27,4,"{gry3}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{down}{left}{left}{left}{left}{left}{left}{CBM-G} {CBM-M}{down}{left}{left}{left}{left}{left}{left}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}";
364 ifm%(5)=2andn<3thensysq,27,4,"{gry3}O{CBM-T}{orng}{rvon}&&{rvof}{gry3}{CBM-T}P{down}{left}{left}{left}{left}{left}{left}{CBM-G} {orng}{rvon}&&{rvof}{gry3} {CBM-M}{down}{left}{left}{left}{left}{left}{left}L{CBM-@}{orng}{rvon}&&{rvof}{gry3}{CBM-@}{SHIFT-@}";
370 ifm%(9)=.thensysq,24,2,"{wht}P{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{SHIFT-@}";
374 ifm%(6)=1andm%(8)=.thensysq,25,2,"{wht}M{down}M{down}{left}{left} {CBM-M}{down}{left}{left} {CBM-M}{down}{left}{left} {CBM-M}{down}{left}{left} N{down}{left}{left}N";
380 ifm%(10)=.thensysq,35,2,"{wht}O{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}L";
384 ifm%(7)=1andm%(8)=.thensysq,34,2,"{wht}N{down}{left}{left}N{down}{left}{CBM-G} {down}{left}{left}{CBM-G} {down}{left}{left}{CBM-G} {down}{left}{left}M {down}{left}M";
386 ifm%(12)=.then390
388 ifm%(5)<>2thenifn<3thensysq,29,6,"{blu}{rvon}?{rvof}";
390 ifm%(8)<>1then400
392 sysq,25,2,"{wht}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
394 forii=3to7:print"{CBM-G} {CBM-M}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:next:print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}";
400 ifm%(9)=1thensysq,24,1,"{wht}M{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}N";
402 ifm%(10)=1thensysq,35,1,"{wht}N{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}M";
404 ifm%(11)=1thensysq,28,7,"{lblu}U{SHIFT-*}I{down}{left}{left}UK{down}{left}{left}.";
406 ifm%(8)<>2thenreturn
410 sysq,25,2,"{wht}O{CBM-T}{gry2}{rvon}P{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}P{rvof}{wht}{CBM-T}P{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
412 forii=3to7:print"{CBM-G} {gry2}{rvon}P{orng}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{gry2}P{rvof} {wht}{CBM-M}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:next
414 print"L{CBM-@}{gry2}{rvon}P{orng}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{gry2}P{rvof}{wht}{CBM-@}{SHIFT-@}{left}{left}{left}{left}{up}{up}{up}{rvon}{orng}{CBM-F}{rvof}";
420 return
460 print"{home}{brn} ";:forii=1togx/4:print"{CBM-P}{CBM-O}{CBM-P}{CBM-@}";:next:print
462 forii=1togy:print"{rvon}"chr$(180+rnd(.)*2);
463 printleft$(" ",gx)chr$(170+int(rnd(.)*2)*12):next
464 print"J";:forii=1togx/4:print"{CBM-U}{CBM-Y}{CBM-T}{CBM-Y}";:next:print"{left}{rvon}[]":print"{up}{rvon}[]":return
470 ka=1
471 forii=0togy-1:sysq,1,ii+1,"";:forjj=0togx-1:printk$(k%(jj,ii));:next:next
472 return
500 sysq,20,0,"{rvof}{gry1}n{down}{left}{left}w{gry2}{rvon}\{rvof}{gry1}e{down}{left}{left}s{left}{up}{gry3}";:printmid$("{up}n{rght}e{down}s{left}w",pr+pr+1,2)
501 ifi%>3thenprint"{rvon}";
502 sysq,24,16,"{orng}backpack{rvof}"i%"{left}/4":ifl<.thenl=.
505 ifae=1thenprint"{rvon}";:ife$="w"thenl=l+1
506 ifl>100thenl=100
510 sysq,24,12,"{lred}health{rvof}"l"{left}% {pur}"
520 ifsw=.thenifpm>2thenprint"{grn}";
521 ifsw>.thenpm=3.5:print"{pur}{rvon}";
522 sysq,24,13,"boozy{rvof}{pur} ";:gosub25:printo$;
530 ifg>gm%thensysq,24,14,"{rvon}{red}gold{rvof}"g"{left} ";:goto533
531 sysq,24,14,"{yel}gold"g"{left} ";
533 sysq,24,15,w$(w%):sysq,24,17,"{cyn}points"pu:ifwd=1thensysq,20,15,"{rvon}{gry2}2x{rvof}";
540 ifhg=2thensysq,20,16,"{rvon}{yel}hg{rvof}";
541 ifcf=1thensysq,20,12,"{rvon}{lred}cf{rvof}";
542 ifjg>.thensysq,20,13,"{rvon}{grn}jg{rvof}";:rem ifjg=1
543 ifts=1thensysq,20,14,"{rvon}{orng}ts{rvof}";
545 return
550 sysq,19,4,"{rvof}{cyn}d{down}{left}r{down}{left}a{down}{left}g{down}{left}o{down}{left}n{down}{left}s";
555 forii=1tod%:sysq,20,3+ii,mid$("{grn}{orng}{red}{blu}{gry2}{gry3}{yel}",ii,1)">{rvon}>":next:return
570 forii=20to24:sysq,0,ii," ";:next
571 return
670 bx%=rnd(.)*gx:by%=rnd(.)*gy:if(bx%and1)=1thenif(by%and1)=1then670
671 ifk%(bx%,by%)>1then670
673 ifbx%=px%thenifby%=py%then670
676 k%(bx%,by%)=kk%:return
680 ifk%=14thenk%(px%,py%)=1:return
681 bx%=rnd(.)*gx:by%=rnd(.)*gy
682 ifk%(bx%,by%)<>1or(bx%=px%andby%=py%)or(bx%=xfandby%=yf)then681
683 k%(px%,py%)=1:sysq,px%+1,py%+1," ":k%(bx%,by%)=k%:ifka=.thenreturn
685 sysq,bx%+1,by%+1,k$(k%):return
700 sp=peek(211):ze=peek(214):a%=1:poke198,.:j=-1
705 ifpeek(56320)and127<>127then705
710 ifv=.thensysq,(a%-1)*b%+c%,ze,"{cyn}>";
711 ifv=1thensysq,0,ze-h+a%,"{cyn}>";
712 ifv=2thensysq,sp,ze,a%"{left} ";
713 ifti<9and(peek(56320)and127)=jthen713
715 j=peek(56320)and127:gett$:ifj=127thenift$=""thent=.:goto715
716 ti$="000000"
717 ift$="w"ort$="a"ort$="j"ort$="{left}"ort$="{up}"thenj=123
718 ift$="s"ort$="d"ort$="n"ort$="{rght}"ort$="{down}"thenj=119
720 ifv=.thensysq,(a%-1)*b%+c%,ze," ";
722 ifv=1thensysq,0,ze-h+a%," ";
724 ifj=126orj=123thenifa%>1thena%=a%-1
726 ifj=125orj=119thenifa%<hthena%=a%+1
728 if(j=111ort$=chr$(13)orv=3)thenift=.then740
730 ifval(t$)>=1thenifval(t$)<=hthena%=val(t$)
732 goto710
740 t=1:v=.:h=1:b%=.:c%=.:d=.:ifze<24thensysq,sp,ze,""
742 return
750 sysq,0,peek(214),"{cyn}>";:ti$="000000":poke198,.:ifd=.thend=2
751 ifv=3thenprint"{left} ";:sysq,9,24,"{red}Q {wht}strike any key {red}Q";:d=6000
752 j=peek(56320)and127:gett$:ifj=127thent=.
754 if(j=111andt=.)ort$<>""orint(ti/60)>dthent=1:d=.:poke198,.:return
756 goto752
800 g$="":c$="{lblu}{rvon}${rvof}{left}{gry3}":ifa%=1andn$<>""theng$=n$:a%=42
802 print"{gry3}"g$c$;
810 j=peek(56320)and127:gete$:ifj=127ande$=""then810
811 ifj<>127then830
812 printc$;:e=asc(e$):if(e<45ore>57)and(e<65ore>93)ande<>13ande<>20ande<>32then810
814 a%=len(g$):ife=13thenprint" {left}";:return
816 ife=20anda%>.theng$=left$(g$,a%-1):print"{left}"c$"{rght} {left}{left}";:goto810
818 ifa%<11ande<>20theng$=g$+e$:printe$c$;
820 goto810
830 ifj<>119andj<>123then810
831 e=1:iflen(g$)=11orj=123ora%=42thene=41
833 a$=mid$("abcdefghijklmnopqrstuvwxyz0123456789.- _^",e,1):print"{wht}"a$"{left}{gry3}";
835 tw=9:gosub20
840 j=peek(56320)and127:gete$:ifj=127ande$=""then840
841 ife$<>""then812
842 ifj=111then850
844 ifj=119thene=e+1:ife>41thene=1
846 ifj=123thene=e-1:ife<1thene=41
848 goto833
850 tw=10:gosub20:ife=40thene$=chr$(20):goto812
852 ife=41thene=13:goto814
854 e$=a$:goto812
900 p=0:forii=4to0step-1:ifpu>p(ii)thenp=ii+1:next
902 gosub930:e$=r$:gosub960
904 ifp=0orn$="cheator"then950
908 ifp=4then920
910 forii=4topstep-1:n$(ii)=n$(ii-1):p(ii)=p(ii-1):r$(ii)=r$(ii-1):next
920 n$(p-1)=n$:p(p-1)=pu:r$(p-1)=r$
922 print"{gry3}"n$"{wht} becomes a {cyn}"e$" {wht}and"
924 print"{wht}enters the hall of the famous dwarves!":gosub9320:return
930 ifpu<500thenr$="beer nursling"
931 ifpu>499thenr$="tunnel digger"
932 ifpu>999thenr$="stone mason"
933 ifpu>1499thenr$="spelunker"
936 ifpu>2999thenr$="gold digger"
937 ifpu>4999thenr$="master smith"
938 ifpu>7499thenr$="dwarf elder"
939 ifpu>9999thenr$="greybeard"
940 ifpu>13999thenr$="rune priest"
941 ifpu>16999thenr$="dwarf king"
942 return
950 print"{gry3}"n$"{wht} scored{yel}"pu"{wht}points and":print"becomes a {cyn}"e$" {wht}but sadly will"
952 print"not be admitted to the hall of fame.":return
960 s$="{orng}"+right$(str$(lv),2):q$=" {rvon}":ifnq=2thenq$="{rvon}{brn}A"
964 s$=s$+q$:q$="{rght}":ifvq=2thenq$="{red}X"
965 s$=s$+q$:q$="{rght}":ifd%>.thend%=d%-1:gosub7897:q$=k$(13)
966 s$=s$+q$:q$="{rght}":ifs%=1thenq$="{pur}@"
968 r$=s$+q$+"{rvof} {cyn}"+r$:return
1000 gx=16:gy=16:iflv<6thengx=8:gy=16
1015 iflv<5thengx=16:gy=8
1017 iflv<4thengx=16:gy=4
1020 iflv<3thengx=8:gy=8
1021 iflv<2thengx=8:gy=4
1022 m%=.:fx%=.:fy%=.:fz%=-1:dx%=gx-1:dy%=gy-1
1025 forii=.tody%:forjj=.todx%:k%(jj,ii)=.:next:next
1030 fx%=int(rnd(.)*gx/2)*2:fy%=int(rnd(.)*gy/2)*2:k%(fx%,fy%)=1:px%=fx%:py%=fy%
1100 fz%=fz%+1:fs%(fz%,.)=fx%:fs%(fz%,1)=fy%:iffz%>m%thenm%=fz%:ex%=fx%:ey%=fy%
1110 r%=.:ifk%(fx%,fy%-2anddy%)=.thenr%(r%)=.:r%=r%+1
1120 ifk%(fx%+2anddx%,fy%)=.thenr%(r%)=1:r%=r%+1
1130 ifk%(fx%,fy%+2anddy%)=.thenr%(r%)=2:r%=r%+1
1140 ifk%(fx%-2anddx%,fy%)=.thenr%(r%)=3:r%=r%+1
1145 ifr%=.then1250
1150 a%=rnd(.)*r%:iffz%=.thenpr=a%
1160 ifr%(a%)=.thenk%(fx%,fy%-1anddy%)=1:fy%=fy%-2anddy%:k%(fx%,fy%)=1
1170 ifr%(a%)=1thenk%(fx%+1anddx%,fy%)=1:fx%=fx%+2anddx%:k%(fx%,fy%)=1
1180 ifr%(a%)=2thenk%(fx%,fy%+1anddy%)=1:fy%=fy%+2anddy%:k%(fx%,fy%)=1
1190 ifr%(a%)=3thenk%(fx%-1anddx%,fy%)=1:fx%=fx%-2anddx%:k%(fx%,fy%)=1
1200 goto1100
1250 iffz%=.thenk%(ex%,ey%)=2:return
1270 fz%=fz%-1:fx%=fs%(fz%,.):fy%=fs%(fz%,1):goto1110
1600 gosub570:m=int(kw/3):mb=int((rnd(1)*m)+1.5-int(m/2)):f=.
1601 s=int(kw-pm*10-mb):ifs<1thens=int(rnd(1)*lv)
1602 kw%=kw/2+lv
1603 if(jg>.andk%=14)then1606
1604 ifjg>.thena$="{rvof}{red}S":gosub1673:goto1660
1606 ifhg=3thenmb=int(rnd(1)*25)+25:hg=0:sysq,20,16," "
1607 gosub9900
1609 ifwd=1thenpk%=int(pm*5+.5)+mb+2*w(w%,0):goto1611
1610 pk%=int(pm*5+.5)+mb+w(w%,0):ifpk%<1thenpk%=1
1611 gosub9690:a$=" {wht}in battle! ":ifkw%<=pk%then1613
1612 sysq,1,20,"{wht}you are {red}defeated"a$:gosub680:goto1615
1613 sysq,1,20,"{wht}you are {grn}victorious"a$:f=1:gosub1670
1614 sysq,14,21,"{yel}gold +"bb%" {wht}points +"kw
1615 sysq,1,21,"{lred}health -"abs(s)"{left}%"
1620 sysq,1,23,k$"{red}"tab(11);:i=kw%:gosub9720
1622 sysq,1,22,"{lgrn}strength {grn}";:i=pk%:gosub9720:sysq,1,20,"";
1625 iff>.thenpu=pu+kw:g=g+bb%
1627 ifmb>25thensysq,37,22,"{yel}{rvon}hg"
1628 ifk%=13theniff=1thend%=d%+1
1629 ifk%=14theniff=1theniffb>1thens%=1
1633 k%(px%,py%)=1:l=l-s:a$=""
1634 d=7:gosub750:gosub570:ifd%>.thengosub550
1635 ifk%=14theniffb<2orf=0then1690
1639 iff=.thensysq,1,20,k$" {wht}moves on";:gosub750:return
1640 z=int(rnd(1)*(16+w%+lv)-(kw/10)):b%=int(rnd(1)*3):a%=0
1641 a$="dead ":ifk$="{lred}zombie"thena$="chopped ":zk%=zk%+1
1642 sysq,1,20,"{wht}you search the "a$k$;:rem ifk%=13thenprint"n"
1643 ifi%=4then1650
1644 ifz=.thenifw(13,2)=0thenb$=w$(13):w(13,2)=1:i%=i%+1:a%=1
1646 ifz=1orz=2thenifw(22+b%,2)=0thenb$=w$(22+b%):w(22+b%,2)=1:i%=i%+1:a%=1
1648 ifz=3orz=4thenifw(17+b%,2)=0thenb$=w$(17+b%):w(17+b%,2)=1:i%=i%+1:a%=1
1650 ifz=5orz=6thenifw%<12thenw%=w%+1:b$=w$(w%):a%=1
1652 ifz=7orz=8thenb$="{left}{yel}"+str$(b%+lv)+" gold":g=g+b%+lv:a%=1:poke780,6:tw=60:gosub9270
1654 sysq,1,21,"{wht}and find {gry3}";:ifa%=0thenprint"{wht}nothing{up}";:gosub750:return
1655 printb$"{up}";:gosub750:return
1660 jg=jg-1:sysq,1,20,"{wht}you give a {grn}glass marble {gry3}"jg"{left}{left}{left}({rght} left)":f=2:ifk%=13thend%=d%+1:df%=df%+1:gosub550
1661 sysq,1,21,k$"{wht} trades{yel}"bb%"gold{wht} and"kw"points":pu=pu+kw:g=g+bb%
1662 sysq,1,23,k$" {wht}is now your ally";:d=6:gosub750:k%(px%,py%)=1:ifvo%>1thenvo%=vo%-1
1663 ifjg=.thensysq,20,13," {down}{down}{down}{down}{down}{down}{down}{down}{down}":ifk%=9ork%=10thenjg=-1
1665 return
1670 ifk%=14theniffb<2thenreturn
1671 ifk%=14theniffb=2thenpoke780,5:tw=60:gosub9270
1672 a$="x"
1673 a%=29:b%=2:c%=1:ifk%=11thenb%=4
1674 ifk%=13thena%=28:b%=4:c%=2
1676 ifk%=14thena%=28
1678 sysq,a%,b%,"{pur}{rvon}"a$spc(c%)a$:c%=0:a$="":return
1690 ifl<1thenreturn
1691 iffb=0thensysq,1,20,"{wht}this fight ain't over!"
1692 iffb=1thensysq,1,20,"{wht}i shall crush you next time!"
1693 iffb=2thensysq,1,20,"{wht}you can't kill me, unworthy imp!"
1694 iff=1thenfb=fb+1:iffb>2thenfb=2
1696 sysq,1,21,k$" {wht}moves away to {orng}depth"lv+1;
1697 iff=1thensysq,1,23,"{cyn}you only weakened the shaman":goto1699
1698 sysq,1,23,"{cyn}you did not defeat the shaman"
1699 sysq,1,24,"and have to face him again{up}";:d=9:gosub750:return
1700 gosub570:ifi%=0thensysq,1,21,"{wht}absolutely nothing in here";:goto1770
1710 sysq,1,20,"{gry3}close backpack":z=1
1715 forii=13to25:ifw(ii,2)=1thensysq,1,20+z,w$(ii);:i(z)=ii:z=z+1
1720 next:v=1:h=z:gosub700:a%=a%-1:ifa%=.thengosub570:return
1740 gosub570:c$="":ifi(a%)=13thengosub470
1744 ifi(a%)=14thenl=101:ae=1:c%=1
1746 ifi(a%)=15thenwd=1
1748 ifi(a%)=16thensw=1
1750 ifi(a%)=17thencf=1:c$="{lred}cf"
1752 ifi(a%)=18thenjg=jg+3:c$="{grn}jg"
1754 ifi(a%)=19thents=1:c$="{orng}ts"
1756 ifi(a%)=20thenhg=2:c$="{yel}hg"
1758 ifi(a%)>20thenl=l+w(i(a%),0):pm=pm+w(i(a%),1):c%=1:ifi(a%)=24ori(a%)=25thenos%=os%+1
1760 ifc%=0thensysq,1,21,"{wht}you use "w$(i(a%))" {rvon}"c$"{rvof}";
1762 ifc%=1thensysq,1,21,"{wht}you drink "w$(i(a%));:c%=0:ab%=1
1764 w(i(a%),2)=0:i%=i%-1
1770 gosub750:gosub570:return
2000 sysq,0,21,l$
2001 j=peek(56320)and127:ifj<>127then2001
2002 gete$:j=peek(56320)and127:ifj=127thenife$=""then2002
2003 ifj=126ore$="w"thene$="w":goto2030
2004 ifj=125ore$="s"thene$="s":goto2030
2005 au%=.:ifj=119ore$="d"thene$="d":goto2030
2006 ifj=123ore$="a"thene$="a":goto2030
2007 ifj=111ore$="i"ore$=chr$(13)thene$="i":gosub1700:return
2008 ife$="{f1}"then2100
2010 ifn$<>"cheator"then2000
2012 ife$="S"thene$="":s%=1:a%=1:goto5900:rem instant win - easter egg
2013 ife$="g"theng=g+20:return:rem gold
2014 ife$="m"thengosub470:return:rem map
2015 ife$="+"thenreturn:rem next lv
2016 ife$="!"thenl=100:pm=3.5:w%=12:ae=1:cf=1:sw=1:ts=1:wd=1:return:rem godmode
2017 rem ife$="&"thenifi%<4thengosub2300:return:rem item
2018 rem ife$="$"thenl=100:ae=1:cf=1:sw=1:ts=1:wd=1:return:rem max doping
2019 rem ife$="0"thensysq,0,22,"{cyn}u"u"{gry3}w%"w%" {pur}rq"nq;q$:rem debug
2020 rem ife$="0"thensysq,0,23,"{lgrn}jg"jg"{grn}vq"vq"vo%"vo%"l1"l1
2021 rem ife$="0"thensysq,0,24,"{cyn}ut"ut"{lblu}f"f"fb"fb"s%"s%"{yel}gm%"gm%;
2022 rem ife$="0"thensysq,0,22,"{lblu}df"df%"es"es%"zk"zk%"zo"zo%"fk"fk%"fg"fg%"os"os%:sysq,0,23,"{yel}ab"ab%"ac"ac%"{orng}gl"gl%"nu"nu%"{grn}ga"ga%
2023 rem ife$="F"thensysq,0,24,"{orng}free ram"fre(.)-65536*(fre(.)<.);
2024 rem ife$="%"thenpm=3.5:return:rem promille max
2025 rem ife$="."thenl=100:k%(px%,py%)=5:return:rem fallentest
2026 rem ife$=","thengosub4000:return:rem tranktest
2027 rem ife$="#"thengosub2200:return:rem npc test
2028 rem ife$="*"thend%=d%+1and7:gosub550:rem drache
2029 goto2000
2030 sysq,px%+1,py%+1," ":x=.:y=.
2040 ife$="d"thenpr=pr+1and3:return
2042 ife$="a"thenpr=pr-1and3:return
2044 ife$="w"thena%=-1:b%=1
2046 ife$="s"thena%=1:b%=-1
2050 ifpr=3thenifk%(px%+a%anddx%,py%)<>.thenx=a%:goto2080
2052 ifpr=1thenifk%(px%+b%anddx%,py%)<>.thenx=b%:goto2080
2054 ifpr=.thenifk%(px%,py%+a%anddy%)<>.theny=a%:goto2080
2056 ifpr=2thenifk%(px%,py%+b%anddy%)<>.theny=b%:goto2080
2070 sysq,1,21,"{wht}ouch!":pokesi+18,129:tw=15:gosub20:pokesi+18,128
2075 sysq,px%+1,py%+1,"{wht}"c$(pr):l=l-1:ifl<1then130
2076 gosub500:au%=au%+1:ifau%=3then2100
2077 goto2000
2080 px%=px%+xanddx%:py%=py%+yanddy%:sysq,px%+1,py%+1,"{wht}"c$(pr):return
2100 sysq,1,21,"{wht}do you want to give up?{yel} no yes";:h=2:c%=25:b%=4:gosub700
2101 e$="{f1}":ifa%=1then2000
2102 return
2200 rem sysq,0,20,"1h\n 2kob 3ork 4w\c 5fee":sysq,0,21,"6dkr 7tro/zom 8dra 9ful"
2205 rem gete$:a%=val(e$):ifa%=.then2205
2207 rem gosub570:ifa%=8thenk%(px%,py%)=13
2220 rem ona%gosub4200,5200,5300,5400,5100,6200,5600,5700,5800:gosub200:return
2300 rem sysq,0,20,"{gry3}1lz 2ae 3pw 4sa 5cf 6jg 7ts 8hg"
2304 rem gete$:a%=val(e$):ifa%=.then2304
2308 rem gosub570:w(12+a%,2)=1:i%=i%+1:return
4000 gosub570:sysq,29,5,"{rvon}{gry3}D":sysq,28,6,"{rvon}{grn}{SHIFT-POUND} {lgrn}{CBM-*}"
4010 sysq,28,7,"{rvon}{grn}{CBM--}{lgrn} ":sysq,28,8,"{rvon}{lgrn}{CBM--}{wht}% ":sysq,28,9,"{rvon}{grn}{CBM--}{lgrn} "
4015 gosub9650:gosub570:i=int(rnd(1)*100)+1:sysq,1,21,"{wht}you find ";
4020 z=21:ifi>29thenz=22
4024 ifi>49thenz=23
4026 ifi>80thenz=24
4027 ifi>90thenz=25
4028 printw$(z);:sysq,1,22,"{wht}take along {gry3}or {wht}drink up";:h=2:b%=15:gosub700
4032 ifa%=2thenprint" {wht}oh, that velvety aftertaste!";:l=l+w(z,0):pm=pm+w(z,1):ab%=1:ifz=24orz=25thenos%=os%+1
4035 ifa%=1thenifi%>3thenprint" {wht}too much baggage";:goto4040
4036 ifa%=1thenifw(z,2)=1thenprint" {wht}you have that already";:goto4040
4038 ifa%=1thenprint" {wht}you put it in your backpack";:w(z,2)=1:i%=i%+1
4040 k%(px%,py%)=1:gosub750:gosub570:return
4100 i=int(rnd(1)*5)+1+lv:g=g+i:a%=.:ifi<11thena%=1
4103 sysq,29,6,"{brn}{CBM-P}{CBM-O}{CBM-I}{CBM-O}{CBM-P}{down}{left}{left}{left}{left}{left}{left} {brn}{rvon}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{rvof}{CBM-H}{down}{left}{left}{left}{left}{left}{left}{rvon}{orng}{SHIFT-*}{SHIFT-*}{gry1}Z{brn}{SHIFT-*}{SHIFT-*}{rvof}{CBM-H}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
4105 print"{yel}{CBM-POUND}Q{CBM-+}{CBM-POUND}{rvon}{orng}{SHIFT-*}{SHIFT-*}{brn}{SHIFT-*}{rvof}{CBM-H}":ifi<6then4120
4110 sysq,28,7+a%,"{yel}{CBM-POUND}":sysq,26,8+a%,"{CBM-POUND}{CBM-+}Z{CBM-+}":ifa%=.thensysq,25,9,"Z{CBM-+}Q{rvon}{CBM-+}{CBM-POUND}{rvof}{CBM-+}{CBM-POUND}"
4120 poke780,6:tw=60:gosub9270:gosub570
4130 sysq,1,21,"{wht}you find{yel}"i"gold";:gosub750:gosub570:k%(px%,py%)=1:return
4200 gosub570:k$="{gry2}cami":pu=pu-5
4201 ib=int(rnd(1)*2):ifib=1thenk$="{lgrn}wendor":ps=.5:goto4280
4202 gosub9640:sysq,28,1,"{rvon}{gry2}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{down}{left}{left}{left}{left}{left}{gry2}{CBM-+}{wht}{CBM-POUND} {CBM-POUND}{gry2}{CBM-+}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
4203 print"{red}S{rvon}{gry2}{CBM-+}{CBM-+}{wht}W W{gry2}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{gry2}{CBM-K}{CBM-+}{CBM-+}{wht} {gry2}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
4204 print"{rvon}{gry2}{CBM-K}{rvof}{wht}{CBM-B} {rvon}{CBM-F}JK{CBM-D}{rvof} {rvon}{yel}{CBM-A}{CBM-S}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{gry2}{CBM-K}{rvof} {rvon}{wht}{CBM-F}{gry3}{CBM-POUND} {CBM-POUND}{rvof} {rvon}{yel}{CBM-Z}{CBM-X}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
4205 print"{rvon}{gry2}{CBM-K}{rvof} {rvon}sale{wht}{CBM-C}{rvof} {grn}T{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grn}*{rght}{rght}{rvon}{gry3} {rvof} {wht}{CBM-B}{pur}*{down}{left}{left}{left}{left}{left}{left}";
4206 print"{wht}{CBM--} {CBM--}{down}{left}{left}{left}{left}{wht}{CBM-POUND}{CBM--} {CBM--}";
4210 gosub9640:sysq,1,20,"{wht}keep walking {gry3}or {wht}browse "k$"'s{wht} wares:"
4211 ifw%>11thena(1)=20:goto4215
4212 a(1)=w%+1
4215 forx=1to3
4216 ifx>1thenz=int(rnd(.)*7)+13:a(x)=z
4217 ifx=2thenifw(z,2)=1then4216
4218 ifx=3thenifz=a(2)orw(z,2)=1then4216
4219 d=w(a(x),1)+lv+int(pm):ifib=1thend=int(d*ps)
4220 sysq,1,20+x,w$(a(x)):sysq,23,20+x,"{yel}gold"d;:next:v=1:h=4:gosub700
4230 a$="{gry3} troops onwards":ifa%=1andh%=1thensysq,0,18,l$:a$="{gry3} closes his store"
4231 ifa%=1andh%=2thensysq,0,18,l$:a$=":{cyn} nothing you want?"
4232 ifa%=1thengosub570:sysq,1,21,k$a$;:goto4260
4233 i=a%-1:k%=w(a(i),1)+lv+int(pm):ifib=1thenk%=int(k%*ps)
4237 gosub570:ifi=1thenifw%<12then4241
4238 ifi%>3thensysq,1,21,"{wht}can't carry any more stuff";:goto4260
4241 ifk%>gthensysq,1,21,"{wht}bummer! not enough gold";:goto4260
4244 ifw(a(i),2)=1thensysq,1,21,"{lred}"w$(a(i))" {wht}already owned";:goto4260
4250 ifi=1theng=g-k%:w%=a(1):ifa(1)=20thenw%=12:w(a(i),2)=1:i%=i%+1:he%=he%+1
4251 ifi>1theng=g-k%:i%=i%+1:w(a(i),2)=1
4256 sysq,1,21,"{wht}you buy "w$(a(i));:k%(px%,py%)=1:h%=0:gosub750:gosub570:return
4260 gosub750:ifh%<1thenk%=3:gosub680
4265 h%=h%-1:gosub570:return
4280 gosub9640:sysq,28,1,"{yel}{CBM-D}{CBM-+}{CBM-+}{CBM-+}{grn}X{down}{left}{left}{left}{left}{left}{left}{left}{left}{red}S {yel}{CBM-+}{CBM-+}{lred}{rvon} {yel}{rvof}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
4282 print"{red}H {yel}{CBM-+}{lred}{rvon}{CBM-C},{CBM-V}{yel}{rvof}{CBM-+}{CBM--}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{lred}{rvon}{CBM-Q}{rvof} {lred}{CBM-*}{rvon}JCK{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
4284 print"{grn}H{wht}{rvon}{CBM-C}{lgrn}{rvof}{CBM-F}{CBM-D}{wht}{rvon}{CBM-V}{CBM--}{CBM-C}{lgrn}{rvof}{CBM-F}{down}{left}{left}{left}{left}{left}{left}{left}{left}{yel}H{wht}{CBM-C}{rvon}{CBM-F}s ' {CBM-F}{lgrn}{rvof}{CBM-F}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
4286 print"{blu}H{wht} {rvon} al {CBM-V}{rvof}{CBM-V} {orng}{CBM-F}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{gry1}A{wht} {CBM-N}{rvon}EDDe{lred}{rvof}{CBM-V}{wht} {orng}{rvon}{CBM-F}{rvof}{CBM--}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
4288 print"{pur}{rvon}{CBM-POUND}{wht}{rvof}{CBM-T}{CBM-Y}{pur}{rvon}{CBM--}{wht}{rvof} {orng}{CBM-N}{rvon}{CBM-+}{CBM--}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvof}{brn}{CBM-POUND}{rvon}{CBM-+}{wht}{rvof} {brn}{rvon}{CBM-+}{rvof}{CBM-POUND}{orng}{rvon}{CBM-K} {CBM--}{rvof}";:goto4210
4400 sysq,1,20,k$"{gry3} attacks you!"
4402 sysq,1,21,"{red}fight {gry3}or {wht}retreat";
4403 rem if jg=1then print" {rvon}{grn}jg{rvof} geben";:b%=10:c%=4:h=3:gosub700:goto4406
4404 ifhg=2thenprint" {rvon}{yel}hg{rvof} throw";:b%=10:h=3:gosub700:goto4407
4405 b%=10:h=2:gosub700:return
4406 rem if a%=3thenjg=2:a%=1:return
4407 ifa%=3thenhg=3:a%=1:return
4408 return
4410 s=int(g/25+lv+rnd(1)*(2*g/25+lv)):rem s=int(rnd(1)*g/5)+int(rnd(.)*2*lv)
4415 gosub9900:sysq,px%+1,py%+1," ":sysq,0,21,l$
4416 sysq,1,21,"{wht}you make an escape...";:d=3:ifs>0thenprint" {red}health -"abs(s)"{left}%";
4418 ifg>50theng=g-int(g/100*(rnd(1)*11+10)):print:print"{wht} you lost {yel}gold {wht}on the run!";
4419 iflv>4thenfg%=fg%+1
4420 xf=int(rnd(1)*gx):yf=int(rnd(1)*gy):ifk%(xf,yf)<>1or(xf=px%andyf=py%)then4420
4425 l=l-s:k%(px%,py%)=1:u=2:return
4900 sysq,28,8,"{blu}M{lblu}MN{blu}N{down}{left}{left}{left}{left}N{lblu}NM{blu}M":gosub9630:gosub9660:k%(px%,py%)=1
4905 sysq,1,21,"{wht}the {red}trap {wht}can't do you any harm! {orng}{rvon}ts{rvof}";:gosub750:return
5000 gosub570:gosub9670:sysq,28,7," {down}{left}{left} {down}{left} ":i=int(rnd(1)*90)+10
5001 ifts=1then4900
5002 ifi>90theni=6:if(int(lv/2)<>lv/2)orlv=2theni=5:goto5009
5003 ifi>78theni=5
5004 ifi>60theni=4
5005 ifi>30theni=3
5006 ifi>20theni=2
5007 ifi>9theni=1
5008 rem ife$="."theni=6:rem fallgrube test
5009 onigosub5020,5030,5040,5050,5060,5070
5010 gosub750:gosub570:k%(px%,py%)=1:return
5020 sysq,27,8,"{rvon}{red}{SHIFT-POUND}{rvof}{lred};{yel};{lred};{yel};{red}{rvon}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{red}{SHIFT-POUND}{rvof}{lred};{yel};{lred};{yel};{lred};{yel};{red}{rvon}{CBM-*}"
5023 sysq,1,21,"{wht}you accidentally step on {red}lava {lred}-20%";:l=l-20:gosub9670:return
5030 sysq,27,8,"{rvon}{grn}{SHIFT-POUND},;,;{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{grn}{SHIFT-POUND};,;,;,{CBM-*}"
5033 sysq,1,21,"{wht}you valiantly walk through {red}thorns {lred}-12%";:l=l-12:gosub9670:return
5040 sysq,27,8,"{gry1}Q{gry2}{CBM-POUND}{gry1}{CBM-+}W{gry2}{CBM-POUND}{gry1}{CBM-POUND}":sysq,26,9,"{gry1}{CBM-POUND}{gry2}{CBM-+}{gry3}{CBM-+}{gry1}Q{gry2}{CBM-+}{gry3}Q{gry2}{CBM-+}{gry1}{CBM-POUND}"
5043 sysq,1,21,"{wht}you trip over some nasty {red}rubble {lred}-8%";:l=l-8:gosub9670:return
5050 sysq,26,1,"{gry3}B B B{down}{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{gry2}W W W W"
5053 sysq,1,21,"{wht}you trigger a hidden {red}arrow trap {lred}-15%";:l=l-15
5054 foru=.to3:gosub9630:next:return
5060 sysq,27,8,"{gry2}{CBM-A}{yel}>{lblu}V{cyn}V{yel}<{gry2}{CBM-S}{down}{left}{left}{left}{left}{left}{left}{left}{gry3}{CBM-A}{yel}>{lblu}V{cyn}V{lblu}V{cyn}V{yel}<{gry3}{CBM-S}"
5065 foru=.to5:gosub9660:next:s=9:sysq,px%+1,py%+1," ":gosub4420
5068 sysq,1,21,"{wht}you run confused into a {red}teleportal {lred}-9%";:return
5070 sysq,27,8,"{rvon}{gry2}{SHIFT-POUND}{gry1}{CBM--} {gry2}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND} {gry1}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-POUND}{gry2} {CBM-*}":u=1:l=l-10:ifvq=1thenl1=l1+1
5073 sysq,1,21,"{wht}you plump down to depth"lv+1"{lred}-10%";:gosub9670:return
5100 gosub570:i=int(rnd(1)*10)+5+lv
5101 ib=int(rnd(1)*2):b$="{yel}good ":f$="{yel}":ifib=1thenb$="{pur}evil ":f$="{pur}"
5102 sysq,28,2,"{rvon}"f$"{SHIFT-POUND}{CBM-POUND}{CBM-*}":ifib=1thensysq,26,3,"{rvon}{wht}{SHIFT-POUND}{pur}{SHIFT-POUND}M N{CBM-*}{rvof}{blu} {lgrn}A":goto5104
5103 sysq,26,3,"{rvon}{wht}{SHIFT-POUND}{yel}{SHIFT-POUND}{CBM-@} {CBM-@}{CBM-*}{rvof}{blu} {lgrn}A"
5104 sysq,25,4,"{rvon}{wht}{SHIFT-POUND}{CBM-+}"f$" {lred}W W"f$" {wht}{CBM-*}{rvof}{grn}B":sysq,25,5,"{rvon}{wht}{CBM-+}{CBM-+}"f$" {lred} {wht}{CBM-+}{CBM-+}{rvof}{grn}B"
5105 sysq,25,6,"{rvon}{wht}{CBM-+}{lred} {wht}{CBM-+}{rvof}{lred}{CBM-*}{rvon}{CBM-Y}{rvof}{SHIFT-POUND}{rvon}{wht}{CBM-+}{CBM-+}{lred} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{wht}{CBM-+}{CBM-+}{rvof}{lred}{CBM-*}{rvon} , {CBM-P}{CBM-O}{rvof}{CBM-T}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
5106 print"{rvon}{wht}{CBM-+}{CBM-+}{gry3}S S{wht}{CBM-+}{down}{left}{left}{left}{left}{left}{rvon}{gry3}{SHIFT-POUND}{$a0}{$a0}{$a0}{CBM-*}{down}{left}{left}{left}{left}{rvon}{lred}{CBM-K}{rvof} {CBM-K}";
5107 gosub9610:ifcf=1andib=1then5150
5108 ifcf=1theni=i+i:sysq,1,21,"{lred}{rvon}cf{rvof} {wht}doubles the wish power!";:gosub750
5110 gosub570:o=int(i/10*100+.01):gosub26
5120 b%=14:sysq,0,20,b$"fairy:":ifib=1then5130
5121 sysq,0,21,"{wht}what wish may i grant you?"
5123 sysq,1,22,"{lred}+"i"health":sysq,15,22,"{pur}+ "o$" boozy":sysq,29,22,"{yel}+"i"gold";:h=3:gosub700
5125 ifa%=1thenl=l+i
5126 ifa%=2thenpm=pm+(i/10):ifpm>3.5thenpm=3.5
5127 ifa%=3theng=g+i
5128 sysq,1,24,"{wht}the "b$"fairy {wht}fulfills your desire!";:goto5145
5130 sysq,0,21,"{wht}choose your curse!"
5132 sysq,1,22,"{lred}-"i"health":sysq,15,22,"{pur}- "o$" boozy";:ifg-i<.thenh=2:goto5135
5133 sysq,29,22,"{yel}-"i"gold";:h=3
5135 gosub700:ifa%=1thenl=l-i
5136 ifa%=2andpm-(i/10)<.thenprint" {wht}you have too little boozy!";:gosub750:gosub570:goto5120
5137 ifa%=2thenpm=pm-(i/10):ifpm<.thenpm=.
5138 ifa%=3theng=g-i
5142 sysq,1,24,"{wht}the "b$"fairy{gry3} cries a curse! ";:ifl<.thenl=1
5145 gosub750:gosub570:k%(px%,py%)=1:return
5150 sysq,28,4,"{rvon}{lred}x x":sysq,1,21,w$(17)" {wht}smacks her up!":i=int(rnd(.)*5)+1
5152 sysq,1,22,"{pur}evil fairy {wht}drops {yel}"i"gold";:g=g+i:fk%=fk%+1:goto5145
5200 wk=int(rnd(1)*6)+1:wp=int(rnd(1)*6)+1:i=int(rnd(1)*4)+lv
5201 sysq,28,1,"{lred}{CBM-B} {CBM-D}{rvon}{CBM-B}{down}{left}{left}{left}{left}{rvon}{gry2}{SHIFT-POUND}WW{CBM-*}{down}{left}{left}{left}{left}{left}";
5202 print"{rvon}{lred}{CBM-B}{gry2}: :{rvof}{lred}{CBM-B}{down}{left}{left}{left}{left}{left}{left}{rvof}{grn}{CBM-@}{gry2}{CBM-*}{rvon}JK{rvof}{SHIFT-POUND}{grn}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
5203 print"{rvon}{gry2}{CBM-C}{grn}{SHIFT-POUND}{lred}1{grn} {CBM-E}{CBM-E} {yel}1{grn}{CBM-*}{gry2}{CBM-V}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{grn}{CBM-F}CC{CBM-POUND}{yel}{CBM-POUND}{CBM-POUND}{grn}{CBM-POUND}CC{CBM-D}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}";
5204 print"{rvon}{red}{CBM-A}{CBM-E}{CBM-E}{CBM-S}{rvof}{down}{left}{left}{left}{left}{rvon}{red}{SHIFT--}{CBM-D}{CBM-F}{SHIFT--}{rvof}{down}{left}{left}{left}{left}{left}";
5205 print"{CBM-@}{rvon}{yel}{CBM-POUND}{rvof} {rvon}{CBM-POUND}{rvof}{red}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{rvon}{lgrn}{CBM-I}{CBM-I}{rvof} {rvon}{CBM-I}{CBM-I}{rvof}";:gosub9650
5206 gosub570:sysq,1,20,"{gry2}goblin:{gry3} let's roll the dice!"
5207 sysq,1,21,"{cyn}thy bet: {grn}all-in {yel}"i"gold";:sysq,29,21,"{red}nothin'";
5208 b%=9:c%=10:h=3:gosub700
5210 if(a%=1andg<1)or(a%=2andg<i)thensysq,1,22,"{wht}not enough shinies!":goto5250
5212 ifa%=3thensysq,0,21,l$:goto5249
5214 ifa%=1thenu$=" {grn}all-in":zo%=zo%+1
5216 ifa%=2thenu$="{yel}"+str$(i)+" gold"
5220 sysq,10,21,u$left$(l$,29-len(u$))
5221 forx=.to9:e$=right$(str$(int(rnd(1)*6)+1),1)
5222 sysq,27,5,"{lred}{rvon}"e$"{rght}{rght}{rght}{rght}{yel}{rvon}"e$:tw=x*x/9:gosub20:gosub9670:next
5224 sysq,27,5,"{lred}{rvon}"right$(str$(wk),1)"{rght}{rght}{rght}{rght}{yel}{rvon}"right$(str$(wp),1)
5226 sysq,1,22,"{orng}dice result: {gry2}goblin{lred}"wk" {wht}you{yel}"wp
5230 a$="{grn}you win{yel}":b$="{red}you lose{yel}":c$="{wht}draw"
5231 ifa%=2goto5240
5232 ifwk<wpthensysq,1,23,a$g"gold";:g=g+g:goto5255
5234 ifwk>wpthensysq,1,23,b$g"gold";:g=0:goto5252
5236 ifwk=wpthensysq,1,23,c$;:goto5252
5240 ifwk<wpthensysq,1,23,a$i"gold";:g=g+i:goto5252
5242 ifwk>wpthensysq,1,23,b$i"gold";:g=g-i:goto5252
5244 ifwk=wpthensysq,1,23,c$;:goto5252
5249 sysq,1,22,"{wht}no dice."
5250 sysq,1,23,"{gry2}goblin {wht}smacks you! {lred}health -"i"{left}%";:l=l-i:gosub9670
5252 gosub750:k%(px%,py%)=1:gosub570:a$="":return
5255 poke780,6:tw=60:gosub9270:if(rnd(1)*100)>1ori%=4then5252
5258 sysq,1,24,"{yel}jackpot! "a$" "w$(20);:w(20,2)=1:i%=i%+1:d=5:goto5252
5300 k$="{lred}orc":ib=int(rnd(1)*8):kw=23+n%:k%=9:bb%=rnd(1)*6+1:ifvo%=1then5400:rem ib=4+5 champ 6 hero 7 alke
5301 ifvq=1thenkw=kw+9:bb%=bb%+3:goto5305
5302 if(ib>3andlv>2)thenk$="{lred}orc champ":kw=kw+6:bb%=bb%+2
5303 if(ib>5andlv>3)thenk$="{lred}orc hero":kw=kw+15:bb%=bb%+5
5304 if(ib>6andlv>4)thenk$="{lred}orc chief":kw=kw+20:bb%=bb%+5
5305 sysq,24,1,"{rvon}{gry3}{SHIFT-POUND}{CBM-*}{rvof} {grn} {rvon}{SHIFT-POUND}{CBM-POUND}{CBM-POUND}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
5306 print"{rvon}{gry3}{CBM-J}{CBM-L}{rvof} {lgrn}{CBM-*}{grn}{CBM-+}{lgrn}W{rvon}{grn}{CBM--}{rvof}{lgrn}W{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{gry3}{CBM-J}{CBM-L}{rvof} {grn}{CBM-J}{rvof}{wht}{CBM-D}{rvon}{grn}R{rvof}{wht}{CBM-F}{grn}{CBM-K}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5307 print"{rvon}{gry3}{CBM-J}{CBM-L}{grn}{SHIFT-POUND} {orng}{SHIFT-+}{grn}CCC{orng}{SHIFT-+}{grn} {CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{gry3}{CBM-J}{CBM-L}{grn}{$a0}{$a0}{$a0} {gry3}{CBM-POUND}{CBM-POUND}{CBM-POUND}{gry2}{CBM-POUND}{grn} {rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5308 print"{rvon}{gry1}{CBM-F}{CBM-D}{grn}{CBM-B} {CBM-N}{rvof}{gry3}{CBM-+}{CBM-+}{CBM-+}{gry2}{CBM-+}{rvon}{grn}{CBM-G}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{grn}{CBM-C}{CBM-B}{rvof}{SHIFT-POUND}{rvon}{blk} {orng}{CBM-POUND}{CBM-POUND}{gry2}{CBM-+}{gry3}{CBM-+}{gry2}{CBM-+}{CBM-+}{rvof}{grn}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}";
5309 print"{rvon}{grn}{CBM--}{orng}{SHIFT-+}{SHIFT-+}{rvof}{gry2}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{rvon}{grn}{CBM--}{rvof} {rvon}{grn} {rvof}{down}{left}{left}{left}{left}{left}{rvon}{grn}{SHIFT-POUND} {blk} {grn} {CBM-*}{rvof}";
5310 ifk$="{lred}orc champ"thensysq,28,1,"{gry3}{rvon}{SHIFT-POUND}{CBM-POUND}{CBM-POUND}{CBM-*}{down}{down}{down}{left}{left}{left}{left}{left}{left}{yel}{SHIFT-POUND} {orng}champ{yel} {CBM-*}{rvof}";
5311 ifk$="{lred}orc hero"thensysq,28,1,"{red}{rvon}{SHIFT-POUND}{CBM-POUND}{CBM-POUND}{CBM-*}{down}{down}{down}{left}{left}{left}{left}{left}{left}{red}{SHIFT-POUND} {orng}hero{red} {CBM-*}{rvof}";
5312 ifk$="{lred}orc chief"thensysq,28,1,"{pur}{rvon}{SHIFT-POUND}{CBM-POUND}{CBM-POUND}{CBM-*}{down}{down}{down}{left}{left}{left}{left}{left}{left}{pur}{SHIFT-POUND} alke1 {CBM-*}{rvof}";
5314 poke780,4:tw=60:gosub9270:gosub570
5320 gosub4400:ifa%=1thengosub1600:gosub8570:goto5330
5325 gosub8580:gosub4410:gosub750:gosub680
5330 gosub9670:gosub9630:h=1:gosub570:return
5400 k$="{lred}guard":kw=n%+10:k%=10:bb%=rnd(1)*3+1
5401 sysq,25,1,"{rvon}{gry3}{SHIFT-POUND}{rvof} {gry2}{rvon}{SHIFT-POUND}{CBM-POUND}{CBM-POUND}{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{gry3}{rvon}G{rvof} {lgrn}{CBM-*}{gry2}{CBM-+}{red}W{rvon}{gry2}{CBM--}{rvof}{red}W{lgrn}{SHIFT-POUND}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
5402 print"{rvon}{gry1}{CBM-J}{rvof} {gry2}{CBM-M}{rvon}{CBM--}{rvof}{wht}{CBM-D}{rvon}{gry2}R{rvof}{wht}{CBM-F}{gry2}{CBM-H}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{gry1}{CBM-J}{gry2}{SHIFT-POUND} {orng}V{grn}{CBM-POUND}{CBM-POUND}{CBM-+}{orng}V{gry2} {CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5403 print"{rvon}{gry1}{CBM-J}{gry2} {gry3}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{grn} {rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{grn}R{CBM-B}{$a0}{$a0}{$a0}{gry3}stop{grn}{CBM-G}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5404 print"{rvon}{grn}C{rvof}{SHIFT-POUND}{orng}{CBM-L}{rvon}{CBM-POUND}{CBM-POUND}{gry3}{CBM-+}{CBM-+}{CBM-+}{CBM--}{rvof}{grn}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{gry1}{CBM-J}{rvof} {orng}{CBM-M}{rvon}{SHIFT-+}{SHIFT-+}{gry3}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5405 print"{rvon}{gry1}{CBM-K}{rvof} {orng}{CBM-N}{gry2}{rvon}{CBM--}{blk} {orng}{SHIFT-+}{gry2}{CBM--}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{gry1}{CBM-C} {rvon}{gry2}{SHIFT-POUND} {rvof} {rvon}{CBM--}{CBM-*}{rvof}";:gosub9670
5410 gosub570:sysq,1,20,k$"{wht} stands in the way..."
5411 sysq,1,21,"{red}duel {gry3}or {yel}toast to orcish beer";:b%=9:h=2:gosub700
5416 ifa%=1thengosub1600:gosub750:gosub8570:goto5428
5425 l=l+5:pm=pm+1:os%=os%+1:ab%=1:sysq,1,22,k$"{wht} guard dozes off":sysq,29,2,"{grn}{CBM-O}{rght}{CBM-O}";
5427 sysq,1,23,"you get{yel} 5% health{wht} and {pur}1.00 boozy";:gosub750:gosub8580
5428 gosub570:k%(px%,py%)=1:return
5500 k$="{yel}gnome":k%=11:w=g:bb%=int(rnd(1)*10)+1
5501 sysq,29,2,"{grn}{CBM-@}{CBM-O}{CBM-P}{CBM-@}{down}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}{CBM-@}{CBM-POUND}{CBM-@}{CBM-POUND}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{rvon}{CBM-F}{lred}W W{grn}{CBM-L}{CBM--}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}";
5504 print"{lred} J{rvon} K {rvof}K{orng}Q{down}{left}{left}{left}{left}{left}{left}{left}{brn}{CBM-B}{gry1}{CBM-V}{lred}{CBM-*}{rvon}E{rvof}{SHIFT-POUND} {down}{left}{left}{left}{left}{left}{left}{lred}{rvon}{CBM-Q}{gry3}{CBM-@}:{lred} {gry3}:{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}";
5507 print"{brn}{CBM-N}{rvon} {gry1}{rvof}{CBM-J}{gry3}{rvon}{CBM-C}*{CBM-V}{CBM-H}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{brn}{CBM-L}{rvon}{CBM-POUND}{gry1}{rvof}{CBM--}{orng}{rvon}{CBM-G}{CBM-@}{CBM-M}{lred}{SHIFT-@}{down}{left}{left}{left}{left}{left}";
5509 print"{rvof}{gry1}{CBM-D}{brn}{rvon}{CBM-V}{SHIFT--}{CBM-C}{gry1}{rvof}{CBM-F}";:pokeco+233,int(rnd(.)*15)+1:gosub9680
5510 gosub570:sysq,1,20,k$"{wht}: exchange {yel}gold {wht}for {lred}health":w1%=100-l:ifw1%>gthenw1%=g
5511 w2%=w1%/2:ifl=100thenw1%=g/2
5513 sysq,0,21,"{grn}"w2%"gold":sysq,10,21,"{lgrn}"w1%"gold":sysq,21,21,"{red}fight";:b%=10:h=3:gosub700:ifa%=1thenw1%=w2%
5514 ifa%=3thengosub5540:kw=20+n%:gosub1600:k%(px%,py%)=1:gosub570:return
5516 ifl<100andw1%>.thenl=l+w1%:sysq,0,22,"{yel}"w1%"gold {wht}traded";:goto5520
5517 gosub680:ifw1%>.thensysq,1,22,"{wht}you give the gnome{yel}"w1%"gold";:goto5520
5518 sysq,1,22,"{wht}the gnome disappears";
5520 g=g-w1%:gosub750
5530 k%(px%,py%)=1:gosub570:return
5540 sysq,27,3,"{gry2}{rvon}{SHIFT-POUND}{grn}{SHIFT-POUND}M{CBM-POUND}N{down}{left}{left}{left}{left}{left}{gry2}H{down}{left}{SHIFT--}{down}{left}G{rvof} {lred}{CBM-*}{CBM-I}{down}{down}{left}{left}{left}{left}{left}{brn} {CBM-C} {down}{left}{left}{left} "
5542 u$="{wht}you leap into battle!":return
5600 k$="{lred}troll":kw=35+n%:k%=12:bb%=rnd(1)*10+11:c$=chr$(34)
5601 iflv=5thenk$="{lred}zombie":kw=37+n%:k%=12:bb%=rnd(1)*5+1:goto5620
5602 iflv>5thenib=int(rnd(1)*3):ifib>1thenk$="{lred}zombie":kw=40+n%:bb%=rnd(1)*5+5:goto5620
5605 sysq,24,1,"{gry2} {CBM-F} {lgrn}{CBM-@}{rvon}{SHIFT-POUND}{CBM-@} {CBM-*}{rvof}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5606 print"{grn}{CBM-D}{gry2}{rvon}{CBM-N}{rvof} {grn}{CBM-*}{rvon}{CBM--}{lgrn}W W{grn}{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grn}{CBM-L}{rvon}{CBM--}{CBM-*}{red}{rvof}{CBM-@}{grn}{rvon}{CBM--}F{lgrn}{CBM-G}{grn}I{rvof}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5608 print"{gry2}{CBM-M}{rvon}{CBM-M}{grn} {orng} {grn}{rvof}{CBM-*}{rvon} {lgrn}L{grn}{rvof}{SHIFT-POUND}{orng}{rvon} {CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{gry2}{CBM-L}{rvon} {orng}{rvof}{CBM-*}{rvon}{CBM-POUND}{CBM-@}{CBM-T}{CBM-Y} {CBM-POUND} {red}{rvof}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5610 print"{gry2}{rvon}{CBM-J}{CBM-C}{rvof}{CBM-H}{gry1}{rvon}{CBM-+}:{CBM-T}V{CBM-T}:{grn}{CBM-G}{gry2}{rvof}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{CBM-H}{CBM-B}{rvof}{CBM-J}{gry1}{rvon}{CBM-@}:{CBM-@}V{CBM-@}:{grn} {rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5612 print"{gry2}{rvon} {rvof}{CBM-B}{rvon}{CBM-L}{brn} {CBM-T}{CBM-T}{CBM-Y}{CBM-T}{CBM-T}{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{gry2}{rvon}{CBM-D} {rvof}{CBM-J}{brn}{rvon}{CBM-F}{CBM--}{CBM-D}{CBM-F}{CBM-POUND}{CBM-D}{orng}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5614 print"{gry2}{rvon}{CBM-F}{CBM-B}{grn}{rvof}{CBM-D}{rvon}{CBM-U}{CBM-POUND}{rvof}{CBM-J}{CBM-L}{rvon}{CBM--}{CBM-Y}{rvof}{CBM-V}";:gosub9670
5615 goto5630
5620 sysq,28,1,"{grn}{CBM-D}{rvon}-'{red}I{rvof}{CBM-F}{down}{left}{left}{left}{left}{left}{grn}{rvon}{CBM-J}{red}W{grn},{red}Q{rvof}{CBM--}{down}{left}{left}{left}{left}{left}{grn}{CBM-L}";:print"{rvon}"c$"{CBM-P}"c$"{rvof}{CBM-H}"
5623 sysq,28,4,"{gry2} {grn}{CBM-B}{rvon}{CBM-U}{CBM-B}{gry2}{rvof}{down}{left}{left}{left}{left}{brn}{rvon}{SHIFT-POUND}{CBM-F}{CBM-Y}{CBM-T}{CBM-*}{down}{left}{left}{left}{left}{left}{CBM--}O P{CBM-M}{down}{left}{left}{left}{left}{left}{CBM-G}{gry1}OE{CBM-T}{red}{rvof}{CBM-U}"
5627 sysq,28,8,"{grn}{rvon}{CBM-POUND}{gry1}{CBM--}{CBM-POUND}{CBM--}{rvof}{CBM-G}{down}{left}{left}{left}{left}{gry1}{rvon}{CBM--}{rvof}O{rvon}{CBM--}{lblu}{rvof}{down}{left}{left}{left}{left}{gry3}{CBM-D}{grn}{rvon}{CBM-POUND}{lblu}{rvof} {grn}{rvon}{CBM--}{rvof}{CBM-F}":gosub9670
5630 gosub570:gosub4400:ifa%=1thengosub1600:goto5640
5635 gosub4410:gosub750:gosub680
5640 gosub570:return
5700 bb%=rnd(.)*3+8:k%=13:kw=int((d%+3)*5+25):bb%=bb%+(d%+5)*2:c$=chr$(34)
5702 f$=mid$("{grn}{orng}{red}{blu}{gry2}{gry3}{yel}",d%+1,1):e$=mid$("{lgrn}{brn}{orng}{lblu}{gry3}{wht}{wht}",d%+1,1):k$=f$+"dragon"
5704 sysq,24,1,"{rvon}"e$" {rvof}"f$"{CBM-B} {rvon}{yel}{CBM-*}{rvof} {rvon}{yel}{SHIFT-POUND}{rvof} {rvon}"f$"{CBM-B}"e$" "
5706 sysq,24,2,"{rvon} {rvof}"f$"{CBM-B}{rvon}{CBM--}{CBM-POUND}{rvof}{CBM-POUND}{CBM-POUND}{rvon}{CBM-POUND}{CBM--}{CBM-B}"e$" "
5708 sysq,24,3,"{rvon}"e$" {rvof}"f$"{CBM-B}{rvon}{CBM-B}U{rvof}"e$"{CBM-*}{rvon}"f$"::{rvof}"e$"{SHIFT-POUND}{rvon}"f$"I{rvof}{CBM-B}{rvon}{CBM-B}"e$" "
5710 sysq,24,4,f$"{CBM-B}{rvon}"e$" "f$":{rvof}{pur}Q"e$"{rvon}{CBM-+}{CBM-+}{rvof}{pur}Q{rvon}"f$":"e$" "f$"{CBM-B}"
5712 sysq,24,5,"{rvon}"e$" {rvof}"f$"{CBM-B}{rvon}J{CBM-+}{rvon})({rvof}"f$"{CBM-+}{rvon}K{CBM-B}"e$" "
5714 sysq,24,6,"{rvon}"e$" {rvof}"f$"{CBM-B}{rvon}"e$" {rvof}"f$"{CBM-*}{rvon}J{rvof}{wht}"c$c$"{rvon}"f$"K{rvof}{SHIFT-POUND}{rvon}"e$" "f$"{CBM-B}"e$" "
5716 sysq,24,7,f$"{CBM-B}{rvon}"e$" {rvof}{CBM-B}"f$"{rvon}{CBM--}{rvof}{lred}{CBM-POUND}{CBM-POUND}{rvon}"f$"."e$"{CBM-B} "f$"{CBM-B}"
5718 sysq,25,8,f$"{CBM-B}"e$"{CBM-B}{rvon}"f$"{SHIFT-POUND}{CBM-+}{CBM-POUND}{CBM-POUND}{rvof}{CBM-+}{rvon}{CBM-*}"e$"{CBM-B}"f$"{CBM-B}"
5720 sysq,26,9,e$"{CBM-*}{rvon}"f$"{CBM--}{CBM-+}{yel}::"f$"{rvof}{CBM-+}{rvon}:"e$"{rvof}{SHIFT-POUND}"
5722 sysq,26,10,"{rvon}{wht}{CBM-V}"f$" {wht}{CBM-V}"f$".{CBM-POUND}{wht}{CBM-C}"f$" {wht}{CBM-C}":gosub9620:gosub9620
5724 gosub570:gosub4400:ifa%=1thengosub1600:goto5730
5725 gosub4410:gosub750:gosub680
5730 gosub570:return
5800 k$="{lred}fulgore":k%=14:kw=100-d%*10:ifkw<30thenkw=30
5801 bb%=rnd(1)*100+d%
5802 sysq,24,1,"{yel}* {grn} {rvon}{SHIFT-POUND}M{CBM-POUND}N{rvof}{CBM-F}{gry1}{CBM-D}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{yel}B {orng}{CBM-*}{grn}{CBM-+}{lgrn}W{rvon}{grn}{CBM-+}{rvof}{lgrn}W{orng}{SHIFT-POUND} {rvon}{brn} {grn}{CBM-C}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5804 print"{yel}VC*{rvon}{grn}{CBM-J}{rvof}{wht}{CBM-D}{rvon}{grn}{CBM-POUND}{rvof}{wht}{CBM-F}{grn}{CBM-G} {rvon}{CBM-J}{gry3}M{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5805 print"{yel}B {rvon}{orng}{SHIFT-POUND}{rvof}{rvon}{CBM-+}{grn}{CBM--} {rvof}{orng}{CBM-+}{rvon}{orng}{CBM-*}{grn}{SHIFT-POUND}{rvof}{SHIFT-POUND}{gry3}{CBM-*}{rvon}M{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5806 print"{yel}* {rvon}{grn} {orng}{SHIFT-+}{CBM-R}{CBM-R}{SHIFT-+}{grn} {rvof}{SHIFT-POUND} {gry3}{CBM-*}{rvon} {rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5807 print"{rvon}{brn} {rvof}{grn}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{gry2}{rvon}V{gry3}VV{gry2}V{rvof}{gry1}{CBM-V} {rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
5808 print"{rvon}{grn}{CBM-Q}{rvof}{SHIFT-POUND}{gry2}{rvon}{SHIFT-POUND}{gry3}{CBM-+}{orng}{SHIFT--}{SHIFT--}{gry3}{CBM-+}{gry2}{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{brn}{CBM-K}{rvof}{CBM-J}{gry1}{CBM-+}{rvon}{grn}{CBM-H}{orng}{CBM-POUND}{CBM-POUND}{grn}{CBM-M}{rvof}{gry1}{CBM--}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
5810 print"{brn}{CBM-L}{CBM-J} {rvon}{grn}{CBM--}{rvof} {rvon}{CBM--}{down}{left}{left}{left}{left}{left}{left}{rvon}{brn}{CBM-L}{rvof}{rvon}{grn}{SHIFT-POUND}{CBM-POUND}{rvof} {rvon}{CBM-POUND}{CBM-*}{rvof}";
5811 iffb>.thensysq,34,4,left$("{red}{CBM-*}{down}{CBM-*}",fb+fb)
5812 gosub9620
5820 gosub570:gosub4400:ifa%=1thengosub1600:gosub570:u=3:return
5825 gosub4410:sysq,1,23,k$"{wht} advances to {orng}depth"lv+1;:gosub750:gosub200:return
5880 gosub200:gosub570:ifs%=1then5900
5881 ifl<1thensysq,2,21,"{wht}fulgore struck you down{gry3}...":v=3:gosub750:goto5950
5882 u=.:goto110
5900 poke780,1:gosub9200:print"{clr} {grn}the victory is yours!":print"{wht} you bested fulgore!";
5901 ifd%>.thenprint"{left} and"d%"of his"chr$(13)" fierce dragons!";
5903 print" sledgie is free"
5904 print" to plunge into his next adventure...{down}"
5907 print" {gry1}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-POUND} {CBM-+}";
5908 print" {gry1}{CBM-+}{CBM-+}{CBM-+}{gry2}{CBM-+} {gry1}{CBM-+}{gry2}{CBM-+}{CBM-POUND} {gry1}{CBM-POUND}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}";
5909 print" {gry1}{CBM-+}{CBM-+}{gry2}{CBM-+}{CBM--}{$a0}{$a0}{$a0}{gry1}{CBM-+}{CBM-+}{gry2}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{gry1}{CBM-POUND}{CBM-POUND}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{gry2}{CBM-+}{$a0}{$a0}{$a0}{red}{rvon}{SHIFT-POUND} {rvof}{CBM-V}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{gry1}{CBM-+}{gry2}{CBM-+}{CBM-+}";
5910 print"{$a0}{$a0}{$a0}{gry1}{CBM-+}{gry2}{CBM--} {gry1}{CBM-+}{CBM-+}{CBM-+}{gry2}{CBM-+}{CBM-+}{gry1}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{gry2}{CBM-+}{CBM--}{red} {rvon}{CBM-V} {CBM-C}{rvof} {gry1}{CBM-+}{gry2}{CBM-+}{CBM-+}{gry3}{CBM-+}";
5911 print"{$a0}{$a0}{$a0}{gry1}{CBM-+} {gry1}{CBM-+}{CBM-+}{gry2}{CBM-+}{CBM-+}{gry1}{CBM-+} {CBM-+}{CBM-+}{gry2}{CBM-+} {red}{rvon}{CBM-K} M{CBM-C}{rvof} {gry2}{CBM-+}{CBM-+}{gry3}{CBM-+}{wht}{CBM-+}";
5912 print" {gry1}{CBM-+}{CBM-+}{gry2}{CBM-+}{gry1}{CBM-+}{CBM--} {CBM-+}{gry2}{CBM--} {red}{rvon} {CBM-POUND}{CBM-@}{CBM-@}{CBM-POUND} {rvof} {lred}{CBM-F} {gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5913 print" {gry1}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM--} {red}{rvon}{CBM-G}{lred}Q Q{red}{CBM-M}{rvof} {lred}{rvon}{CBM-@}{rvof}{$a0}{$a0}{$a0}{gry1}{CBM-+}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5914 print" {gry1}{rvon} {gry2}{CBM-*}{rvof} {gry1}{CBM-+} {CBM--} {wht}{rvon}{CBM-K}{lred} K {wht}{CBM-L}{red}{rvof} {blu}{rvon} {rvof}{$a0}{$a0}{$a0}{gry1}{CBM-+}{gry3}{CBM-+}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5915 print" {orng}{CBM-*}{gry1}{rvon} {gry2}{CBM-*}{rvof} {gry1}{CBM--} {wht}{rvon}{CBM-POUND}{lred} {red}{rvof}{CBM-D}{CBM-F}{lred}{rvon}{CBM-V}{wht}{CBM--}{blu}{SHIFT-POUND}{CBM-M}{rvof}{$a0}{$a0}{$a0}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5916 print" {orng}{CBM-*}{brn}{rvon} {rvof}{SHIFT-POUND}{wht} {red} {blu}{CBM-I}{wht}{CBM-*}{rvon}{CBM--}{lred} {wht}{CBM--}{rvof}{SHIFT-POUND}{blu}{rvon}{CBM--}{CBM-L}{red}{rvof}{$a0}{$a0}{$a0}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5917 print" {brn}{rvon} {gry3}M{CBM-*}{wht}{rvof} {blu}{rvon}{CBM-V} {CBM-H}{wht}{rvof}{CBM-*}{rvon}{CBM--}{CBM-+}{rvof}{SHIFT-POUND}{blu}{rvon}{CBM-N}{rvof}{SHIFT-POUND} {gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{CBM-+}{rvon} {rvof}";
5918 print" {brn}{SHIFT-POUND}{gry3}{CBM-*}{rvon}M{CBM-*}{rvof} {brn}{CBM-P}{CBM-O}{CBM-I}{CBM-I}{CBM-I}{CBM-O}{CBM-P} {blu}{rvon} {CBM-B}M{rvof}{CBM-+}{wht}{CBM-*}{SHIFT-POUND}{blu}{rvon}{CBM-+}N{rvof}{CBM-H}{$a0}{$a0}{$a0}{gry1}{CBM-+}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5919 print" {gry3}{CBM-*}{rvon}M{CBM-*}{yel}{rvof}: {brn}{rvon}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{rvof}{CBM-H} {blu}{CBM-*}{rvon} {lred} {blu}M{rvof}{CBM-+}{CBM-+}{rvon}N{CBM-N}{rvof} {gry1}{CBM-+}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5920 print" {orng}{rvon}{CBM-U}{rvof} {yel}: {gry3}{CBM-*}{yel}{CBM-+}{gry3}{rvon}{CBM-*}{wht}{rvof} : {orng}{rvon}{SHIFT-*}{brn}{SHIFT-*}{orng}{SHIFT-*}{gry1}Z{orng}{SHIFT-*}{brn}{SHIFT-*}{SHIFT-*}{rvof}{CBM-H}{$a0}{$a0}{$a0}{orng}{CBM-L}{rvon}{CBM-T}{yel}O{orng}{CBM-Y}{CBM-T}{rvof}{CBM-K} {gry1}{CBM-+}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5922 print"{grn}{CBM-D}{rvon} {lgrn}{rvof}{CBM-F} {yel}{CBM-POUND}Q{CBM-+}{CBM-+}{rvon}{CBM-POUND}{rvof}{CBM-+}Z{CBM-POUND}{orng}{rvon}{SHIFT-*}{SHIFT-*}{brn}{SHIFT-*}{orng}{SHIFT-*}{brn}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{CBM-H} {gry1}{CBM-POUND}{brn}{CBM-N}{rvon},{CBM-D}{CBM-F}{CBM-+}{rvof}{CBM-J} {gry1}{CBM-+}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{rvon} ";
5923 print"{grn}{rvon}{CBM-J}{gry2}%{lgrn}{CBM-L}{yel}{rvof}{CBM-POUND}ZQ{CBM-+}{rvon}{CBM-POUND}{rvof}Z{CBM-+}Q{CBM-+}{rvon}{CBM-POUND}{rvof}Q{CBM-POUND}{brn}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{CBM-H}{gry1}{CBM-POUND}{CBM-POUND} {brn}{CBM-L}{rvon}{CBM-@}{rvof}{CBM-G}{CBM-M}{rvon}{CBM-@}{rvof}{CBM-K} {gry1}{CBM-POUND} {gry1}{CBM-+}{gry2}{CBM-+}{CBM-+}{gry3}{CBM-+}{CBM-+}{wht}{rvon} ";
5924 print"{grn}{rvon}{CBM-J}{lgrn}{rvof}{CBM-+}{rvon}{CBM-L}{yel}{rvof}{CBM-T}{CBM-Y}{CBM-Y}{CBM-U}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-U}{CBM-Y}{CBM-Y}{CBM-T}{gry1}{CBM-POUND}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{red}{rvon}{CBM-V}{CBM-POUND}{rvof} {red}{rvon}{CBM-POUND}{CBM-C}{blu}{rvof} {gry1}{CBM-POUND}{CBM-+}{gry2}{CBM-+}{gry3}{CBM-+}{CBM-+}{CBM-+}{wht}{rvon} {rvof}";
5925 print"{gry1}{CBM-POUND}{lgrn}{CBM-T}{$a0}{$a0}{$a0} {gry1}{CBM-POUND} {CBM-POUND}{CBM-POUND} {CBM-POUND}{CBM-POUND} {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-POUND} {CBM-POUND} {gry2}{CBM-POUND} {wht}{CBM-*}{rvon} {rvof}";
5926 print"{$a0}{$a0}{$a0}{gry1}{CBM-POUND}{CBM-POUND}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{gry2}{CBM-POUND} {gry3}{CBM-POUND}{wht}{CBM-*}";
5929 v=3:gosub750:g$="{wht}fulgore has been defeated!":goto7000
5950 poke780,2:gosub9200:gosub6000
5955 v=3:gosub750:g$="{wht}fulgore has beaten you!":goto7000
6000 print"{clr} {red}your efforts were not enough!"
6002 print" {wht}you failed, like many"
6004 print" other dwarves before you."
6006 print" sledgie remains fulgore's prisoner.{down}"
6008 print" {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0} {gry1}{rvon} {gry2}OO{gry1}{CBM-H}{gry2}OO{gry1}{CBM-H}{gry2}O{gry1}{CBM-H}{gry2}{CBM-H}{gry1}O{gry2}O{gry1}O{gry3}{rvof} ";
6010 print" {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{gry1}{rvon}{CBM-N}{gry2}P{CBM-N}{CBM-Y}L{CBM-H}OL{CBM-H}OLOLO{CBM-H}OO{gry1}O{rvof} ";
6012 print"{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{gry1}{rvon}{CBM-N}{gry2}P{CBM-N}P L{gry1} {gry3}{rvof} {gry1}:{gry3}{$a0}{$a0}{$a0}{gry2}{rvon}L{gry1}{CBM--}{gry2}{CBM-@}O{CBM-H}{CBM-H}OO{gry3}{rvof} {gry2} {red} {lblu} {red}{$a0}{$a0}{$a0}{$a0}{$a0}";
6014 print"{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{gry2}{rvon}P{CBM-Y}PP{gry3}{rvof} {gry1}{CBM--}{red} {gry1}{rvon}{CBM-M}{gry2}{rvof} {red}{rvon}{SHIFT-POUND} {blu}{rvof} {gry1}:{rvon}{CBM-G}{rvof}{CBM-G}{red} {lblu} {gry2}{rvon}OO{CBM-H}O{lblu}{rvof} {red} {rvon} {CBM-N}{gry2} {CBM-N}{red} {rvof} ";
6016 print" {gry1}{rvon}{CBM-N}{gry2}{CBM-N}{CBM-Y}{gry1}'{gry3}{rvof} {red} {gry1}{rvon}{CBM--}{red}{rvof} {rvon}{CBM-V} {CBM-C}{lblu}{rvof} {gry1}{rvon}{CBM-H}{rvof}{CBM-G}:{gry3} {gry2}{rvon}{CBM-H}{gry1}{CBM-M}{gry2}{CBM-Y}{CBM-H}{gry1}O{gry3}{rvof} {red} {gry2}{rvon}{CBM-Y}P{orng}{CBM-Y}P{rvof} ";
6018 print" {gry2}{rvon}{CBM-P}L{CBM-P}{red}L{CBM-P}{gry2}{rvof} {gry3} {gry2}{rvon}PP{gry1}{rvof}{CBM-M}{rvon} {yel}{rvof} {gry3} {gry2}:{red} {gry1}{rvon}{CBM-G}{red}{CBM-K} {CBM-B}{CBM-C}{gry1}{CBM-G}{rvof}{CBM-G}{lblu} {gry3} {lblu} {gry1}{rvon}'{gry2}{rvof} {rvon}O{gry1}{CBM-H}{gry3}{rvof} {gry2}{rvon}{CBM-Y}P{orng}{CBM-Y}P{gry2}{CBM-Y}{rvof} ";
6020 print" {gry2}{rvon}{CBM-P}L{CBM-P}L{CBM-P}{gry1}{rvof}{CBM-N}{gry2}{rvon}P{red}{rvof} {yel} {gry1}{rvon} {gry3}{rvof} {yel}{CBM--}{gry2}:{lred} {gry1}{rvon}{CBM-M}{red} {CBM-POUND} {CBM-POUND} {gry1}{CBM--}{gry3}{rvof} {gry1}{CBM-POUND}{CBM-POUND}{lblu} {gry1}{rvon} {rvof}{CBM-G}{orng} {gry2}{rvon}{CBM-Y}{gry1}{rvof}{CBM-H} ";
6022 print" {gry2} {rvon}{CBM-P}{red}L{CBM-P}{gry2}L{gry1}{rvof}{CBM-M}{gry2}{rvon} {rvof}{CBM-G}{lblu} {gry1}{rvon}{CBM--}{rvof}{CBM-Q}{brn}{rvon}{CBM-L}{gry1}{rvof}:{blu} {gry1}{rvon}{CBM-M}{red} {lred}Q Q{red} {gry1}{CBM--}{rvof}{CBM-M}{brn}{rvon}&&{lblu}{rvof} {gry1}{rvon}{CBM-G}{yel}{rvof} {gry2}{CBM-M}{rvon} {rvof}{CBM-G} ";
6024 print" {red}{rvon}{CBM-P}{orng}L{CBM-P}{gry2}{rvof} {red} {gry1}{CBM-M}{gry2}{rvon}O{lblu}{rvof} {gry1}{rvon}{CBM-G}{rvof}:{brn}{CBM-V}{lblu} {blu} {gry1}{rvon}{CBM--}{wht}{CBM-J}{lred} K {wht}{CBM-L}{gry1}{CBM-G}{rvof}{CBM-M}{brn}{rvon}&{gry1}&{lblu}{rvof} {gry1}{rvon} {yel}{rvof} {orng} {gry2}{rvon}O{gry1}{rvof}{CBM-J} {$a0}{$a0}{$a0}{$a0}{$a0}";
6026 print"{gry2}{rvon}L{CBM-P}L{CBM-P}{orng}L{CBM-P}{red}{rvof} {gry1}{CBM-N}{gry2}{rvon}{CBM-M}{lblu}{rvof} {gry1}{rvon} {rvof}{CBM-G}{lblu} {gry1}{CBM-POUND}{red} {gry1}{rvon}{CBM-M}{wht}{CBM--}{lred} CI {wht}{CBM--}{lred} {blu}{CBM-*}{gry1}&&{rvof}{CBM-POUND}{rvon} {yel}{rvof} {orng} {gry2}{rvon} {rvof}{CBM-J}{gry3} {lblu} ";
6028 print" {orng}{rvon} {gry2}{CBM-H} {CBM-H} {gry1}{rvof}{CBM-L}{gry2}{rvon}P{lblu}{rvof} {gry1}{rvon} {rvof}{CBM-POUND}{lblu} {red} {gry1}{CBM-M}{rvon}{CBM-M}{wht}{rvof}{CBM-*}{rvon}{CBM-POUND}{lred} {wht}{CBM--}{rvof}{SHIFT-POUND}{gry1}{rvon}{CBM-T}{blu}{CBM-G}{lblu}{rvof} {gry1}{rvon}{CBM-G}{rvof}{CBM-G}{orng} {gry2}{rvon}P{gry1}{rvof}{CBM-H}{gry3} {gry2}{rvon}{CBM-P}{red}L{CBM-P}{gry2}L{SHIFT-@}{rvof} ";
6030 print" {gry1}{CBM-M}{gry2}{rvon} {rvof}{CBM-G}{gry1}{CBM-POUND}{rvon}{CBM-G}{lblu}{rvof} {blu}{rvon}{SHIFT-POUND}{gry1} {blu}{CBM-G}{wht}{rvof}{CBM-*}{rvon}{CBM--}{CBM-+}{rvof}{SHIFT-POUND}{blu}{rvon}{CBM--}{gry1}{CBM-G}{blu}{rvof}{SHIFT-POUND}{lblu} {gry1}{rvon}{CBM-G}{rvof}{CBM-G}{CBM-POUND}{gry2}{rvon} {gry1}{rvof}{CBM-G}{gry3} {lblu} {gry2}{rvon}{CBM-P}{orng}L{CBM-P}{gry2}{rvof} ";
6032 print" {gry1}{CBM-M}{gry2}{rvon}P{red}{rvof} {lblu} {gry1}{rvon}'{rvof}{CBM-G} {blu}{rvon} {gry1}{CBM-M}{blu}M{rvof}{CBM-+}{wht}{CBM-*}{SHIFT-POUND}{blu}{rvon}{CBM-+}N{gry1}{CBM--}{lred}{rvof} {lblu} {gry2}{rvon}{CBM-K}{rvof}{CBM-K}{gry1}{rvon}{CBM-G}{lblu}{rvof} {gry3} {gry2}{rvon}O{gry1}{rvof}{CBM-H}{red} {orng}{rvon} {red}{CBM-H} {gry2}{CBM-H} {rvof} ";
6034 print" {gry2}{CBM-L}{rvon}{CBM-M}{red}{rvof} {gry1}{rvon} {lgrn}{rvof}{$a0}{$a0}{$a0}{blu}{rvon}{CBM-G}{lred}{CBM-@}{blu}{rvof}{CBM-*}{CBM-+}{rvon}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT-POUND}{gry1}{rvon}{CBM-H}{rvof}{CBM-G}{lblu} {grn}{rvon}{CBM--}{lgrn} {gry1}{CBM--}{rvof}{CBM-G}{lblu} {gry2}{rvon} {gry1}{rvof}{CBM-G} ";
6036 print" {gry1}{CBM-N}{gry2}{rvon}{CBM-Y}{gry3}{rvof}{CBM-@}{CBM-P}{gry1}{rvon} {gry3}{rvof}{CBM-@} {gry3}{CBM-@}{gry1}{rvon} {orng}{rvof}{CBM-L}{rvon}{CBM-T}{yel}O{orng}{CBM-Y}{CBM-T}{brn}{rvof}{CBM-K}{gry1}{rvon}{CBM-G}{grn}{rvof}{CBM-POUND},{rvon}{CBM--}{lgrn}%{gry1} {gry3}{rvof}{CBM-@}{CBM-P}{gry2}{rvon}{CBM-Y}{gry1}{rvof}{CBM-H} ";
6038 print" {$a0}{$a0}{$a0}{$a0}{$a0}{gry3}{rvon}{SHIFT-POUND} N {CBM-T}{CBM-Y}{CBM-T}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}M{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof} ";
6040 print" {gry3}{rvon}{SHIFT-*}D{SHIFT-*}{SHIFT-*}{SHIFT-*}EEODDCCDEEODCDCCEOEE{CBM-Y}{CBM-Y}D{rvof}{$a0}{$a0}{$a0}{$a0}{$a0} ";
6042 print" {gry3}{rvon}{CBM-@} {CBM-@}{CBM-P}{CBM-@}{CBM-@} T {CBM-@} {CBM-@}{CBM-P}{CBM-@} T {CBM-@}{CBM-@}{CBM-P}{CBM-@}{CBM-N}{CBM-@} {CBM-P}{CBM-@} {CBM-@}{rvof}"
6044 return
6200 i=ut:ifut<.theni=int(rnd(1)*7):rem drakri per zufall
6202 k$="{wht}drakri":kw=(90-i*7)+n%:k%=15:bb%=kw-rnd(1)*7:ut=ut-1
6205 c$=mid$("{grn}{orng}{red}{blu}{gry2}{gry3}{yel}{wht}",d%+1,1):ifi<3then6225
6220 sysq,29,1,"{wht}{rvon}M{CBM-POUND}N{rvof} {gry3}{rvon}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{wht}{rvon}Q Q{rvof} {gry3}{rvon}&{down}{left}{left}{left}{left}{left}{left}{left}";:rem drakri schwert
6222 print"{rvof}{red}{CBM-@}{wht} {rvon}{CBM-H}{CBM-E}{CBM-N}{rvof} {gry3}{rvon}&{down}{left}{left}{left}{left}{left}{left}{left}{left}{gry1}{rvon}{CBM-POUND}{red}{CBM-M}{gry2}{CBM-POUND}{wht}{rvof}{CBM-C}{rvon}{CBM-U}{rvof}{CBM-V} {gry3}{rvon}&{down}{left}{left}{left}{left}{left}{left}{left}{left}";
6224 print"{gry1}{rvon}{CBM-A}{red} {gry2}{CBM-S}{wht}{CBM-D}{gry3}{rvof}{SHIFT-+}{wht}{rvon}{CBM-F}{rvof}{CBM-B}{brn}{rvon}{CBM-H}{gry2}{rvof}K";:goto6230
6225 sysq,28,1,"{gry1}{CBM-D}{rvon}M{CBM-P}N{rvof}{CBM-F}{brn}{CBM-D}{gry3}{rvon}{SHIFT-POUND}{rvof}{CBM-H}{down}{left}{left}{left}{left}{left}{left}{left}{left}";:rem drakri helm axt
6226 print"{gry1}{rvon}{CBM-J}{wht}Q Q{gry1}{CBM-L}{brn}{CBM-K}{gry3}B{rvof}{CBM-J}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{red}{CBM-@}{gry1}{CBM-L}{wht}{rvon}{CBM-H}{CBM-E}{CBM-N}{gry1}{rvof}{CBM-J}{brn}{CBM-L}{gry3}{rvon}H{rvof}{CBM-J}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
6228 print"{gry1}{rvon}{CBM-POUND}{red}{CBM-M}{gry2}{CBM-POUND}{wht}{rvof}{CBM-C}{CBM-I}{CBM-V}{gry1}{CBM-V}{brn}{rvon}{CBM-K}{gry3}{rvof}{CBM-*}{CBM-H}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{gry1}{rvon}{CBM-A}{red} {gry2}{CBM-S}{wht}{CBM-D}{gry3}{rvof}{SHIFT-+}{wht}{rvon}{CBM-F}{rvof}{CBM-B}{brn}{rvon}{CBM-K}{rvof}{CBM-G}";
6230 sysq,26,6,"{gry1}{rvon}{CBM-A}{red} {gry2}{CBM-S}{wht}{CBM-B}{gry3}{rvof}{SHIFT-+}{wht}{CBM-B} {rvon}{CBM-F}{rvof}{CBM--}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{gry1}{rvon} {red}{CBM-M}{gry2} {wht}{rvof}{CBM-I}{SHIFT-+}{CBM-I} {brn}{CBM-C}{down}{left}{left}{left}{left}{left}{left}{left}{left}{red}";:print"{rvon}{CBM-T}"c$">{red}{CBM-T}{wht}{CBM-B}{CBM-O}{rvof}{CBM-B}"
6231 sysq,26,9,"{gry1}{CBM-*}{red}{rvon}{CBM-M}{gry2}{rvof}{SHIFT-POUND}{wht}{CBM-J} {CBM-L}{CBM-@}{down}{left}{left}{left}{left}{left}{wht}D{CBM-V} {CBM-C}D":gosub9670
6240 gosub570:gosub4400:ifa%=1thengosub1600:goto6250
6245 gosub4410:gosub750:gosub680
6250 gosub570:return
7000 poke780,2:gosub9200:ifa%<0thengosub6000:a%=0:v=3:gosub750
7001 print"{clr}";:printspc(19-len(g$)/2)g$:c%=30
7002 sysq,1,2,"{yel}Q {wht}your quest ended at {orng}depth"lv" {yel} Q"
7004 a%=(d%*d%+d%)/2*100:b%=s%*2000:e=1000:iflv>6theniflv<12thene=(12-lv)*1000
7006 print"{gry3}{down} adventure points{yel}"tab(c%-len(str$(pu)))pu
7010 print"{yel}"tab(17-len(str$(g)))g"gold {gry2}+{yel}"tab(c%-len(str$(g+g)))g+g
7012 printtab(7)"{cyn}"d%"of 7 dragons {gry2}+{yel}"tab(c%-len(str$(a%)))a%
7014 printtab(7-len(str$(ga%)))"{lblu}"ga%"of 12 missions {gry2}+{yel}";:ga%=ga%*250:printtab(c%-len(str$(ga%)))ga%
7020 ifs%=0thene=0:goto7040
7025 print"{pur} fulgore slain {gry2}+{yel}"tab(c%-len(str$(b%)))b%
7030 printtab(14-len(str$(lv)))"{pur}in {orng}depth"lv"{gry2}+{yel}"tab(c%-len(str$(e)))e
7040 printtab(25)"{gry2}DDDDD{yel}":pu=pu+g+g+a%+b%+e+ga%:print"{wht} total points{yel}"tab(c%-len(str$(pu)))pu"{down}"
7050 gosub900:poke214,15:print:gosub7100:v=3:gosub750:gosub9250:goto30
7100 print"{wht}{down}dwarf hero score triumphs & rank":forii=0to4
7102 print"{gry3}"n$(ii)tab(18-len(str$(p(ii))))"{yel}"p(ii)tab(19)r$(ii):next:return
7110 print"{down}{wht}{wht}idea & design {cyn}sledgie{down}":print"{wht}coding {cyn}sledgie{gry3}, {cyn}retrolynx{gry3}, {cyn}1570"
7113 print"{wht}graphics {cyn}sledgie{gry3}, {cyn}retrolynx{gry3}, {cyn}daimansion":print"{wht}music & sfx {cyn}richard bayliss{gry3}, {cyn}retrolynx"
7115 print"{wht}english translation {cyn}jammet{gry3}, {cyn}retrolynx":return
7120 print"{down}{blk} fulgore, the orc shaman, keeps":print" sledgie locked in his dungeon,"
7122 print" guarded by 7 loyal dragons.{down}":print" descend boldly. defeat fulgore"
7125 print" and his minions. free sledgie!":return
7200 ifab%=.andlv>3thena$="abstainer":ab%=-1:gosub197:goto7202:rem exit
7201 ifab%=1thenab%=.
7202 poke780,3:tw=60:gosub9270
7204 print"{clr}";:print"{wht}you survived {orng}depth"lv"{wht}!"
7208 a%=lv*100:iflv>5thena%=500
7210 a%=a%+l:print"{down}{cyn} bonus points {gry2}+{yel}"tab(23-len(str$(a%)))a%
7215 pu=pu+a%:print"{down}{gry3} adventure points{yel}"tab(23-len(str$(pu)))pu"{down}{down}"
7216 gosub8300:printchr$(13)"{down}{wht}your backpack contains":z=.
7218 forii=13to25:ifw(ii,2)=1thenprint" "w$(ii):z=z+1
7219 next:ifz=.thenprint" {cyn}nothing"
7229 print"{down}{down}{wht}"n$", you have the choice:"
7230 print"{down} {grn}visit tavern {orng}journey on";:h=2:b%=21:gosub700
7235 ifa%=2thenes%=es%+1
7240 ifa%=1thengosub8000:h%=0:rem go tavern
7300 lv=lv+1:ae=0:cf=0:wd=0:ts=0:sw=0:gosub7800:a%=fre(0):goto100
7800 print:print"{wht}down we go to {orng}depth"lv"{left}{brn}";
7805 ti$="000000":ifu=1thensysq,1,22,"{wht}you fall and lose gold{brn}.";:g=int(g*.8)
7810 print".";:gosub1000:print".";
7860 bi=int(rnd(.)+0.8*lv):iflv<2thenbi=lv
7862 fa=int(rnd(.)+0.7*lv)
7863 es=int(rnd(.)+0.6*lv):iflv<2thenes=lv
7864 fe=int(rnd(.)+0.5*lv)
7865 ko=int(rnd(.)+0.4*lv)
7866 ok=lv
7867 we=int(rnd(.)+0.5*lv)
7868 wi=int(rnd(.)+0.6*lv):iflv<3thenwi=lv-1
7869 tr=int(rnd(.)+0.7*lv)-1
7870 iflv=5thentr=10:rem zombie-level
7875 gn=1:iflv>3thengn=2
7876 iflv>4thenkk%=15:gosub670:rem drakri
7878 kk%=3:forii=1togn:gosub670:next
7879 iflv>14thenbi=12:fa=10:es=9:fe=7:ko=6:ok=15:we=7:wi=9:tr=9
7880 ifbi>0thenkk%=4:forii=1tobi:gosub670:next
7881 iffa>0thenkk%=5:forii=1tofa:gosub670:next
7882 ifes>0thenkk%=6:forii=1toes:gosub670:next
7883 iffe>0thenkk%=7:forii=1tofe:gosub670:next
7884 print".";:ifok>0thenkk%=9:forii=1took:gosub670:next
7885 ifko>0thenkk%=8:forii=1toko:gosub670:next
7886 ifwi>0thenkk%=11:forii=1towi:gosub670:next
7887 ifwe>0thenkk%=10:forii=1towe:gosub670:next
7888 iftr>0thenkk%=12:forii=1totr:gosub670:next
7889 iflv>2thenifd%<7thenkk%=13:gosub670
7890 iflv>4thenkk%=14:gosub670:rem 5->3 fulgi 2.0
7891 iflv=3thenifnq=1thenforii=16to18:kk%=ii:gosub670:next
7892 print".";:iflv=4thenifnq=1thenforii=19to21:kk%=ii:gosub670:next:rem 18 to 20
7893 ifti<300then7893
7897 k$(13)=mid$("{grn}{orng}{red}{blu}{gry2}{gry3}{yel}",d%+1,1)+"{rvon}>":return
7900 zo=zo+1:ifg<1thensysq,1,11,"out of gold";:gosub750:return
7902 a%=3:ifg>50thena%=2:ifg>99thena%=1
7905 ifzo>a%thensysq,1,11,"nobody wants to play";:gosub750:return
7910 sysq,2,12,"{gry1}X A {red}S Z{wht} dwarven poker {red}Z S {gry1}A X"
7912 print"{down}{down}{wht}your card ";:gosub7960
7926 xs=x:ys=y:print" {cyn}>{wht}bet {yel}gold{left}{left}{left}{left}{left}{left}{left}{left}";:h=g:ifh>99thenh=99
7928 v=2:gosub700:sysq,0,17,"{wht}shmendric has ";:gosub7960
7945 ifys>ythensysq,1,20,"{grn}you win{yel}"a%"gold";:g=g+a%:rem poke780,6:tw=60:gosub9270
7950 ifys<ythensysq,1,20,"{red}you lose{yel}"a%"gold";:g=g-a%
7955 ifys=ythensysq,1,20,"{gry3}it's a draw";
7956 d=4:gosub750:return
7960 x=int(rnd(1)*4):y=int(rnd(1)*13):ifx=xsthenify=ysthen7960
7962 printmid$("{red}S{gry2}X{red}Z{gry2}A",x+x+1,2)mid$("2 3 4 5 6 7 8 9 10b d k a ",y+y+1,2);
7964 return
7970 ib=1:ifh%=1then7974
7971 r%=lv-1
7972 iflv>4thenr%=rnd(1)*4:ifr%=vh%then7972
7973 k$=mid$("{gry3}tele{gry2}{gry2}{gry2}{lblu}lynx{blu}{blu}{blu}{lgrn}jammet{grn}{red}pat{brn}{brn}{brn}{brn}",r%*8+1,8):ps=r%/5+.6:vh%=r%
7974 sysq,2,8,"{brn}{rvon}{CBM-+}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-+}{rvof}"
7975 print" {grn}Z{red}S {blu}H{rvon}{SHIFT--}{brn}G{yel}{CBM-N}{lgrn}P{pur}P{rvof} {brn}{CBM-T}{CBM-Y}{rvon}{CBM-F}G{CBM-D}{rvof}{CBM-Y}{gry3}{CBM-G}{red}J{pur}K{red}:"
7976 print" {grn}Z{red}S {yel}'{blu}{CBM-L}{brn}{rvon}G{rvof}{CBM-R}{SHIFT-*}{CBM-R} {brn}{CBM-N}{rvon}B{rvof}{CBM-H}{cyn}{rvon}{SHIFT-POUND}{wht}{CBM-*}{rvof} {red}:"
7977 print" {lgrn}Z {yel}'{brn}{rvon}G{rvof} {brn}{CBM-M}{rvon}G{rvof}{CBM-G}{blu}{CBM-*}{lblu}{SHIFT-POUND} {brn}{rvon}{CBM--}{rvof}"
7978 print" {blu}{rvon}O{gry1}{rvof}{CBM-O} {brn}{rvon}B{lblu}{rvof}{CBM-O} {brn}{rvon}B{lgrn}{rvof}{CBM-@}{lblu}{CBM-@} {brn}{CBM-D}{rvon}{CBM--}{rvof}{CBM-F}"
7981 print" {gry1}{rvon}{CBM-Y}{gry2}P{blu}{CBM-POUND}{gry1}{rvof}{CBM-+}{blu}{CBM-POUND}{brn}{rvon}G{lgrn}{rvof}{CBM-@}{cyn}{CBM-H} {red}Q{brn}{rvon}B{lgrn}${lblu}${orng}{rvof}E{CBM-J}{gry2}{rvon}H{rvof}"
7983 print" {brn}{CBM-L}{orng}{CBM-H}{lblu}{rvon}{CBM-POUND}{gry2}{CBM-POUND}{blu}{CBM-M}{brn}B{grn} {cyn}{rvof}{CBM-H} {red}Q{orng}Q{brn}{rvon}H{lblu}${lgrn}${rvof} {orng}{CBM-J}{gry2}{rvon}H"
7985 print" {rvon}{brn}{CBM-+}E{lblu}{CBM-M}{gry2}{CBM-M}{brn}{CBM-Y}BF;CWDDDC{red}{rvof}Q{orng}Q{red}Q{brn}{rvon}H{orng}{rvof}Q{brn}{rvon}DCF{CBM-+}{rvof}"
7987 print" {rvon}{CBM-+}FCCEEC;;WCDWDCCDDCDDCCF{CBM-+}{rvof}"
7988 print"{down} "k$"{gry3} offers his fine goods:"left$(k$,1);
7990 sysq,14,9,"{CBM-P}{down}{left}{left}{rvon}{CBM-V}{rvof}{CBM-U}{rvon}{CBM-C}{down}{left}{left}{left}{CBM-L}{rght}{CBM-J}{down}{left}{left}{left}{CBM-J}{CBM-U}{CBM-N}{down}{left}{left}{left}{left}{SHIFT-POUND}G{CBM-T}{rght}{CBM-*}{down}{left}{left}{left}{left}{left}{CBM-M}{CBM-G}{rght}{rght} {rvof}";
7991 printright$(k$,1);:print"{left}{up}{up}{up}{CBM-H}{down}{left}{CBM-V}{down}{left}{left}{rvon}H{down}{left}{left} {CBM-L}{rvof}{up}{up}{up}{left}{left}{gry1}{CBM-POUND}{rght}{rght}UI{down}{left}{left}B{down}{left}B{down}{left}{lred}{rvon}G{left}{left}{left}{left}{left}{left}{left}{lred}{CBM-V}{rvof}"
7992 sysq,1,20,"{rvof}{cyn}just browsing...":gosub4211:goto8020
8000 ka=0:zo=0:h%=2:c$=a$(int(rnd(1)*12))+" "+b$(int(rnd(1)*12))
8001 y=len(c$)+6:x=17-int(y/2):a$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
8005 print"{clr}";:sysq,13,0,"{orng}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}":f=int(rnd(1)*3)+26
8006 sysq,x,1,"{orng}{CBM-R}"left$(a$,y-2)"{CBM-R}":print"{up}"spc(13)"K{yel}tavern{orng}J"
8007 sysq,x,2,"{orng}{SHIFT--}{wht}the "c$"{orng}{SHIFT--}":sysq,x,3,"{CBM-E}"left$(a$,y-2)"{CBM-E}":a$=""
8010 iflv=2thengosub8200:x=5:gosub8198
8012 iflv=4thenifnq=1thengosub8240:x=5:gosub8198
8014 iffb>.andl1=.thengosub8400:x=5:gosub8198
8016 ifl1=lvthengosub8500:x=5:gosub8198
8020 x=8:gosub8198:sysq,0,5,l$;:sysq,0,5,"{cyn}your status:"
8025 gosub8300:print"{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{orng}backpack";:printi%"{left}/4"
8026 sysq,0,8,"{wht}"n$", you would like to..."
8030 h=2:ifh%>0thensysq,1,10,"{lgrn}visit the merchant":h=3
8031 ifh%<1thensysq,1,15,"{gry2}{gry1}the shop is closed"
8032 sysq,1,11,"{lblu}play dwarven poker"
8034 sysq,1,12,"{orng}sit at a table and have a meal";:v=1:gosub700
8050 x=8:gosub8198:x=0:ifh%>0thenx=1:ifa%=1then7970
8054 ifa%=1+xthengosub7900:goto8020
8080 b$="{down}{wht} why's there never enough gold?":c$="{gry2} serve me something else"
8090 x=10:gosub8198:sysq,0,8,"{wht}what will it be?"
8092 sysq,1,10,"{lred}meals {pur}drinks {lgrn}menus {orng}leave tavern";
8096 h=4:b%=8:gosub700:x=10:gosub8198:ona%goto8120,8140,8160,8199:rem 7290
8120 sysq,4,10,"{orng}JKJKJK {lred}hearty meals{orng} JKJKJK"
8121 print"{down}{wht} troll stew {lred}+15% {gry1}-{yel}"int(.15*lv)
8122 print"{wht} fried pixie wings {lred}+25% {gry1}-{yel}"int(.5*lv)
8123 print"{wht} orcen mutton leg {lred}+35% {gry1}-{yel}"int(1.5*lv)
8124 printc$;:v=1:h=4:gosub700:ifa%=4then8090
8130 ifa%=1thenk%=.15*lv
8131 ifa%=2thenk%=.5*lv
8132 ifa%=3thenk%=1.5*lv
8133 ifk%>gthenprintb$;:gosub750:goto8090
8134 g=g-k%:l=l+5+a%*10:rem ifa%=2theng=g-k%:l=l+25
8137 goto8190
8140 sysq,4,10,"{lblu}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X} {pur}finest drinks{lblu} {CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}"
8141 print"{down}{cyn} snake wine"tab(19)"{lred}+ 5% {pur}+1.5 {gry1}-{yel}"int(.25*lv)
8142 print"{cyn} sweet fairy juice"tab(19)"{lred}+20% {pur}+0.2 {gry1}-{yel}"lv
8143 print" "left$(w$(f),12)tab(19)right$(w$(f),11)" {gry1}-{yel}"2*lv
8144 printc$;:v=1:h=4:gosub700:ifa%=4then8090
8150 ifa%=1thenk%=.25*lv
8151 ifa%=2thenk%=lv
8152 ifa%=3thenk%=lv+lv
8153 ifk%>gthenprintb$;:gosub750:goto8090
8154 g=g-k%:ifa%=1thenl=l+5:pm=pm+1.5
8155 ifa%=2thenl=l+20:pm=pm+0.2
8156 ifa%=3thenl=l+w(f,0):pm=pm+w(f,1)
8157 goto8190
8160 sysq,4,10,"{brn}{CBM-Q}{CBM-S}{CBM-R}{SHIFT-*}{CBM-R}{CBM-A}{CBM-W} {lgrn}tasty menus {brn}{CBM-Q}{CBM-S}{CBM-R}{SHIFT-*}{CBM-R}{CBM-A}{CBM-W}"
8161 sysq,4,11,"{lred}(100% health in every meal){down}"
8163 print"{gry3} standard {wht}mole ragout {pur}+2.5 {gry1}-{yel}";:print2*lv
8164 print"{gry3} deluxe {wht}unicorn roast {pur}+3.0 {gry1}-{yel}";:print4*lv
8165 print"{gry3} maxi {wht}dragon breast {pur}+3.5 {gry1}-{yel}";:print8*lv
8166 printc$;:v=1:h=4:gosub700:ifa%=4then8090
8170 ifa%=1thenk%=2*lv
8171 ifa%=2thenk%=4*lv
8172 ifa%=3thenk%=8*lv:gt%=gt%+1
8173 ifk%>gthenprintb$;:gosub750:goto8090
8174 g=g-k%:l=100:ifa%=1thenpm=2.5
8175 ifa%=2thenpm=3
8176 ifa%=3thenpm=3.5
8190 ifk%=0thenprint"{down}{wht}you are lucky to get a free meal":goto8192
8191 print"{down}{wht}you toss{yel}"k%"gold{wht} to the innkeeper"
8192 print"and you eat like a horse.{down}"
8193 ifg<0theng=0
8194 ifl>100thenl=100
8195 ifpm<.thenpm=.
8196 k%=0:gosub8300:print:return:rem to7240
8198 forii=xto24:sysq,0,ii," ";:next:return
8199 poke214,6:print:return:rem to7240
8200 print"{down}a seedy gnome waves you over to join"
8204 print"him at his table in a dark corner."
8206 print"{down}{gry3}gnome:":print"{cyn} listen up! there be six magic runes"
8207 print" hidden in fulgore's stinky dungeon."
8208 print" go find them and tell me the rune"
8209 print" word when we meet again."
8210 print" i will reward you appropriately."
8213 print"{down}{orng}do you accept this quest? sure nope";:h=2:b%=6:c%=26:gosub700
8214 ifa%=1then8220
8215 print"{up} bad luck! thought you were braver. "
8216 print"{down}{orng}the gnome burps in your face and"
8217 print"bumps into you on his way out."
8218 print"{down}little later you notice that some":print"of your gold is missing."
8219 print"curses!":g=int((g+1)/2):v=3:gosub750:return
8220 print"{up} very well, i'll wait for you in the "
8222 print" tavern at the end of depth 4."
8230 v=3:gosub750:nq=1
8232 fora=0to2:q$=q$+mid$("asinurogemodenam",int(rnd(1)*15)+1,2):next:return
8240 print"{down}you see the gnome sitting at the bar.":nq=0
8250 print"{down}{gry3}gnome:":print"{cyn} friend! you made it back! "
8252 print" have you found all the runes?"
8254 print"{down}{orng} yes! what runes?";:h=2:b%=6:gosub700:ifa%=1then8264
8256 print"{up} stupid fool wasted my time!":goto8216
8264 print"{up} excellent! ":print" tell me the rune word: ";:a%=0:gosub800
8270 ifg$<>q$thenprint:print"{down}{cyn} it's false! it holds no magic!":goto8216
8272 print:print"{down}{cyn} yes! it works! i feel magic power!":nq=2
8276 print"{down}{orng}the gnome drops {yel}100 gold {orng}& {yel}500 points":g=g+100:pu=pu+500
8277 v=3:gosub750:return
8300 print"{lred}health"l"{left}%"tab(13)"{pur}boozy ";:gosub25:printo$"{yel} gold"g"{left} ";:return
8400 print"{down}a desperately gesturing dwarf":print"steps close."
8402 print"{down}{gry3}dwarf:":print"{cyn} fulgore put a curse on me wife!"
8403 print" she now looks like an orc, wandering"
8404 print" these mines all alone! should she"
8405 print" attack, i beg ye to spare her life.":
8406 print" please find her! my gratitude would":print" be boundless!"
8407 w=int(30+(g/10)):ifw>100thenw=99
8408 print"{down} i can offer you my magic map for":printw"gold. do you want it?"
8409 print" {orng}yes no";:h=2:b%=5:gosub700:print"{up} "
8410 ifa%=2thenprint"{up}{cyn} indeed a daring dwarf!{down}":goto8420
8411 ifg<wthenprint"{orng}you don't have enough gold!":goto8420
8412 ifi%=4thenprint"{orng}your backpack is already full!":goto8420
8413 ifw(13,2)=0thenb$=w$(13):w(13,2)=1:i%=i%+1:a%=1:g=g-w:goto8415
8414 print"{orng}you already own a magic map!":goto8420
8415 print"{up}{cyn} take my magic map, good luck!{down}"
8420 print"{orng}you swear not to harm any orcs"
8421 print"until you've found his poor wife":print"among them."
8422 vo%=rnd(1)*4+5:l1=lv+1:vq=1:v=3:gosub750:return
8500 l1=-1:print"{down}you see that desperate dwarf"
8501 ifvo%<0then8550
8502 ifvo%>0then8560
8503 print"and deliver the good news.":print"{down}{gry3}dwarf:"
8504 print"{cyn} ye found me wife!? ":print" she's allright and looks"
8505 print" like an orc guard, ye say?":print" an' ye had a drinkin' duel?!"
8508 print" sounds exactly like her...":print" i'll cure her with daimansion's"
8510 print" magic transformation potion!":print" my gratitude is immeasurable!"
8511 print"{down}{orng}the dwarf hurries towards the":print"snoring noise nearby."
8513 print"{down}{orng}you gain {yel}1000 points{orng} and":pu=pu+1000:vq=2:fb=2
8514 print"{orng}weakened fulgore to boot.":goto8553
8550 print"and hide away with shame."
8551 print"{down}you have killed his wife!"
8552 print"there is blood on your hands."
8553 vo%=0:v=3:gosub750:return
8560 print"and confess your failure."
8561 print"{down}{gry3}dwarf:":print"{cyn} ye heart isn't in it at all!"
8562 print" i had all me hopes put in ye.":print" ...all for naught!"
8563 print"{down}{orng}the dwarf settles down on a"
8564 print"chair, hoping for another hero."
8565 goto8553
8570 ifvq<>1thenvo%=0:return
8571 ifjg<>.thenreturn
8572 ifvo%>0andf=1thenvo%=-1:gosub220:gosub570:sysq,1,21,"{wht}fulgore's spell vanishes. {wht}in front of":print" you lies the lifeless dwarf wife{red}...{up}";:d=6:gosub750
8573 return
8580 ifvq<>1orvo%=0thenvo%=0:return
8581 ifvo%>1then8586
8582 ifvo%<0thenreturn
8583 gosub570:sysq,1,21,"{wht}this 'orc' wears a wedding ring. ";
8584 fore=0to2:ford=0to242:poke646,d:print"{rvon}X{rvof}{left}";:next:next
8585 sysq,1,22,"{wht}you have found the dwarf's wife!";:d=8:gosub750
8586 vo%=vo%-1:rem ifjg<>.andk%=10thenvo%=vo%+1
8587 return
9000 poke780,.:gosub9200:poke198,.
9001 print"{blk}{clr}";:sysq,7,0,"{wht}{CBM-POUND}{CBM-+}{CBM-+}{CBM-POUND}{down}{left}{left}{left}{left}{left}U{yel}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{wht}{CBM--}{CBM-POUND}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-POUND} {CBM-POUND}{CBM-+}{CBM-POUND}{CBM-POUND}"
9002 print" {yel}{SHIFT--}U{SHIFT-*}{SHIFT-*}K{wht}U{yel}{SHIFT-*}{SHIFT-*}I{wht}U{yel}I{wht}{CBM-+}{CBM-+}{CBM-A}{yel}{SHIFT-*}{SHIFT-*}I{wht}{CBM--}{lblu}extended"
9003 print" {yel}{SHIFT--}{SHIFT--}{wht}U{yel}{SHIFT-*}I{SHIFT--}UI{SHIFT--}{SHIFT--}{SHIFT--}{wht}{CBM-+}{CBM-+}{yel}{SHIFT--}{CBM-A}I{SHIFT--}{wht}{CBM--} {lblu}edition"
9004 print" {yel}{SHIFT--}{SHIFT--}JI{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{wht}{CBM-+}{CBM--}{yel}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{wht}{CBM--}"
9005 print" {yel}{SHIFT--}J{SHIFT-*}{wht}K{yel}{SHIFT--}{SHIFT--}J{wht}K{yel}{SHIFT--}{SHIFT--}J{SHIFT-*}I{SHIFT--}{CBM-Z}{wht}K{yel}{SHIFT--}{gry3}{CBM-+}{wht} {cyn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
9006 print" {yel}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}J{SHIFT-*}{SHIFT-*}K{CBM-Z}{SHIFT-*}{SHIFT-*}K{CBM-Z}{SHIFT-*}{SHIFT-*}K{gry2}{CBM-+}{CBM--}{cyn}{CBM-+}{CBM-+}{blu}{rvon} {cyn}{rvof}{CBM-+}{CBM-+}"
9007 print" {gry3}U{orng}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{gry3}U{orng}I{gry3}U{orng}I{gry3}U{orng}{SHIFT-*}{SHIFT-*}I{gry2}U{orng}{SHIFT-*}I{gry2}U{orng}{SHIFT-*}{SHIFT-*}I{cyn}{CBM-+}{CBM-+}{blu}{CBM-Y}{CBM-Y}{CBM-Y}{rvon} {rvof}"
9008 print" {orng}{SHIFT--}U{SHIFT-*}I{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}U{SHIFT-*}K{SHIFT--}UKJIUK{cyn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blu}{CBM-Y}"
9009 print" {orng}{SHIFT--}{SHIFT--}{gry1}{CBM-+}{orng}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}JI{gry1}{CBM-+}{orng}{SHIFT--}J{SHIFT-*}I{SHIFT--}{SHIFT--}{gry1}{CBM--}{cyn}{CBM-+}{CBM-+}{blu}{rvon} {cyn}{rvof}{CBM-+}{CBM-+}"
9010 print" {orng}{SHIFT--}{SHIFT--}{gry1}{CBM--}{orng}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}UK{gry1}{CBM--}{orng}J{SHIFT-*}I{SHIFT--}{SHIFT--}{SHIFT--}{wht} {cyn}{CBM-+}{CBM-+}{blu}{CBM-Y}{CBM-Y}{CBM-Y}{cyn}{CBM-+}{CBM-+}"
9011 print" {orng}{SHIFT--}J{SHIFT-*}{gry2}I{orng}JIJ{gry2}K{orng}{SHIFT--}{SHIFT--}J{SHIFT-*}I{gry2}U{orng}{SHIFT-*}{gry2}K{orng}{SHIFT--}{SHIFT--}{SHIFT--}{wht} {blu}{rvon} {cyn}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blu}{rvon} {rvof}"
9012 print" {orng}J{SHIFT-*}{SHIFT-*}J{SHIFT-*}K{SHIFT-*}{SHIFT-*}K{CBM-Z}{SHIFT-*}{SHIFT-*}KJ{SHIFT-*}{SHIFT-*}KJK{wht} {blu}{CBM-Y}{rvon} {rvof}{CBM-Y}"
9013 print" {yel}hex of the 7 dragons {blu}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
9014 print" {gry1}{CBM-T}{CBM-T}{gry2}{CBM-T}{CBM-T}{gry3}{CBM-T}{CBM-T}{CBM-T}{wht}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{gry3}{CBM-T}{CBM-T}{CBM-T}{gry2}{CBM-T}{CBM-T}{gry1}{CBM-T}{CBM-T}"
9016 sysq,12,23,"{orng}strike a key"
9017 sysq,6,24,"and let your quest begin!";:a%=0
9020 sysq,0,14,"":jj=640:a%=a%+1:ifa%>3thena%=1
9021 forii=0to6:print" ":next