1 V = 53248:
POKE V + 33,0:
POKE V + 32,0:
POKE V + 24,18:
I = RND ( - TI):
S = 54272:
POKE V + 23,0
2 SYS 5454:
POKE V + 21,0:
POKE V + 29,0:
POKE 829,0
20 PRINT "#13#11#11
" SPC( 24)"#99VITAL.: ( )
":
PRINT SPC( 24)"#91#9FASTRAL: ( )
"
21 PRINT SPC( 24)"#96ANG.: #1EVER.:
":
PRINT SPC( 24)"#91#9CSTR.: #9EGES.:
"
22 PRINT SPC( 24)"#9BKLG.: #9ACHA.:
":
PRINT SPC( 24)"#91#99ERF.: ( )
"
23 PRINT SPC( 24)"#9EGOLDSTCK.:
":
PRINT SPC( 24)"#91#81NAHR.VORRAT:
":
GOSUB 10000
30 DIM TR(14):
FOR I = 0 TO 10:
READ T0(I),T1(I),TN(I):
NEXT :
FOR I = 0 TO 14:
READ TR(I):
NEXT
40 GOSUB 4000:
SYS 5681:
PRINT "#99 DU BIST TOT!#13
":
FOR I = 1 TO 5:
SYS 5681:
NEXT :
GOTO 3000
50 PRINT "#9B
"T$:
SYS 5681:
PRINT "#98
"T$:
SYS 5681:
PRINT "#97
"T$:
SYS 5681:
PRINT "#90
"T$:
SYS 5681
60 SYS 5681:
SYS 5681:
SYS 5681:
FOR I = 0 TO 2E3:
NEXT
610 PRINT "#93L#CF
" CHR$ (34)"DDD.PREP
" CHR$ (34)",8
"
612 PRINT "#11#11#11#11R#D5:
":
POKE 631,19:
POKE 632,13:
POKE 633,13:
POKE 198,3:
NEW
3000 SYS 6041
3001 POKE S + 5,90:
POKE S + 6,170:
POKE S + 12,10:
POKE S + 13,90
3002 FOR I = 0 TO 10:
X = T0(I):
GOSUB 3010:
POKE S + 1,J:
POKE S,K:
POKE S + 4,33
3004 X = T1(I):
IF X THEN
GOSUB 3010:
POKE S + 8,J:
POKE S + 7,K:
POKE S + 11,33
3006 FOR J = 1 TO TN(I):
FOR K = 6 TO 10:
POKE S + 24,K:
NEXT :
FOR K = 15 TO 7 STEP - 1:
POKE S + 24,K:
NEXT
3008 NEXT :
POKE S + 4,32:
POKE S + 11,32:
NEXT
3009 GOTO 3020
3010 J = INT (X / 256):
K = X - 256 * J:
RETURN
// -----------------------------
3012 X = X ^ 1.02:
GOTO 3010
3020 IF Q = (null) GOTO 50
3021 PRINT "#97
"T$"#98
"T$"#9B
"T$"#05
"T$:
POKE S + 5,90:
POKE S + 6,170:
POKE S + 12,10:
POKE S + 13,90
3022 FOR I = 0 TO 10:
X = T0(I):
GOSUB 3012:
POKE S + 1,J:
POKE S,K:
POKE S + 4,33
3024 X = T1(I):
IF X THEN
GOSUB 3010:
POKE S + 8,J:
POKE S + 7,K:
POKE S + 11,33
3026 FOR J = 1 TO TN(I):
FOR K = 6 TO 10:
POKE S + 24,K:
NEXT :
FOR K = 15 TO 7 STEP - 1:
POKE S + 24,K:
NEXT
3028 NEXT :
POKE S + 4,32:
POKE S + 11,32:
NEXT :
POKE V + 21,7
3040 Y = PEEK (V + 3):
FOR L = 0 TO 1:
POKE S + 5,90:
POKE S + 6,170
3042 FOR I = 0 TO 4:
X = TR(I):
GOSUB 3010:
POKE S + 1,J:
POKE S,K:
POKE S + 4,33
3044 FOR J = 1 TO TR(I + 5):
FOR K = 6 TO 12 STEP 2:
POKE S + 24,K:
NEXT
3045 FOR K = 15 TO 7 STEP - 2:
POKE S + 24,K:
NEXT :
Y = Y - 1:
POKE V + 3,Y
3046 NEXT :
POKE S + 4,32:
POKE S + 11,32:
NEXT I,L:
Q = (null) :
TN(10) = 20:
POKE V + 21,.:
GOTO 3001
4000 T$ = "#13#11#11#11#11#1D#1D#1D#1D#1D#1D#1D#1D#12.426635/#11#9D#9D#9D#9D#9D#9D#9D#9D#9D0666666661#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D,66666666-
"
4001 T$ = T$ + "#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D*66666666+#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D66&'66IJ66#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D$6()66KL6%
"
4002 T$ = T$ + "#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D!U66#92#BF#12@66W##11#9D#9D#9D#9D#9D#9D#9D#9D#9DVG6AB6EX#11#9D#9D#9D#9D#9D#9D#9D#9DDH#92#BB#BA#BB#BA#12FC
"
4003 T$ = T$ + "#11#9D#9D#9D#9D#9D#9D#9D#92#B9#BC#BE#BC#BE#B8#11#9D#9D#9D#9D#9D#9D#B6#B7#1266#92#B5#B4
"
4010 POKE 2,255:
SYS 5782:
FOR I = 0 TO 62:
POKE 704 + I,.:
POKE 896 + I,.:
NEXT
4012 FOR I = 0 TO 7:
POKE 704 + I * 3, PEEK (3304 + I):
POKE 705 + I * 3, PEEK (3312 + I)
4014 POKE 728 + I * 3, PEEK (3320 + I):
POKE 729 + I * 3, PEEK (3328 + I):
NEXT
4016 POKE 896,239:
POKE 897,239:
POKE 899,255:
POKE 900,255:
POKE 902,255:
POKE 903,255
4018 POKE 905,56:
POKE 906,56:
POKE V + 29,4:
POKE V + 4,105:
POKE V + 5,150:
POKE V + 41,0
4020 POKE V + 39,.:
POKE V,108:
POKE V + 1,129:
POKE 2040,13:
POKE 2042,14:
POKE 2041,11
4022 POKE V + 40,15:
POKE V + 27,1:
POKE V + 2,112:
POKE V + 3,212:
POKE V + 21,3:
RETURN
// -----------------------------
10000 HP = PEEK (49230) + 256 * PEEK (49231):
U$ = "00
" + MID$ ( STR$ (HP),2)
10001 PRINT "#13#11#11
" SPC( 31)"#99
" RIGHT$ (U$,3);
10002 HM = PEEK (49232) + 256 * PEEK (49233):
U$ = "00
" + MID$ ( STR$ (HM),2):
PRINT "#1D
" RIGHT$ (U$,3)
10004 AS = PEEK (49234) + 256 * PEEK (49235):
U$ = "00
" + MID$ ( STR$ (AS),2)
10005 PRINT SPC( 31)"#91#9F
" RIGHT$ (U$,3);
10006 AM = PEEK (49236) + 256 * PEEK (49237):
U$ = "00
" + MID$ ( STR$ (AM),2):
PRINT "#1D
" RIGHT$ (U$,3)
10008 AT = PEEK (49228):
U$ = "0
" + MID$ ( STR$ (AT),2):
PRINT "#96
" SPC( 29) RIGHT$ (U$,2);
10009 PA = PEEK (49229):
U$ = "0
" + MID$ ( STR$ (PA),2):
PRINT "#1E
" SPC( 6) RIGHT$ (U$,2)
10010 SR = PEEK (49224):
U$ = "0
" + MID$ ( STR$ (SR),2):
PRINT "#9C#91
" SPC( 29) RIGHT$ (U$,2);
10011 GE = PEEK (49225):
U$ = "0
" + MID$ ( STR$ (GE),2):
PRINT "#9E
" SPC( 6) RIGHT$ (U$,2)
10012 KG = PEEK (49226):
U$ = "0
" + MID$ ( STR$ (KG),2):
PRINT "#9B
" SPC( 29) RIGHT$ (U$,2);
10013 CH = PEEK (49227):
U$ = "0
" + MID$ ( STR$ (CH),2):
PRINT "#9A
" SPC( 6) RIGHT$ (U$,2)
10014 EF = PEEK (49238) + 256 * PEEK (49239) + 65536 * PEEK (49240):
U$ = "00000
" + MID$ ( STR$ (EF),2)
10015 PRINT "#91#99
" SPC( 29) RIGHT$ (U$,6);
10016 SU = PEEK (49241):
U$ = "0
" + MID$ ( STR$ (SU),2):
PRINT "#1D
" RIGHT$ (U$,2)
10017 GP = PEEK (49242) + 256 * PEEK (49243):
U$ = "0000
" + MID$ ( STR$ (GP),2):
PRINT "#9E
" SPC( 34) RIGHT$ (U$,5)
10018 NA = PEEK (49244):
U$ = "00
" + MID$ ( STR$ (NA),2):
PRINT "#91#81
" SPC( 36) RIGHT$ (U$,3)
10019 PRINT SPC( 24)"#98TOT
"
10020 WF = PEEK (49246):
RS = PEEK (49247):
SH = PEEK (49248):
RETURN
// -----------------------------
11000 DATA 2146,1072,8,2146,851,5,2146,,2
11002 DATA 2146,1072,8,2551,851,5,2408,,2
11004 DATA 2408,1072,5,2146,,2,2146,851,5
11006 DATA 2025,,2,2145,1072,12
12000 DATA 5001,4455,3969,3746,3746,10,4,10,3,15,1114,1250,1575,1487,1487
0