5 'BIG DUMP
6 'by Kevin O'Rourke 10 MODE 1:CALL &BC02 15 IF INP(&F500)<>30 THEN LOCATE 1,25:PRINT "PRINTER ERROR/PRINTER OFF LINE!":GOTO 15 16 PRINT "FULL SCREEN 15 SHADE DUMP":PRINT:INPUT "File:",f$:INPUT "Mode:",m:PRINT"When the computer beeps once wind the paper on t o the start of the next sheet." 20 PRINT "THEN PRESS ANY KEY.":PRINT CHR$(7):CALL &BB18 30 MODE m:LOAD f$,&C000 40 GOSUB 170 50 WIDTH 255 60 PRINT #8,CHR$(27);"%1";CHR$(0);CHR$(27);"A";CHR$(3);CHR$(27);CHR$(126);"3";CHR$(7);CHR$(27);CHR$(83);CHR$(1); 70 o=0 80 FOR y=399 TO 0 STEP -2 90 a$="" 100 FOR x=0+o TO 319+o STEP 2 110 v=TEST(x,y):a$=a$+HEX$(v,1) 120 NEXT x 130 PRINT #8,a$ 140 NEXT y 150 IF o<>320 THEN o=320:PRINT CHR$(7);:CALL &BB18:GOTO 80 160 PRINT CHR$(7):LOCATE 1,1:PRINT"FINISHED!":END 170 RESTORE 190:FOR s=0 TO 15:READ n,d1,d2,d3,d4,d5,d6:PRINT #8,CHR$(27);"&";CHR$(0);CHR$(n);CHR$(n);CHR$(0);CHR$(d1);CHR$(0);CHR$(d 2);CHR$(0);CHR$(d3);CHR$(0);CHR$(d4);CHR$(0);CHR$(d5);CHR$(0);CHR$(d6);:NEXT s 180 RETURN 190 DATA 48,0,0,0,0,0,0 200 DATA 49,64,4,0,16,2,0 210 DATA 50,0,10,64,4,32,8 220 DATA 51,2,41,64,18,8,36 230 DATA 52,34,20,37,2,72,4 240 DATA 53,18,4,44,77,4,32 250 DATA 54,10,34,41,72,2,18 260 DATA 55,72,36,26,40,5,80 270 DATA 56,75,32,77,16,42,84 280 DATA 57,10,34,93,18,106,84 290 DATA 65,90,36,81,22,106,85 300 DATA 66,42,85,56,86,57,85 310 DATA 67,87,120,86,91,53,109 320 DATA 68,43,117,91,54,109,127 330 DATA 69,127,119,95,117,127,127 340 DATA 70,127,127,127,127,127,127 |