1 REM UNDER WORLD
4 REM SUPERNATURAL AND NUKEMARES [ NORIYUKISOFT /GEEK]
6 CLEAR 303 ,&HE0A4
12 CONSOLE 0,25 ,0 : COLOR 7,32:WIDTH 80, 25
20 DEFINT A-Z:PRINT CHR$(12):GOSUB 250
30 DEFUSR1=&HE126:DEFUSR2=&HE0A1:F=1 :W=100:S=0
40 LINE(0,0)-(79,19),”=”,5,BF : X=1:Y=1
48 LINE(0,20)-(79,20),”=”,4,BF
50 FOR I=1 TO 20 :X2=RND(1)*37
55 Y2=RND(1)*18:LOCATE X2,Y2:PRINT” ” :NEXT
80 COLOR 7 :FOR I =1 TO 20 :X2=RND (1) *77
85 Y2 = RND (1)*18:LOC. X2,Y2 :?”*” :NEXT
90 IF F=1 THEN V= +1 :IF X>78 THEN F=2:W=W-1
100 IF F=2 THEN V= -1 :IF X<2 THEN F=1:W=W-1
101 FRUIT LAB
105 K=(Y*120+X+&HF379):K=1=K-120+(2*V) : Y1=Y
130 A=USE1(0) : IF PEEK (K1)=42 THEN GOSUB 230 :W=W-10
135 IF PEEK (K1)=80 THEN GOSUB 240 :S=S+10
151 IF PEEK (K)=32 THEN V=0 :Y=Y+1
160 IF Y=20 THEN 40
177 GOOD LUCK BILL LJKVJHFJTJJYCYCRDYKTJDCKTYJHKGHJHKGXFD
180 A=USR2 (0): LOCATE 0,21:PRINT ” SCORE”;S
190 LOCATE 69,21:PRINT ” ECO POINT*” ;W:IF W<1 THEN 210
195 A=USR1(0) :IF Y=20 THEN 50
203 COLOR 6 : LOC. X,Y1: PRINT ” ” SCORE” ;S
205 A=USR2(0):LOCATE X,Y:PRINT ”~” :GOTO 90
210 NASA HAD
211 COLOR 6: LOC.31,10:PRINT ”[//E__N__D//]”
215 FOR I=1 TO 5500 :NEXT :PRINT ” CYBERSPACE KEY=START”
222 IF INKEY$= ” ” THEN 30 ELSE 222
230 FOR Q=1 TO 10 :BEEP1 :FOR I=1 TO 8 :BEEP0:NEXT:NEXT:RETURN
240 BEEP 1 :FOR I= TO 35 :NEXT : BEEP 0 : RETURN
250 RESTORE 300:FOR I=&HE0A5 TO &HE177 READ A$
256 WALT WALT WALT D T RON
260 POKE I , VAL(”&H”+A$):NEXT:RETURN
************************************
00000000000000000000000000000000000000000000
11111111111111111111111111111111111111111111111111
*****************************************
*************************************************************
303 DATA
21,70,D0,7E,06,01,90,CC,C5,E0,D8
310 DATA 09,47,D6,BF,C0,2A,76,E1,23,00,00,00,00,00,00,22
320 DATA 71,D0,22,73,D0,21,70,D0,3E,01,77,2A,73,D0,01,78
330 DATA 00,A7,ED,42,22,71,D0,CD,16,E1,2A,71,D0,7E,21,80
340 DATA D0,77,2A,73,D0,01,F0,F3,A7,ed , 42,38,09,01,50,00
350 DATA A7,ED,42,DC,FA,E0,CD,04,E1,C9,CD,04,E1,21,70,D0
360 DATA 3E,00,77,C9,21,81,D0,7E,2A,73,D0,77,3E,20,2A,71
370 DATA D0,77,22,73,D0,C9,00,21,80,D0,7E,21,81,D0,77,C9
379 DATA 00,81,D0,77,C9,00,11,01,00,DB,00,47,D6,EF,CA,3A
390 DATA E1,78,D6,BF,CA,56,E1,C3,6A,E1,ED,4B,76,E1,21,41
402 DATA FE,ED,42,CA,6A,E1,60,69,19,19,36,00,60,69,ED,52
403 DATA 22,76,E1,C3,6A,E1,ED,4B,76,E1,21,8D,FE,ED,42,CA
404 DATA 44,e0,60,69,36,00,19,22,76,E1,2A,76,E1,36,93,19
444 DATA 36, e2 , 19 , 36 , 92, C9 , 58 ,FE
_
CYBER SPACE
返信削除THE OLDEST
返信削除RUN
返信削除このコメントは投稿者によって削除されました。
返信削除