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.
000000: FF 66 6A 01 00 3A 93 FB 43 4F 50 59 52 49 47 48 .fj..:..COPYRIGH 000010: 54 20 28 43 29 20 43 4C 4F 41 44 20 31 39 37 39 T (C) CLOAD 1979 000020: 00 98 6A F4 01 84 3A 4E D5 32 2E 34 33 34 45 CE ..j...:N.2.434E. 000030: 34 3A 89 22 48 49 20 54 48 45 52 45 21 20 57 48 4:."HI THERE! WH 000040: 41 54 27 53 20 59 4F 55 52 20 4E 41 4D 45 22 3B AT'S YOUR NAME"; 000050: 41 24 00 C2 6A FE 01 B2 3A B2 22 54 48 49 53 20 A$..j...:."THIS 000060: 49 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 53 IS THE GAME OF S 000070: 41 4E 44 20 43 41 53 54 4C 45 2E 22 00 EA 6A 08 AND CASTLE."..j. 000080: 02 B2 3A 89 22 57 4F 55 4C 44 20 59 4F 55 20 4C ..:."WOULD YOU L 000090: 49 4B 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 IKE INSTRUCTIONS 0000A0: 22 3B 41 24 00 0C 6B 12 02 8F F8 28 41 24 2C 31 ";A$..k....(A$,1 0000B0: 29 D5 22 4E 22 CA B2 22 57 49 53 45 20 47 55 59 )."N".."WISE GUY 0000C0: 22 3A 8D 37 30 30 00 12 6B 1C 02 84 00 53 6B 26 ":.700..k....Sk& 0000D0: 02 B2 22 54 48 45 20 4F 42 4A 45 43 54 20 4F 46 .."THE OBJECT OF 0000E0: 20 54 48 49 53 20 47 41 4D 45 20 49 53 20 54 4F THIS GAME IS TO 0000F0: 20 42 55 49 4C 44 20 41 20 4D 4F 55 4E 54 41 49 BUILD A MOUNTAI 000100: 4E 20 31 38 20 4C 41 59 45 52 53 20 22 00 9A 6B N 18 LAYERS "..k 000110: 30 02 B2 22 48 49 47 48 2E 20 59 4F 55 20 41 52 0.."HIGH. YOU AR 000120: 45 20 47 49 56 45 4E 20 54 48 52 45 45 20 4D 41 E GIVEN THREE MA 000130: 54 45 52 49 41 4C 53 20 54 4F 20 57 4F 52 4B 20 TERIALS TO WORK 000140: 57 49 54 48 3A 20 53 41 4E 44 2C 20 47 52 41 56 WITH: SAND, GRAV 000150: 45 4C 2C 22 00 DF 6B 3A 02 B2 22 41 4E 44 20 42 EL,"..k:.."AND B 000160: 52 49 43 4B 2E 20 54 48 45 20 41 44 56 41 4E 54 RICK. THE ADVANT 000170: 41 47 45 20 4F 46 20 53 41 4E 44 20 49 53 20 54 AGE OF SAND IS T 000180: 48 41 54 20 59 4F 55 20 47 45 54 20 41 20 4C 4F HAT YOU GET A LO 000190: 54 20 4F 46 20 49 54 2E 22 00 24 6C 44 02 B2 22 T OF IT.".$lD.." 0001A0: 54 48 45 20 44 49 53 41 44 56 41 4E 54 41 47 45 THE DISADVANTAGE 0001B0: 20 49 53 20 54 48 41 54 20 49 54 20 57 49 4C 4C IS THAT IT WILL 0001C0: 20 53 4C 49 44 45 20 49 46 20 59 4F 55 20 54 52 SLIDE IF YOU TR 0001D0: 59 20 54 4F 20 53 54 41 43 4B 20 49 54 22 00 69 Y TO STACK IT".i 0001E0: 6C 4E 02 B2 22 54 4F 4F 20 53 54 45 45 50 2C 46 lN.."TOO STEEP,F 0001F0: 4F 52 43 49 4E 47 20 59 4F 55 20 54 4F 20 53 54 ORCING YOU TO ST 000200: 41 52 54 20 41 4C 4C 20 4F 56 45 52 2E 20 28 45 ART ALL OVER. (E 000210: 56 45 52 59 20 4C 41 59 45 52 20 4F 46 20 53 41 VERY LAYER OF SA 000220: 4E 44 22 00 AE 6C 58 02 B2 22 4D 55 53 54 20 42 ND"..lX.."MUST B 000230: 45 20 41 54 20 4C 45 41 53 54 20 36 20 4D 45 54 E AT LEAST 6 MET 000240: 45 52 53 20 4E 41 52 52 4F 57 45 52 20 54 48 41 ERS NARROWER THA 000250: 4E 20 54 48 45 20 4C 41 59 45 52 20 55 4E 44 45 N THE LAYER UNDE 000260: 52 4E 45 41 54 48 29 22 00 F3 6C 62 02 B2 22 47 RNEATH)"..lb.."G 000270: 52 41 56 45 4C 20 43 41 4E 20 42 45 20 53 54 41 RAVEL CAN BE STA 000280: 43 4B 45 44 20 53 54 45 45 50 45 52 20 28 45 56 CKED STEEPER (EV 000290: 45 52 59 20 4C 41 59 45 52 20 4D 55 53 54 20 42 ERY LAYER MUST B 0002A0: 45 20 41 54 20 4C 45 41 53 54 20 34 22 00 37 6D E AT LEAST 4".7m 0002B0: 6C 02 B2 22 4D 45 54 45 52 53 20 53 4D 41 4C 4C l.."METERS SMALL 0002C0: 45 52 20 54 48 41 4E 20 54 48 45 20 4F 4E 45 20 ER THAN THE ONE 0002D0: 42 45 4C 4F 57 29 2E 20 59 4F 55 20 41 4C 53 4F BELOW). YOU ALSO 0002E0: 20 47 45 54 20 4C 45 53 53 20 4F 46 20 49 54 2E GET LESS OF IT. 0002F0: 22 00 76 6D 76 02 B2 22 42 52 49 43 4B 53 20 43 ".vmv.."BRICKS C 000300: 41 4E 20 42 45 20 4C 41 49 44 20 53 54 45 45 50 AN BE LAID STEEP 000310: 45 53 54 20 4F 46 20 41 4C 4C 2E 20 28 57 49 54 EST OF ALL. (WIT 000320: 48 49 4E 20 54 57 4F 20 4D 45 54 45 52 53 29 22 HIN TWO METERS)" 000330: 00 AD 6D 80 02 B2 22 42 55 54 20 49 54 27 53 20 ..m..."BUT IT'S 000340: 45 58 50 45 4E 53 49 56 45 20 2D 20 59 4F 55 20 EXPENSIVE - YOU 000350: 47 45 54 20 56 45 52 59 20 4C 49 54 54 4C 45 20 GET VERY LITTLE 000360: 4F 46 20 49 54 2E 22 00 B3 6D 8A 02 B2 00 FA 6D OF IT."..m.....m 000370: 94 02 B2 22 54 48 45 20 53 54 41 52 54 49 4E 47 ..."THE STARTING 000380: 20 46 4F 55 4E 44 41 54 49 4F 4E 20 49 53 20 31 FOUNDATION IS 1 000390: 30 30 20 4D 45 54 45 52 53 20 57 49 44 45 2C 20 00 METERS WIDE, 0003A0: 53 4F 20 59 4F 55 52 20 46 49 52 53 54 20 4C 41 SO YOUR FIRST LA 0003B0: 59 45 52 22 00 2D 6E 9E 02 B2 22 4D 55 53 54 20 YER".-n..."MUST 0003C0: 42 45 20 4C 45 53 53 20 54 48 41 4E 20 39 35 20 BE LESS THAN 95 0003D0: 4D 45 54 45 52 53 20 57 49 44 45 20 28 4F 46 20 METERS WIDE (OF 0003E0: 53 41 4E 44 29 2E 22 00 73 6E A8 02 B2 22 45 41 SAND).".sn..."EA 0003F0: 43 48 20 4C 41 59 45 52 20 49 53 20 34 20 4D 45 CH LAYER IS 4 ME 000400: 54 45 52 53 20 54 48 49 43 4B 20 41 4E 44 20 43 TERS THICK AND C 000410: 49 52 43 55 4C 41 52 20 49 4E 20 43 52 4F 53 53 IRCULAR IN CROSS 000420: 20 53 45 43 54 49 4F 4E 2C 20 53 4F 22 00 A0 6E SECTION, SO"..n 000430: B2 02 B2 22 57 49 44 45 20 4C 41 59 45 52 53 20 ..."WIDE LAYERS 000440: 55 53 45 20 55 50 20 41 20 4C 4F 54 20 4F 46 20 USE UP A LOT OF 000450: 4D 41 54 45 52 49 41 4C 2E 22 00 C1 6E BC 02 89 MATERIAL."..n... 000460: 22 50 52 45 53 53 20 27 45 4E 54 45 52 27 20 54 "PRESS 'ENTER' T 000470: 4F 20 53 54 41 52 54 22 3B 42 24 00 E6 6E D0 02 O START";B$..n.. 000480: 53 D5 37 2E 31 34 33 45 CE 36 3A 47 D5 34 2E 35 S.7.143E.6:G.4.5 000490: 35 32 45 CE 39 3A 42 D5 33 2E 33 33 36 35 45 33 52E.9:B.3.3365E3 0004A0: 00 FC 6E DA 02 20 84 3A 46 D5 31 30 30 3A 59 D5 ..n.. .:F.100:Y. 0004B0: 34 37 3A 48 D5 30 00 15 6F DF 02 45 D5 38 38 31 47:H.0..o..E.881 0004C0: 36 37 3A 44 D5 35 30 33 39 3A 43 D5 32 36 32 00 67:D.5039:C.262. 0004D0: 4F 6F E4 02 B2 40 30 2C 22 20 4D 41 54 45 52 49 Oo...@0," MATERI 0004E0: 41 4C 53 20 2D 20 53 41 4E 44 3A 22 3B 45 3B 22 ALS - SAND:";E;" 0004F0: 20 20 47 52 41 56 45 4C 3A 22 3B 44 3B 22 20 20 GRAVEL:";D;" 000500: 42 52 49 43 4B 3A 22 3B 43 00 90 6F EE 02 B2 22 BRICK:";C..o..." 000510: 50 52 4F 47 52 45 53 53 20 2D 20 4C 41 59 45 52 PROGRESS - LAYER 000520: 53 20 54 4F 20 47 4F 3A 22 3B 28 59 CE 31 31 29 S TO GO:";(Y.11) 000530: D0 32 3B 22 20 54 48 45 20 42 41 53 45 20 4C 41 .2;" THE BASE LA 000540: 59 45 52 20 49 53 22 3B 46 3B 00 A4 6F F8 02 B2 YER IS";F;..o... 000550: 22 4D 45 54 45 52 53 20 57 49 44 45 2E 22 00 B6 "METERS WIDE.".. 000560: 6F FD 02 B2 3A B2 3A B2 40 31 32 38 2C 22 22 3B o...:.:.@128,""; 000570: 00 E1 6F 02 03 89 22 48 4F 57 20 4D 41 4E 59 20 ..o..."HOW MANY 000580: 4D 45 54 45 52 53 20 57 49 44 45 22 3B 5A 3A 8F METERS WIDE";Z:. 000590: 5A D4 31 30 30 CA 5A D5 31 30 30 00 FF 6F 0C 03 Z.100.Z.100..o.. 0005A0: 56 D5 D8 28 33 2E 31 34 31 36 CF 28 5A D0 32 29 V..(3.1416.(Z.2) 0005B0: CF 28 5A D0 32 29 CF 34 29 00 4B 70 10 03 89 22 .(Z.2).4).Kp..." 0005C0: 57 48 49 43 48 20 4D 41 54 45 52 49 41 4C 20 28 WHICH MATERIAL ( 0005D0: 53 41 4E 44 2C 20 47 52 41 56 45 4C 2C 20 4F 52 SAND, GRAVEL, OR 0005E0: 20 42 52 49 43 4B 29 20 46 4F 52 20 4E 45 58 54 BRICK) FOR NEXT 0005F0: 20 4C 41 59 45 52 22 3B 41 24 3A 41 24 D5 F8 28 LAYER";A$:A$..( 000600: 41 24 2C 31 29 00 6D 70 16 03 B2 40 30 2C 2C 2C A$,1).mp...@0,,, 000610: 2C 22 20 20 20 20 22 3A B2 3A B2 3A B2 3A 8F 59 ," ":.:.:.:.Y 000620: D4 31 37 CA B2 3A B2 00 79 70 18 03 B2 40 30 2C .17..:..yp...@0, 000630: 22 22 3B 00 86 70 20 03 8F 5A D6 31 CA 37 34 30 "";..p ..Z.1.740 000640: 00 A5 70 2A 03 8F 41 24 D5 22 53 22 CA 42 24 D5 ..p*..A$."S".B$. 000650: 22 53 41 4E 44 22 3A 41 D5 53 3A 91 38 37 30 00 "SAND":A.S:.870. 000660: C6 70 34 03 8F 41 24 D5 22 47 22 CA 42 24 D5 22 .p4..A$."G".B$." 000670: 47 52 41 56 45 4C 22 3A 41 D5 47 3A 91 39 30 30 GRAVEL":A.G:.900 000680: 00 E6 70 3E 03 8F 41 24 D5 22 42 22 CA 42 24 D5 ..p>..A$."B".B$. 000690: 22 42 52 49 43 4B 22 3A 41 D5 42 3A 91 39 33 30 "BRICK":A.B:.930 0006A0: 00 F8 70 48 03 8F 48 D5 31 CA 48 D5 30 3A 8D 39 ..pH..H.1.H.0:.9 0006B0: 38 30 00 07 71 52 03 8F 59 D5 31 31 CA 31 30 34 80..qR..Y.11.104 0006C0: 30 00 10 71 5C 03 8D 37 34 30 00 2A 71 66 03 45 0..q\..740.*qf.E 0006D0: D5 45 CE 56 3A 8F 45 D6 30 CA 45 D5 45 CD 56 3A .E.V:.E.0.E.E.V: 0006E0: 8D 39 36 30 00 39 71 70 03 8F 5A D4 46 CE 36 CA .960.9qp..Z.F.6. 0006F0: 48 D5 31 00 46 71 7A 03 46 D5 5A 3A 8D 39 37 30 H.1.Fqz.F.Z:.970 000700: 00 60 71 84 03 44 D5 44 CE 56 3A 8F 44 D6 30 CA .`q..D.D.V:.D.0. 000710: 44 D5 44 CD 56 3A 8D 39 36 30 00 6F 71 8E 03 8F D.D.V:.960.oq... 000720: 5A D4 46 CE 34 CA 48 D5 31 00 7C 71 98 03 46 D5 Z.F.4.H.1.|q..F. 000730: 5A 3A 8D 39 37 30 00 96 71 A2 03 43 D5 43 CE 56 Z:.970..q..C.C.V 000740: 3A 8F 43 D6 30 CA 43 D5 43 CD 56 3A 8D 39 36 30 :.C.0.C.C.V:.960 000750: 00 A5 71 AC 03 8F 5A D4 46 CE 32 CA 48 D5 31 00 ..q...Z.F.2.H.1. 000760: B2 71 B6 03 46 D5 5A 3A 8D 39 37 30 00 DD 71 C0 .q..F.Z:.970..q. 000770: 03 B2 3A B2 3A B2 22 4E 4F 54 20 45 4E 4F 55 47 ..:.:."NOT ENOUG 000780: 48 20 22 3B 42 24 3A B2 3A 81 49 D5 31 BD 32 30 H ";B$:.:.I.1.20 000790: 30 30 3A 87 49 3A 92 00 16 72 CA 03 81 58 D5 36 00:.I:...r...X.6 0007A0: 34 CE D8 28 5A D0 32 29 BD 36 33 CD D8 28 5A D0 4..(Z.2).63..(Z. 0007B0: 32 CD 2E 36 29 3A 83 28 58 2C 59 29 3A 83 28 58 2..6):.(X,Y):.(X 0007C0: 2C 59 CE 31 29 3A 87 58 3A 59 D5 59 CE 32 3A 92 ,Y.1):.X:Y.Y.2:. 0007D0: 00 41 72 D4 03 B2 40 30 2C 22 22 3A B2 3A B2 3A .Ar...@0,"":.:.: 0007E0: B2 22 20 2A 20 2A 20 2A 20 22 3B 42 24 3B 22 53 ." * * * ";B$;"S 0007F0: 4C 49 44 45 20 2A 20 2A 20 2A 22 00 52 72 DE 03 LIDE * * *".Rr.. 000800: 81 49 D5 31 BD 32 30 30 30 3A 87 49 00 8F 72 E0 .I.1.2000:.I..r. 000810: 03 84 3A B2 22 59 4F 55 20 42 55 49 4C 54 20 22 ..:."YOU BUILT " 000820: 3B 28 34 37 CE 59 29 D0 32 3B 22 20 4C 41 59 45 ;(47.Y).2;" LAYE 000830: 52 53 2E 20 54 48 41 54 27 53 20 51 55 49 54 45 RS. THAT'S QUITE 000840: 20 41 20 50 49 4C 45 2E 22 00 D2 72 E8 03 B2 3A A PILE."..r...: 000850: 89 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 ."WOULD YOU LIKE 000860: 20 54 4F 20 54 52 59 20 41 47 41 49 4E 22 3B 41 TO TRY AGAIN";A 000870: 24 3A 8F F8 28 41 24 2C 31 29 D5 22 4E 22 CA B2 $:..(A$,1)."N".. 000880: 22 4F 2E 4B 2C 20 42 59 45 22 3A 80 00 06 73 F2 "O.K, BYE":...s. 000890: 03 89 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B .."WOULD YOU LIK 0008A0: 45 20 54 4F 20 52 45 56 49 45 57 20 54 48 45 20 E TO REVIEW THE 0008B0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 41 24 INSTRUCTIONS";A$ 0008C0: 00 1B 73 FC 03 8F F8 28 41 24 2C 31 29 D5 22 4E ..s....(A$,1)."N 0008D0: 22 CA 37 33 30 00 24 73 06 04 8D 35 34 30 00 38 ".730.$s...540.8 0008E0: 73 10 04 B2 40 30 2C 2C 2C 2C 22 22 3A B2 3A B2 s...@0,,,,"":.:. 0008F0: 3A B2 00 53 73 1A 04 81 59 D5 34 37 BD 31 36 CC :..Ss...Y.47.16. 000900: CE 31 3A 82 28 36 34 2C 59 29 3A 87 59 00 6D 73 .1:.(64,Y):.Y.ms 000910: 24 04 81 59 D5 31 31 BD 30 CC CE 31 3A 83 28 36 $..Y.11.0..1:.(6 000920: 34 2C 59 29 3A 87 59 00 A0 73 2E 04 81 58 D5 36 4,Y):.Y..s...X.6 000930: 35 BD 37 39 3A 83 28 58 2C 30 29 3A 83 28 58 2C 5.79:.(X,0):.(X, 000940: 31 29 3A 83 28 58 2C 32 29 3A 83 28 58 2C 33 29 1):.(X,2):.(X,3) 000950: 3A 83 28 58 2C 34 29 3A 87 58 00 B5 73 38 04 B2 :.(X,4):.X..s8.. 000960: 41 24 3B 22 27 53 20 43 41 53 54 4C 45 22 3B 00 A$;"'S CASTLE";. 000970: BF 73 42 04 8D 31 30 39 30 00 00 00 .sB..1090... 9001 'RELOCATABLE Z-80 CODE 9002 POKE 16526,58:POKE 16527,178 9003 DEFINT A,I:READAD,AS:FORI=1TOAS:READAV:POKEAD+I-1,AV:NEXTI:RETURN 9004 DATA 0,-65536