2 ! +++++++++++++++++++++++++++++++++++ 3 ! Program .... PROTALL.800 4 ! Utg}va 1.0 1982-12-17 5 ! av (c) J Vogler 6 ! {ndrat f|r ABC800 av Bo Kullmar 8 ! Ins{nt av Bo Kullmar, 1789. 9 ! F|r disk ABC830. Programmet m}ste {ndra f|r att k|ras under superdoset. 10 ! +++++++++++++++++++++++++++++++++++ 67 NO EXTEND : FLOAT 70 ; CHR$(12%) : GOSUB 320 : ; CUR(10%,0%); 80 FOR D%=0% TO 1% : POKE -767%,D% 90 Z%=CALL(24678%,192%) 100 IF PEEK(-747%) 310 110 ; : ; 'DRIVE' D% ':'; : FOR S%=0% TO 7% 120 Z%=CALL(24678%,512%+S%*32%) 130 IF PEEK(-747%) 380 140 FOR I%=-2800% TO -2576% STEP 16% 150 IF PEEK(I%)=0% OR PEEK(I%)=255% 270 160 F$='' : FOR J%=4% TO 14% 170 IF J%=12% F$=F$+'.' 180 F$=F$+CHR$(PEEK(I%+J%)) 190 NEXT J% : ; ,F$ ' '; 200 ; (PEEK(I%+1%) AND 3%) CHR$(8%); 210 GET A$ : A%=ASCII(A$) 220 IF A%=13% ; : GOSUB 320 : GOTO 270 230 A%=A%-48% : IF A%<0% OR A%>3% 210 240 ; CHR$(8%) A% : GOSUB 320 250 POKE I%+1%,(PEEK(I%+1%) AND 252%) 260 POKE I%+1%,(PEEK(I%+1%) OR A%) 270 NEXT I% 280 Z%=CALL(24675%,512%+S%*32%) 290 IF PEEK(-747%) THEN 380 300 NEXT S% : POKE -30%,0% 310 NEXT D% : ; CHR$(7%) : GOTO 390 320 FOR L%=31872% TO 31911% : POKE L%,32% : NEXT L% 330 POKE 32000%,49%+128%,61%,115%,107%,114%,105%,118%,32%,32%,32%,32%,50%+128%,61%,114%,97%,100%,96%,114%,32%,32% 340 POKE 32020%,32%,32%,51%+128%,61%,49%,43%,50%,32%,32%,32%,32%,48%+128%,61%,105%,110%,103%,101%,116%,32%,32% 350 POKE 31744%,32%,32%,32%,32%,32%,32%,32%,32%,86%,91%,76%,74%,32%,84%,89%,80%,32%,65%,86%,32% 360 POKE 31764%,70%,73%,76%,83%,75%,89%,68%,68%,32%,58%,32%,32%,32%,32%,32%,32%,32%,32%,32%,32% 370 FOR L%=32256% TO 32295% : POKE L%,32% : NEXT L% : RETURN 380 ; '>>FEL !' : ; CHR$(7%,7%); 390 GOSUB 320 : GOTO 400 400 END