HEX

Source Code

    1 REM "HEX2" --SPECTRUM
    3 REM HEXLOADER    LIST 2
   10 BORDER 0: PAPER 1: INK 7: CLS 
   20 FOR f=0 TO 174 STEP 2: PLOT 0,f: DRAW OVER 1;f,174-f: PLOT 255,f: DRAW OVER 1;-f,174-f: NEXT f
   25 FOR f=0 TO 174 STEP 2: PLOT 0,f: DRAW OVER 1;174-f,-f: PLOT 255,f: DRAW OVER 1;-174+f,-f: NEXT f
   30 FOR f=1 TO 7: PRINT PAPER f-(f=1);AT 7+f,9;"              ": NEXT f
   40 INPUT "PAUSE (0 TO 9):";p
   45 LET p=INT p: IF p<0 OR p>9 THEN GO TO 40
   50 RANDOMIZE USR USR 50000: PAUSE p: SAVE "pic-PAUSE"+STR$ pSCREEN$ 
   60 CLS : RANDOMIZE USR USR 50000: LOAD ""SCREEN$ 
   70 GO TO 40