1 ' Screen load & printer dump program
2 ' By William Weir 3 ' Amstrad Action August 88 4 ' 10 MODE 2 20 DEFINT a-z 30 INPUT"Enter screen filename :",file$ 40 PRINT:PRINT"Border ? :(Y/N)" 50 a$=UPPER$(INKEY$) 60 IF a$<>"Y" AND a$<>"N" THEN GOTO 50 70 PRINT:PRINT"Insert disc or tape & press any key" 80 CALL &BB18 90 LOAD file$,&C000 100 IF a$="N" THEN 130 110 MOVE 0,0:DRAW 639,0:DRAW 639,399:DRAW 0,399:DRAW 0,0 120 ' Printer screen dump 130 WIDTH 255 140 PRINT #8,CHR$(27);"1";CHR$(5); 150 PRINT #8,CHR$(27);"A";CHR$(7); 160 FOR x=0 TO 637 STEP 7 170 FOR s=0 TO 3 180 PRINT #8,CHR$(27);"*";CHR$(0);"d":CHR$(0); 190 FOR y=0 TO 99 STEP 2 200 c=TEST(x,y+s*100)*64+TEST(x+1,y+s*100)*32 210 c=c+TEST(x+2,y+s*100)*16+TEST(x+3,y+s*100)*8 220 c=c+TEST(x+4,y+s*100)*4+TEST(x+5,y+s*100)*2 230 c=c+TEST(x+6,y+s*100) 240 PRINT #8,CHR$(c);CHR$(c); 250 NEXT y 260 PRINT #8,""; 270 NEXT s 280 PRINT #8 290 NEXT x 300 END |