Willus.com
Home
|
Archive
|
About
CASTLE
(3384 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.
1 REM ************ CASTLE ************ 2 REM PROGRAMMER: MICHAEL SHLENKER(SOPHOMORE) 5 CLS 10 FOR A=35 TO 79:SET(A,27): NEXT A 20 FOR B=37 TO 77:SET(B,33): NEXT B 30 FOR C=32 TO 44:SET(C,39): NEXT C 40 FOR D=69 TO 82:SET(D,39): NEXT D 50 FOR E=43 TO 71:SET(E,41): NEXT E 60 FOR F=19 TO 35:SET(37,F): NEXT F 70 FOR G=17 TO 35:SET(77,G): NEXT G 80 SET(40,28):SET(41,28):SET(46,28):SET(47,28):SET(52,28):SET(53,28):SET(58,28):SET(59,28):SET(64,28):SET(65,28) 81 SET(70,28):SET(71,28):SET(76,28) 90 FOR H=40 TO 47:SET(35,H): NEXT H 100 FOR I=40 TO 47:SET(42,I): NEXT I 110 FOR J=40 TO 47:SET(72,J): NEXT J 120 FOR K=40 TO 47:SET(79,K): NEXT K 130 SET(38,35):SET(39,35) 140 FOR L=37 TO 40:SET(L,36): NEXT L 150 FOR M=36 TO 41:SET(M,37): NEXT M 160 FOR N=35 TO 42:SET(N,38): NEXT N 170 SET(75,35):SET(76,35) 180 FOR O=74 TO 77:SET(O,36): NEXT O 190 FOR P=73 TO 78:SET(P,37): NEXT P 200 FOR Q=72 TO 79:SET(Q,38): NEXT Q 210 SET(33,26):SET(34,26):SET(80,26):SET(81,26) 220 FOR R=21 TO 25:SET(31,R): NEXT R 230 FOR S=21 TO 25:SET(32,S): NEXT S 240 FOR T=21 TO 25:SET(82,T): NEXT T 250 FOR U=21 TO 25:SET(83,U): NEXT U 260 FOR V=33 TO 36:SET(V,21): NEXT V 270 FOR W=78 TO 83:SET(W,21): NEXT W 280 FOR X=38 TO 47:SET(X,19): NEXT X 290 FOR Y=68 TO 76:SET(Y,19): NEXT Y 300 FOR Z=46 TO 52:SET(Z,17): NEXT Z 310 FOR A=62 TO 69:SET(A,17): NEXT A 320 FOR B=52 TO 55:SET(B,14): NEXT B 330 FOR C=60 TO 63:SET(C,14): NEXT C 340 FOR D=54 TO 61:SET(D,12): NEXT D 350 SET(54,13):SET(55,13):SET(60,13):SET(61,13) 360 FOR E=15 TO 16:SET(52,E): NEXT E 370 FOR F=15 TO 16:SET(53,F): NEXT F 380 FOR G=15 TO 16:SET(62,G): NEXT G 390 FOR H=15 TO 16:SET(63,H): NEXT H 400 SET(46,18):SET(47,18):SET(68,18):SET(69,18) 410 FOR I=30 TO 32:SET(40,I): NEXT I 420 FOR J=30 TO 32:SET(41,J): NEXT J 430 FOR K=30 TO 32:SET(44,K): NEXT K 440 FOR L=30 TO 32:SET(45,L): NEXT L 450 FOR M=30 TO 32:SET(54,M): NEXT M 460 FOR N=30 TO 32:SET(55,N): NEXT N 470 FOR O=30 TO 32:SET(60,O): NEXT O 480 FOR P=30 TO 32:SET(61,P): NEXT P 490 FOR Q=30 TO 32:SET(64,Q): NEXT Q 500 FOR R=30 TO 32:SET(65,R): NEXT R 510 FOR S=30 TO 32:SET(70,S): NEXT S 520 FOR T=30 TO 32:SET(71,T): NEXT T 530 FOR U=30 TO 32:SET(74,U): NEXT U 540 FOR V=30 TO 32:SET(75,V): NEXT V 550 SET(42,30):SET(43,30):SET(52,30):SET(53,30):SET(62,30):SET(63,30):SET(72,30):SET(73,30) 560 FOR W=24 TO 26:SET(41,W): NEXT W 570 FOR X=24 TO 26:SET(48,X): NEXT X 580 FOR Y=24 TO 26:SET(54,Y):NEXT Y 590 FOR Z=24 TO 26:SET(61,Z):NEXT Z 600 FOR A=24 TO 26:SET(67,A):NEXT A 610 FOR B=24 TO 26:SET(74,B):NEXT B 620 SET(42,43):SET(43,22):SET(44,21):SET(45,21):SET(46,22):SET(47,23) 630 SET(55,23):SET(56,22):SET(57,21):SET(58,21):SET(59,22):SET(60,23) 640 SET(68,23):SET(69,22):SET(70,21):SET(71,21):SET(72,22):SET(73,23) 650 SET(31,20):SET(32,19):SET(33,18):SET(34,18):SET(35,19):SET(36,20) 660 SET(78,20):SET(79,19):SET(80,18):SET(81,18):SET(82,19):SET(83,20) 670 FOR C=11 TO 16:SET(77,C): NEXT C 680 FOR D=11 TO 18:SET(38,D): NEXT D 690 FOR E=1 TO 11:SET(57,E):NEXT E 700 FOR F=7 TO 11:SET(58,F):NEXT F 710 FOR G=58 TO 61:SET(G,1):NEXT G 720 FOR H=62 TO 65:SET(H,2):NEXT H 730 FOR I=66 TO 69:SET(I,3):NEXT I 740 FOR J=70 TO 71:SET(J,4):NEXT J 750 FOR K=66 TO 69:SET(K,5):NEXT K 760 FOR L=59 TO 64:SET(L,6):NEXT L 770 FOR M=32 TO 37:SET(M,11):NEXT M 780 FOR N=28 TO 31:SET(N,12):NEXT N 790 FOR O=24 TO 27:SET(O,13):NEXT O 800 FOR P=28 TO 31:SET(P,14):NEXT P 810 FOR Q=32 TO 37:SET(Q,15): NEXT Q 820 FOR R=78 TO 87:SET(R,11): NEXT R 830 FOR S=86 TO 89:SET(S,12): NEXT S 840 FOR T=91 TO 92:SET(T,13): NEXT T 850 FOR U=82 TO 89:SET(U,14): NEXT U 860 FOR V=78 TO 81:SET(V,15): NEXT V 870 FOR W=45 TO 47:SET(52,W): NEXT W 880 FOR X=45 TO 47:SET(60,X): NEXT X 890 SET(53,44):SET(54,43):SET(55,42):SET(56,42):SET(57,42):SET(58,43):SET(59,44) 900 SET(38,41):SET(76,41):SET(38,44):SET(76,44) 910 FOR Y=42 TO 43:SET(37,Y): NEXT Y 920 FOR Z=42 TO 43:SET(39,Z): NEXT Z 930 FOR A=42 TO 43:SET(75,A): NEXT A 940 FOR B=42 TO 43:SET(77,B): NEXT B 960 SET(42,23) 970 FOR C=30 TO 32:SET(50,C): NEXT C 971 FOR D=30 TO 32:SET(51,D): NEXT D 980 SET(32,21):SET(53,17) 990 FOR E=64 TO 68:SET(E,43): NEXT E 1000 FOR F=68 TO 70:SET(F,44): NEXT F 1010 SET(46,44):SET(47,44):SET(48,45):SET(49,45):SET(46,46):SET(47,46) 1020 FOR X=1 TO 7000:NEXT X