Willus.com
Home
|
Archive
|
About
SNDCAST2.BAS
(2428 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
fj :COPYRIGHT (C) CLOAD 1979 j:N2.434E4:"HI THERE! WHAT'S YOUR NAME";A$ j:"THIS IS THE GAME OF SAND CASTLE." j:"WOULD YOU LIKE INSTRUCTIONS";A$ k(A$,1)"N"ʲ"WISE GUY":700 k Sk&"THE OBJECT OF THIS GAME IS TO BUILD A MOUNTAIN 18 LAYERS " k0"HIGH. YOU ARE GIVEN THREE MATERIALS TO WORK WITH: SAND, GRAVEL," k:"AND BRICK. THE ADVANTAGE OF SAND IS THAT YOU GET A LOT OF IT." $lD"THE DISADVANTAGE IS THAT IT WILL SLIDE IF YOU TRY TO STACK IT" ilN"TOO STEEP,FORCING YOU TO START ALL OVER. (EVERY LAYER OF SAND" lX"MUST BE AT LEAST 6 METERS NARROWER THAN THE LAYER UNDERNEATH)" lb"GRAVEL CAN BE STACKED STEEPER (EVERY LAYER MUST BE AT LEAST 4" 7ml"METERS SMALLER THAN THE ONE BELOW). YOU ALSO GET LESS OF IT." vmv"BRICKS CAN BE LAID STEEPEST OF ALL. (WITHIN TWO METERS)" m"BUT IT'S EXPENSIVE - YOU GET VERY LITTLE OF IT." m m"THE STARTING FOUNDATION IS 100 METERS WIDE, SO YOUR FIRST LAYER" -n"MUST BE LESS THAN 95 METERS WIDE (OF SAND)." sn"EACH LAYER IS 4 METERS THICK AND CIRCULAR IN CROSS SECTION, SO" n"WIDE LAYERS USE UP A LOT OF MATERIAL." n"PRESS 'ENTER' TO START";B$ nS7.143E6:G4.552E9:B3.3365E3 n :F100:Y47:H0 oE88167:D5039:C262 Oo@0," MATERIALS - SAND:";E;" GRAVEL:";D;" BRICK:";C o"PROGRESS - LAYERS TO GO:";(Y11)2;" THE BASE LAYER IS";F; o"METERS WIDE." o::@128,""; o"HOW MANY METERS WIDE";Z:Z100Z100 o V(3.1416(Z2)(Z2)4) Kp"WHICH MATERIAL (SAND, GRAVEL, OR BRICK) FOR NEXT LAYER";A$:A$(A$,1) mp@0,,,," "::::Y17ʲ: yp@0,""; p Z1740 p*A$"S"B$"SAND":AS:870 p4A$"G"B$"GRAVEL":AG:900 p>A$"B"B$"BRICK":AB:930 pHH1H0:980 qRY111040 q\740 *qfEEV:E0EEV:960 9qpZF6H1 FqzFZ:970 `qDDV:D0DDV:960 oqZF4H1 |qFZ:970 qCCV:C0CCV:960 qZF2H1 qFZ:970 q::"NOT ENOUGH ";B$::I12000:I: rX64(Z2)63(Z2.6):(X,Y):(X,Y1):X:YY2: Ar@0,"":::" * * * ";B$;"SLIDE * * *" RrI12000:I r:"YOU BUILT ";(47Y)2;" LAYERS. THAT'S QUITE A PILE." r:"WOULD YOU LIKE TO TRY AGAIN";A$:(A$,1)"N"ʲ"O.K, BYE": s"WOULD YOU LIKE TO REVIEW THE INSTRUCTIONS";A$ s(A$,1)"N"730 $s540 8s@0,,,,""::: SsY47161:(64,Y):Y ms$Y1101:(64,Y):Y s.X6579:(X,0):(X,1):(X,2):(X,3):(X,4):X s8A$;"'S CASTLE"; sB1090