10 CLS :CLEAR 20 DIM G$(13)*1,M(16,5) 30 X=1:Y=1:P=1:T=40:W=20:E=15:M(0,0)=7:M(1,0)=4 40 FOR J=0 TO 13 50 READ A:G$(J)= CHR$ A 60 NEXT 70 DATA 32,224,124,156,157,158,159,45,150,152,153,154,155,135 80 LINE (102,-1)-(106,48),B 90 PRINT "-";G$(4) 100 LOCATE 18,1:PRINT "Next" 110 LOCATE 18,3:PRINT "Score" 120 FOR J=0 TO E 130 L= RND 17-1:M= RND 6-1 140 IF L>1 OR M>1 LOCATE L,M:PRINT G$(13):M(L,M)=13 150 NEXT
16 :
160 *A 170 M=0:N= RND 6 180 LOCATE 19,2:PRINT "[";G$(N);"]" 190 *B 200 IF K$<>"" FOR J=0 TO W*8:NEXT 210 LOCATE X,Y:PRINT G$(M(X,Y)) 220 K$= INKEY$ 230 SWITCH K$ 240 CASE "4":IF X>0 LET X=X-1 250 CASE "6":IF X<16 LET X=X+1 260 CASE "8":IF Y>0 LET Y=Y-1 270 CASE "2":IF Y<5 LET Y=Y+1 280 CASE " ":IF M(X,Y)<7 LOCATE X,Y:PRINT G$(N):BEEP 1,200,20:M(X,Y)=N:M=1 290 ENDSWITCH 300 FOR J=0 TO W:NEXT 310 LOCATE X,Y:PRINT "ロ" 320 C=(C+1) MOD T 330 IF C=0 GOSUB *C 340 IF M=1 GOTO *A ELSE *B
17 :
350 *C 360 BEEP 1,71,9 370 IF P<0 OR P>16 OR Q<0 OR Q>5 GOTO *D 380 SWITCH M(P,Q) 390 CASE 1:IF H=0 LET U=1:V=0 ELSE IF H=1 LET U=-1:V=0 ELSE F=1 400 CASE 2:IF H=2 LET U=0:V=-1 ELSE IF H=3 LET U=0:V=1 ELSE F=1 410 CASE 3:IF H=1 LET U=0:V=1:H=3 ELSE IF H=2 LET U=1:V=0:H=0 ELSE F=1 420 CASE 4:IF H=0 LET U=0:V=1:H=3 ELSE IF H=2 LET U=-1:V=0:H=1 ELSE F=1 430 CASE 5:IF H=1 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=1:V=0:H=0 ELSE F=1 440 CASE 6:IF H=0 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=-1:V=0:H=1 ELSE F=1 450 DEFAULT :F=1 460 ENDSWITCH 470 IF F=1 GOTO *D 480 M(P,Q)=M(P,Q)+6 490 LOCATE P,Q:PRINT G$(M(P,Q)) 500 P=P+U:Q=Q+V:S=S+1 510 LOCATE 20,4:PRINT STR$ S 520 RETURN 530 *D 540 LOCATE 18,1:PRINT "-GAME-" 550 LOCATE 18,2:PRINT "-OVER-"
18 :
あぼーん
19 :
program HaxaHaxa; var I : Integer; begin Randomize; repeat I := Random(18) + 1; Writeln('>>', I, 'さん(;´Д`)ハァハァ'); until False; end.
20 :
#include <stdio.h> int main() { printf("なんか、うpしてくれ\n"); main(); return 0; }
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */ /* All Rights Reserved */ /* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */ /* The copyright notice above does not evidence any */ /* actual or intended publication of such source code. */
10 REM **************************************** 20 REM * 住民基本台帳ネットワークシステム * 30 REM * * 40 REM * Version 1.0.0 * 50 REM **************************************** 60 GOTO 10