1 REM Ins{nd av Lennart Einarsson <6554>    1987-07-08 12.02.18 (DUMP)
10 REM ************************
20 REM *                      *
30 REM *    *** ZAPPU ***     *
40 REM *                      *
50 REM * BY A.PURANEN  800829 *
60 REM *                      *
70 REM * * (C) * COPYRIGHT *  *
80 REM *                      *
90 REM ************************
100 REM Z$ = GET-SLASK
110 REM Z% = SLASK
120 REM H$ = HEXSTR[NG
130 REM D% = DRIVE
140 REM T% = SP]R
150 REM S% = SEKTOR
160 REM F% = FEL-LOOP
170 REM E% = LISTR[KNARE
180 REM I% = PEKARE I DOSBUF 0
190 REM J% =   -"-
200 REM B% = BYTE NR. I DOSBUF 0
210 REM H1$= BYTE / TECKEN -INPUT
220 REM H% = V[RDE TILL DOSBUF 0
230 REM
240 REM 
250 REM  START 
260 REM Z%=INP(7%)
270 ; INP(3%)CHR$(12%)
280 ; 'VILL DU HA EN BESKRIVNING (J/N) ? ';
290 GET Z$
300 ; CHR$(13%)TAB(39%)CHR$(13%);
310 IF Z$='J' GOSUB 1140
320 H$='0123456789ABCDEF'
330 ONERRORGOTO 360
340 ; 'Vilken DRIVE  (0-1)  ';
350 INPUT D% : IF D%=0% OR D%=1% 370
360 END
370 ONERRORGOTO 330
380 ; 'Vilket SP]R   (0-39) ';
390 INPUT T% : IF T%<0% OR T%>39% 330
400 ONERRORGOTO 370
410 ; 'Vilken SEKTOR (0-7)  ';
420 INPUT S% : IF S%<0% OR S%>7% 370
430 ONERRORGOTO 0
440 REM 
450 REM  L[S SEKTOR 
460 FOR F%=1% TO 10%
470 POKE -767%,D%
480 Z%=CALL(24678%,SWAP%(T%)+S%*32%)
490 IF PEEK(-747%)=0% 530
500 NEXT F%
510 ; CHR$(7%)'L[SFEL  (10 F\RS\K)'
520 GOTO 400 : REM Z%=INP(7%)
530 REM Z%=INP(7%)
540 E%=0%
550 REM 
560 REM  DUMPA SEKTOR 
570 FOR I%=-2816% TO -2568% STEP 8%
580 ; CHR$(13%)TAB(39%)CHR$(13%);
590 ; I%+2816%TAB(4%)':';
600 FOR J%=0% TO 7%
610 ; TAB(J%*3%+6%)MID$(H$,PEEK(I%+J%)/16%+1%,1%)MID$(H$,(PEEK(I%+J%) AND 15%)+1%,1%);
620 NEXT J%
630 ; '  ';
640 FOR J%=0% TO 7%
650 Z%=PEEK(I%+J%) AND 127%
660 IF Z%<32% Z%=46%
670 ; CHR$(Z%);
680 NEXT J%
690 ;
700 IF E% IF I%<E% 780
710 IF I%<-2688% 780
720 IF I%=-2592% ; CHR$(7%);
730 ; 'DR'D%' SP]R'T%' SEKT'S%;
740 ; ' == TRYCK TANGENT =='TAB(39%);
750 GET Z$
760 IF Z$='' ; : GOTO 820
770 IF Z$=CHR$(13%) ; : GOTO 400
780 NEXT I%
790 IF E% E%=0% : GOTO 730
800 ; : GOTO 400
810 REM 
820 REM  CHANGE 
830 ONERRORGOTO 400
840 ; 'Vilken BYTE  (0-255) ';
850 INPUT B% : IF B%<0% OR B%>255% 400
860 B%=B%-2816%
870 ; '[ndras till (ASCII=1teck/HEX=2teck) ';
880 INPUT H1$
890 IF LEN(H1$)=1% POKE B%,ASC(H1$) : GOTO 1010
900 IF LEN(H1$)<>2% 830
910 H%=0%
920 FOR I%=1% TO 2%
930 Z%=INSTR(1%,H$,MID$(H1$,I%,1%))
940 IF Z%=0% ; CHR$(7%)'? ? ?' : GOTO 830
950 H%=H%+Z%-1%
960 IF I%=2% 980
970 H%=H%*16%
980 NEXT I%
990 POKE B%,H%
1000 REM 
1010 REM  SKRIV 
1020 FOR F%=1% TO 10%
1030 POKE -767%,D%
1040 Z%=CALL(24675%,SWAP%(T%)+S%*32%)
1050 IF PEEK(-747%)=0% 1090
1060 NEXT F%
1070 ; CHR$(7%)'SKRIVFEL  (10 F\RS\K)'
1080 GOTO 400 : REM Z%=INP(7%)
1090 REM Z%=INP(7%)
1100 E%=B%+8%
1110 IF E%>248% E%=248%
1120 GOTO 560
1130 REM 
1140 REM  BESKRIVNING 
1150 ; CHR$(12%)TAB(10%)'*** ZAPPU ***'
1160 ; : ; 'MED PROGRAMMETS HJ[LP KAN DU TITTA P],'
1170 ; 'OCH SKRIVA I ALLA SKIVANS SEKTORER'
1180 ; 'GENOM ATT ANGE: DRIVE, SP]R OCH SEKTOR.'
1190 ;
1200 ; 'N[R PROGRAMMET S[GER "TRYCK TANGENT"'
1210 ; 'KAN DU TRYCKA "RETURN" , "CTRL<>"'
1220 ; 'ELLER "ANNAN" TANGENT.' : ;
1230 ; 'MED "ANNAN" TANGENT STEGAR DU FRAM'
1240 ; '8 BYTE I TAGET, TILL SLUTET P] SEKTORN.' : ;
1250 ; 'MED "RETURN" AVSLUTAS L[SNINGEN.' : ;
1260 ; 'MED "CTRL<>" KOMMER DU IN I SKRIV-MODEN'
1270 ; 'D[R ANGER DU VILKEN BYTE I SEKTORN SOM'
1280 ; 'DU VILL [NDRA, OCH VAD DEN SKA [NDRAS'
1290 ; 'TILL. 1 TECKEN GER ASCII-V[RDET'
1300 ; '      2 TECKEN GER  HEX-V[RDET'
1310 ;
1320 ; '!!!!!!!!!!!!!!!! OBS !!!!!!!!!!!!!!!!!!!';
1330 ; '!! VAR MYCKET F\RSIKTIG VID SKRIVNING !!';
1340 FOR Z%=-32768% TO 32766% : NEXT Z%
1350 ; CHR$(7%); : RETURN