Willus.com
Home
|
Archive
|
About
SNDCAST1.BAS
(2405 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.
Rj SAND j :N2.434E4:"HI THERE! WHAT'S YOUR NAME";A$ j :"THIS IS THE GAME OF SAND CASTLE." j( :"WOULD YOU LIKE INSTRUCTIONS";A$ j2 (A$,1)"N"ʲ"WISE GUY":220 j< ?kF "THE OBJECT OF THIS GAME IS TO BUILD A MOUNTAIN 18 LAYERS " kP "HIGH. YOU ARE GIVEN THREE MATERIALS TO WORK WITH: SAND, GRAVEL," kZ "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" Uln "TOO STEEP,FORCING YOU TO START ALL OVER. (EVERY LAYER OF SAND" lx "MUST BE AT LEAST 6 METERS NARROWER THAN THE LAYER UNDERNEATH)" l "GRAVEL CAN BE STACKED STEEPER (EVERY LAYER MUST BE AT LEAST 4" #m "METERS SMALLER THAN THE ONE BELOW). YOU ALSO GET LESS OF IT." bm "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)." _n "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$ n S7.143E6:G4.552E9:B3.3365E3 n :F100:Y47:H0 o E88167:D5039:C262 ;o@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 o6V(3.1416(Z2)(Z2)4) 7p@"WHICH MATERIAL (SAND, GRAVEL, OR BRICK) FOR NEXT LAYER";A$:A$(A$,1) YpJ@0,,,," "::::Y17ʲ: epT@0,""; rp^Z1260 phA$"S"B$"SAND":AS:420 prA$"G"B$"GRAVEL":AG:450 p|A$"B"B$"BRICK":AB:480 pH1H0:530 pY11600 p260 qEEV:E0EEV:510 $qZF6H1 1qFZ:520 KqDDV:D0DDV:510 ZqZF4H1 gqFZ:520 qCCV:C0CCV:510 qZF2H1 qFZ:520 q::"NOT ENOUGH ";B$::I12000:I: rX64(Z2)63(Z2.6):(X,Y):(X,Y1):X:YY2: ,r@0,"":::" * * * ";B$;"SLIDE * * *" =r I12000:I zr&:"YOU BUILT ";(47Y)2;" LAYERS. THAT'S QUITE A PILE." r0:"WOULD YOU LIKE TO TRY AGAIN";A$:(A$,1)"N"ʲ"O.K, BYE": r:"WOULD YOU LIKE TO REVIEW THE INSTRUCTIONS";A$ sD(A$,1)"N"240 sN60 "sX@0,,,,""::: =sbY47161:(64,Y):Y WslY1101:(64,Y):Y svX6579:(X,0):(X,1):(X,2):(X,3):(X,4):X sA$;"'S CASTLE"; s650