1 DV=PEEK(186):IFGG=20THENGG=21:LOAD"ICCHD8",DV,1
3 IFGG=21THEN625
5 IFGG=22THENGG=23:LOAD"CHD4",DV,1
7 IFGG=23THEN341
9 IFGG=24THENGG=25:LOAD"ICCHD8",DV,1
11 IFGG=25THEN625
13 ONGGGOTO15,17,19,21
15 GG=2:LOAD"A",DV,1
17 GG=3:LOAD"B",DV,1
19 GG=4:LOAD"C",DV,1
21 GOSUB741
22 POKE 808,225
23 SYS49604:SYS49500:SYS49152:SYS49800
25 POKE720,0:POKE721,0:POKE722,0
27 POKE646,14:PRINT"[147]":GOSUB33
29 SA=51600:EA=52599:NS=1024:GOSUB753:E=22:F=1:GOSUB31:INPUT NM$:GOTO341
31 POKE781,E:POKE782,F:POKE783,0:SYS65520:RETURN
33 SYS50400:V=53248:POKEV+39,3:POKEV+21,0:POKE53276,0
35 HP=250:GL=30:FD=50:W$="NO WEAPON":MC=1:XS=0:DP=0
37 E=781:F=782:G=783:H=65520:RETURN
39 RA=INT(RND(1)*10+1)
41 IFDG=1THEN51
43 IFRA<2THEN365
45 IFDG=0THEN53
47 IFDG=2THEN49
49 ONRAGOTO365,365,55,77,55,77,55,65,55,65
51 ONRAGOTO57,73,55,57,73,77,73,57,73,73
53 ONRAGOTO365,365,61,61,65,69,65,61,65,69
55 MT$="BAT":MS=10:SA=40128:EA=40191:NS=896:GOSUB753:CS=12:GOTO81
57 MT$="GHOST":MS=40:SA=40192:EA=40255:NS=896:GOSUB753
59 CS=0:POKE53285,14:POKE53286,0:GOTO83
61 MT$="ROGUE":MS=6:SA=40258:EA=40321:NS=896:GOSUB753
63 CS=5:POKE53285,9:POKE53286,8:GOTO83
65 MT$="ORC":MS=6:SA=40322:EA=40385:NS=896:GOSUB753
67 CS=9:POKE53285,8:POKE53286,5:GOTO83
69 MT$="ROBBER":MS=8:SA=40386:EA=40449:NS=896:GOSUB753
71 CS=11:POKE53285,8:POKE53286,3:GOTO83
73 MT$="DEMON":MS=80:SA=40450:EA=40513:NS=896:GOSUB753
75 CS=9:POKE53285,3:POKE53286,4:GOTO83
77 MT$="SPIDER":MS=20:SA=40514:EA=40577:NS=896:GOSUB753
79 CS=5:POKE53285,3:POKE53286,11:GOTO83
81 POKE53276,0
83 POKEV+21,0:MT=MS:MS$="ATTACKED !!!":YL=20:XL=14:GOSUB731
85 GOSUB299
87 PRINT"[147]"
89 SA=25000:EA=25999:NS=55296:GOSUB753
91 SA=24000:EA=24999:NS=1024:GOSUB753
93 E=1:F=1:GOSUB31:PRINTNM$;:PRINT" W/";:PRINTW$
95 E=1:F=31:GOSUB31:PRINT"HP ";:PRINTHP
97 E=20:F=13:GOSUB31:PRINT"CHOOSE OPTION"
99 POKE 198,0:WAIT198,1:GETA$:E=20:F=13:GOSUB31:PRINT"              "
101 IF A$="A"THENJJ=1:GOTO113
103 IF A$="M"THENJJ=2:GOTO113
105 IF A$="C"THEN159
107 IF A$="R"THEN215
109 IF A$="G"THEN227
111 GOTO97
113 IFJJ=1THENTL=500
115 IFJJ=2THENTL=1000
117 RA=INT(RND(1)*6+1)
119 IF RA<>1THEN123
121 MS$="  YOU MISSED  ":YL=19:XL=13:GOSUB733:GOTO131
123 P=LEN(NM$):XL=INT((28-P)/2):E=19:F=XL:GOSUB31
125 PRINTNM$;:PRINT" HITS FOR ";:PRINTWS+RA+XS
127 YL=19:GOSUB735
129 MS=MS-(WS+RA+XS):IFMS<0THENMS=MT:GOTO251
131 RA=INT(RND(1)*6+1)
133 IF RA>MCTHEN141
135 IF MC=5 THEN MS$="ENEMY CONFUSED":GOTO139
137 MS$="ATTACKER MISSES":YL=21::XL=12:GOSUB733:GOTO153
139 YL=21::XL=13:GOSUB733:GOTO153
141 P=LEN(MT$):XL=INT((28-P)/2):E=21:F=XL:GOSUB31
143 PRINTMT$;:PRINT" HITS FOR ";:PRINTMT+RA
145 HP=HP-(MT+RA):IFHP<0THENYL=21:GOSUB735:GOTO321
147 E=1:F=34:GOSUB31:PRINT"     "
149 E=1:F=34:GOSUB31:PRINTHP
151 YL=21:GOSUB735
153 IFJJ=2THEN97
155 IFPEEK(197)=60THEN97
157 GOTO113
159 E=18:F=4:GOSUB31
161 PRINT"CHOOSE SPELL:  ":PRINT
163 PRINTTAB(4)"C  CONFUSE ";:PRINTDC;:PRINT"    B  BANISH ";:PRINTDB
165 PRINTTAB(4)"S  STRENGTH";:PRINTDS;:PRINT"    N  NONE   "
167 PRINTTAB(4)"H  HEAL    ";:PRINTDH
169 POKE198,0:WAIT198,1:GETA$
171 IF A$="C"THEN183
173 IF A$="S"THEN187
175 IF A$="H"THEN191
177 IF A$="B"THEN197
179 IF A$="N"THEN203
181 GOTO169
183 DC=DC-1:IFDC<0THENDC=DC+1:GOTO211
185 MC=5:GOTO203
187 DS=DS-1:IFDS<0THENDS=DS+1:GOTO211
189 XS=XS+20:GOTO203
191 DH=DH-1:IFDH<0THENDH=DH+1:GOTO211
193 E=1:F=31:GOSUB31:PRINT"       ":HP=HP+50:FORK=1TO500:NEXT
195 GOSUB31:PRINT"HP ";:PRINTHP:FORK=1TO500:NEXT:GOTO203
197 DB=DB-1:YL=18:IFDB<0THENDB=DB+1:GOTO211
199 TL=1:GOSUB735:YL=YL+1:IFYL=23THEN271
201 GOTO199
203 YL=18
205 TL=1:GOSUB735:YL=YL+1:IFYL=23THENJJ=2:GOTO113
207 GOTO205
209 PRINT"[147]":POKEV+21,1:XX=XX+1:YY=YY+1:GOTO341
211 E=18:F=4:GOSUB31
213 PRINT"YOU HAVE NONE!    ":FORK=1TO1000:NEXT:GOTO159
215 RA=INT(RND(1)*10+1)
217 IF RA>8 THEN225 
219 IF RA>3 THEN223 
221 MS$="OH NO YOU DON'T!!":YL=20:XL=12:GOSUB731:JJ=2:GOTO113
223 MS$="NO ESCAPE!":YL=20:XL=15:GOSUB731:JJ=2:GOTO113
225 MS$="YOU HAVE ESCAPED!":YL=20:XL=12:GOSUB731:GOTO247
227 E=19:F=8:GOSUB31:PRINT"GIVE US ";
229 PRINTMT*4;:PRINT" GOLD!     Y/N?"
231 POKE198,0:WAIT198,1:GETB$
233 IFB$="N"THEN245
235 IFB$="Y"THEN239
237 GOTO231
239 GL=GL-(MT*4):IFGL<0THENGL=GL+(MT*4):TL=1500:YL=19:GOSUB735:GOTO243
241 GOTO247
243 YL=19:XL=12:MS$="NOT ENOUGH GOLD !":GOSUB731:GOTO245
245 YL=19:XL=3:MS$="          THEN DIE PAUPER!       ":GOSUB731:JJ=2:GOTO113
247 PRINT"[147]":MC=1:XS=0
249 SYS49604:SYS49500:GOTO341:REM ADJ ERROR*
251 NM=NM-1:IFNM=0THEN271
253 IFNM=5THENPOKEV+21,62
255 IFNM=4THENPOKEV+21,30
257 IFNM=3THENPOKEV+21,14
259 IFNM=2THENPOKEV+21,6
261 IFNM=1THENPOKEV+21,2
263 MS$="ASSAILANT DIES":YL=21:XL=13:GOSUB733
265 TL=600:YL=21:GOSUB735:IFJJ=2THEN97
267 IFPEEK(197)=60THEN97
269 GOTO113
271 V=53248:P=0:FORJ=1TO15:FORK=40TO46:POKEV+K,P:P=P+1:NEXT:NEXT: POKEV+21,0
273 MS$="ATTACKERS DEFEATED!":YL=21:TL=1500:XL=10:GOSUB733
275 YL=21:GOSUB735
277 RA=INT(RND(1)*15+1):IFRA>10THEN287
279 RA=MT+(INT(RND(1)*20+1)):GL=GL+RA
281 E=20:F=7:GOSUB31
283 PRINT" YOU HAVE FOUND ";:PRINTRA;:PRINT" GOLD"
285 YL=19:TL=1500:GOSUB735:GOTO247
287 E=20:F=3:GOSUB31
289 IFRA=11THENPRINT" YOU HAVE FOUND A CONFUSE SPELL":DC=DC+1:GOTO285
291 IFRA=12THENPRINT" YOU HAVE FOUND A STRENGTH SPELL":DS=DS+1:GOTO285
293 IFRA=13THENPRINT" YOU HAVE FOUND A HEALING SPELL":DH=DH+1:GOTO285
295 IFRA=14THENPRINT" YOU HAVE FOUND A BANISH SPELL":DB=DB+1:GOTO285
297 IFRA=15THENE=20:F=11:GOSUB31:PRINT"YOU FOUND +20 FOOD":FD=FD+20:GOTO285
299 V=53248
301 FORK=40TO46:POKEV+K,CS:NEXT
303 RA=INT(RND(1)*6+1):NM=RA
305 ON RA GOTO307 ,309,311,313,315,317
307 POKEV+21,2:GOTO319
309 POKEV+21,6:GOTO319
311 POKEV+21,14:GOTO319
313 POKEV+21,30:GOTO319
315 POKEV+21,62:GOTO319
317 POKEV+21,126:GOTO319
319 RETURN
321 MS$="  YOU HAVE DIED!  ":YL=19:XL=12:GOSUB731
323 PRINT"[147]":FORK=1TO15:PRINT:NEXT:PRINTNM$;:PRINT" HAS DIED":PRINT
325 PRINT" A  RESURRECT":PRINT" B  BEGIN NEW GAME":PRINT" C  QUIT"
327 POKE198,0:WAIT198,1:GETA$
329 IF A$="A"THENGOSUB339:GOTO335
331 IF A$="B"THENGOSUB339:POKEV+21,0:CLR:GOTO1
333 IF A$="C"THENSYS64738
335 DG=0:POKE720,0:POKE721,0:GG=22:DP=0:HP=100:POKE53276,0:IFFD<0THENFD=20
337 POKEV+21,0:LOAD"GMMAPB",DV,1
339 PRINT:PRINT:PRINT" LOADING...PLEASE WAIT...":FORK=1TO1500:NEXT:RETURN
341 POKEV+21,0:POKE53265,PEEK(53265)AND239
343 SA=22000:EA=22999:NS=1024:GOSUB753
345 SA=23000:EA=23999:NS=55296:GOSUB753
347 FORP=1024TO1062:POKEP,160:POKEP+54272,14:NEXT
349 FORP=1604TO1619:POKEP,32:NEXT
351 POKE646,12: E=3:F=20:GOSUB31:PRINTNM$
353 E=15:F=20:GOSUB31:PRINTW$
355 E=5:F=29:GOSUB31:PRINTHP
357 E=7:F=29:GOSUB31:PRINTGL
359 E=9:F=29:GOSUB31:PRINTFD
361 POKE53265,PEEK(53265)OR16:POKEV+21,1:POKE53276,255:POKE53285,0:POKE53286,1
363 SYS49678:SYS49553:SYS49152:SYS49800
365 SYS50100:XX=PEEK(720):YY=PEEK(721)
367 IF PEEK(56320)=111THEN421
369 IFDG=1ORDG=2THEN377
371 IFSX<>1THEN377
373 E=11:F=29:GOSUB31:PRINTXX;:IFXX<10THENPRINT"[157] "
375 E=13:F=29:GOSUB31:PRINTYY;:IFYY<10THENPRINT"[157] "
377 EF=PEEK(722)
379 IFEF=30THENPOKE722,31:GOTO39
381 IFEF=80THENPOKE722,81:GOTO39
383 IFEF=99THEN409
385 IF DG=1ORDG=2THEN389
387 GOTO365
389 IF EF=50 THENPOKE722,51:GOTO395
391 IF EF=94THENPOKE722,95:GOTO395 
393 GOTO365
395 IF DP<>0THEN365
397 IF DG=2THEN405
399 RA=INT(RND(1)*3+1)
401 ON RA GOTO403 ,405,407
403 DP=1:SA=15136:EA=15167:NS=14944:GOSUB753:GOTO365
405 DP=2:SA=15168:EA=15199:NS=14976:GOSUB753:GOTO365
407 DP=3:SA=15200:EA=15231:NS=15008:GOSUB753:GOTO365
409 POKE722,0:FD=FD-10:IFFD>20THEN417
411 IFFD<0THEN415
413 MS$="FOOD LOW!":YL=20:XL=14:GOSUB731:GOTO417
415 MS$="DIED OF STARVATION!":YL=20:XL=10:GOSUB731:GOTO323
417 E=9:F=29:GOSUB31:PRINT"    ";
419 PRINT"[157][157][157][157]";:PRINTFD:GOTO385
421 IF DG=1ORDG=2THEN635 
423 IF XX=2ANDYY=6THEN465
425 IF XX=32ANDYY=18THEN579
427 IF XX=6ANDYY=38THEN621
429 IF XX=46ANDYY=38THEN437
431 IF XX=44ANDYY=4THEN447
433 IF XX=2ANDYY=28THEN457
435 GOTO365
437 IFTA=1THEN365
439 TA=1:XL=4:YL=20:MS$="DIG.....DIG......SWEAT......GROAN":GOSUB731
441 XL=5:YL=20:MS$="YOU FIND 100G AND A HEAL SPELL":GOSUB731
443 GL=GL+100:DH=DH+1:
445 E=7:F=29:GOSUB31:PRINTGL:GOTO365
447 IFTB=1THEN365
449 TB=1:XL=4:YL=20:MS$="DIG.....DIG......SWEAT....CRASH!!":GOSUB731
451 POKEV+21,0:PRINT"[147]":PRINT" YOU HAVE FALLEN INTO A DISUSED MINE."
453 PRINT:PRINT" THERE MUST BE AN EXIT SOMEWHERE.....":GOSUB339
455 GG=24:DG=2:LOAD"GMMINE2",DV,1
457 IFTC=1THEN365
459 TC=1:XL=4:YL=20:MS$="DIG.....DIG......SWEAT......GROAN":GOSUB731
461 XL=5:YL=20:MS$="EUREKA! YOU HAVE FOUND 500 GOLD":GOSUB731
463 GL=GL+500:E=7:F=29:GOSUB31:PRINTGL:GOTO365
465 PRINT"[147]":POKEV+21,0
467 SA=18000:EA=18999:NS=55296:GOSUB753
469 SA=17000:EA=17999:NS=1024:GOSUB753:POKE1756,32
471 GOSUB703
473 IF AA>4THENGOSUB703
475 IF AA=1 THEN483 
477 IF AA=2 THEN515 
479 IF AA=3 THEN539 
481 IF AA=4 THEN575 
483 POKE646,3:PRINT"[147]":SA=19000:EA=19999:NS=1024:GOSUB753:POKE1712,32:REMERR
485 GOSUB703
487 IF AA>4THENGOSUB703
489 IFAA<>1THEN501
491 GL=GL-10:IFGL<0THENGL=GL+10:GOSUB719:GOTO485
493 RA=INT(RND(1)*11+5)
495 HP=HP+RA:E=22:F=7:GOSUB31:PRINT"HP +";
497 PRINTRA;:PRINT"  YOU HAVE ";:PRINTGL;:PRINT" GOLD"
499 YL=22:TL=2000:GOSUB735:GOTO485
501 IFAA<>2THEN507
503 GL=GL-20:IFGL<0THENGL=GL+20:GOSUB719:GOTO485
505 FD=FD+50:GOSUB723:GOTO485
507 IFAA<>3THEN513
509 GL=GL-40:IFGL<0THENGL=GL+40:GOSUB719:GOTO485
511 FD=FD+100:GOSUB723:GOTO485
513 IFAA=4THEN465
515 POKE646,8:PRINT"[147]":SA=21000:EA=21999:NS=1024:GOSUB753
517 GOSUB703:IFAA>4THEN517
519 IFAA<>1THEN525
521 GL=GL-10:IFGL<0THENGL=GL+10:GOSUB719:GOTO517
523 SA=26000:EA=26439:NS=1584:GOSUB753:GOTO517
525 IFAA<>2THEN531
527 GL=GL-100:IFGL<0THENGL=GL+100:GOSUB719:GOTO517
529 SA=26440:EA=26879:NS=1584:GOSUB753:GOTO517
531 IFAA<>3THEN537
533 GL=GL-200:IFGL<0THENGL=GL+200:GOSUB719:GOTO517
535 SA=26880:EA=27319:NS=1584:GOSUB753:GOTO517
537 IFAA=4THEN465
539 POKE646,5:PRINT"[147]":POKE646,5:SA=20000:EA=20999:NS=1024:GOSUB753
541 GOSUB703
543 IFAA<>1THEN549
545 GL=GL-10:IFGL<0THENGL=GL+10:GOSUB719:GOTO541
547 W$="DAGGER":WS=2:GOSUB723:GOTO541
549 IFAA<>2THEN555
551 GL=GL-30:IFGL<0THENGL=GL+30:GOSUB719:GOTO541
553 W$="CLUB":WS=4:GOSUB723:GOTO541
555 IFAA<>3THEN561
557 GL=GL-50:IFGL<0THENGL=GL+50:GOSUB719:GOTO541
559 W$="SWORD":WS=8:GOSUB723:GOTO541
561 IFAA<>4THEN567
563 GL=GL-100:IFGL<0THENGL=GL+100:GOSUB719:GOTO541
565 W$="CROSSBOW":WS=16:GOSUB723:GOTO541
567 IFAA<>5THEN573
569 GL=GL-40:IFGL<0THENGL=GL+40:GOSUB719:GOTO541
571 SX=1:GOSUB723:GOTO541
573 IFAA=6THEN465
575 PRINT"[147]":POKEV+21,1
577 POKE720,(PEEK(720)+1):POKE721,(PEEK(721)+1):GOTO341
579 POKEV+21,0
581 POKE646,5:PRINT"[147]":SA=27320:EA=28319:NS=1024:GOSUB753
583 GOSUB703
585 IFAA<>1THEN591
587 GL=GL-40:IFGL<0THENGL=GL+40:YL=20:XL=12:GOSUB721:GOTO583
589 DC=DC+1:YL=20:XL=9:GOSUB725:GOTO583
591 IFAA<>2THEN597
593 GL=GL-60:IFGL<0THENGL=GL+60:YL=20:XL=12:GOSUB721:GOTO583
595 DS=DS+1:YL=20:XL=9:GOSUB725:GOTO583
597 IFAA<>3THEN603
599 GL=GL-80:IFGL<0THENGL=GL+80:YL=20:XL=12:GOSUB721:GOTO583
601 DH=DH+1:YL=20:XL=9:GOSUB725:GOTO583
603 IFAA<>4THEN609
605 GL=GL-100:IFGL<0THENGL=GL+100:YL=20:XL=12:GOSUB721:GOTO583
607 DB=DB+1:YL=20:XL=9:GOSUB725:GOTO583
609 IFAA<>5THEN617
611 POKE646,3:PRINT"[147]":SA=28320:EA=29319:NS=1024:GOSUB753
613 POKE198,0:WAIT198,1:GETA$
615 GOTO581
617 PRINT"[147]":POKEV+21,1
619 POKE720,(PEEK(720)+1):POKE721,(PEEK(721)+1):GOTO341
621 PRINT"[147]":POKEV+21,0:GOSUB339
623 DG=1:GG=20:LOAD"GMDNG3",DV,1
625 FORP=14848TO14879:POKEP,0:NEXT
627 SA=15232:EA=15263:NS=14944:GOSUB753
629 SA=15232:EA=15263:NS=14976:GOSUB753
631 SA=15232:EA=15263:NS=15008:GOSUB753
633 POKEV+21,1:GOTO341
635 P=PEEK(1352)
637 IFP=76ANDDP=1THEN671
639 IFP=80ANDDP=2THEN649
641 IFP=84ANDDP=3THEN657
643 IFP=72THEN689
645 IFP=68THEN677
647 GOTO365
649 E=20:F=7:GOSUB31
651 RA=INT(RND(1)*80+20):GL=GL+RA
653 PRINT" YOU HAVE FOUND ";:PRINTRA;:PRINT" GOLD"
655 E=7:F=29:GOSUB31:PRINTGL:GOTO669
657 E=20:F=3:GOSUB31
659 RA=INT(RND(1)*4+1)
661 IFRA=1THENPRINT" YOU HAVE FOUND A CONFUSE SPELL":DC=DC+1:GOTO669
663 IFRA=2THENPRINT" YOU HAVE FOUND A STRENGTH SPELL":DS=DS+1:GOTO669
665 IFRA=3THENPRINT" YOU HAVE FOUND A HEALING SPELL":DH=DH+1:GOTO669
667 IFRA=4THENPRINT" YOU HAVE FOUND A BANISH SPELL":DB=DB+1:GOTO669
669 FORP=14944TO15039:POKEP,0:NEXT:YL=20:TL=1000:GOSUB735:DP=0:GOTO365
671 E=20:F=8:GOSUB31
673 PRINT" YOU HAVE FOUND +20 FOOD":FD=FD+20
675 E=9:F=29:GOSUB31:PRINTFD:GOTO669
677 PRINT"[147]":POKEV+21,0:GOSUB339
679 IF DG=2 THEN683
681 DG=0:POKE720,7:POKE721,39:GG=22:DP=0:LOAD"EXDM3",DV,1
683 PRINT:PRINT:PRINT"YOU HAVE ESCAPED! THE GROUND CRUMBLES"
685 PRINT:PRINT"BEHIND YOU, SEALING THE EXIT."
687 DG=0:POKE720,0:POKE721,0:GG=22:DP=0:LOAD"GMMAPB",DV,1
689 E=20:F=7:GOSUB31:PRINT"EVERYTHING IS FADING......"
691 FORK=1TO1000:RA=INT(RND(1)*800+1)
693 POKE1024+RA,46:POKE55296+RA,1:NEXT
695 V=53248:POKE646,14:POKEV+21,0:PRINT"[147]":SA=50600:EA=51599:NS=1024
697 GOSUB753
699 POKE198,0:WAIT198,1:GETA$
701 SYS64738
703 POKE198,0:WAIT198,1:GETA$
705 IF A$="A"THEN AA=1:RETURN
707 IF A$="B"THEN AA=2:RETURN
709 IF A$="C"THEN AA=3:RETURN
711 IF A$="D"THEN AA=4:RETURN
713 IF A$="E"THEN AA=5:RETURN
715 IF A$="F"THEN AA=6:RETURN
717 GOTO703
719 YL=22:XL=12
721 MS$="NOT ENOUGH GOLD ! ":GOSUB731:RETURN
723 YL=22:XL=9
725 TL=600:MS$="          OK!           ":GOSUB733:POKE781,22
727 POKE782,9:POKE783,0:SYS65520:PRINT"YOU HAVE ";:PRINTGL;:PRINT" GOLD LEFT"
729 TL=1500:YL=22:GOSUB735:RETURN
731 TL=1500
733 POKE781,YL:POKE782,XL:POKE783,0:SYS65520:PRINTMS$
735 FORK=1TOTL:NEXT
737 POKE781,YL:POKE782,2:POKE783,0:SYS65520
739 PRINT"                                    ":RETURN
741 POKE52,56:POKE56,56
743 POKE56334,PEEK(56334)AND254
745 POKE1,PEEK(1)AND251
747 POKE1,PEEK(1)OR4
749 POKE56334,PEEK(56334)OR1
751 POKE53272,(PEEK(53272)AND240)+14:RETURN
753 EA=EA+1:L=EA-SA:NE=L+NS
755 X=INT(L/256):Y=L-256*X
757 A=INT((NE-Y)/256):B=NE-256*A-Y
759 C=INT((EA-Y)/256):D=EA-256*C-Y
761 POKE 781,X+1:POKE782,Y
763 POKE 88,B+1:POKE 89,A
765 POKE90,D+1:POKE 91,C
767 SYS41964:RETURN