Mangler disketten? - Stone Oakvalley Studios

" NESTE NAVN "l
5 TEKST 2 [ 6 , 2 ,130 ,
CLR NAVN "l
6 TEKST2[6 , 2 ,1 45 ,
SPACE "l
7 TEKST2[6,2,160,
FERDIG "l
8 End Proc
l Procedure NYE
2 For T=O To 3
KR (T) =0 : Next
3 Add STNR , l,O To MX :
OPG=ST( STNR}
4 NAVN : FINN OPPGAVE
5 SKRIV RUTE
BOKSTAVER
6 End Proc
l Procedure NYE NAVN
2 Menu Off : MENY2
V=O
3 Repeat : M=4
4 I f Mouse Key=l
5 It Mouse Zone>29
6
7
8
M=33 - Mouse Zone
It M=3 : Add NN,l , O
To 3 : End It
It M=2 : NAVN$ (NN) =
: End It
9 If M=l : B$=" " :
NAVN$ (NN) =NAVN$ (NN)
+ B$ : End It
10 If M=O : V=l : End
It : End If
11 If M=4 : VELGB
NAVN$ (NN}=NAVN$ (NN)
+ B$ : End If
12 NAVN: End It
13 Until V=l : MENYl
Menu On
14 End Proc
l Procedure HENT
2 F$=Fsel$("*.LKE" ,
"Normal . LKE","Load
nye oppgaver" , ""}
3 If F$""
4 Open In l, F$
5
6
7
8
9
10
11
Input #l,MX
For T=O To MX
Input #l,ANT(T}
For U=O To ANT (T) -l
Input #l,O$(T,U}
Next
Input #l,F$ (T)
12 Next: Close l _
13 STOKK : FINN OPPGAVE
14 SKRIV RUTE
BOKSTAVER
15 End If
16 End Proc
l Procedure LAGRE
2 F$=Fse1$("*.LKi",
"Normal .LKE" , "Save
oppgavene", ""}
3 If F$""
4 Open Out 1,F$
5 Print #l , MX
6 For T=O To MX
7 Print #l , ANT (T)
8 For U=O To ANT(T}-l
9 Print #l, O$(T, U}
1 0 Ne xt
11 Print #l,F$ (T)
12 Next : Close l :
End If
13 End Proc
l Procedure VIS ALLE
2 For T=2 To 20
3 For U=2 To 4
4 Bar 12*T, U*12
To(12*T}+10 ,
(U*12}+10
5 Next: Next
6 End Proc
l Procedure FEIL[E$l
2 S=150-(Len(E$)*4}
3 TEKST2[3 , S,235,E$l
4 Bell 20 : Wait
20+ (4*Len (E $}}
5 For T=S-5
To(Len(E$}*8}+S+3
6 For U=227 To 239
Plot T,U,O
7
8
l
2
3
4
5
6
7
8
9
l
Next : Next
End Proc
Procedure
TEKST1[I,X1,Y1, T$l
Gr Writing l
Ink , I : Text
X1 , Y1 ,T$
Gr Writing O
For T=- l To l For
U=-l To l
Ink l : Text
Xl+T , Yl+U , T$
Next : Next
Ink 4 : Text X1 ,Yl, T$
End Proc
P r ocedure
TEKST2[I,X2,Y2,T$l
\
2 Gr Writing O
3 For T=-2 To 2
U=-2 To 3
For
4 Ink 2 : Text
X2+T , Y2+U,T$
5 Next : Next
6 For T=-l To l For
U=- l To 2
7 Ink l : Text
8
X2 +T,Y2+U,T$
Next : Next
9 Ink I : Text X2, Y2, T$
10 End Proc
l Procedure AVSLUTT
2 FEIL["TAKK FOR NÅ ! "l
3 End
4 End Proc
Lyspenn til AMIGA
Med denne kan du bl.a. lage mye bedre tegninger på Amiga. Det
følger med software som får muspilen til å bevegge seg etter
lyspennen. Den erstatter musen. Den kan således brukes i de aller
fleste tegneprogrammer. Detfølgerdessuten med ettegneprogram,
som vise på en utmerket måte hvor lett det er å tegne med lyspenn.
Pris komplett ml software og tegneprogram:
Kr. 790,·