ハイドライドII  PC88改造 List

1000 '

1010 N=1

1020 FIELD #0,200 AS NAA$:D$=DSKI$(2,0,0,2)

1030 FOR I=17 TO 154 STEP 16

1040     PRINT N " : ";MID$(NAA$,I,16):N=N+1

1050 NEXT

1060 PRINT:INPUT " No : ";N :PRINT

1070 PT=INT(N/2):PO=(N/2-PT)/.5

1080 FIELD #0,160 AS BUF$:D$=DSKI$(2,PO,PT,7)

1090 FOR I=1 TO 8

1100     READ K$,K:V=ASC(MID$(BUF$,K,1))

1110     IF K$="*" THEN 1130

1120     PRINT USING "&     & : ###";K$,V;:INPUT "->";V

1130     MID$(BUF$,K,1)=CHR$(V)

1140 NEXT

1150 V=CVI(MID$(BUF$,137,2)):GOSUB 1200:GOSUB 1200

1160 PRINT "GOLD    :  ";V;:INPUT "->";V:GOSUB 1200

1170 MID$(BUF$,137,2)=CHR$(V2)+CHR$(V1)

1180 DSKO$ 2,PO,PT,7

1190 END

1200 V1=INT(V/256):V2=V-V1*256:V=V2*256+V1:RETURN

1210 DATA LIFE,26,*,28,STR,31,*,33,MAGIC,34,*,36,*,145,LEVEL,42