SHARP PC-E500/1480U用
「ESCAPE from DUNGEON」
Embedded Files
迷宮 Melfort
100 'ESCAPE from the DUNGEON Ver. 1.6
110 '
120 CLEAR :DIM S$(&2F),M$(&13,&13)
130 RESTORE :WAIT &0:X=&1:Y=&12:DX=&0:DY=-&1:PAT$="22223E222222E322":READ FM:DIM FILE$(FM)
140 INPUT "SOUND? (Yes:1/No:0):";B:IF B<>&0 AND B<>&1 THEN 140
150 CLS :LOCATE &8,&1:PRINT "ESCAPE from the DUNGEON
160 FOR I=&0 TO FM-&1:READ FILE$(I):NEXT :FILE$(FM)="EXIT!!
170 RESTORE *GDATA:FOR I=&0 TO 47:READ S$(I):NEXT
180 GOSUB *RM
190 CLS :FOR I=&1TO &4:GCURSOR (&0,I*&8-&1):FOR J=&0TO &27:GPRINT PAT$;:NEXT :NEXT :LINE (&29,&0)-(&29,&17),R
200 LOCATE &7,&0:PRINT "Rod": LOCATE &7,&1:PRINT "Key":LOCATE &7,&2:PRINT "Spc":LINE (&A,&1D)-(&24,&1D),R,&F7F7:LINE (&A,&3)-(&24,&1C),B:GOSUB *MC:GOSUB *D
210 '
220 *S:A$=INPUT $(1)
230 IF A$="5"AND M$(X+DX,Y+DY)<>"0"LET X=X+DX:Y=Y+DY:GOSUB *D:GOSUB *EVE:GOTO *S
240 IF A$="1"LET P=DX:DX=DY:DY=-P:GOSUB *D:GOSUB *EVE:GOTO *S
250 IF A$="3"LET P=DX:DX=-DY:DY=P:GOSUB *D:GOSUB *EVE:GOTO *S
260 IF A$="2"LET DX=-DX:DY=-DY:GOSUB *D:GOSUB *EVE:GOTO *S
270 IF A$="S"AND S>0 GOSUB *SPCU:GOSUB *D:GOSUB *EVE:GOTO *S
280 IF A$="R"AND R>0 GOSUB *RODU:GOSUB *D:GOSUB *EVE
290 GOTO *S
300 '
310 *D:WAIT 0:GC=11
320 IF M$(X+DY,Y-DX)<"1"LET Q=0ELSE Q=3
330 GOSUB *GP:GC=14
340 IF M$(X+DX,Y+DY)<"1"LET Q=6:GOSUB *GP:GC=33:GOTO *D1
350 IF M$(X+DX+DY,Y-DX+DY)<"1"LET Q=15ELSE Q=18
360 GOSUB *GP:GC=18
370 IF M$(X+DX+DX,Y+DY+DY)<"1"LET Q=21:GOSUB *GP:GC=29:GOTO *D2
380 IF M$(X+DX+DX+DY,Y-DX+DY+DY)<"1"LET Q=30ELSE Q=33
390 GOSUB *GP:GC=21
400 IF M$(X+3*DX,Y+3*DY)<"1"LET Q=36ELSE Q=39
410 GOSUB *GP:GC=26
420 IF M$(X+DX+DX-DY,Y+DX+DY+DY)<"1"LET Q=42ELSE Q=45
430 GOSUB *GP:GC=29
440 *D2:IF M$(X+DX-DY,Y+DX+DY)<"1"LET Q=24ELSE Q=27
450 GOSUB *GP:GC=33
460 *D1:IF M$(X-DY,Y+DX)<"1"LET Q=9ELSE Q=12
470 GOSUB *GP
480 IF VAL M$(X+DX,Y+DY)>6LINE (23,22)-(24,22)
490 RETURN
500 *GP:GCURSOR (GC,27):GPRINT S$(Q):GCURSOR (GC,19):GPRINT S$(Q+1):GCURSOR (GC,11):GPRINT S$(Q+2) :RETURN
510 '
520 *EVE:ON ASC M$(X,Y)-48GOTO *E1,*WARP,*CAVE,*TURN,*UNSE,*EFFE,*SPCF,*KEYF,*RODF,*E1,*E1,*SLIP
530 *E1:RETURN
540 *SPCF:BEEP &2*B,&32,&64:LOCATE &D,&3:PAUSE "Spectacles!":GCURSOR (&48+&8*S,&17):GPRINT "6080806C12120C00":GOSUB *MC:S=S+&1:M$(X,Y)="1":RETURN
550 *RODF:BEEP &2*B,&96,&32:LOCATE &D,&3:PAUSE "Rod!":GCURSOR (&48+R*&8,&7):GPRINT "804020100E010502":GOSUB *MC:R=R+&1:M$(X,Y)="1":RETURN
560 *KEYF:FOR I=&1 TO &3:BEEP B,&50,&1E:BEEP B,&3C,&28:NEXT :LOCATE &D,&3:PAUSE "Key!":GCURSOR (&48+K*&8,&F):GPRINT "0002050A50607000":GOSUB *MC:K=K+&1:M$(X,Y)="1":RETURN
570 *SLIP:IF X>17OR X<2OR Y>17OR Y<2RETURN
580 FOR I=&1TO &3:BEEP B,&C-I*&4,&A:NEXT :X=X+DX:Y=Y+DY:GOSUB *D:LOCATE &D,&3:PAUSE "Wow!":GOSUB *MC:GOTO *EVE
590 *WARP:RX=RND 18:RY=RND 18:IF M$(RX,RY)<>"1"THEN *WARP
600 FOR I=&1TO &3:FOR J=&1TO &A:BEEP B,J,&1D:NEXT :NEXT :X=RX:Y=RY:LOCATE &D,&3:PAUSE "WARP!":GOSUB *D:GOSUB *MC:RETURN
610 *CAVE:IF X+DX=0OR X+DX=19OR Y+DY=0OR Y+DY=19THEN 620ELSE RETURN
620 GCURSOR (&B,&11):GPRINT "001D11F111F039CDF3FF01F9E3FFFDF986F2CD39F110F0101E":GCURSOR (&B,&19):GPRINT "111F11F111FF49FFFFFFFFFFFFFFFFFFFFFFFF49FF11F1111F
630 BEEP B,&FA,&190:LOCATE &D,&3:PAUSE "This is CAVE!":LOCATE &D,&3:PRINT "ENTER? (Y/N):":B$=INPUT $(1):IF B$<>"Y"GOSUB *MC:RETURN
640 IF K<&3LOCATE &D,&3:PAUSE "It needs 3keys..":GOSUB *MC:RETURN
650 LINE (&B,&4)-(&23,&1B),X,BF:LOCATE &D,&3:PRINT "NEXT LEVEL...";FILE$(F+&1):F=F+&1:IF F=FM THEN *ENDE ELSE GOSUB *RM
660 RX=RND 18:RY=RND 18:IF M$(RX,RY)<>"1"THEN 660ELSE X=RX:Y=RY
670 GCURSOR (&48,&F):FOR I=&0TO &13:GPRINT PAT$;:NEXT :K=&0:GOSUB *MC:GOSUB *D:RETURN
680 *SPCU:FOR I=&1 TO &19:BEEP B,&14+RND &32,&F:NEXT :LOCATE &D,&3:PRINT "Use Spectacles":LINE (&B,&4)-(&23,&1B),R,BF:LINE (&D,&6)-(&20,&19),B
690 FOR I=&1 TO 18:FOR J=1 TO 18:IF M$(J,I)<"1"PSET (J+13,I+6)
700 NEXT :NEXT
710 WAIT &14:FOR I=&1 TO &28:PSET (X+&D,Y+&6),X:NEXT
720 WAIT &0:S=S-&1:GCURSOR (&48+S*&8,&17):GPRINT PAT$:GOSUB *MC:RETURN
730 *RODU:FOR I=&1 TO &19:BEEP B,&28+RND &50,&8:NEXT :LOCATE &D,&3:PRINT "Use Rod":LINE (&B,&4)-(&23,&1B),R,BF:LINE (&D,&6)-(&20,&19),B
740 GCURSOR (&0,&F)
750 IF DY=-&1GPRINT "0804027F02040800
760 IF DX=-&1GPRINT "081C2A4908080800
770 IF DY=&1GPRINT "0810207F20100800
780 IF DX=&1GPRINT "080808492A1C0800
790 FOR J=&1 TO 18:FOR I=1 TO 18:IF M$(I,J)<>"8"AND M$(I,J)<>"3"PSET (I+13,J+6)
800 NEXT :NEXT
810 WAIT &14:FOR I=&1 TO &28:PSET (X+&D,Y+&6),X:NEXT
820 WAIT &0:R=R-&1:GCURSOR (&0,&F):GPRINT PAT$:GCURSOR (&48+R*&8,&7):GPRINT PAT$:GOSUB *MC:RETURN
830 *TURN:FOR I=&1TO RND &4:BEEP B,&A,&2:P=DX:DX=-DY:DY=P:GOSUB *D:NEXT :RETURN
840 *UNSE:BEEP B,&E6,&A:BEEP B,&64,&5:X=X-DX:Y=Y-DY:LOCATE &D,&3:PAUSE "Ouch!":GOSUB *D:GOSUB *MC:GOTO *EVE
850 *EFFE:ON (X*Y AND 7)+1 GOTO *BLOD,*MIST,*SOUN,*GHOS,*SHAD,*SLIM,*EYE,*BET
860 RETURN
870 *BLOD:FOR I=&1TO RND &6:RX=RND &18+&A:FOR RY=&4 TO RND &17+&4:PSET (RX,RY):NEXT :BEEP B,&FA,&A:NEXT :RETURN
880 *MIST:FOR I=&4TO &1B STEP &2:LINE (&B,I)-(&23,I),R:NEXT :RETURN
890 *SOUN:IF RND &0>0.5FOR I=&1TO &14:BEEP B,&3,&3:BEEP B,&6,&3:NEXT ELSE FOR I=&1TO &A:BEEP B,&64,&32:BEEP B,&C8,&A:NEXT
900 RETURN
910 *GHOS:GCURSOR (&14,&1B):GPRINT "5B1FAF0B16":WAIT &64:GCURSOR (&14,&13):GPRINT "C0F6FFFFE6":WAIT &0:GCURSOR (&14,&1B):GPRINT "0004130100":WAIT &A:GCURSOR (&14,&13):GPRINT "00C0F48000":WAIT &0:GOSUB *D:RETURN
920 *SLIM:WAIT &10:FOR I=&1TO &5:GCURSOR (&10,&1A):GPRINT "80808040C0A0E0E0E0E0C040C0C08080":GCURSOR (&10,&1A):GPRINT "008080C0C0A0D0D050F060C080808000":NEXT :WAIT &0:RETURN
930 *SHAD:LINE (&B,&4)-(&23,&1B),BF:RETURN
940 *EYE:WAIT &14:FOR I=&1TO &2:GCURSOR (&F,&13):GPRINT "20584C84F6FAFAFAFAF6848C88585020":GCURSOR (&11,&13):GPRINT "6CF4F6F2F2E28286848C":GCURSOR (&11,&13):GPRINT "4C84F6FAFAFAFAF6848C
950 GCURSOR (&11,&13):GPRINT "4C848682E2F2F2F6F4EC":NEXT :GOSUB *D:RETURN
960 *BET:U1$="00000080C06030180E03E0FC3E060000":D1$="188EC3F1781E0F070E183167C48C1830":U2$="00000000004020100400C03800000000":D2$="08000221100C02010618210208000000"
970 FOR I=&1TO &3:IF M$(X+DX,Y+DY)<>"0"THEN WAIT &F:GPRINT :GOTO 990
980 WAIT &0:GCURSOR (&10,&F):GPRINT U2$:WAIT &5:GCURSOR (&10,&17):GPRINT D2$:WAIT &0:GCURSOR (&10,&F):GPRINT U1$:WAIT &5:GCURSOR (&10,&17):GPRINT D1$
990 BEEP B,&FF,&2:BEEP B,&C8,&1
1000 IF M$(X+DX,Y+DY)="0"WAIT &0:GCURSOR (&10,&F):GPRINT U2$:GCURSOR (&10,&17):GPRINT D2$
1010 WAIT &1C:GPRINT :NEXT :GOSUB *D:RETURN
1020 *MC:LOCATE &C,&3:PRINT " ":RETURN
1030 *RM:RESTORE FILE$(F):FOR J=&0 TO 19:READ TEMP$:FOR I=&0 TO 19:M$(I,J)=MID$ (TEMP$,I+1,1):NEXT :NEXT :RETURN
1040 *ENDE:FOR I=&1TO &3:FOR J=&32TO &1STEP -&1:BEEP B,J,&14:NEXT :NEXT :CLS :LOCATE &C,&1:PRINT "G A M E O V E R":WAIT :PRINT :END
1050 '
1060 DATA 5,GATETORUIN,SINAENUGU,SEROWE,GORGAN,ALTOONA
1070 *GDATA:DATA D56A35,55AA55,55AB57,101010,000000,050405
1080 DATA 10101010101010101010101010101010101010
1090 DATA 00000000000000000000000000000000000000
1100 DATA 04050405040504050405040504050405040504
1110 DATA 356AD5,55AA55,57AB55,101010,000000,050405
1120 DATA 1A0D0603,AA55AA55,AC59B069,1F010101,FF000000,FC694069
1130 DATA 0101010101010101010101,0000000000000000000000
1140 DATA 4069406940694069406940
1150 DATA 03060D1A,55AA55AA,69B059AC,0101011F,000000FF,694069FC
1160 DATA 010000,AAD56B,C0A900,010000,FF2222,C0A900
1170 DATA 0000000000,2222222222,A900A900A9,0000000000,363C1A3C36
1180 DATA A900A900A9
1190 DATA 000001,6BD5AA,00A9C0,000001,2222FF,00A9C0
1200 "GATETORUIN"
1210 DATA 00000000000000000000
1220 DATA 01111111101110100010
1230 DATA 01000000<01016110110
1240 DATA 01107101100000010100
1250 DATA 00100111011110110110
1260 DATA 01110000001000100010
1270 DATA 00011101011110110110
1280 DATA 08010111110000011600
1290 DATA 01010100010111110110
1300 DATA 01110110111100000010
1310 DATA 01000000001010101110
1320 DATA 01111011701011111000
1330 DATA 01010001011001010010
1340 DATA 00010201000011011110
1350 DATA 09110111111110000030
1360 DATA 01000000010000811110
1370 DATA 07011111011110001000
1380 DATA 01010600001011011110
1390 DATA 01170108111001010060
1400 DATA 00000000000000000000
1410 "SINAENUGU"
1420 DATA 00000000000000000000
1430 DATA 01070161111111003010
1440 DATA 01110100101001014160
1450 DATA 01001110101111109010
1460 DATA 01011010110011000110
1470 DATA 01010009010110001100
1480 DATA 01011071110101111000
1490 DATA 01010000101111000600
1500 DATA 01111100100000866660
1510 DATA 01010111106060000600
1520 DATA 01011001011111111100
1530 DATA 01010101810100000110
1540 DATA 01010101011111111100
1550 DATA 01111411100100005090
1560 DATA 01010100000011111110
1570 DATA 01010110170610010100
1580 DATA 01010011101010111080
1590 DATA 00661100111110101110
1600 DATA 00600119010107111000
1610 DATA 00000000000000000000
1620 "SEROWE"
1630 DATA 00000000000000000000
1640 DATA 011902#1111111111110
1650 DATA 01010101000000000010
1660 DATA 01010101099979962010
1670 DATA 01010101022027722050
1680 DATA 01011101000100#00070
1690 DATA 0111011111111111<200
1700 DATA 00100000000000000030
1710 DATA 0111111<1<11<1111110
1720 DATA 01010000000000000100
1730 DATA 01010111860111111110
1740 DATA 01010101000101010010
1750 DATA 07011101011110717010
1760 DATA 00000100110011010110
1770 DATA 01110111010100020000
1780 DATA 01010101010101101110
1790 DATA 01010110141411011010
1800 DATA 04060101010101110010
1810 DATA 08011111101111080910
1820 DATA 00000000000000000000
1830 "GORGAN"
1840 DATA 00000000000000000000
1850 DATA 08110111081107090070
1860 DATA 00010010010111111110
1870 DATA 01110111000106060100
1880 DATA 01001<01111111111110
1890 DATA 01010<01010100000070
1900 DATA 01010<01010101010100
1910 DATA 01011111111111111110
1920 DATA 01101010101010101010
1930 DATA 00111111114111111110
1940 DATA 0010101010<010501010
1950 DATA 07111111114711851110
1960 DATA 00101010101010101000
1970 DATA 01112111112111111110
1980 DATA 00101010101010101000
1990 DATA 09121111114111111190
2000 DATA 00101010101010101090
2010 DATA 07111111114111111100
2020 DATA 01010301010101010110
2030 DATA 00000000000000000000
2040 "ALTOONA"
2050 DATA 00000000000000000000
2060 DATA 0111#711110111012010
2070 DATA 01002000010100010810
2080 DATA 01108011111102012010
2090 DATA 00820010010061010110
2100 DATA 02001110111100011010
2110 DATA 01111010100020201110
2120 DATA 00010001711111111010
2130 DATA 09011010141000200000
2140 DATA 09110111111110001170
2150 DATA 01000100101011111060
2160 DATA 01110100111100101100
2170 DATA 00101111100110020110
2180 DATA 01100010120012010010
2190 DATA 01022201101100010110
2200 DATA 01#11200111077010100
2210 DATA 01091011001207710110
2220 DATA 0100#010901060700010
2230 DATA 01111110311110608110
2240 DATA 00000000000000000000
迷宮 Amos
1050 '
1060 DATA 5,SINACH,WAURMEL,GETUWANN,VOSQUE,OTER
1070 *GDATA:DATA D56A35,55AA55,55AB57,101010,000000,050405
1080 DATA 10101010101010101010101010101010101010
1090 DATA 00000000000000000000000000000000000000
1100 DATA 04050405040504050405040504050405040504
1110 DATA 356AD5,55AA55,57AB55,101010,000000,050405
1120 DATA 1A0D0603,AA55AA55,AC59B069,1F010101,FF000000,FC694069
1130 DATA 0101010101010101010101,0000000000000000000000
1140 DATA 4069406940694069406940
1150 DATA 03060D1A,55AA55AA,69B059AC,0101011F,000000FF,694069FC
1160 DATA 010000,AAD56B,C0A900,010000,FF2222,C0A900
1170 DATA 0000000000,2222222222,A900A900A9,0000000000,363C1A3C36
1180 DATA A900A900A9
1190 DATA 000001,6BD5AA,00A9C0,000001,2222FF,00A9C0
1192 "SINACH"
1194 DATA 00000000000000000000
1200 DATA 00901111100811563660
1210 DATA 07111000111001000060
1220 DATA 00101111101101106660
1230 DATA 01110001000111066000
1240 DATA 000111011110006601#0
1250 DATA 01101011000666608410
1260 DATA 01011010666600090100
1270 DATA 01010106#00011112110
1280 DATA 01010107066010101010
1290 DATA 01010101066111711110
1300 DATA 01111101016010101010
1310 DATA 01001011010111419100
1320 DATA 01111110111010101010
1330 DATA 00101001100111111110
1340 DATA 00101110111010709010
1350 DATA 01110111101108060090
1360 DATA 0900000107010#946#60
1370 DATA 01714111011106060070
1380 DATA 00000000000000000000
1390 "WAURMEL"
1400 DATA 00000000000000000000
1410 DATA 01110211102111107190
1420 DATA 01011010110210110100
1430 DATA 01101108011#10011110
1440 DATA 00110140110851140100
1450 DATA 08011011010001011020
1460 DATA 0#701101108011110110
1470 DATA 07<10140110110102110
1480 DATA 00101#11011011021610
1490 DATA 01#010#1101101101110
1500 DATA 01101120110110110110
1510 DATA 0101080110101<#<1100
1520 DATA 01111011011100110110
1530 DATA 01001010900110011010
1540 DATA 07110110910011101010
1550 DATA 01011108#60110111100
1560 DATA 07100110919011001010
1570 DATA 00711011010101100110
1580 DATA 07706301111110111100
1590 DATA 00000000000000000000
1600 "GETUWANN"
1610 DATA 00000000000000000000
1620 DATA 08110741111091111110
1630 DATA 000#00000#0000100010
1640 DATA 01#61111111111111020
1650 DATA 01010000010000011050
1660 DATA 01010716010616001170
1670 DATA 02010207070102071050
1680 DATA 00010001010100001110
1690 DATA 02#61116010611111010
1700 DATA 00000000010000001050
1710 DATA 021<<<<<<1<<<<<<6#80
1720 DATA 001001010<0010001050
1730 DATA 04<<<4111<0111011010
1740 DATA 010001000<11#1110010
1750 DATA 01#701#20<0111011110
1760 DATA 010001000<0010801#10
1770 DATA 04111411161111#11110
1780 DATA 010#01000#0101610050
1790 DATA 04434411575100##1510
1800 DATA 00000000000000000000
1810 "VOSQUE"
1820 DATA 00000000000000000000
1830 DATA 020008000##090111110
1840 DATA 01001100#00611109010
1850 DATA 000110###00010110910
1860 DATA 00110##00##01901#020
1870 DATA 00#10#0710#01001#070
1880 DATA 00100##0<0##0000#070
1890 DATA 001#70#01014#0##4010
1900 DATA 00011007<00140#0#090
1910 DATA 00701110170011#0#090
1920 DATA 07111011100900101000
1930 DATA 0001#111111111001000
1940 DATA 0110#011007000801100
1950 DATA 0####00111000##20#10
1960 DATA 0#002000100###000010
1970 DATA 0#####0070##0#010010
1980 DATA 00#00###0##01#051010
1990 DATA 000#0004##0010001110
2000 DATA 02#6#814106#1#131050
2010 DATA 00000000000000000000
2020 "OTER"
2030 DATA 00000000000000000000
2040 DATA 09111098086666666970
2050 DATA 00<0<00<000000006000
2060 DATA 011000<01070<109<<10
2070 DATA 0100<0<0<0<10000<010
2080 DATA 0109<0<70<<1<<1<<010
2090 DATA 0100<9<0<0<0010<0010
2100 DATA 0107<0<0<1<1110<0<10
2110 DATA 0100<1<010<0100<0000
2120 DATA 0101<0<011<1<<0<0090
2130 DATA 0100<1<010<010<<7010
2140 DATA 010<<0<0<1<1190<0010
2150 DATA 0700<7<010<010<<9010
2160 DATA 0007<0<061<1<<0<0010
2170 DATA 01<<<<<010<0010<7010
2180 DATA 0107<0<1<1<0<60<9010
2190 DATA 0900<<7010<090007010
2200 DATA 00<000<0000<060<0110
2210 DATA 03119066087901111100
2220 DATA 00000000000000000000
「I am GLAY」 たぶんPC-E500用。
10 CLS :CLEAR :DIM G$(&2,&4):Z=&0:O=&1
20 G$="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF":G$(Z,Z)=G$:G$(O,Z)=G$:G$(&2,Z)=G$
30 G$(Z,O)="FF0F277371E180000080E17173270FFF":G$(Z,&2)="FFFFFEF8F020284A4A2820F0F8FEFFFF
40 G$(O,O)="FFFFFF1FC7E3E373311901010101E3FF":G$(O,&2)="FFFFE9C0C121201000F0F8F8FCFFFFFF
50 G$(O,&3)="FFFFFFFF0318E004F807FFFFFFFFFFFF":G$(O,&4)="FFFFFFFFF000FFF01FC0FFFFFFFFFFFF
60 G$(&2,O)="FF1F0F070303010101010303070F1FFF":G$(&2,&2)="FFFEFCF0E01C000000001CE0F0FCFEFF
70 G$(Z,&3)="0703E3F10102020000020201F1E30307":G$(Z,&4)="FCE0000FFE000000000000FE0F00E0FC":G$(&2,&3)=G$(Z,&3):G$(&2,&4)=G$(Z,&4)
80 FOR H=O TO &2:FOR I=Z TO &FF STEP &10:FOR J=O TO &4:GCURSOR (I,J*&8-O):GPRINT G$(Z,-(H=1)*J):NEXT :NEXT :NEXT :WAIT &30:GPRINT :WAIT Z
90 PRINT "I am GRAY":PRINT "SC.=":PRINT "LEFT=
100 FP=RND &8-O:FX=&10*FP+&41:GP=RND &8-O:GX=&10*GP+&46:L=Z:DL=-O:GOSUB *B1
110 *M:FOR C=O TO &64:FOR I=Z TO L:GCURSOR (GX,31-I*8):GPRINT G$(2,L-I):NEXT
120 A$=INKEY$ :IF A$=""THEN *M2
130 IF A$="4"IF FP>0GOSUB *B0:FP=FP-1:GOSUB *B1:GOTO *M2
140 IF A$="6"IF FP<7GOSUB *B0:FP=FP+1:GOSUB *B1:GOTO *M2
150 IF A$=" "GOSUB *HEY
160 *M2:IF L=0OR L=4THEN DL=-DL:IF L=0THEN GP=(FP+RND 3+2)AND 7:GX=16*GP+70
170 L=L+DL:LOCATE 5,2:PRINT 100-C:NEXT
180 GOTO *E
190 *B1:FX=16*FP+65:LINE (FX,0)-(FX+24,31),R,B:RETURN
200 *B0:FX=16*FP+65:LINE (FX,0)-(FX+24,31),B:RETURN
210 *HEY:LOCATE Z,&3:PRINT " Hey!":FOR I=Z TO L:GCURSOR (GX,31-I*8):GPRINT G$(O,L-I):NEXT :WAIT &A:GPRINT :WAIT Z:FOR I=Z TO L:GCURSOR (GX,31-I*8):GPRINT G$(Z,L-I):NEXT
220 WAIT &40:GPRINT :WAIT Z:IF GP=FP THEN S=S+L*&A:LOCATE &4,O:PRINT S
230 FOR I=Z TO L:GCURSOR (GX,31-I*8):GPRINT G$(O,L-I):NEXT :WAIT &A:GPRINT :WAIT Z:FOR I=Z TO L:GCURSOR (GX,31-I*8):GPRINT G$(2,L-I):NEXT
240 LOCATE Z,&3:PRINT " ":RETURN
320 *E:IF S<&80 CLS :END
330 FOR L=Z TO &4:FOR I=0 TO L:GCURSOR (120,31-I*8):GPRINT G$(2,L-I):NEXT :NEXT :W=&A
340 G1$="FFE301010101193173E3E3C71FFFFFFF":G2$="FFFFFFFCF8F8F000000001C1C0E9FFFF"
350 FOR I=&0TO &A:WAIT Z:GCURSOR (120,&7):GPRINT G$(O,O):WAIT W:GCURSOR (120,&F):GPRINT G$(O,&2):WAIT Z:GCURSOR (120,&7):GPRINT G$(&2,O):WAIT W:GCURSOR (120,&F):GPRINT G$(&2,&2)
360 WAIT Z:GCURSOR (120,&7):GPRINT G1$:WAIT W:GCURSOR (120,&F):GPRINT G2$:WAIT Z:GCURSOR (120,&7):GPRINT G$(Z,O):WAIT W:GCURSOR (120,&F):GPRINT G$(Z,&2):NEXT
370 WAIT Z:GCURSOR (120,&7):GPRINT G$(&2,O):WAIT W:GCURSOR (120,&F):GPRINT G$(&2,&2)
380 WAIT Z:FOR L=&4TO Z STEP -O:FOR I=Z TO L:GCURSOR (120,31-I*8):GPRINT G$(2,L-I):NEXT :NEXT
390 CLS :END
Page updated
Google Sites
Report abuse