DWB 18
DEMO
P
416
T.COMMANDS
P
1448
T.TEXT
P
599
T.MOIRE
P
221
T.BAR
P
599
T.CIRCLE
P
1168
T.CUBE
P
2167
T.GRAPHS
P
2225
T.STARWARS
P
938
PIC.XWING 1V8
P
4826
PIC.XWING 2V8
P
5037
PIC.XWING 3V8
P
3591
PIC.XWING 4V8
P
3226
STARS
P
1429
CURSIVE FONT
P
1026
COMPUTER FONT
P
514
GOTHIC FONT
P
730
ROMAN FONT
P
730
@@
BASIC PROGRAM SETUP 6@ %: ENABLE 2 MH MODE i@ 47,0:48,68:: SET UP 16K BUFFER FOR @STASH @( @,0:@,0,2: GOTO ULTRA HIRES SCREEN (640 X 200) AND SET COLORS BG,FG @2 CLEAR ULTRA HIRES SCREEN A< 100: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR %AF : ?AP PROGRAM BEGINS HERE KAZ @WALRUS SAd 5 An GOTO TEXT MODE, PRINT STATUS AND END PROGRAM Ax @,0: "T.COMMANDS @@
% @ @,15,0:@,0 #@ 360 B@( "COMPUTER FO*",B0,P45000 ^@2 "ROMAN FO*",B0,P40000 @< @,45000,112,0,2,2,"ULTRA HIRES COMMAND SUMMARY " @F @,40000,0,16,1,1,"@GRAPHIC,," @P @,40000,0,24,1,1,"@CLR,VALUE" @Z @,40000,0,32,1,1,"@TEXT" )Ad @,40000,0,40,1,1,"@FONT,#(1-2),ADDRESS" UAn @,40000,0,48,1,1,"@DOT,X,Y,MODE (0-1)" Ax @,40000,0,56,1,1,"@DRAW,X1,Y1,X2,Y2,MODE" A @,40000,0,64,1,1,"@BOX,X1,Y1,X2,Y2,MODE" A @,40000,0,72,1,1,"@CIRCLE,MODE,CX,CY,XR,YR,SA,EA,THETA,INC" 3B @,40000,0,80,1,1,"@PAINT,X,Y,MODE,P1,P2,P3,P4,P5,P6,P7,P8" oB @,40000,0,88,1,1,"@HCOPY,SIZE (1-4),SECONDARY ADDRESS" B @,40000,0,96,1,1,"@STASH,BUF ADDRESS,X,Y,DX,DY" B @,40000,0,104,1,1,"@FETCH,BUF ADDRESS,X,Y" C @,40000,0,112,1,1,"@COPY,X,Y,DX,DY,ENDX,ENDY" 4C @,40000,0,120,1,1,"@DRWMODE,MODE (0-1)" nC @,40000,0,128,1,1,"@BAR,X,Y,DX,DY,HEIGHT,MODE (0-1)" C @,40000,0,136,1,1,"@SAVE,COMPRESS FLAG (0,1),"(34)"FILENAME"(34) D @,40000,0,144,1,1,"@LOAD,COMPRESS FLAG (0,1),"(34)"FILENAME"(34) DD @,40000,0,152,1,1,"@CHAR,FONT ADDRESS,X,Y,HT,WIDTH,STRING" D @,40000,0,160,1,1," UNDERLINE UNDERLINE " D@,40000,0,168,1,1," " E@,40000,0,176,1,1," " *E@,40000,0,184,1,1,"@" E"@,40000,0,191,1,1,"RINTERS SUPPORTED BY LTRA IRES (1) PSON (2) PIRIT 80 (3) LIVETTI" E, 5 Eh "T.TEXT @@
% @ @,0:@,0,6 !@ 90 @( @,7168,0,0,1,0,"HIS IS A TEST OF 160 CHARACTERS PER LINE. OU WILL NOTICE THAT IT IS STILL POSSIBLE TO READ THEM ON THIS 1902 MONITOR." :A2 @,55296,0,12,1,1,"HIS IS A TEST OF 80 CHARACTERS PER LINE. OU WILL NOTICE IT IS THE SAME AS IN NORMAL 80 COLUMN TEXT MODE." A< @,40000,0,32,1,2,"HIS IS A 40 COLUMN CHARACTER TEST. ERE WE HAVE THE SAME RESOLUTION AS IN COMPOSITE MODE." BF @,55296,0,66,2,2,"THIS IS DOUBLE HEIGHT, DOUBLE WIDTH. LOOKS GOOD, RIGHT?" >BP @,45000,0,102,6,5," WE COULD DO THIS ALL DAY!" FBZ 5 TBd "T.MOIRE @@
% @ 120 !@ @,0,4:@,0 5@( I0 639 10 L@2 @,320,100,I,199,1 R@< f@F I0 639 10 {@P @,320,100,I,0,1 @Z @d @,53248,0,0,16,16,"MOIRE" @n @,45000,8,130,8,11,"PATTERN" @x 5 @ "T.BAR @@
3D BAR DEMO .@ %: ENABLE 2 MH MODE o@ @,0,9:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @( 200: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR @2 @,53248,0,0,1,1,"" A< @,53248,0,24,4,4," 3D BARS BY COMMAND" AF @BAR,200,190,200,50,80,1 &AP 2 7AZ @,0,13:@,0 LAd @,0,0,639,199,1 aAn X0 599 48 {Ax HT((1)179)8 A @BAR,X,199,29,10,HT,1 A Z199HT2 A HT8 190 A C$(HT) A C$(C$,(C$)1) B @,53248,X,Z,1,1,C$ B B 5 EB GOTO TEXT MODE, PRINT STATUS AND END TB "T.CIRCLE @ @
%: ENABLE 2 MH MODE O@ 47,0:48,68:: SET UP 16K BUFFER FOR @STASH @ @,6,0:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @( 440: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR @2 @,0 A< @,55296,64,0,9,9,"" AF RD9 99 10 ?AP @,1,320,100,2.5RD,RD,0,360,0,10 EAZ MAd 5 ]An @,0:@,6,8 uAx TH 1 180 10 A @,1,320,100,30,99,0,360,TH,12 A A 5 A @,0 A @,55296,64,0,16,16,"" A 3 A @,0:@,6,2 B CX24:CY8:SC2.5:FL0:R10 JB DRAW CIRCLE CENTER X=CX, CENTER Y=CY, X RADIUS=XR Y RADIUS=YR B SA=0 EA=360 TH=0 INC=8 (ALL DEFAULTS AND NOT REQUIRED PARAMETERS) B YR1 8 2:XRYR2.5 B @,1,CX,CY,XR,YR B YR B 5 B DUPLICATE CIRCLE WITH @COPY COMMAND C YC0 183 20 2C" XC0 590 50 WC, @,0,0,48,20,XC,YC dC6 jC@ rCJ 5 CT@ ,0,0,0,48,16 C^ ANIMATE WITH FETCH ChTY1:TX8:X((1)583)7:Y((1)10)20 Cr I1 1084 C| @!,0,X,Y D XXTX: X590 TXTX1 1D X8 TXTX1 UD YYTY: Y184 TYTY1 pD Y1 TYTY1 vD ~D 5 D"T.GRAPHS @ @
%: ENABLE 2 MH MODE P@ 47,0:48,132:: SET UP 32K BUFFER FOR @STASH @ @,0,11:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @( 480: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR @2 X(19),Y(19),Z(19),A(65) A< READ CUBE DATA INTO ARRAYS EAF @,35000,0,100,2,4,"FRAMES TO GO " TAP I1 18 oAZ X(I),Y(I),Z(I) uAd An RH10:D48:TH2:P1.4:CX80:CY36:MC0:SD6.5 Ax A LOOP TO DRAW 3D CUBE AND @STASH EACH FRAME INTO BUFFER A CT1 64 )B @,35000,424,100,2,4,(65CT)" " UB S1(TH):S2(P):C1(TH):C2(P) B XX(1):YY(1):ZZ(1): 500:OXSX:OYSY B I2 5 B XX(I):YY(I):ZZ(I): 500:@,OX,OY,SX,SY,1:OXSX:OYSY B C XX(6):YY(6):ZZ(6): 500:OXSX:OYSY 4C I7 10 |C XX(I):YY(I):ZZ(I): 500:@,OX,OY,SX,SY,1:OXSX:OYSY C C I11 17 2 C XX(I):YY(I):ZZ(I): 500:OXSX:OYSY D XX(I1):YY(I1):ZZ(I1): 500:@,OX,OY,SX,SY,1 7D OXSX:OYSY CD" `D, @ ,MC,45,10,70,55 D6 A(CT)MC:MC(250)(251)2561: NEXT AVAILABLE ADDRESS D@ DDSD: D249 D249 DJ THTH.2:@,320,0,300,75,0,0 DT E^@,0: BEGINNING OF ANIMATION ROUTINE IEh@,35000,80,0,2,3,"3D GRAPHICS ARE EASY" yEr@,35000,56,24,2,3,"USING C128 ULTRA HIRES" E|@,35000,56,146,2,3,"WITH @STASH AND @FETCH" E@,35000,56,170,2,3,"IN YOUR BASIC PROGRAMS" E 5 F BLITTER ANIMATION USING THE @FETCH COMMAND !FWQ110 BF K1 64:@!,A(K),250,65: dF K33 64:@!,A(K),250,65: F K64 33 1:@!,A(K),250,65: F K64 1 1:@!,A(K),250,65: F F GOTO TEXT MODE, PRINT STATUS AND END F "T.STARWARS G CONVERT X,Y,Z TO SCREEN X,Y [GXTXS1YC1:YTXC1C2YS1C2ZS2:ZTXS2C1YS2S1ZC2RH }GSXDXTZTCX:SYCYDYTZT: G DATA THAT DESCRIBES 3D CUBE G -1,-.75,.5,1,-.75,.5,1,-.75,-.5,-1,-.75,-.5,-1,-.75,.5 H -1,.75,.5,-1,.75,-.5,1,.75,-.5,1,.75,.5,-1,.75,.5 PH& -1,-.75,.5,-1,.75,.5,-1,-.75,-.5,-1,.75,-.5,1,-.75,.5 tH0 1,.75,.5,1,-.75,-.5,1,.75,-.5 @@
BASIC PROGRAM SETUP 6@ %: ENABLE 2 MH MODE j@ 47,0:48,132:: SET UP 32K BUFFER FOR @STASH @( @,6,0: GOTO ULTRA HIRES SCREEN (640 X 200) AND SET COLORS BG,FG @2 @,0: CLEAR ULTRA HIRES SCREEN @< 1,"@GRAPHIC,0," AF "COMPUTER FONT",B0,P35000 *AP "ROMAN FONT",B0,P40000 HAZ AD(100),X(2,70),Y(2,70) Ad 740: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR An : Ax PROGRAM BEGINS HERE A A MC0 A SAVE BLANK AREAS FOR WINDOWS B @ ,MC,10,10,310,120:AD(0)MC: 770:MCAD AB @ ,MC,320,80,310,110:AD(1)MC:770:MCAD VB @,0,0,639,199,1 yB YH019910:@,0,YH,20,YH,1: B XH063920:@,XH,199,XH,190,1: B X0:Y199:CT0 B MAKE FIRST LARGE GRAPH B X639 B OXX:OYY (C DX((1)10)10:DY((1)200):XXDX:YDY:X639X639 VCX(1,CT)OX:X(2,CT)X:Y(1,CT)OY:Y(2,CT)Y iC@,OX,OY,X,Y,1 uCCTCT1 {C" C,@,35000,16,50,13,13,"GRAPHS" C6@ ,MC,10,10,310,120:AD(2)MC: 770:MCAD C@ CJ MAKE SECOND GRAPH DT@!,AD(0),10,10: MAKE BLANK WINDOW *D^@,10,10,319,129,1 JDh@,40000,16,105,3,2,"ALES" [DrCX160:CY65 qD|@,1,CX,CY,120,48 D@,CX,CY,CX30,CY46,1 D@,CX,CY,CX30,CY46,1 D@,CX,CY,CX20,CY47,1 D@,CX,CY,CX120,CY,1 D@,7168,16,35,1,0," MITH" E@,7168,144,116,1,0," OHNSON" ?E@,7168,274,25,1,0,"AVIDSON" `E@,7168,274,105,1,0,"ONES " yE@,CX10,CY,1,51,204 E@,CX10,CY25,1,15,240 E@,CX10,CY25,1,3,45,136,56,222,18,129,66 E@,CX80,CY10,1,1,2,4,8,16,32,64,128 F SAVE SECOND GRAPH 4F@ ,MC,10,10,310,120:AD(3)MC: 770:MCAD VF SAVE AREA UNDER THIRD GRAPH F @ ,MC,320,80,310,110:AD(4)MC:770:MCAD F& F0 MAKE THIRD GRAPH F:@!,AD(1),320,80: MAKE BLANK WINDOW FD@,320,80,629,189,1 FNX324:YB186 GX I1 10 GbHT((1)70)10 /Gl@BAR,X,YB,18,5,HT,1 :GvXX30 @G gG@,55296,325,85,2,1,"NVENTORY " ~G SAVE THIRD GRAPH G@ ,MC,320,80,310,110:AD(5)MC:770:MCAD G G RESTORE AREA UNDER THIRD GRAPH G@!,AD(4),320,80 H RESTORE AREA UNDER SECOND GRAPH &H@!,AD(2),10,10 JH@,35000,16,50,13,13,"GRAPHS" PH H GOTO TEXT MODE, PRINT STATUS AND END PROGRAM H "T.CUBE HAD(250)(251)2561: @ @
%: ENABLE 2 MH MODE P@ 47,0:48,204:: SET UP 50K BUFFER FOR @STASH W@ % i@ VO$"V8":MC0 @( @,0,15:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @2 350: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR A< A(32)
AF 180 .AK "COMPUTER FONT",B0,P35000 YAP @,0: BEGINNING OF ANIMATION ROUTINE jAd @,1,"STARS" ~An @!,A(0),250,65 Ax 1 A BLITTER ANIMATION USING THE @FETCH COMMAND A WQ110 A K1 32:@!,A(K),250,65: B K17 32:@!,A(K),250,65: ,B K32 1 1:@!,A(K),250,65: 2B
8 ~ } s # G | px @_ < g p
p 3p
@ @ @ < x @ @
$ ~ ? ~
x x # ?0?
o ~ G
? 9
_
p ~
D`
?
$
?
?
ߓ
9 ? @
>~
#
@
@ < ? Q | @
? O| ? ? ? @ ? ?0?
B p <= ?a @
|y@ @
s
3 d y `
x
= y
?
|
Ǟ _ @ ?
y ?
O0 p ? ?? A 9 $ > ;| x # ` x p @ @ @ @ P t @ @ @ 8 @ / 9 < % % % c
1
D@
F@ E w c@ f @ GP G 39 lp
D Q
? H z8
30 >
̀14
' +
HH
p3: &lx
p
~C |x` B H(
33 ǀx
@ - " (` 3 8
ʠ > #$4 3 0 @ X
p N p ' ; ` 4p
,`x 7 6`
D '
0?
p
) Ӏ
c~ 5ǀ
g@ 8 N a
x @
3 0 0 8 ~ y ! ' ` ' 3 N @ @ @ @ A : ` & ! & ` % @ x p p0 ` d ` `0 @
< x 00 ` p` @` d h @
d
@ 0
8
$ `0 @ 3 0
$ @0
L ` y
I `
m 3
I
`
f 9 ŀ
"@ ? 2 X
g.
$ $
2 B I d P
\
$ $
2 Z A q
$ $
d
P
@ $
@ $ d
@ / p w
$
@ $
$ ? t
Y ?
$ @ $
$ >
g* < I$ @ $ 6{ H $ 91
d @ $
<5 (/t H
28>p v
d d
G K E
@ p
d d
P . o
0
E d
x
&@
c
$@
E ? H
0 (% L@
< ـ
R E !
$PH
7 x r
R I a
C ( H 1 x `
I e
C 9
@#R
8
p Q
a
D| /
(
r@
G
x wp
~~ y ǀ p߀
v 8
O ; :
` ?? ' {3 8 < @ >
x ? @ p8
@ @ A < ;
x
G $ @ ? 3 w
x F C|s ~ ?p ?
~ = @@ |
6',
= _
8C|
? ` x @ =
? ;
@f x|
!x = p <
' 9 z
@
` xg
# <`> 9 > 8p ?
o 9 {ǀ
? @ 10ß Ϙ o8` ??
@
< `<`
| ??8 @ p8s0
^ 0 0
@ ? ?
@ @ @ ~ @? @@
@@ | @ 0 &@@ e @ e W 80` 0 _ ? 3 ?@ 8 7 H
?? ? ?@
? D
@$
?$
@ @ @ @
4? @ A ? ?
!
0
/ ? @ @ @ @ Y t @ @ @ @ x L H ߀? 5 6
? H ? f~
? ? ? р? q? 3 g / = ? H x $? $? ?
?
?K ? ? ?
?8A ? 6 ?
D L
b a @ @ @ @ Y t @ @ @ @ ? G ' 4 ? _ ` " ` " " ! ?
?
'
@ @ @ @ @ @ @ @ |
? ? !
1 X ?
? ? r ?
r ? ?A
@ ?
a
v
æ`
z? G ? @ > ' 1 ? H L a @ @ @ @ Y t ! @ & o 7 U ? ^ 1 @ @ ) @ @ E o @ S V & @ P : + < @ a X A @ Q N # @ v 2 < 9 h ~ @ C ? _ @ o . ! ~ * = j 3 } L " @ & ;
@ 4 @ @ , : @ ,
2 < U + 4 O * > 4 " @ / q # _
i ) d ' & @ 6 ! D 0 + @ f % & > % @ O @ @ @ B J ( : g @ E M P = , @ M
5 F @ @ D 3 G @ B d N 6 7 A + ? @ F
Z
@ 1 I 8 @ - k 4 C 4 7 c R ڨ`<| bf 0fF f< 00`0 ~ ~ p p aR"BE9bR"%(0I]III cX cbR <~L0`000033333f3f 3333 33̙3f̙3f lxp` ~ff ~`` ~`` ~f` fff 8888 x ``` II ~ff ~ff ~ff ~bb 008888 fff fff8 III 8 888 <00000< `0 < < <~ 00 888 8 fff fffff ~@~~ bf 0fF 888 |dd 00`0 ~ ~ p p 8 8 ۬|| <>f; `|fff :d`b< 6nff; >d~`< 2L``` ;ff6<`|fff 8< L8`lpJ p````h l vff ffx >||0002\ fl fx0 II6 h09 fn6x B|0<00000< 0|0b < < <~ 00 fff fffff >`<| bf 0fF x`s| 000 0 0 f<f< 00`0 ~ ~ p p |0 0|| 6f~ff fFlff :l`f< x (H| #&gfN7 ffx0 IIII[l h08M #fk6D8> 0 ff; |ffff >f``b< >ffff; f|0>f||ffff 8~ l8nh|lf 8< ~ vfff w;000x >`< B| ~ ffff; bb48 mv6" b<8L fff~| f 3 <00000< 00` < < <~ 00 fff fffff >`<| bf 0fF fcccf 10>01 fbx`` ~~ cccc ~~ f| dhxlf ```bf w[[[K rZZNF bp<F| < bbbbb< bbb44 nf b4,F b4< ~F 0b~