MCLOADER

Source Code

   10 REM ***********************
   20 REM MCLOADER
   30 REM ***********************
   40 INPUT "HOW MANY BYTES OF MC?";N
   42 DIM B$(N,4)
   45 IF 65367-PEEK 23730-256*PEEK 23731<N THEN PRINT "RAMTOP BEING LOWERED TO ";65367-N: PRINT "HIT ENTER THEN ""RUN"" TO CONTINUE": PAUSE 4E4: CLEAR 65367-N: STOP 
   50 INPUT "ANY SPECIFIC STARTING ADDRESS? (Y/N)";A$
   60 IF A$="Y" THEN INPUT "ENTER STARTING ADDRESS ";S: GO TO 80
   70 LET S=65368-N
   80 PRINT "INPUT CODE (DEC) FOR EA ADDR"
   85 LET SUM=0
   90 FOR I=1 TO N
  100 PRINT INK 3;S+I-1;
  110 INPUT C$
  115 LET B$(I)=C$
  120 PRINT TAB (10-LEN C$);C$
  130 POKE (S+I-1),VAL C$
  140 LET SUM=SUM+VAL C$
  150 NEXT I
  160 PRINT 
  170 PRINT "CHECKSUM= ";SUM
  172 INPUT "REVIEW CODE IN GROUPS OF 8? (Y/N)";Z$: IF Z$="Y" THEN GO TO 3000
  174 GO TO 2000
  200 STOP 
 1000 PRINT "RAMTOP IS AT ";PEEK 23730+256*PEEK 23731
 1010 STOP 
 2000 INPUT "LIST HOW MANY BYTES?";B
 2002 CLS 
 2005 FOR J=B TO 1 STEP -1
 2010 PRINT 65368-J,PEEK (65368-J)
 2020 NEXT J
 2025 GO TO 5000
 2030 STOP 
 2035 REM 
 3000 CLS 
 3005 FOR J=1 TO N
 3010 PRINT B$(J);
 3020 NEXT J
 3025 GO TO 5000
 3030 STOP 
 5000 PRINT AT 20,0;"TO SAVE CODE"'"TYPE: SAVE""XXX""CODE ";PEEK 23730+256*PEEK 23731+1;",";N