2011年3月28日月曜日

NEW GAME

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


 
      
  
  
  _
 

4 件のコメント: