10 REM SPRITE-HELPER============64
20 REM (P) COMMODORE DISC       ==
30 REM ===========================
40 REM (C) BY M.JUNGMANN        ==
50 REM                          ==
60 REM                          ==
70 REM VERSION 2.0 40Z/ASCII    ==
80 REM C 64 + FLOPPY+DRUCKER    ==
90 REM ===========================
95 GOSUB 60000
100 IFA=0THENA=1:LOAD"MC II",8,1
110 IFA=1THENA=2:GOTO130
120 END
130 CLR:GOSUB60000:GOSUB1340:POKE32,1:POKE2041,255
140 PRINTCL$S2$:ZA=210:POKE650,128
150 FORI=0TO62:POKE832+I,0:NEXT
160 FORI=0TO22STEP3:POKE832+I,255:NEXT
170 SYS49779:SYS50432:SYS49920:GOSUB1000
180 GETT$:SYS49946:PRINTHE$LEFT$(QD$,22)"BLOCK";ZA
190 IFT$="L"THENGOSUB550
200 IFT$="S"THENGOSUB770
210 IFT$="D"THENGOSUB310
220 IFT$="C"THENGOSUB890
230 IFT$="F"THENGOSUB450
240 IFT$="M"THEN1210
250 IFT$="[205]"THENPOKE53248+28,0
260 IFT$=F1$THENZA=ZA+1:GOSUB1300:IFZA>254THENZA=100
270 IFT$=F3$THENZA=ZA-1:GOSUB1300:IFZA<100THENZA=254
280 Z1=255*64:Z2=Z1+63:Z3=ZA*64
290 SYS51235,Z1,Z2,Z3+63
300 GOTO180
310 PRINTCL$
320 REM ***** DRUCKEN *****
330 V=53248:POKEV+21,1:POKE2040,255:POKEV,100:POKEV+1,100
340 INPUT"ZU DRUCKENDER BLOCK";B1:IFB1<192ORB1>254THEN340
350 SYS51235,B1*64,B1*64+63,255*64+63
360 PRINTCL$
370 SYS49779:SYS50944
380 OPEN4,4:PRINT#4,"DATA";
390 K$=",":X=63:FORI=64*255TO64*255+X
400 PRINT#4,PEEK(I);
410 PRINT#4,K$;
420 NEXT
430 CLOSE4:POKEV+21,3
440 PRINTCL$:GOTO170
450 PRINTCL$
460 REM ***** FILM *****
470 V=53248:POKEV+21,1:S=50
480 INPUT"VON BLOCK";A1:IFA1<100ORA1>254THEN480
490 INPUT" ZU BLOCK";A2:IFA2<100ORA2>254ORA2<=A1THEN490
500 PRINTLEFT$(QD$,6)" / SCHNELLER"
510 PRINTC4$" SHIFT+/ LANGSAMER"
520 PRINTC4$" PRESS SPACE TO END"
530 SYS51456,A1,A2
540 POKEV+21,0:PRINTCL$:GOTO170
550 REM ***** LADEN *****
560 V=53248:POKEV+21,0:PRINTCL$"1) FILE LADEN"
570 PRINT"2) DIRECTORY"
580 PRINT"3) DISK COMANDS"
590 GETT$
600 IFT$="1"THEN640
610 IFT$="2"THEN1530
620 IFT$="3"THEN1600
630 GOTO590
640 PRINTCL$:V=53248:POKEV+21,0
650 INPUT"FILENAME";FI$:IFLEN(FI$)<1ORLEN(FI$)>16THEN650
660 OPEN15,8,15
670 OPEN1,8,2,FI$+",S,R":INPUT#1,B1:INPUT#1,B2
680 INPUT#15,AA,BB$,CC,DD:IFAA<20THEN700
690 CLOSE1:CLOSE15:GOTO170
700 FORX=64*B1TO64*B2+63
710 INPUT#1,A
720 POKEX,A
730 NEXT
740 CLOSE1:CLOSE15
750 SYS51235,ZA*64,(ZA+1)*64,256*64
760 GOTO170
770 REM *****SPEICHERN*****
780 PRINTCL$:V=53248:POKEV+21,0
790 INPUT"VON BLOCK";B1:IFB1>254ORB1<100THEN790
800 INPUT" ZU BLOCK";B2:IFB2>254ORB2<100THEN800
810 INPUT"FILENAME";FI$:IFLEN(FI$)<1ORLEN(FI$)>16THEN810
820 OPEN2,8,2,"@:"+FI$+",S,W":PRINT#2,B1:PRINT#2,B2
830 FORX=64*B1TO64*B2+63
840 A=PEEK(X)
850 PRINT#2,A
860 NEXT
870 CLOSE2
880 GOTO170
890 REM *****COPIEREN*****
900 PRINTCL$:V=53248:POKEV+21,12
910 INPUT"VON BLOCK";B1:POKE2042,B1:IFB1>254ORB1<100THEN910
920 INPUT" ZU BLOCK";B2:POKE2043,B2:IFB2<100ORB2>254THEN920
930 X1=B1*64:X2=X1+64:X3=B2*64
940 POKEV+4,100:POKEV+5,100:POKEV+41,1:POKEV+42,1
950 POKEV+6,150:POKEV+7,100
960 SYS51235,X1,X2,X3+64
970 PRINT"TASTE"
980 GETT$:IFT$=""THEN980
990 POKEV+21,0:PRINTCL$:GOTO170
1000 I=25:REM *****MENU*****
1010 PRINTHE$TAB(I)RN$"F7"RF$" DREHEN"
1020 PRINTTAB(I)RN$"CURSOR"RF$" SCROLL"
1030 PRINTTAB(I)RN$"+/-"RF$" FARBEN"
1040 PRINTTAB(I)RN$"A"RF$" Y-SPIEGELN"
1050 PRINTTAB(I)RN$"SHIFT+A"RF$" X-SP."
1060 PRINTTAB(I)RN$"X"RF$" X-VERGR."
1070 PRINTTAB(I)RN$"SH.+X"RF$" NORMAL"
1080 PRINTTAB(I)RN$"Z"RF$" Y-VERGR."
1090 PRINTTAB(I)RN$"SHIFT+Z"RF$" NORMAL"
1100 PRINTTAB(I)RN$"HOME"RF$" REVERS "
1110 PRINTTAB(I)RN$"CLR"RF$" LOESCHEN"
1120 PRINTTAB(I)RN$"SPACE"RF$" L.PUNKT"
1130 PRINTTAB(I)RN$"BUTTON"RF$"S.PUNKT"
1140 PRINTTAB(I)RN$"F"RF$" FILM"
1150 PRINTTAB(I)RN$"C"RF$" KOPIEREN"
1160 PRINTTAB(I)RN$"L/S"RF$" LOAD/SAVE"
1170 PRINTTAB(I)RN$"M"RF$" MULTICOLOR"
1180 PRINTTAB(I)RN$"SHIFT+M"RF$" MC AUS"
1190 PRINTTAB(I)RN$"F1/F2"RF$" BL.ZAEH."
1200 RETURN
1210 PRINTCL$:REM MULTICOLOR
1220 V=53248:POKEV+28,2
1230 INPUT"FARBE 1";F1
1240 INPUT"FABRE 2";F2
1250 INPUT"FARBE 3";F3
1260 POKEV+37,F1
1270 POKEV+38,F2
1280 POKEV+40,F3
1290 GOTO170
1300 REM ***** BLOCKZAEHLEN *****
1310 X1=ZA*64:X2=X1+64
1320 SYS51235,X1,X2,64*255+64
1330 SYS49779:RETURN
1340 REM *****TITLESCREEN*****
1350 DIMA$(13):PRINTCL$:POKE53280,0:POKE53281,0
1360 A$(1)="THE COMPUTERFUTURE"
1370 A$(2)=C4$+C4$+"     PRESENTS     "
1380 A$(3)=LEFT$(QD$,4)+"       THE        "
1390 A$(4)=LEFT$(QD$,6)+"SPRITE-HELPER V1.0"
1400 A$(5)=LEFT$(QD$,8)+"    WRITTEN BY"
1410 A$(6)=LEFT$(QD$,10)+" MICHAEL JUNGMANN"
1420 A$(7)=LEFT$(QD$,22)+"  PRESS ANY KEY"
1430 A(1)=0:A(2)=11:A(3)=12:A(4)=15:A(5)=1:Z=1
1440 FORY=0TO2
1450 FORI=2TO5
1460 FORW=0TO100:NEXT
1470 POKE646,A(I)
1480 PRINTHE$TAB(10)A$(Z)
1490 NEXT:NEXT
1500 Z=Z+1:IFZ<>8THEN1440
1510 GETT$:IFT$=""THEN1510
1520 RETURN
1530 REM ***** DIRECTORY *****
1540 PRINTCL$"TASTE FUER DIRECTORY"
1550 GETT$:IFT$=""THEN1550
1560 SYS51712
1570 PRINT"TASTE"
1580 GETT$:IFT$=""THEN1580
1590 PRINTCL$:GOTO170
1600 REM ***** DISK COMANDS *****
1610 PRINTCL$
1620 OPEN2,8,15
1630 C$="":PRINT">";
1640 GETB$:IFB$=""THEN1640
1650 PRINTB$;:IFB$=CHR$(13)THEN1670
1660 C$=C$+B$:GOTO1640
1670 PRINT#2,C$
1680 PRINTRN$;
1690 GET#2,AZ$:PRINTAZ$;:IFAZ$<>CHR$(13)THEN1690
1700 PRINTRF$
1710 CLOSE2
1720 PRINTC4$"TASTE"
1730 GETT$:IFT$=""THEN1730
1740 PRINTCL$:GOTO170
60000 REM NACHSPANN ==============
60010 REM FARB-/STEUERCODES
60020 C4$=CHR$(017):RN$=CHR$(018)
60030 HE$=CHR$(019):F1$=CHR$(133)
60040 F3$=CHR$(134):RF$=CHR$(146)
60050 CL$=CHR$(147)
60060 REM ZEICHENSATZ/GRAPHIK
60070 S2$=CHR$(160)
60080 REM ZEICHENFOLGEN
60090 FOR Q=1 TO 40
60100 QD$=QD$+C4$
60110 NEXT Q
60120 RETURN