C64 Software  <  SCA: The C64 Software Collection / WINTERCOMPACTOR

10 IFPEEK(56)<>12THENPOKE56,12:POKE55,0:CLR:GOSUB1000
20 IFATHEN60
30 PRINT"
40 INPUT"";A$:A=1:LOADA$,8,8
50 :
60 E=USR(174)+256*USR(175)−1
70 PRINT""E
80 PRINT"",4096
90 :
100 Q=3072:FORI=4096TOE:A=USR(I):B=USR(I+1):C=USR(I+2)
110 IFA=0THENIFB=0THEN200
120 IFA=BTHENIFC=BTHEN300
130 IFA=191THENPOKEQ,207:Q=Q+1:POKEQ,1:Q=Q+1:GOTO150
140 IFA=207THENPOKEQ,A:Q=Q+1:POKEQ,1:Q=Q+1
150 POKEQ,A:Q=Q+1:PRINT"",,I,Q:NEXT
160 PRINT""CHR$(34)A$CHR$(34)""Q:PRINT"":END
170 :
200 POKEQ,191:Q=Q+1:Z=1
210 IFUSR(I+Z)=0THENIFZ<255THENZ=Z+1:GOTO210
220 I=I+Z−1:A=Z:GOTO150
230 :
300 POKEQ,207:Q=Q+1:Z=1
310 IFUSR(I+Z)=ATHENIFZ<255THENZ=Z+1:GOTO310
320 I=I+Z−1:POKEQ,Z:Q=Q+1:GOTO150
330 :
1000 FORI=704TO738:READY:S=S+Y:POKEI,Y:NEXT
1010 POKE785,192:POKE786,2:RETURN
1020 DATA165,21,72,165,20,72,32,247,183
1030 DATA120,165,1,72,169,53,133,1,160
1040 DATA0,177,20,168,104,133,1,104,133
1050 DATA20,104,133,21,88,76,162,179
READY.
