Mangler disketten? - Stone Oakvalley Studios

Fortsatt fra side 30
8 INNLEDNING
9 HOVEDLOKKE
l Procedure INNLEDNING
2 SETVAR: LES INN :
STOKK
3 SKJERMOPPSETT Limit
Mouse
4 INITMENY :
FINN OPPGAVE
5 SKRIV RUTE NAVN
6 End Proc
l Procedure HOVED LOKKE
2 Do : SJEKK SONE
3 If AKON+AVOK=O Then
NY OMG
4 If Choice Then
MENYVALG
5 Loop
6 End Proc
l Procedure SETVAR
2 HJ$ (O)=H 100
3 HJ$(l)=H 2500
4 HJ$(2)=H 7000
5 HJ$ (3) =HBANKEROTT H
6 HJ$(4 ) =H 3500
7 HJ$ (5) =H 1700
8 HJ$(6 ) =H 750
9 HJ$ (7)=H 1900
10 HJ$(8)=H 4500
11 HJ$ (9)=H 1250
12 HJ$ (10) =H STÅ OVER H
13 HJ$(ll)=H 3000
14 HJ$ (12) =H 500
15 HJ$(13)=H 2250
16 HJ$(l4)=H 1000
17 HJ$(15)=H 1500
18 VOK:
19 Datal " "l"" l """
1"",,1, ", 1,, 1,1 , 1 ,
2 ORestore VOK
21 For T=l To 29 : Read
A : VOK (T) =A : Next
22 NAVN$(O)=HAgaton
Zaxx H : NAVN$(l)=
HdNh H
23 NAVN$ (2)=HdNh H
NAVN$(3)=HdNh H
24 End Proc
l Procedure SKJERMOPPSETT
2 Screen Open 0 , 320, 250
, 16, Lowres : Curs Off
3 Palette $4 , $0" " ",
, , $FFO , $FOF , $FF , $D70,
$7D , $D7
4 BX=20: BY=3 : SX=27
: SY=32
5 X=12: Y=12 : SB=320
6 Ink ° : Paint 10 , 10
Ink 13
7 Box 106, 11 9 To
185,134
8 Ink 10 : Box 107,120
To 184,133
9 Ink 13 : Box 108,121
AMOS snill: Lxkkehjulet q.
To 183,132
lOGet Bob l, 10 6, 119 To
186,135
11 Bob 1,108,151, 1
12 Cls : Ink ° : Paint
10,10
13 Ink l : Bar SX-1 , SY-1
To(X*BX)+SX+X- 1 ,
(Y*3)+SY- 1
14 Def Scroll 1 , 110, 73
To 188, 186, 0 , 1
15 MENYl : For T=O To 10
16 X1=112 : Yl=81+
(T*10) : F$=HJ$ (T)
17 TEKST1[T , X1 , Yl , F$l
18 Next : Reserve Zone
40 : BOKSTAVER
19 For T=26 To 28
20 Set Zone T+1,T*11 , 212
To(T*11)+11 , 212+11
Next
21 Set Zone 30,0,105 To
100,119
22 Set Zone 31 , 0, 120 To
100 , 134
23 Set Zone 32,0,135 To
100 , 150
24 Set Zone 33 , 0, 150 To
100, 1 65
25 TEKST2 [ 9 , 100 , 200 , H
Ve l g bokstav ! Hl :
NAVN
26 End Proc
l Procedure BOKSTAVER
2 For T=O To 25
3 U=4: If VOK (T+1) =1
: U=5 : End If
4 TEKST2[U,T*11,220,
Chr$(T+65 ) l
5 Set Zone T+ l, T* 11
, 212 To(T*ll)+ll,
212+11
6 BO (T) =0 : Next
7 TEKS T2[5 , 26*11 , 220,
Chr$(198)l
8 TEKST2[5 , 27*11 , 220,
Chr$ (216) l
9 TEKST2[5 , 28*11,220 ,
Chr$(197)l
10 For T=26 To 28
BO (T) =0 : Next
11 End Proc
l Procedure LES INN
2 T=O: Do
3 Read ANT (T) : If
ANT(T)=O Then MX=T-1
: Exit If ANT (T) =0
4 For U=O To ANT(T)-l
: Read A$ O$(T,U)=
Upper$(A$) Next
5 Read F$ (T ) T=T+1 :
Loop
6 Data l, HSNEKKERHØVEL H
,HEt redskapH
7 Data 1,HFugleskrem
sel H , HI Åkeren. H
8 Data 3 , HEn fugl i
handen H , Her bedre
en H , Hti PÅ
taket H , HOrdtak om
sikkerhet . H
9 Data 3 , Hdata troni c
har det H , Hbeste
utvalgetH, H i
datautstyrH , HLitt
reklame. H
1 0 Data 3, H r i ng null
ni" , " nittiseks" , "null
null
ti H , HRimelige og gode
varer H
11 Data 2,Hagaton er
en H , H tØff
programklubbH , HNoen
sannhetens ord . H
12 Data 3 , HEn datamaski n
i H , Hhjemmet er bedre
en H , Hti i butikken H
,HData ordtak H
13 Data l, HSommerferi eH ,
HNoe å glede seg til H
14 Data l , H dnh kl ubben
er best H , HDet beste
tidskriftet H
15 Data 2 , HBedre fØre
varH,Hen etter
snar H,Hordtak om
forsiktighet H
16 Data °
17 End Proc
l Procedure FINN OPPGAVE
2 AVOK=O: AKON=O
3 For U=O To ANT (OPG) - l
4 For T=l To Len (0$
(OPG, U))
5 B=Asc(Upper$ (Mid$ (0$
(OPG , U) , T, l))) -65
6 If B=198- 65 B=26
7
8
9
10
11
: End If
If B=216-65 B=27
: End If
If B=197- 65 B=28
: End If
If B>=O : If B7
18 VT=LH : For T=l To 8
: Add VT , l , O To 15
Next
19 BY=O : If VT=3
KR(NN) =O :
FE IL [ "BANKEROTT !! Hl
: BY=l : End If
20 If VT=10 : FEIL["STÅ
OVER !! "l : BY=l
End If
21 If BY=O : VELGB
VELG KON : Else
22 BYTT : End If
23 End Proc
l Procedure VELGB
2 TEKST2[3,100,200,H
Velg bokstav ! Hl
3 T=O: Repeat : If
Mouse Key=l
4 BOK=Mouse Zone
5 If BOK