R-Header 2068

Source Code

    1 REM __________R-HEADER 2068 BY GAGNON-o85___________
    2 CLEAR 31999
    5 BORDER 0: PAPER 0: BRIGHT 1: INK 5: CLS 
   10 GO SUB 1000
   50 CLS : GO SUB 600: BEEP .01,10: PRINT AT 10,9; INK 0; PAPER 6; FLASH 1;"START CASSETTE"
   60 RANDOMIZE USR 32000
   65 BEEP .01,45
   69 CLS : GO SUB 600
   70 LET IX=32256
   80 LET type=PEEK IX
   90 PRINT INVERSE 1'("Program:" AND type =0)+("Numeric Array:" AND type=1)+("String Array:" AND type=2)+("Bytes Block:" AND type =3);
  100 PRINT INVERSE 0;" ";: FOR n=ix+1 TO ix+10: PRINT CHR$ PEEK n;: NEXT n
  110 PRINT INVERSE 1''+("Prog. + Variable " AND type=0)+("Code " AND type);" Length:";
  120 PRINT INVERSE 0;" ";PEEK (ix+11)+256*PEEK (ix+12)
  130 IF type=1 OR type=2 THEN PRINT INVERSE 1'"Variable:";: PRINT INVERSE 0;" ";CHR$ (PEEK (ix+14)-32-64*(PEEK (ix+14)>192))+("$" AND type=2): GO TO 175
  140 PRINT ': PRINT INVERSE 1;("Auto-Run Line:" AND type=0)+("Block Origin:" AND type=3);
  150 PRINT INVERSE 0;" ";PEEK (ix+13)+256*PEEK (ix+14)
  155 IF type=3 THEN GO TO 175
  160 PRINT INVERSE 1;("Program Length:" AND type =0);
  170 PRINT INVERSE 0;" ";PEEK (ix+15)+256*PEEK (ix+16)
  175 PRINT ''' OVER 1;"................................"
  180 PRINT '' OVER 1;" S: STOP          ENTER:CONTINUE ": PAUSE 0: IF INKEY$="s" OR INKEY$="S" THEN STOP 
  190 RUN 
  199 STOP 
  600 PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175: PRINT INVERSE 1;AT 0,9;"R-HEADER 2068";AT 1,9;"GAGNON-o 85"''
  610 RETURN 
  699 STOP 
 1000 REM _____________the M.C.
 1010 DATA 221,33,0,126,175,17,17,0,55,1,254,254,205,153,100,205,252,0,186,32,240,219,255,203,191,211,255,175,211,244,201
 1020 FOR i=32000 TO 32030: READ a: POKE i,a: NEXT i
 1030 RETURN 
 8999 STOP 
 9991 SAVE "lect2068": PRINT "Rewind & press ENTER to verify": PAUSE 0: VERIFY "lect2068"