Willus.com
Home
|
Archive
|
About
CASSHOT1.BAS
(8418 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.
ÿ_jd “ * CASTLE SHOT * hjx ¸ 50 rjŒ ™ AÎZ €j A$ Õ "RB" ‡j´ „ “jÈ Z Õ 74 ¦jÜ Y Õ 17 ½ 47 ¹jð X Õ Z ½ 127 Æj ƒ (X,Y) Ïj ‡ X éj, Y Ö 23 Ê Z Õ Z Í 2 òj@ ‡ Y kT X Õ 75 ½ 123 Ì 4 kh ƒ (X,16) (k| ƒ (XÍ1,16) 1k ‡ X <k¤ Q Õ 0 Tk¸ X Õ 95 ½ 125 Ì 5 lkÌ Y Õ 47 ½ 35 Ì Î1 ykà ‚ (X,Y) ‚kô ‡ Y ‹k ‡ X Ÿk X Õ 95 ½ 125 k0 ‚ (X,34) ¶kD ‡ X ñkX“ WILL PRINT A$ INITIALS: PRINT@ 688, A$;"'S CASTLE"; ll X Õ 73 ½ 100 l€ ƒ (X,12) !l” ƒ (X,13) *l¨ ‡ X =l¼ X Õ 85 ½ 95 KlÐ ƒ (X,14) Ylä ƒ (X,15) blø ‡ X ql ‚ (90,13) €l ‚ (91,13) ‘l4 Z Õ 1 ½ 3 £lH X Õ 2 ½ 14 ¶l\ Y Õ 40 ½ 43 Ãlp ƒ (X,Y) Ìl„ ‡ Y Õl˜ ‡ X ël¬ X Õ 3 ½ 13 Ì 2 ùlÀ ‚ (X,41) mÔ ‡ X mè ‚ (7,43) mü ‚ (8,43) Gm “ --- THIS MAKES THE CANNON RECOIL `m$ X Õ 1 ½ 100 : ‡ X om8 ‚ (73,12) ~mL ‚ (73,13) m` ‚ (74,12) œmt ‚ (74,13) ¬mˆ ƒ (101,12) ¼mœ ƒ (101,13) Ìm° ƒ (102,12) ÜmÄ ƒ (102,13) õmØ X Õ 1 ½ 100 : ‡ X nì ƒ (74,12) n ƒ (74,13) "n ƒ (73,12) 1n( ƒ (73,13) An< ‚ (102,12) QnP ‚ (102,13) and ‚ (101,12) qnx ‚ (101,13) xnŒ “ n X Õ 71 ½ 2 Ì Î1 Ÿn´ P Õ X Î 73 ¹nÈ Y Õ P Ï P Ð 150 Í 12 ÆnÜ ƒ (X,Y) Õnð ƒ (XÎ1,Y) än ‚ (XÍ1,Q) ñn ‚ (X,Q) ün, Q Õ Y o@ ‡ X oT ²@ 771, "KAPOW!"; (oh ‘ 1800 :o| X Õ 1 ½ 18 Ho ‚ (X,45) Vo¤ ‚ (X,36) do¸ ‚ (X,37) moÌ ‡ X voà ‡ Z oô 1880 •o X Õ 1 ½ 1000 žo ‡ X ¥o0 ’ ÒoD“ SNOOPY BY T.N. KASPER. JANUARY 5, 1978 ØoX„ ïolAÕ14½22:ƒ(A,0):‡A p€BÕ12½15:ƒ(B,1):‡B p”CÕ21½24:ƒ(C,1):‡C 4p¨DÕ40½45:ƒ(D,1):‡D Kp¼EÕ10½12:ƒ(E,2):‡E bpÐFÕ21½25:ƒ(F,2):‡F ypäGÕ36½39:ƒ(G,2):‡G pøHÕ45½47:ƒ(H,2):‡H ¦p IÕ9½10:ƒ(I,3):‡I ²p ƒ(12,3) Ép4JÕ23½35:ƒ(J,3):‡J àpHKÕ45½49:ƒ(K,3):‡K q\ƒ(7,4):ƒ(8,4):ƒ(13,4):ƒ(23,4) qpLÕ50½56:ƒ(L,4):‡L Kq„ƒ(5,5):ƒ(6,5):ƒ(14,5):ƒ(15,5):ƒ(21,5):ƒ(22,5) bq˜MÕ53½57:ƒ(M,5):‡M •q¬ƒ(4,6):ƒ(16,6):ƒ(19,6):ƒ(20,6):ƒ(21,6):ƒ(27,6) ¡qÀƒ(28,6) ¸qÔNÕ53½57:ƒ(N,6):‡N Öqèƒ(3,7):PÕ16½20:ƒ(P,7):‡P íqüQÕ52½56:ƒ(Q,7):‡Q r ƒ(2,8):ƒ(19,8):ƒ(50,8):ƒ(51,8) 6r$ ƒ(2,9):ƒ(19,9):RÕ28½49:ƒ(R,9):‡R Lr8 ƒ(18,13):ƒ(25,13) ‹rL ƒ(1,10):ƒ(18,10):ƒ(27,10):ƒ(1,11):ƒ(8,11):ƒ(9,11):ƒ(10,11) Ãr` ƒ(18,11):ƒ(26,11):ƒ(26,11):ƒ(1,12):ƒ(7,12):ƒ(11,12) Ðrt ƒ(18,12) þrˆ ƒ(25,12):ƒ(1,13):ƒ(6,13):ƒ(7,13):ƒ(12,13) sœ ƒ(18,13):ƒ(25,13) :s° ƒ(1,14):ƒ(7,14):ƒ(12,14):ƒ(13,14) PsÄ ƒ(18,14):ƒ(25,14) vsØ ƒ(2,15):ƒ(8,15):ƒ(12,15):ƒ(19,15) ƒsì ƒ(26,15) ²s ƒ(2,16):ƒ(9,16):ƒ(10,16):ƒ(11,16):ƒ(19,16) Ðs ƒ(27,16):ƒ(3,17):ƒ(19,17) t( AÕ28½37:ƒ(A,17):‡A:ƒ(46,17):ƒ(47,17):ƒ(48,17) t< AÕ51½54:ƒ(A,17):‡A BtP ƒ(4,18):ƒ(20,18):ƒ(21,18):ƒ(22,18) jtd ƒ(36,18):ƒ(44,18):ƒ(45,18):ƒ(50,18) €tx ƒ(51,18):ƒ(54,18) °tŒ ƒ(5,19):ƒ(22,19):ƒ(35,19):ƒ(44,19):ƒ(53,19) ßt ƒ(6,20):ƒ(7,20):ƒ(22,20):ƒ(33,20):ƒ(43,20) u´ ƒ(49,20):ƒ(53,20):ƒ(8,21):ƒ(9,21) &uÈ AÕ24½33:ƒ(A,21):‡A:ƒ(42,21) >uÜ AÕ49½52:ƒ(A,21):‡A Vuð AÕ10½12:ƒ(A,22):‡A ~u ƒ(26,22):ƒ(27,22):ƒ(31,22):ƒ(32,22) ”u ƒ(41,22):ƒ(48,22) µu, AÕ13½25:ƒ(A,23):‡A:ƒ(32,23) Ëu@ ƒ(40,23):ƒ(47,23) óuT ƒ(25,24):ƒ(33,24):ƒ(39,24):ƒ(46,24) vh ƒ(25,25):AÕ34½38:ƒ(A,25):‡A:ƒ(45,25) 3v| ƒ(26,26):ƒ(44,26) [v ƒ(27,30):ƒ(33,30):ƒ(46,30):ƒ(47,30) zv¤ ƒ(38,26):ƒ(39,26):ƒ(43,26) «v¸ ƒ(27,27):ƒ(28,27):ƒ(38,27):ƒ(39,27):ƒ(43,27) ÌvÌ ƒ(28,28):AÕ40½43:ƒ(A,28):‡A ývà ƒ(28,29):ƒ(32,29):ƒ(43,29):ƒ(44,29):ƒ(45,29) .wô ƒ(27,31):ƒ(29,31):ƒ(34,31):ƒ(48,31):ƒ(49,31) Vw ƒ(26,32):ƒ(30,32):ƒ(35,32):ƒ(50,32) ‡w ƒ(26,33):ƒ(31,33):ƒ(35,33):ƒ(36,33):ƒ(51,33) ¸w0 ƒ(26,34):ƒ(31,34):ƒ(36,34):ƒ(37,34):ƒ(51,34) àwD ƒ(25,35):ƒ(31,35):ƒ(38,35):ƒ(50,35) xX ƒ(25,36):ƒ(31,36):ƒ(39,36):ƒ(49,36) 9xl ƒ(25,37):ƒ(29,37):ƒ(37,37):ƒ(38,37):ƒ(48,37) Zx€ ƒ(26,38):AÕ30½33:ƒ(A,38):‡A px” ƒ(38,38):ƒ(47,38) ˆx¨ AÕ27½29:ƒ(A,39):‡A x¼ AÕ33½37:ƒ(A,39):‡A ¸xÐ AÕ44½46:ƒ(A,39):‡A éxä ƒ(30,40):ƒ(31,40):ƒ(33,40):ƒ(41,40):ƒ(46,40) yø ƒ(32,41):ƒ(33,41):ƒ(41,41):ƒ(46,41) 'y ƒ(33,42):ƒ(41,42) ?y AÕ46½56:ƒ(A,42):‡A gy4 ƒ(33,43):ƒ(41,43):ƒ(56,43):ƒ(57,43) tyH ƒ(32,44) Œy\ AÕ41½51:ƒ(A,44):‡A ¢yp ƒ(56,44):ƒ(57,44) ¸y„ ƒ(31,45):ƒ(32,45) Ðy˜ AÕ51½56:ƒ(A,45):‡A øy¬ ƒ(31,46):ƒ(32,46):ƒ(51,46):ƒ(52,46) zÀ AÕ32½51:ƒ(A,47):‡A CzÔ ²@271," * * * * * * CURSE YOU RED BARON !!!!"; dzè ²@936,"TOM KASPER 5 JAN 78"; uzü NÕ0½5000:‡N œz“ * TRS-80 GRAPHICS STAR PROGRAM * ¶z$“ * DRAW INVERTED V * Çz8¸ 50 : ™ AÎZ ÍzL„ Ûz` YÕ0 ½ 2 îzt A Õ 0 ½ 47ÎY þzˆƒ(64ÍA,YÍA) {œƒ(63ÎA,YÍA) {°‡ A {ć Y ={Ø“ * DRAW HORIZONTAL LINE * M{ì XÕ0 ½ 127 Y{ ƒ(X,20) a{‡ X ‰{(“ * DRAW LEFT DESCENDING DIAGONAL * “{<B Õ 4 £{P XÕ0 ½ 127 ³{dƒ(X,20ÍXÐB) Ì{x 20ÍXÐB Ô 47 Ê 4020 Ô{Œ‡ X ý{ “ * DRAW RIGHT DESCENDING DIAGONAL * |´ XÕ127 ½ 0 Ì Î1 (|ȃ(X,20Í(127ÎX)ÐB) G|Ü 20Í(127ÎX)ÐB Ô 47 Ê 4120 O|ð‡ X r|“ * PAUSE AND REVERSE SCREEN * ‰| XÕ0 ½ 3000 : ‡ X ž|,“ * PRINT LOGO * Ä|@„:²@35,"FROM DUNGEONS & DRAGONS"; ë|T²@142,"****** *****";:²@80,"***"; }h²@203,"********************"; 2}|²@266,"***************** ****"; V}²@332,"********";:²@399,"****"; ‚}¤XÕ61½66:ƒ(X,15):‡X:XÕ58½69:ƒ(X,16):‡X ®}¸XÕ55½72:ƒ(X,17):‡X:XÕ52½75:ƒ(X,18):‡X å}ÌYÕ19½30:XÕ52½53:ƒ(X,Y):‡X:‡Y:XÕ74½75:ƒ(X,19):‡X ~àYÕ27½30:XÕ74½75:ƒ(X,Y):‡X:‡Y >~ôYÕ30½31:XÕ54½55:ƒ(X,Y):‡X:XÕ72½73:ƒ(X,Y):‡X:‡Y t~YÕ31½33:XÕ56½57:ƒ(X,Y):‡X:XÕ70½71:ƒ(X,Y):‡X:‡Y ©~ XÕ54½73:ƒ(X,34):‡X:XÕ52½55:ƒ(X,35):‡X:XÕ72½75 à~0ƒ(X,35):‡X:XÕ50½53:ƒ(X,36):‡X:XÕ74½77:ƒ(X,36):‡X DXÕ71½75:ƒ(X,22):‡X:YÕ21½25:XÕ78½79:ƒ(X,Y):‡X:‡Y PXYÕ22½24Ì2:XÕ56½63:ƒ(X,Y):‡X:‡Y:XÕ56½57:ƒ(X,23):‡X ‰lXÕ60½61:ƒ(X,23):‡X:XÕ62½65:YÕ21½25Ì4:ƒ(X,Y):‡Y:‡X ®€XÕ64½79:YÕ20½26Ì6:ƒ(X,Y):‡Y:‡X ç”YÕ22½24:XÕ18½30:ƒ(X,Y):‡X:‡Y:XÕ19½29Ì2:‚(X,23):‡X #€¨XÕ19½29:ƒ(X,25):ƒ(X,33):‡X:XÕ20½28:ƒ(X,26):ƒ(X,32):‡X O€¼XÕ21½27:ƒ(X,27):‡X:XÕ22½26:ƒ(X,28):‡X r€ÐXÕ23½25:YÕ29½31:ƒ(X,Y):‡Y:‡X €äXÕ103½104:YÕ15½36:ƒ(X,Y):‡Y:‡X:XÕ103½104:‚(X,16):‡X ç€øYÕ15½17:XÕ101½102:ƒ(X,Y):‡X:XÕ105½106:ƒ(X,Y):‡X:‡Y XÕ94½113:ƒ(X,20):‡X:XÕ101½106:ƒ(X,35):‡X N XÕ87½93:ƒ(X,30):‡X:XÕ114½120:ƒ(X,30):‡X:XÕ98½109 ‡4ƒ(X,34):‡X:XÕ89½96:ƒ(X,31):‡X:XÕ111½118:ƒ(X,31):‡X µHXÕ91½99:ƒ(X,32):‡X:XÕ108½116:ƒ(X,32):‡X ä\XÕ94½101:ƒ(X,33):‡X:XÕ106½113:ƒ(X,33):‡X ùp XÕ0 ½ 3000:‡ X ‚„„:LÕ1½24:‹Y,C:MÕ1½C:‹A,B:NÕA½B 3‚˜ƒ(N,Y):‡N:‡M:‡L z‚¬ˆ5,10,15,20,24,29,36,39,45,50,54,61,74,81,84,89,94,101,104,105,110 ƒ‚Àˆ111 É‚Ôˆ6,15,14,15,20,21,24,25,29,30,35,36,39,40,44,45,50,51,54,55,77,78 ƒèˆ84,85,89,90,94,95,104,105,110,111,7,13,14,15,24,25,30,31,34,35,40 Wƒüˆ41,44,45,54,55,77,78,84,85,90,91,94,95,104,105,109,110,8,13,14,15 œƒˆ24,25,30,31,34,35,40,41,44,45,54,55,77,78,84,85,90,91,94,95,104 âƒ$ˆ105,108,109,9,13,15,20,24,25,29,30,34,35,40,41,44,45,54,55,77,78 )„8ˆ84,85,89,90,94,95,104,105,107,108,10,9,20,21,24,29,34,41,44,45,54 o„Lˆ59,77,78,84,88,94,99,104,107,11,12,20,21,24,25,34,35,40,41,44,45 ´„`ˆ54,55,77,78,84,85,88,89,94,95,104,105,108,109,12,14,14,15,20,21 ù„tˆ24,25,34,35,40,41,44,45,50,51,54,55,77,78,84,85,89,90,94,95,104 (…ˆˆ105,109,110,13,12,15,20,24,25,34,35,40,41 b…œˆ45,50,54,61,77,78,84,85,90,91,94,101,104,105,110,111 Œ…°ˆ30,1,10,58,31,2,9,53,92,97,32,2,9,53 DžĈ72,115,33,2,10,58,70,117,34,2,41,45,69,119,35,2,43,47 ð…؈70,117,36,2,45,49,72,115,37,3,47,51 (†ìˆ71,81,93,96,38,2,49,53,70,79,39,2,51,65,69,77,40,1 _† ˆ45,79,41,1,41,80,42,1,39,81,43,1,41,80,44,1,44,79 q† XÕ1½5000:‡X |†(¸ 50:„ ¢†<²@ 960,"SANTA by Frederick Crane" ̆P²"SOFTSIDE MAGAZINE / December 1978"; ë†dƒ(55,13):ƒ(56,12):ƒ(57,11) ÿ†x XÕ58 ½ 64 Ì 2 ‡ŒYÕ(78ÎX)Ð2 "‡ ƒ(X,Y):ƒ(XÍ1,Y) *‡´‡ X :‡È XÕ66 ½ 74 I‡Üƒ(X,6):‡ X ]‡ðƒ(74,7):ƒ(75,7) y‡ƒ(76,7):ƒ(75,8):ƒ(76,8) ›‡ XÕ74 ½ 77: YÕ9 ½ 10:ƒ(X,Y) §‡,‡ Y:‡ X »‡@ƒ(70,7):ƒ(71,7) Õ‡T XÕ68 ½ 72:ƒ(X,XÎ59) ݇h‡ X ý‡| XÕ54 ½ 73:ƒ(X,14):ƒ(X,15) ˆ‡ X: YÕ16 ½ 19:ƒ(56,Y) )ˆ¤ƒ(71,Y):‡ Y ?ˆ¸ƒ(58,17):ƒ(59,17) ^ˆÌƒ(68,17):ƒ(69,17):ƒ(63,18) ˆàƒ(64,18): XÕ53 ½ 74:ƒ(X,20) ‡ˆô‡ X ªˆ XÕ57 ½ 70: YÕ21 ½ 25:ƒ(X,Y) ¶ˆ ‡ Y:‡ X Òˆ0 XÕ59 ½ 68:ƒ(X,26):‡ X îˆD XÕ61 ½ 66:ƒ(X,27):‡ X ‰Xƒ(63,28):ƒ(64,28) !‰l²@ 729,"MERRY CHRISTMAS" 6‰€ TÕ1 ½ 1000:‡ T U‰”ƒ(73,22):ƒ(74,23):ƒ(75,23) t‰¨ƒ(75,22):ƒ(76,21):ƒ(77,20) “‰¼ƒ(77,19):ƒ(77,18):ƒ(78,17) ‰Ðƒ(78,17) ¼‰ä XÕ79 ½ 97:ƒ(X,16):‡ X Ò‰øƒ(98,17):ƒ(99,18) è‰ ƒ(99,19):ƒ(99,20) ý‰ XÕ97 ½ 79 Ì Î1 Š4ƒ(X,21):‡ X:ƒ(78,22) ,ŠH ZÕ424 ½ 430 Ì 3 KŠ\‚(63,21):‚(64,21):‚(62,21) cŠp‚(65,21):²@ Z,"HO"; wŠ„ TÕ1 ½ 180:‡ T –Š˜ƒ(65,21):ƒ(62,21):ƒ(64,21) ²Š¬ƒ(63,21): TÕ1 ½ 70:‡ T ºŠÀ‡ Z ãŠÔ TÕ1 ½ 500:‡ T: ²@ 424," "; ÷Šè TÕ1 ½ 500:‡ T ‹ü Z1Ö3 Ê Z1ÕZ1Í1 : 5960 ‹ 120 %‹$€