Xz77gt

630 SYS AT,0,24:PRINT"[GREEM,
SPC3,SCUMBER OF CHARACTE
RS = 1[SPC12,HOMEr
:POKE 2023,32
640 CM:P5*1020PS
:POKE PS
P9,I1POKE 4 650,128
650 FOR . T.0 TO 1 STEP 0
:SET 1,43: 6$:1F GO"THEN NEXT
660 POKE IF GS.CHR$(13)THEN B113,
1/=STRUCO):505U9
5 4
720:T=1
INEXT:60SUB
2 7
1190:RETURN
670 IF
3
GOCHR$(20)AND
+
CO>1
HEN CO.00-1:POKE PX0,43
:POKE PS+C0
680 4, IF PEEK(PS‹041)032 OR
C0.255 1,32:6010 OR PX0=1983 THEN
7
NEXT
1 0
690 POKE PS+CO
3 :POKE PPCO
46:C0=C0+1
:POKE 3 54272+PK0,1
710 SYS 43 AT,25,24:PRINT STRIU
COPISPC2,HOMEMNEXT
720 EF=1:12$="
870 8$140/1"313":RETURN
880 XP.19:SYS AT,8,20
1PRINTIESUESS THAN?"
:SYS AT,18,20:60SUB 960
:14(5,1).1$
890 B$14,11=
900 1 XP:22:SYS AT,8,20
3< :PRINT"[SUREATER THAN?'
1 :SYS AT,21,20:GOSUB 960
:RETURN :13$(5,1)=1$
910 11$(40)="3>
1920
XP.23:SYS AT,13
:RETURN
1 :PRINT"( THAN OR :TO?'
20:SYS
A1,22,20:6OSUE 960
:8115,11=1$
930 13$(4,11="3(.
1940
XP.23:SYS AT,8,2a
:RETURN :PRINT') THEN OR =TO?'
:SYS AT,22,20:GOSUB 960
03$15,11=18
950 8$14,11=
1955
REM GRAPHICS CHAR IS CBM
3>e:RETUR
0 [CRP]
960 N PRINT'ECO,UPY
1 1PRINT"[YELLOW,SF]
:SYS AT,XP,YP:1$.""
:SYS IELD AT
:FOR 1.0 TO I STEP 0
1 . (SPC16,HOME)"
:SYS 51885:P.PEEKI254/
730 0,24 POKE STR251,01POKE
252,24 970 IF P.20 THEN 1$.LEFT$(1$,
:POKE CI 253,4SYS AT,13,24 PEEK12511)1NEXT
+11" HIP=14:YP.24:60SU9 960 980 IF P(>13 THEN 1$.10CHR$
740 NIF
1$."THEN 720
IP1:NEXT
750 AS=ASCIIEtIF A AS>64 AND 990 RETURN
A5(91 M THEN IOCHRWS4.128 1000 :
) E /
1010 REM TRANSFER FORMAT TO
760 B$12,11=1$:SYS 4
AT,0,24 MAIN PRO&
. :PRINT
1020 PRINT"[CLEAR)'
R1
CURSOR TO INPUT POS & :SYS AT,5,3:PRINT'(SP]
11C7,R
PRESSESPC,WHITE,SR,SE,ST, RESS 'R' TO RE-RUN
SU,SR,SN,HOMEI
6VSON,
1023 SYS AT,3,6:PRINT'EWHITE,
770 POKE 1SMAYE
2023,160
HAVE TOESPC,STIAPE OR
:POKE 1 56295,190:RETURN ESPC,SMISKIT/DP
780 POKE 7 T,CL:RETURN 1029 GET a:SYS AT,29,6
790 1
$
:PRINT 6$
800 REM
(
SET UP VARS FOR M/C 1031 1IF
G$="T"THEN PRINT'
INPUT
1
1DOW (DOWN,RIGHT3,SP)RESESPC,
810 K$411$(4,1]:POKE
$
251,0 N2] RVSON,SR1SE,ST,SU,SR,SN,
:POKE 252,61POKE 253,3 RVSOFF,SPC)T0 SAVE"
:YP.20 ,
L
:WAIT 197,1:OPEN 2,1,1,
820 ON ASC[10)-52 50SUB 830, I
880,900,920,940:RETURN
E
1035 FIF
6O
830 XP.21 N
11040
OIF
G$WPTHEN 1029
840 SYS C AT,8,20:PRINT'ESL1 R1050
RPRINT
TA13151
OWER I LIMIT
1 M
, IGOSUB $ 960:8$15,11=1$ 1060 THEN [DOWN3,SS]
AOPEN
15,8,15,
":SYS :POKE 1 251,0
1R
:OPEN TU
2,8,2,40
850 SYS A- T 4T,8,20:PRINT"[SO
,
10' N IFORMAT "
PPER 210 LIMIPESPC11,RVSON,
, 2
1070 I:
PRINTI2,FD:FOR 8.0 TO 6
CWISYS
0)
AT,20,20
:FOR S,11 G
1.0 TO FD
;GOSH 960:81(6,1).1$ 1O
IF 8$(6,14)=""THEN B$18,
860 IF VAL18$(6,11)(VALIB$I5, HI="
IOTHEN 840
T
1080
O
PRINT112,[4(5,H):NEXT
1
2
0
7
0
:NEXT
1090 IF 6l="0"THEN CLOSE 15
1100 CLOSE 2
1110 IF GO"T'THEN POKE 198,0
;GPO 1140
1120 PRINT"[CLEAR,00WN2]
/0R(6$)=
1EF5P1)
1230 [F1PAN REM ANY 4 DIRECTIONS
1240 D IF GWERIGHTI G
'AND $ < X(336 . " THEN X=X4.8
1250 IF 68="[LEFT]
LOAD
'AND X>24 THEN X=X-8
HR$(34)",8
1
1260 IF G$."[DOWN]
6CHR
:POKE 631,13 'AND Y(232 THEN Y=08
1130 1POKE $134 POKE 632,13:PRINT' 1270 IF Gle[UPPAND Y>58 TH
11"MF [DOWNCRUNEHOMErpNEW 9 8 , 2
1140 64.M PRINT"[CLEARI"
EN Y.Y-8
1280 REM CONTROL SPRITEI MSB
AIN. :SYS AT,2,61PRINT*ESCIND
0
TO MAIN PROGRAM & PRESS
1290 IF X)255 THEN POKE 016,
1:F.11POKE V,X-255
[SPC,RVSON,SR,SE,ST,SU :POKE 01,Y:NEXT:RETURN
SN,DOWN2] 1
1150 SR, GET 6$:1F G$OCHR$(13/T
HEN 1150
1300 IF F THEN FeO
:POKE 016,0
1310 8
1160 POKE 198,1:POKE 631,131
NEW
1170 1
1320 REM FLASH SPRITE
1330 POKE V,X:PCKE 01,Y;NEXT
:RETURN
1180 REM MAKE SOUND 1340 FOR W.0 TO 40:6ET 6$
1190 POKE 54276,65 :IF 6$0"THEN RETURN
:FOR DE=I TO 150:NEXT 1350 NEXT:POKE 021,0
:POKE 54276,0:RETURN
1200
1210 REM SPRITE MOVE ROUTINE
1360 FOR W=0 TO 40:6E1 G$
:IF 6$0"THEN POKE 021,1
:RETURN
1220 FOR T=0 TO-1 STEP 0 1370 NEXT:POKE 021,1
;SNUB 1340:T=16OCHR$113 :GOTO 1340