C64 Software  <  SCA: The C64 Software Collection / FROSCH

0 V=13*4096:POKEV+24,21:POKEV+32,3:POKEV+33,0:CO=V+256*8:CRT=1024
4 :
13 :
14 :
80 MODE=0
90 PG$="":NM$="":GOTO62000
100 :
110 F=42:FC=20
120 GOTO1500
140 P=0:C=9:M=CRT+542:K=M:L=M:I=9:J=9:
145 Q=13*4096+4*256:POKEQ+4,32:POKEQ+11,0:POKEQ+18,0:POKEQ+24,15
146 POKEQ+2,0:POKEQ+3,8:POKEQ+5,0:POKEQ+6,240:POKEQ+23,240
150 Y=0:CC=CRT+142:DD=CRT+702:EE=CRT+502:FF=CRT+302:G=CRT+790
170 PRINT"";:O=500+E:X=CRT+39
200 A$="":B$=""
210 C$=""
220 PRINT:PRINT""TAB(35)""
230 PRINTTAB(33)"":R$=""
240 PRINTTAB(33)""
250 PRINTTAB(33)""
260 PRINTTAB(33)""
270 PRINT""SPC(19)""
280 PRINT""SPC(18)""
290 PRINT"";
300 PRINT"";
310 PRINT"";
320 PRINT""R$;
330 IFMO>0THENPRINT""T"";
331 IFMO=0THENPRINT"";
335 POKECRT+999,160:POKECO+999,14
350 PRINT""
360 PRINT""
370 PRINT""
380 PRINT""
390 PRINT""
400 PRINT""
410 PRINT"
420 PRINT"
430 PRINT"
440 PRINT"
450 PRINT"
460 PRINT"
470 PRINTSPC(9)""
480 O=O−(Y+E)
500 POKEQ+1,255:POKEQ+4,33:O=O−1−E/15:POKEQ+4,0:IFO<0THENO=0
508 PRINT""INT(O)"";TAB(29)P;"":IFO<1THEN1230
509 FORI=40*TTO240:NEXT
510 IFMODE>0THEN520
511 GETD$:IFD$>""THENPOKE198,0:MODE=1:PN=0:GOSUB62000:GOTO120
512 IFG>CRT+260ANDGCRT+420ANDGCRT+580ANDGCRT+560THEND%=D%−3
519 Y=D%:GOTO550
520 GETD$:IFD=1ANDD$=""THEN1740
530 IFD$=""THENPOKEM,32:GOTO750
534 IFD$=""THEN1230
540 Y=VAL(D$):IFY<1THEN520
550 IFY=1ORY=4ORY=7THENX=6:GOTO580
560 IFY=2ORY=5ORY=8THENX=12:GOTO580
570 IFY=3ORY=6ORY=9THENX=18
580 IFY>6THEN660
590 IFY>3THEN630
600 POKEQ+1,0:POKEQ+4,33:PRINTA$;:FORA=1TOX:PRINT"";:POKEQ+1,A*2
610 B=A:AA=CRT+572+A:IFPEEK(AA)=FTHENGOSUB1160:A=X
620 NEXT:FORX=1TOB:PRINT"";:NEXT:PRINT"":POKEQ+4,0:GOTO690
630 GOSUB840:POKEQ+1,0:POKEQ+4,33::PRINTB$;:FORA=1TOX:PRINT"";
640 POKEQ+1,A*2:B=A:AA=CRT+412+A:IFPEEK(AA)=FTHENGOSUB1160:A=X
650 NEXT:FORX=1TOB:PRINT"";:NEXT:PRINT"":POKEQ+4,0:GOTO690
660 GOSUB840:POKEQ+1,0:POKEQ+4,33:GOSUB1000:PRINTC$;:FORA=1TOX:PRINT"";
670 POKEQ+1,A*2:B=A:AA=CRT+252+A:IFPEEK(AA)=FTHENGOSUB1160:A=X
680 NEXT:FORX=1TOB:PRINT"";:NEXT:PRINT"":POKEQ+4,0:GOSUB840
690 IFAA=KTHENK=EE:GOTO720
700 IFAA=LTHENL=EE−40:GOTO720
710 IFAA=MTHENM=EE−80
720 Y=X:IFD=1THENY=Y/3
730 IFZ=95THENZ=0:O=O+(Y+E)
740 POKE198,0:FC=20:GOTO350
750 N=RND(1):POKEK,32:POKEL,32:POKEM,32
760 IFN<.1126THENPOKEQ+1,240:POKEQ+4,33:M=M+1:K=K−41:L=L+40:C=C−1:I=I−1:GOTO800
770 IFN<.2253THENPOKEQ+1,248:POKEQ+4,33:M=M−1:K=K−1:L=L−1:C=C−1:I=I−1:J=J−1:GOTO800
780 IFN<.5379THENPOKEQ+1,255:POKEQ+4,33:M=M+40:K=K−39:L=L−40:I=I+1:GOTO800
790 M=M−40:K=K+1:L=L+41:I=I+1:J=J+1
800 POKEQ+4,0:IFMDDORC<1ORC>17THENC=9:M=EE
810 POKECO+M−CR,1:POKEM,F:IFLDDORJ<1ORJ>17THENJ=9:L=EE
820 POKECO+L−CR,1:POKEL,F:IFKDDORI<1ORI>17THENI=9:K=EE
822 IFM=LORM=KORL=KTHEN750
824 POKECO+L−CR,1:POKECO+K−CR,1:POKECO+M−CR,1:POKEL,F:POKEK,F:POKEM,F:GOTO500
840 PRINT""
850 PRINT""
860 PRINT""
870 PRINT""
880 PRINT""
890 PRINT""
900 PRINT""
910 PRINT""
920 PRINT""
930 PRINT""
940 PRINT""
950 PRINT""
960 PRINT""
970 PRINT""
980 PRINT"
990 PRINT"":RETURN
1000 PRINT""
1010 PRINT""
1020 PRINT""
1030 PRINT""
1040 PRINT""
1050 PRINT""
1060 PRINT""
1070 PRINT"
1080 PRINT""
1090 PRINT""
1100 PRINT""
1110 PRINT""
1120 PRINT""
1130 PRINT""
1140 PRINT"
1150 PRINT"":RETURN
1160 IFPEEK(AA−40)=FTHENP=P+1:O=O+40
1170 IFPEEK(AA+40)=FTHENP=P+1:O=O+40
1180 IFPEEK(AA+1)=FTHENP=P+1:O=O+40
1185 AC=CO+AA−CRT:POKEQ+1,A
1190 POKEAA,170:POKEAA−40,160:POKEAA+40,160:POKEAA−1,160:POKEAA+1,160
1195 POKEAC,4:POKEAC−40,4:POKEAC+40,4:POKEAC−1,4:POKEAC+1,4:POKEQ+1,A*4
1200 POKEAC,2:POKEAC−40,2:POKEAC+40,2:POKEAC−1,2:POKEAC+1,2
1205 POKEAA,32:POKEAA−40,32:POKEAA+40,32:POKEAA−1,32:POKEAA+1,32
1210 P=P+1:G=CRT+788:O=O+40:E=E+.3
1220 FORZ=200TO100STEP−5:POKEQ+1,Z:NEXT:POKEQ+4,0:RETURN
1230 POKEQ+4,65:FORZ=63TO0STEP−.2:POKEQ+1,Z:NEXT:POKEK,32:POKEL,32:POKEM,32
1240 POKEQ+4,0:PRINT""TAB(37)""
1250 PRINT""P"
1270 IFP<40THEN1310
1280 PRINT""
1290 PRINT""
1300 PRINTTAB(8)"":GOTO1860
1310 IFP>30THENPRINT"":GOTO1360
1320 IFP>25THENPRINT"":GOTO1360
1330 IFP>15THENPRINT"":GOTO1360
1340 IFP>10THENPRINT"":GOTO1360
1350 PRINT"
1360 IFMODE=0THENFORI=1TO1000:GETD$:IFD$=""THENNEXT:RUN
1365 IFMODE=0THENMODE=1:GOTO90
1370 PRINT"";:GOSUB60000
1390 IFLEFT$(IN$,1)=""THENRUN
1400 PRINT
1500 IFMODE=0THEND=1:IN$="":GOTO1840
1510 D=0:PRINT"";:GOSUB60000
1520 :
1530 IFLEFT$(IN$,1)<>""THEND=1
1540 GOTO1820
1740 O=O+.3:POKEQ+1,255:POKEQ+4,33:POKEG,32:S=RND(1):POKEQ+4,0:IFS<.5THENG=G−2
1745 IFMODE=0THENFC=INT(RND(1)*12)+6:FT=FT+1
1750 G=G+1:IFS<.25THENG=G−78
1760 IFG9THEN1820
1840 T=VAL(IN$):E=(T*2)−4
1850 GOTO140
1860 POKEQ+4,65:FORZ=1TO5:FORX=20TO120:POKEQ+1,X:NEXT:FORX=50TO130:POKEQ+1,X:NEXT
1870 FORX=200TO100STEP−.5:POKEQ+1,X:NEXT:NEXT:POKEQ+4,0:GOTO1360
1880 END
60000 POKE198,0:IN$="":ZT=TI:ZC=2:ZD$=CHR$(20)
60010 FORI=1TO2000:GETZ$:IFZ$<>""THEN60070
60020 IFZT<=TITHENPRINTMID$("",ZC,1);"";:ZC=3−ZC:ZT=TI+20
60030 NEXT:RUN
60070 Z=ASC(Z$):ZL=LEN(IN$):IF(ZAND127)<32THENPRINT"";:GOTO60110
60080 IFFLAND(ZAND127)>64AND(ZAND127)<91THENZ$=CHR$((Z+128)AND255)
60090 IFZL>2THEN60010
60100 IN$=IN$+Z$:PRINTZ$;
60110 IFZ=13THENIN$=MID$(IN$,2):PRINT:RETURN
60120 IFZ=20ANDZL>1THENIN$=LEFT$(IN$,ZL−1):PRINT"";:GOTO60010
60130 IFZ=141THENZ$=CHR$(−20*(ZL>1)):FORZ=2TOZL:PRINTZ$;:NEXTZ:GOTO60000
60140 GOTO60010
60200 GOSUB60500
60210 PRINT"";
60240 FORI=0TO3000:GETT$:IFT$=""THENNEXT:RUN
60250 PRINT"":GOTO100
60260 PRINT""
60265 GOSUB60500
60270 RETURN
60500 FORI=1TO10:PRINT"";:NEXT:RETURN
62000 PRINT""PG$
62010 PRINT""
62011 PRINT""
62020 GOSUB60500
62030 PRINT""
62040 IFMODE=0THENFORI=1TO2000:GETZ$:IFZ$=""THENNEXT:GOTO100
62050 MODE=1
62080 PRINT"";:GOSUB60000
62090 IFLEFT$(IN$,1)<>""THEN100
62100 PRINT""
62105 GOSUB60500
62110 PRINT""
62120 PRINT"
62130 PRINT""
62140 PRINT""
62150 PRINT""
62160 PRINT""
62170 PRINT""
62180 PRINT""
62190 PRINT""
62200 GOSUB60200
READY.
