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.
000000: FF 52 6A 0A 00 93 20 20 53 41 4E 44 00 84 6A 14 .Rj... SAND..j. 000010: 00 84 3A 4E D5 32 2E 34 33 34 45 CE 34 3A 89 22 ..:N.2.434E.4:." 000020: 48 49 20 54 48 45 52 45 21 20 57 48 41 54 27 53 HI THERE! WHAT'S 000030: 20 59 4F 55 52 20 4E 41 4D 45 22 3B 41 24 00 AE YOUR NAME";A$.. 000040: 6A 1E 00 B2 3A B2 22 54 48 49 53 20 49 53 20 54 j...:."THIS IS T 000050: 48 45 20 47 41 4D 45 20 4F 46 20 53 41 4E 44 20 HE GAME OF SAND 000060: 43 41 53 54 4C 45 2E 22 00 D6 6A 28 00 B2 3A 89 CASTLE."..j(..:. 000070: 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 "WOULD YOU LIKE 000080: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 41 24 INSTRUCTIONS";A$ 000090: 00 F8 6A 32 00 8F F8 28 41 24 2C 31 29 D5 22 4E ..j2...(A$,1)."N 0000A0: 22 CA B2 22 57 49 53 45 20 47 55 59 22 3A 8D 32 ".."WISE GUY":.2 0000B0: 32 30 00 FE 6A 3C 00 84 00 3F 6B 46 00 B2 22 54 20..j<...?kF.."T 0000C0: 48 45 20 4F 42 4A 45 43 54 20 4F 46 20 54 48 49 HE OBJECT OF THI 0000D0: 53 20 47 41 4D 45 20 49 53 20 54 4F 20 42 55 49 S GAME IS TO BUI 0000E0: 4C 44 20 41 20 4D 4F 55 4E 54 41 49 4E 20 31 38 LD A MOUNTAIN 18 0000F0: 20 4C 41 59 45 52 53 20 22 00 86 6B 50 00 B2 22 LAYERS "..kP.." 000100: 48 49 47 48 2E 20 59 4F 55 20 41 52 45 20 47 49 HIGH. YOU ARE GI 000110: 56 45 4E 20 54 48 52 45 45 20 4D 41 54 45 52 49 VEN THREE MATERI 000120: 41 4C 53 20 54 4F 20 57 4F 52 4B 20 57 49 54 48 ALS TO WORK WITH 000130: 3A 20 53 41 4E 44 2C 20 47 52 41 56 45 4C 2C 22 : SAND, GRAVEL," 000140: 00 CB 6B 5A 00 B2 22 41 4E 44 20 42 52 49 43 4B ..kZ.."AND BRICK 000150: 2E 20 54 48 45 20 41 44 56 41 4E 54 41 47 45 20 . THE ADVANTAGE 000160: 4F 46 20 53 41 4E 44 20 49 53 20 54 48 41 54 20 OF SAND IS THAT 000170: 59 4F 55 20 47 45 54 20 41 20 4C 4F 54 20 4F 46 YOU GET A LOT OF 000180: 20 49 54 2E 22 00 10 6C 64 00 B2 22 54 48 45 20 IT."..ld.."THE 000190: 44 49 53 41 44 56 41 4E 54 41 47 45 20 49 53 20 DISADVANTAGE IS 0001A0: 54 48 41 54 20 49 54 20 57 49 4C 4C 20 53 4C 49 THAT IT WILL SLI 0001B0: 44 45 20 49 46 20 59 4F 55 20 54 52 59 20 54 4F DE IF YOU TRY TO 0001C0: 20 53 54 41 43 4B 20 49 54 22 00 55 6C 6E 00 B2 STACK IT".Uln.. 0001D0: 22 54 4F 4F 20 53 54 45 45 50 2C 46 4F 52 43 49 "TOO STEEP,FORCI 0001E0: 4E 47 20 59 4F 55 20 54 4F 20 53 54 41 52 54 20 NG YOU TO START 0001F0: 41 4C 4C 20 4F 56 45 52 2E 20 28 45 56 45 52 59 ALL OVER. (EVERY 000200: 20 4C 41 59 45 52 20 4F 46 20 53 41 4E 44 22 00 LAYER OF SAND". 000210: 9A 6C 78 00 B2 22 4D 55 53 54 20 42 45 20 41 54 .lx.."MUST BE AT 000220: 20 4C 45 41 53 54 20 36 20 4D 45 54 45 52 53 20 LEAST 6 METERS 000230: 4E 41 52 52 4F 57 45 52 20 54 48 41 4E 20 54 48 NARROWER THAN TH 000240: 45 20 4C 41 59 45 52 20 55 4E 44 45 52 4E 45 41 E LAYER UNDERNEA 000250: 54 48 29 22 00 DF 6C 82 00 B2 22 47 52 41 56 45 TH)"..l..."GRAVE 000260: 4C 20 43 41 4E 20 42 45 20 53 54 41 43 4B 45 44 L CAN BE STACKED 000270: 20 53 54 45 45 50 45 52 20 28 45 56 45 52 59 20 STEEPER (EVERY 000280: 4C 41 59 45 52 20 4D 55 53 54 20 42 45 20 41 54 LAYER MUST BE AT 000290: 20 4C 45 41 53 54 20 34 22 00 23 6D 8C 00 B2 22 LEAST 4".#m..." 0002A0: 4D 45 54 45 52 53 20 53 4D 41 4C 4C 45 52 20 54 METERS SMALLER T 0002B0: 48 41 4E 20 54 48 45 20 4F 4E 45 20 42 45 4C 4F HAN THE ONE BELO 0002C0: 57 29 2E 20 59 4F 55 20 41 4C 53 4F 20 47 45 54 W). YOU ALSO GET 0002D0: 20 4C 45 53 53 20 4F 46 20 49 54 2E 22 00 62 6D LESS OF IT.".bm 0002E0: 96 00 B2 22 42 52 49 43 4B 53 20 43 41 4E 20 42 ..."BRICKS CAN B 0002F0: 45 20 4C 41 49 44 20 53 54 45 45 50 45 53 54 20 E LAID STEEPEST 000300: 4F 46 20 41 4C 4C 2E 20 28 57 49 54 48 49 4E 20 OF ALL. (WITHIN 000310: 54 57 4F 20 4D 45 54 45 52 53 29 22 00 99 6D A0 TWO METERS)"..m. 000320: 00 B2 22 42 55 54 20 49 54 27 53 20 45 58 50 45 .."BUT IT'S EXPE 000330: 4E 53 49 56 45 20 2D 20 59 4F 55 20 47 45 54 20 NSIVE - YOU GET 000340: 56 45 52 59 20 4C 49 54 54 4C 45 20 4F 46 20 49 VERY LITTLE OF I 000350: 54 2E 22 00 9F 6D AA 00 B2 00 E6 6D B4 00 B2 22 T."..m.....m..." 000360: 54 48 45 20 53 54 41 52 54 49 4E 47 20 46 4F 55 THE STARTING FOU 000370: 4E 44 41 54 49 4F 4E 20 49 53 20 31 30 30 20 4D NDATION IS 100 M 000380: 45 54 45 52 53 20 57 49 44 45 2C 20 53 4F 20 59 ETERS WIDE, SO Y 000390: 4F 55 52 20 46 49 52 53 54 20 4C 41 59 45 52 22 OUR FIRST LAYER" 0003A0: 00 19 6E BE 00 B2 22 4D 55 53 54 20 42 45 20 4C ..n..."MUST BE L 0003B0: 45 53 53 20 54 48 41 4E 20 39 35 20 4D 45 54 45 ESS THAN 95 METE 0003C0: 52 53 20 57 49 44 45 20 28 4F 46 20 53 41 4E 44 RS WIDE (OF SAND 0003D0: 29 2E 22 00 5F 6E C8 00 B2 22 45 41 43 48 20 4C )."._n..."EACH L 0003E0: 41 59 45 52 20 49 53 20 34 20 4D 45 54 45 52 53 AYER IS 4 METERS 0003F0: 20 54 48 49 43 4B 20 41 4E 44 20 43 49 52 43 55 THICK AND CIRCU 000400: 4C 41 52 20 49 4E 20 43 52 4F 53 53 20 53 45 43 LAR IN CROSS SEC 000410: 54 49 4F 4E 2C 20 53 4F 22 00 8C 6E D2 00 B2 22 TION, SO"..n..." 000420: 57 49 44 45 20 4C 41 59 45 52 53 20 55 53 45 20 WIDE LAYERS USE 000430: 55 50 20 41 20 4C 4F 54 20 4F 46 20 4D 41 54 45 UP A LOT OF MATE 000440: 52 49 41 4C 2E 22 00 AD 6E DC 00 89 22 50 52 45 RIAL."..n..."PRE 000450: 53 53 20 27 45 4E 54 45 52 27 20 54 4F 20 53 54 SS 'ENTER' TO ST 000460: 41 52 54 22 3B 42 24 00 D2 6E E6 00 53 D5 37 2E ART";B$..n..S.7. 000470: 31 34 33 45 CE 36 3A 47 D5 34 2E 35 35 32 45 CE 143E.6:G.4.552E. 000480: 39 3A 42 D5 33 2E 33 33 36 35 45 33 00 E8 6E F0 9:B.3.3365E3..n. 000490: 00 20 84 3A 46 D5 31 30 30 3A 59 D5 34 37 3A 48 . .:F.100:Y.47:H 0004A0: D5 30 00 01 6F FA 00 45 D5 38 38 31 36 37 3A 44 .0..o..E.88167:D 0004B0: D5 35 30 33 39 3A 43 D5 32 36 32 00 3B 6F 04 01 .5039:C.262.;o.. 0004C0: B2 40 30 2C 22 20 4D 41 54 45 52 49 41 4C 53 20 .@0," MATERIALS 0004D0: 2D 20 53 41 4E 44 3A 22 3B 45 3B 22 20 20 47 52 - SAND:";E;" GR 0004E0: 41 56 45 4C 3A 22 3B 44 3B 22 20 20 42 52 49 43 AVEL:";D;" BRIC 0004F0: 4B 3A 22 3B 43 00 7C 6F 0E 01 B2 22 50 52 4F 47 K:";C.|o..."PROG 000500: 52 45 53 53 20 2D 20 4C 41 59 45 52 53 20 54 4F RESS - LAYERS TO 000510: 20 47 4F 3A 22 3B 28 59 CE 31 31 29 D0 32 3B 22 GO:";(Y.11).2;" 000520: 20 54 48 45 20 42 41 53 45 20 4C 41 59 45 52 20 THE BASE LAYER 000530: 49 53 22 3B 46 3B 00 90 6F 18 01 B2 22 4D 45 54 IS";F;..o..."MET 000540: 45 52 53 20 57 49 44 45 2E 22 00 A2 6F 22 01 B2 ERS WIDE."..o".. 000550: 3A B2 3A B2 40 31 32 38 2C 22 22 3B 00 CD 6F 2C :.:.@128,"";..o, 000560: 01 89 22 48 4F 57 20 4D 41 4E 59 20 4D 45 54 45 .."HOW MANY METE 000570: 52 53 20 57 49 44 45 22 3B 5A 3A 8F 5A D4 31 30 RS WIDE";Z:.Z.10 000580: 30 CA 5A D5 31 30 30 00 EB 6F 36 01 56 D5 D8 28 0.Z.100..o6.V..( 000590: 33 2E 31 34 31 36 CF 28 5A D0 32 29 CF 28 5A D0 3.1416.(Z.2).(Z. 0005A0: 32 29 CF 34 29 00 37 70 40 01 89 22 57 48 49 43 2).4).7p@.."WHIC 0005B0: 48 20 4D 41 54 45 52 49 41 4C 20 28 53 41 4E 44 H MATERIAL (SAND 0005C0: 2C 20 47 52 41 56 45 4C 2C 20 4F 52 20 42 52 49 , GRAVEL, OR BRI 0005D0: 43 4B 29 20 46 4F 52 20 4E 45 58 54 20 4C 41 59 CK) FOR NEXT LAY 0005E0: 45 52 22 3B 41 24 3A 41 24 D5 F8 28 41 24 2C 31 ER";A$:A$..(A$,1 0005F0: 29 00 59 70 4A 01 B2 40 30 2C 2C 2C 2C 22 20 20 ).YpJ..@0,,,," 000600: 20 20 22 3A B2 3A B2 3A B2 3A 8F 59 D4 31 37 CA ":.:.:.:.Y.17. 000610: B2 3A B2 00 65 70 54 01 B2 40 30 2C 22 22 3B 00 .:..epT..@0,"";. 000620: 72 70 5E 01 8F 5A D6 31 CA 32 36 30 00 91 70 68 rp^..Z.1.260..ph 000630: 01 8F 41 24 D5 22 53 22 CA 42 24 D5 22 53 41 4E ..A$."S".B$."SAN 000640: 44 22 3A 41 D5 53 3A 91 34 32 30 00 B2 70 72 01 D":A.S:.420..pr. 000650: 8F 41 24 D5 22 47 22 CA 42 24 D5 22 47 52 41 56 .A$."G".B$."GRAV 000660: 45 4C 22 3A 41 D5 47 3A 91 34 35 30 00 D2 70 7C EL":A.G:.450..p| 000670: 01 8F 41 24 D5 22 42 22 CA 42 24 D5 22 42 52 49 ..A$."B".B$."BRI 000680: 43 4B 22 3A 41 D5 42 3A 91 34 38 30 00 E4 70 86 CK":A.B:.480..p. 000690: 01 8F 48 D5 31 CA 48 D5 30 3A 8D 35 33 30 00 F2 ..H.1.H.0:.530.. 0006A0: 70 90 01 8F 59 D5 31 31 CA 36 30 30 00 FB 70 9A p...Y.11.600..p. 0006B0: 01 8D 32 36 30 00 15 71 A4 01 45 D5 45 CE 56 3A ..260..q..E.E.V: 0006C0: 8F 45 D6 30 CA 45 D5 45 CD 56 3A 8D 35 31 30 00 .E.0.E.E.V:.510. 0006D0: 24 71 AE 01 8F 5A D4 46 CE 36 CA 48 D5 31 00 31 $q...Z.F.6.H.1.1 0006E0: 71 B8 01 46 D5 5A 3A 8D 35 32 30 00 4B 71 C2 01 q..F.Z:.520.Kq.. 0006F0: 44 D5 44 CE 56 3A 8F 44 D6 30 CA 44 D5 44 CD 56 D.D.V:.D.0.D.D.V 000700: 3A 8D 35 31 30 00 5A 71 CC 01 8F 5A D4 46 CE 34 :.510.Zq...Z.F.4 000710: CA 48 D5 31 00 67 71 D6 01 46 D5 5A 3A 8D 35 32 .H.1.gq..F.Z:.52 000720: 30 00 81 71 E0 01 43 D5 43 CE 56 3A 8F 43 D6 30 0..q..C.C.V:.C.0 000730: CA 43 D5 43 CD 56 3A 8D 35 31 30 00 90 71 EA 01 .C.C.V:.510..q.. 000740: 8F 5A D4 46 CE 32 CA 48 D5 31 00 9D 71 F4 01 46 .Z.F.2.H.1..q..F 000750: D5 5A 3A 8D 35 32 30 00 C8 71 FE 01 B2 3A B2 3A .Z:.520..q...:.: 000760: B2 22 4E 4F 54 20 45 4E 4F 55 47 48 20 22 3B 42 ."NOT ENOUGH ";B 000770: 24 3A B2 3A 81 49 D5 31 BD 32 30 30 30 3A 87 49 $:.:.I.1.2000:.I 000780: 3A 92 00 01 72 08 02 81 58 D5 36 34 CE D8 28 5A :...r...X.64..(Z 000790: D0 32 29 BD 36 33 CD D8 28 5A D0 32 CD 2E 36 29 .2).63..(Z.2..6) 0007A0: 3A 83 28 58 2C 59 29 3A 83 28 58 2C 59 CE 31 29 :.(X,Y):.(X,Y.1) 0007B0: 3A 87 58 3A 59 D5 59 CE 32 3A 92 00 2C 72 12 02 :.X:Y.Y.2:..,r.. 0007C0: B2 40 30 2C 22 22 3A B2 3A B2 3A B2 22 20 2A 20 .@0,"":.:.:." * 0007D0: 2A 20 2A 20 22 3B 42 24 3B 22 53 4C 49 44 45 20 * * ";B$;"SLIDE 0007E0: 2A 20 2A 20 2A 22 00 3D 72 1C 02 81 49 D5 31 BD * * *".=r...I.1. 0007F0: 32 30 30 30 3A 87 49 00 7A 72 26 02 84 3A B2 22 2000:.I.zr&..:." 000800: 59 4F 55 20 42 55 49 4C 54 20 22 3B 28 34 37 CE YOU BUILT ";(47. 000810: 59 29 D0 32 3B 22 20 4C 41 59 45 52 53 2E 20 54 Y).2;" LAYERS. T 000820: 48 41 54 27 53 20 51 55 49 54 45 20 41 20 50 49 HAT'S QUITE A PI 000830: 4C 45 2E 22 00 BD 72 30 02 B2 3A 89 22 57 4F 55 LE."..r0..:."WOU 000840: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 54 LD YOU LIKE TO T 000850: 52 59 20 41 47 41 49 4E 22 3B 41 24 3A 8F F8 28 RY AGAIN";A$:..( 000860: 41 24 2C 31 29 D5 22 4E 22 CA B2 22 4F 2E 4B 2C A$,1)."N".."O.K, 000870: 20 42 59 45 22 3A 80 00 F1 72 3A 02 89 22 57 4F BYE":...r:.."WO 000880: 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 ULD YOU LIKE TO 000890: 52 45 56 49 45 57 20 54 48 45 20 49 4E 53 54 52 REVIEW THE INSTR 0008A0: 55 43 54 49 4F 4E 53 22 3B 41 24 00 06 73 44 02 UCTIONS";A$..sD. 0008B0: 8F F8 28 41 24 2C 31 29 D5 22 4E 22 CA 32 34 30 ..(A$,1)."N".240 0008C0: 00 0E 73 4E 02 8D 36 30 00 22 73 58 02 B2 40 30 ..sN..60."sX..@0 0008D0: 2C 2C 2C 2C 22 22 3A B2 3A B2 3A B2 00 3D 73 62 ,,,,"":.:.:..=sb 0008E0: 02 81 59 D5 34 37 BD 31 36 CC CE 31 3A 82 28 36 ..Y.47.16..1:.(6 0008F0: 34 2C 59 29 3A 87 59 00 57 73 6C 02 81 59 D5 31 4,Y):.Y.Wsl..Y.1 000900: 31 BD 30 CC CE 31 3A 83 28 36 34 2C 59 29 3A 87 1.0..1:.(64,Y):. 000910: 59 00 8A 73 76 02 81 58 D5 36 35 BD 37 39 3A 83 Y..sv..X.65.79:. 000920: 28 58 2C 30 29 3A 83 28 58 2C 31 29 3A 83 28 58 (X,0):.(X,1):.(X 000930: 2C 32 29 3A 83 28 58 2C 33 29 3A 83 28 58 2C 34 ,2):.(X,3):.(X,4 000940: 29 3A 87 58 00 9F 73 80 02 B2 41 24 3B 22 27 53 ):.X..s...A$;"'S 000950: 20 43 41 53 54 4C 45 22 3B 00 A8 73 8A 02 8D 36 CASTLE";..s...6 000960: 35 30 00 00 00 50... 9001 'RELOCATABLE Z-80 CODE 9002 POKE 16526,54:POKE 16527,53 9003 DEFINT A,I:READAD,AS:FORI=1TOAS:READAV:POKEAD+I-1,AV:NEXTI:RETURN 9004 DATA -19910,176 9005 DATA 58,178,64,49,50,56,44,34,34,59,0,205,111,44,1,137 9006 DATA 34,72,79,87,32,77,65,78,89,32,77,69,84,69,82,83 9007 DATA 32,87,73,68,69,34,59,90,58,143,90,212,49,48,48,202 9008 DATA 90,213,49,48,48,0,235,111,54,1,86,213,216,40,51,46 9009 DATA 49,52,49,54,207,40,90,208,50,41,207,40,90,208,50,41 9010 DATA 207,52,41,0,55,112,64,1,137,34,87,72,73,67,72,32 9011 DATA 77,65,84,69,82,73,65,76,32,40,83,65,78,68,44,32 9012 DATA 71,82,65,86,69,76,44,32,79,82,32,66,82,73,67,75 9013 DATA 41,32,70,79,82,32,78,69,88,84,32,76,65,89,69,82 9014 DATA 34,59,65,36,58,65,36,213,248,40,65,36,44,49,41,0 9015 DATA 89,112,74,1,178,64,48,44,44,44,44,34,32,32,32,32