priser! - Stone Oakvalley Studios

Div. tilbehør.
Støvdeksel
Amiga 500 og 500+ kr. 125,·
Støvhette i myk plast til
A 500 og A 500+ Kr. 95,·
Støvhette i myk plast til
A 600 Kr. 95,·
Printerstativ i klar plast med plass
til arkene under. Arkinnmar fra
bunnen eller fra bakkant.
Kr. 195,-
Vendestativ for monitor.
Til 1211 monitor kr. 195,·
Til 1411 monitor kr. 295,·
Skjermfilter
Hindrer statisk stråling fra
skjermen.
Til 12 Il skjerm
Til 1411 skjerm
Tilbud!
kr. 95,·
kr. 195,·
Plastboks til 10 stk. 5,25" disketter.
Kun kr. 15,·
Vinner av PC· Basic konkurransen.
Dette er en demo som er skrevet i IF INKEY$ = Il \I THEN GO'TO SLUT!' FOR T = 306 TO 6 STEP -1
QuickBasic for Pc. Den viser på en I = I t 1 CIRCLE (640-X (Tt3),Y(Tt3) ),12,9
fin måte forskjellig grafikkmuligheter.
PALE'ITE I, A(I)
A(I) = C(I t P)
CIRCLE (640-X (Tt2) ,Y(Tt2) ),12,10
CIRCLE (64'o-X (Ttl) , Y (Tt 1)), 12, 11
Quick basic følger med DOS 5,0 IF I = 7 THEN I = 1: P = P - l CIRCLE (640-X (T) , ytT) ), 12, 12
og kommer vel til å overta for
GWbasic. QuickBasic er desuten
raskere og lettere å programere en
GW Basic.
IF P = O THEN P = 21
IF NR = 13 THEN NR = O
CIRCLE (X(T-3) , ytT - 3) ), 12, O
IF INKEY$ = Il \\ THEN GO'TO SLUTl'
I = I t 1
PALETI'E I, A(I)
Strekene i margen viser hva som
må skrives på en linje.
Er innsendt av: Bjørn Danielsen,
Vågan, 7220 Sundlandet.
NEXT T
IF C = 1 THEN C = O: GO'TO
START3
FOR Ir = 306 TO 6 STEP -1
A(I) = C(I t P)
IF I = 7 THEN I = 1: P = P - l
IF P = O THEN P = 21
IF NR = 13 THu NR = O
CIRCLE (X(Tt3) , ytT t 3)), 12, 9 CIRCLE (640-X (Tt3) ,Y(Tt3)) ,12,0
PART2 :
CIRCLE (X (Tt2) , Y(T t 2) ), 12, 10 NEXT T
SCREEN 9
CIRCLE (X(Tt1) , Y(T t I)), 12, 11 C = C t I: GO'TO START4
COLOR 15, O
CIRCLE (X(T; I ytT) ), 12, 12 START5 :
PRINT "Please wait wh ile i
I do my homework ."
IF INKEY$ = Il
! = I t 1
Il THEN GO'TO SLUT!' CIRCLE (640-X(306) ,Y(306) ),12,0
CIRCLE (640-X (307) ,Y(307) ),12,0
HEIGHT = 290
PALE'ITE I, A(I) CIRCLE (640-X(308) ,Y(308) ),12,0
W = 4.14159 / 180
D = 90 * 3.14159 / 180
A(I) = C(I t P)
IF I = 7 THEN I = 1: P = P - l
FOR T = Y(308) TO Y(6) STEP -4
CIRCLE(X(6) , T t 3 * 4) , 12, 9
I
I
I
I
I
I
= .003
DIM A(32) , C (32) , X(317) ,
Y(317)
FOR XNEW = O TO 639 - 10 STEP2
YNEW = HEIGHT * SIN (W * XNEW t
D) * EXP (-K * XNEW)
YNEW = 340 - ABS (YNEW) - 3:
E = E t 1: X(E) = XNEW t 10
ytE) = YNEW: X = XNEW + 10:
Y = YNEW
NEXT
CLS
FOR T = 1 TO 15
PALETI'E T, O
NEXT T
FOR T = 1 TO 1000
PSET (INT (RND 11 1 • 6401 ,
INT (RND (1) * 350) ), INT (RND (l)
IF P = O THEN P = 21 CIRCLE (X(6) , T + 2 * 4) , 12, 10
IF NR = 13 THEN NR = O CIRCLE (X(6) , T t 1 * 4) , 12, 11
CIRCLE (X(Tt3) , Y(T t 3) ), 12, O CIRCLE (X(6) , T) , 12, 12
NEXT T IF INKEY$ = \\ Il THEN GO'TO SLUTl'
C = C t I: roro START2 I = I t 1
START3 : PALETI'E I, A (I)
CIRCLE (X(306) , Y(306) ), 12, O A(I) = C(I t P)
CIRCLE (X(307) , Y(307) ), 12, O IF I = 7 THEN I = 1: p = P - l
FOR T = Y(308) TO Y(6) STEP -4 IF P = O THEN P = 21
CIRCLE (X(308) ,T t 3 * 4) ,12, 9 IF NR = 13 THEN NR = O
CIRCLE (X(308) ,T t 2 * 4) ,12, 10 CIRCLE (X{6) , T + 3 * 4) , 12, O
CIRCLE(X(308) ,T t 1 * 4) ,12, 11 NEXT T
CIRCLE (X(308) , T) , 12, 12 CIRCLE (X(6) , T t 3 * 4) , 12 , O
IF INKEY$ = Il Il THEN GO'TO SLUT!' CIRCLE (X(6) , T t 2 * 4) , 12 , O
I = I t 1 CIRCLE (X(6) , T t 1 * 4), 12 , O
PALETI'E I, A(I) C = O
A(I) = C(I t P) GO'TO START2
IF I = 7 THEN I = 1: p = P - l BARS :
* 15) IF P = O THEN P = 21 L = 6
NEXT T
LOCATE 2, 1
PRINT SPACE$ (80) i
A$ = Il LAGET AV BJVRN DANIEL-
SEN, 7220 SUNDLANDET"
LOCATE 2,INT(40- {LEN (A$) / 2) )
COLOR 2
PRINT A$
GOSUB BARS
PALE'ITE 9, 8
PALE'ITE 10, 1
PALETI'E 11, 9
PALETTE 12, 11
PALETTE 13, 61
PALETI'E 14, 14
PALETTE 15, 63
START2 :
FOR T = 8 TO 308
CIRCLE (X(T-3) ,Y(T - 3) ),12,9
CIRCLE (X(T-2) ,Y(T - 2)),12, 10
CIRCLE(X (T-1) ,Y(T - 1} },12,11
CIRCLE (X (T) ,Y(T) ), 12, 12
49
IF NR = 13 THEN NR = O FOR T = 1 'TO 28
CIRCLE (X(308) ,T t 3 * 4) , 12, O IF T < 8 THEN
NEXT T L = L t 1
CIRCLE(X(308) ,T t 3 * 4) , 12 , O LINE(0,L) - (640, L) , T
CIRCLE (X{308) ,T t 2 * 4) , 12, O LINE (O,L t 20) -(640, L t 20) , T
CIRCLE(X (308) ,T t 1 * 4) , 12, O END IF
START4 : READ C(T)
FOR T = 8 TO 308 A(T) = C(T)
CIRCLE (640-X(T-3),Y(T-3) ),12,9 NEXT T
CIRCLE (640-X(T-2) ,Y(T-2) ) , 12,10 P = 16
CIRCLE (640-X (T-l) ,Y(T-l) ) , 12,11 RETURN
CIRCLE (640-X(T) , ytT) ), 12 , 12 DATA 16,02,18,63,18,02,16
IF INKEY$
= \\ Il THEN GO'IO SLUTT DATA 32 ,04,36,38,36,04,32
I = I t 1 DATA 08,01,09,1 1,09,01,08
PALETI'E I, A(I) DATA 16,02,18,63,18,02,16
A(I) = C(I t P) SLUTT :
IF I = 7 THEN I = 1: P = P - l DEF SEG = &HFFFF
IF P = O THEN P = 21 BJORN = O
IF NR = 13 THEN NR = O CALL ABSOLUTE (BJORN)
CIRCLE (640-X (T-3) ,Y(T-3 ) ),12,0
NEXT T DEMO .
IF C = 1 THEN GOTO STARTS
I
\ BYE l SEE YOU IN OUR NEXT