RANDOMIZE TIMER

FOR stmp = 1 TO 4
  READ C$(stmp)
NEXT

DATA "Normal color"
DATA "Highlighted 1"
DATA "Highlighted 2"
DATA "Cursor Color"

WIDTH 80, 25
READ cursors
DIM cursor(cursors) AS STRING * 1, curcolf(cursors), curcolb(cursors)
curcolftmp = INT(RND * 15) + 1
FOR stmp = 1 TO cursors
  READ cursor$(stmp), curcolf(stmp), curcolb(stmp)
IF curcolf(stmp) = 0 AND curcolb(stmp) = 0 THEN curcolf(stmp) = curcolftmp
NEXT
READ lapse
cursor = 1
'DATA 1,"Û",19,4,0
'DATA 2,"
",12,0,"",12,0,.1
'DATA 5,"-",0,0,"=",0,0,"ð",0,0,"=",0,0," ",0,0,.1
'DATA 8,"ú",,,"ù",,,"",,,"é",,,"",,,"é",,,"",0,0,"ù",,,
cd = 1
DATA 128
DATA "³",,,"/",,,"Ä",,,"\",,,"³",,,"/",,,"Ä",,,"\",,
DATA "³",,,"/",,,"Ä",,,"\",,,"³",,,"/",,,"Ä",,,"\",,
DATA "³",,,"/",,,"Ä",,,"\",,,"³",,,"/",,,"Ä",,,"\",,
DATA "³",,,"/",,,"Ä",,,"\",,,"³",,,"/",,,"Ä",,,"\",,
DATA "¿",,,"Ù",,,"À",,,"Ú",,,"¿",,,"Ù",,,"À",,,"Ú",,
DATA "¿",,,"Ù",,,"À",,,"Ú",,,"¿",,,"Ù",,,"À",,,"Ú",,
DATA "¿",,,"Ù",,,"À",,,"Ú",,,"¿",,,"Ù",,,"À",,,"Ú",,
DATA "¿",,,"Ù",,,"À",,,"Ú",,,"¿",,,"Ù",,,"À",,,"Ú",,
DATA "Â",,,"´",,,"Á",,,"Ã",,,"Â",,,"´",,,"Á",,,"Ã",,
DATA "Â",,,"´",,,"Á",,,"Ã",,,"Â",,,"´",,,"Á",,,"Ã",,
DATA "Â",,,"´",,,"Á",,,"Ã",,,"Â",,,"´",,,"Á",,,"Ã",,
DATA "Â",,,"´",,,"Á",,,"Ã",,,"Â",,,"´",,,"Á",,,"Ã",,
DATA "Ý",,,"ß",,,"Þ",,,"Ü",,,"Ý",,,"ß",,,"Þ",,,"Ü",,
DATA "Ý",,,"ß",,,"Þ",,,"Ü",,,"Ý",,,"ß",,,"Þ",,,"Ü",,
DATA "Ý",,,"ß",,,"Þ",,,"Ü",,,"Ý",,,"ß",,,"Þ",,,"Ü",,
DATA "Ý",,,"ß",,,"Þ",,,"Ü",,,"Ý",,,"ß",,,"Þ",,,"Ü",,
DATA .0
      
'DATA 22
'DATA " ",0,0
'DATA "°",8,0
'DATA "±",8,0
'DATA "²",8,0
'DATA "Û",8,0
'DATA "±",8,7
'DATA "°",8,7
'DATA "Û",7,0
'DATA "°",15,7
'DATA "±",15,7
'DATA "²",15,7
'DATA "Û",15,0
'DATA "²",15,7
'DATA "±",15,7
'DATA "°",15,7
'DATA "Û",7,0
'DATA "°",8,7
'DATA "±",8,7
'DATA "Û",8,0
'DATA "²",8,0
'DATA "±",8,0
'DATA "°",8,0
'DATA 0
              
n$ = CHR$(0)
e$ = CHR$(27)
eb$ = e$ + "["
DIM SHARED height, columns
DIM handle$(11), score(11), over(11)
CONST bc$ = "'*+,./:;<=>?[\]|"
CONST sc$ = "_^$^!#%&-{}()@'`"
CONST true = -1
CONST false = 0
CONST path$ = "\msmthng\"
SHELL "md " + LEFT$(path$, LEN(path$) - 1) + " > nul"
highlight = true
600
ncf = INT(RND * 9) + 1: ncb = 0
tbf = INT(RND * 6) + 10: tbb = 0
tdf = tbf - 8: tdb = 0
IF tdf = ncf THEN 600
blah = 48

height = 23
columns = 80
IF height <= 25 THEN ht = 25 ELSE IF height <= 43 THEN ht = 43 ELSE ht = 50
WIDTH 80, ht
IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
COLOR 0, 0
PRINT STRING$(23, 32); "If you can read this, I suggest you"
PRINT STRING$(29, 32); "press <ESC> right now."
PRINT
PRINT
COLOR 7
COLOR 13
PRINT STRING$(34, 32); "M-something"
PRINT
PRINT STRING$(39, 32); "by"
COLOR 10
PRINT STRING$(30, 32); "Richard Nichols III"
COLOR 13
PRINT STRING$(30, 32); "A.K.A. "; : COLOR 10: PRINT "Inhahe"; : COLOR 13: PRINT ","; : COLOR 10: PRINT " The "
PRINT
COLOR 12
PRINT STRING$(22, 32); "Press any key except <"; : COLOR 14: PRINT "ESC"; : COLOR 12: PRINT "> to continue"
PRINT
COLOR 6
PRINT STRING$(29, 32); "or <"; : COLOR 12: PRINT "I"; : COLOR 6: PRINT "> for directions."
DO
  a$ = INKEY$
  IF a$ <> "" THEN 1
LOOP
1
IF a$ = CHR$(27) THEN
  PRINT
  PRINT "Returning to BBS"
  END
ELSE
  IF UCASE$(a$) = "I" THEN GOSUB keys
END IF

newgame:
over = height * columns - 1
points = 0
REDIM SHARED number(1 TO 50, 1 TO 80)
REDIM SHARED taggedc(16), taggedr(16)
IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
CLS

FOR hhh = 1 TO height
  FOR ccc = 1 TO columns
    number(hhh, ccc) = INT(RND * 9) + 1
  NEXT
NEXT
cc = INT(RND * columns) + 1
cr = INT(RND * height) + 1
number(cr, cc) = 0
GOSUB redraw

'LOCATE cr, cc
'PRINT " ";
DO
31
IF highlight THEN GOSUB tag
13
  la$ = a$
  IF showcursor THEN
    LOCATE cr, cc
    COLOR curcolf(cursor), curcolb(cursor)
    PRINT cursor$(cursor);
  END IF
  DO
    a$ = INKEY$
    IF a$ <> "" THEN
      IF showcursor THEN LOCATE cr, cc: COLOR , ncb: PRINT " ";
      GOTO 300
    END IF
    IF showcursor THEN
      IF cursors > 1 THEN
        IF TIMER - lt > lapse THEN
          lt = TIMER
          cursor = cursor + cd
          IF cursor > cursors OR cursor < 1 THEN cd = -cd: cursor = cursor + cd * 2
          LOCATE cr, cc
          COLOR curcolf(cursor), curcolb(cursor)
          PRINT cursor$(cursor);
        END IF
      END IF
    END IF
  LOOP
300
  IF la$ = e$ AND a$ = e$ THEN a$ = e$ + e$
  'IF t$ = e$ THEN IF a$ = "[" THEN t$ = eb$ ELSE IF t$ = eb$ THEN t$ = t$ + a$ ELSE t$ = a$
  SELECT CASE a$ 't$
    CASE "7", n$ + CHR$(71)
      dc = -1
      dr = -1
    CASE "8", n$ + CHR$(72), "A"
      dc = 0
      dr = -1
    CASE "9", n$ + CHR$(73)
      dc = 1
      dr = -1
    CASE "6", n$ + CHR$(77), "C"
      dc = 1
      dr = 0
    CASE "3", n$ + CHR$(81)
      dc = 1
      dr = 1
    CASE "2", n$ + CHR$(80), "B"
      dc = 0
      dr = 1
    CASE "1", n$ + CHR$(79)
      dc = -1
      dr = 1
    CASE "4", n$ + CHR$(75), "D"
      dc = -1
      dr = 0
    CASE "E", "e"
      IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
      CLS
      LINE INPUT "Number of rows (1 to 50): ", rows$
      LINE INPUT "Number of columns (1 to 80): ", clmns$
      vrws = VAL(rows$)
      vclmns = VAL(clmns$)
      IF vrws = 0 THEN vrws = height
      IF vclmns = 0 THEN vclmns = columns
      IF vrws = height AND vclmns = columns THEN GOSUB redraw: GOTO 13
      IF vrws >= 1 AND vrws <= 50 AND vclmns >= 1 AND vclmns <= 80 THEN
        columns = vclmns
        height = vrws
        IF height <= 25 THEN ht = 25 ELSE IF height <= 43 THEN ht = 43 ELSE ht = 50
        WIDTH 80, ht
        GOTO newgame
      ELSE
        BEEP
        GOSUB redraw
        GOTO 13
      END IF
    CASE "N", "n"
      GOTO newgame
    CASE "S", "s"
      GOSUB savegame
      GOSUB redraw
      GOTO 13
    CASE "L", "l"
      GOSUB loadgame
      GOSUB redraw
      GOTO 13
    CASE ".", "."
      IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
      CLS
      IF m = true THEN m = false
      GOTO 31
    CASE "C", "c"
      IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
      CLS
      FOR stmp = 1 TO 4
        PRINT C$(stmp); " (fg, bg): ";
        LINE INPUT nc$
        nc$ = LTRIM$(nc$)
        IF nc$ = "" THEN 21
        tmp = VAL(nc$)
        IF tmp < 0 OR tmp > 31 THEN GOTO 22
        in = INSTR(nc$, ",")
        IF in = 0 THEN in = INSTR(nc$, " ")
        IF in = 0 THEN tmp2 = ncb: GOTO 20
        tmp2 = VAL(RIGHT$(nc$, LEN(nc$) - in))
        IF tmp2 < 0 OR tmp2 > 7 THEN GOTO 22
20      SELECT CASE stmp
          CASE 1
            ncf = tmp: ncb = tmp2
21        CASE 2
            tbf = tmp: tbb = tmp2
          CASE 3
            tdf = tmp: tdb = tmp2
          CASE 4
            IF NOT showcursor THEN showcursor = true
            FOR stmp2 = 1 TO cursors
              curcolf(stmp2) = tmp
              curcolb(stmp2) = tmp2
            NEXT
        END SELECT
22
      NEXT
      IF ncf + ncb > 0 THEN GOSUB redraw ELSE IF highlight THEN GOSUB tag
      GOTO 13
    CASE "M", "m"
      m = NOT m
      GOSUB redraw
      GOTO 13
    CASE "T", "t"
      highlight = NOT highlight
      GOTO 31
    CASE "R", "r"
      GOSUB redraw
      GOTO 13
    CASE "/"
      IF blah = 48 THEN blah = 64 ELSE IF blah = 64 THEN blah = 96 ELSE blah = 48
      GOSUB redraw
      GOTO 13
    CASE "U", "u"
      showcursor = NOT showcursor
      GOTO 13
    CASE "O", "o"
      CLS
      LINE INPUT "Cursor speed (milliseconds/cursor change, N for no change): ", speed$
      IF UCASE$(speed$) = "N" THEN
        cursors = 1
        PRINT "Cursor character: ";
        DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
        cursor$(1) = a$
        cursor = 1
      END IF
      lapse = VAL(speed$) / 1000
      IF NOT showcursor THEN showcursor = true
      GOSUB redraw
      GOTO 13
    CASE "Y", "y"
      COLOR 7, 0
      CLS
      PRINT "Your score is"; points; "/"; over
      IF height <= 20 THEN LOCATE 19, 1 ELSE LOCATE height - 1, 1
      PRINT "Press any normal key to continue...";
      WHILE INKEY$ = "": WEND
      GOSUB redraw
      GOTO 13
    CASE "Q", "q", "X", "x", e$ + e$
      COLOR 7, 0
      CLS
      PRINT "Save game? ("; : COLOR 10: PRINT "Y"; : COLOR 7: PRINT "/"; : COLOR 2: PRINT "n"; : COLOR 7: PRINT ")"
      DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
      IF UCASE$(a$) <> "N" THEN
        GOSUB savegame
        IF file$ = "" THEN GOTO nd ELSE GOTO nd2
      ELSE
        GOTO nd
      END IF
    CASE "I", "i", "h"
      GOSUB keys
      GOSUB redraw
      GOTO 13
    CASE "?"
      GOSUB whatisthis
      GOSUB redraw
      GOTO 13
    CASE ELSE
      GOTO 13
  END SELECT
  ccdc = cc + dc
  crdr = cr + dr
  IF crdr > height OR crdr < 1 OR ccdc > columns OR ccdc < 1 THEN 13
  dd = number(cr + dr, cc + dc)
  IF dd = 0 THEN 13
  IF cr + dr * dd > height OR cr + dr * dd < 1 OR cc + dc * dd > columns OR cc + dc * dd < 1 THEN 13
 
  FOR s = 1 TO number(cr + dr, cc + dc)
    IF number(cr + s * dr, cc + s * dc) = 0 THEN 13
  NEXT

  FOR tagnumber = 1 TO 16
    IF taggedr(tagnumber) = 0 THEN 15
    COLOR ncf, ncb
    LOCATE taggedr(tagnumber), taggedc(tagnumber)
    IF m THEN PRINT "ú";  ELSE PRINT CHR$(number(taggedr(tagnumber), taggedc(tagnumber)) + blah);
    taggedr(tagnumber) = 0
    taggedc(tagnumber) = 0
  NEXT
15
  FOR s = 1 TO number(cr + dr, cc + dc)
    cc = cc + dc
    cr = cr + dr
    LOCATE cr, cc
    points = points + 1
    PRINT " ";
    number(cr, cc) = 0
  NEXT

LOOP

tag:
  tagnumber = 0
  X = 0
  FOR ddr = -1 TO 1
    FOR ddc = -1 TO 1
      IF cc + ddc < 1 OR cc + ddc > columns OR cr + ddr < 1 OR cr + ddr > height THEN 14
      IF ddr = 0 AND ddc = 0 THEN 14
      tmp = number(cr + ddr, cc + ddc)
      IF tmp = 0 THEN 14
      FOR s = 1 TO tmp
        crddrs = cr + ddr * s
        ccddcs = cc + ddc * s
        IF crddrs < 1 OR crddrs > height OR ccddcs < 1 OR ccddcs > columns THEN 14
        IF number(crddrs, ccddcs) = 0 THEN 14
      NEXT
      IF X = 0 THEN X = 1
      LOCATE cr + ddr, cc + ddc
      COLOR tbf, tbg
      PRINT CHR$(number(cr + ddr, cc + ddc) + blah);
      tagnumber = tagnumber + 1
      taggedr(tagnumber) = cr + ddr
      taggedc(tagnumber) = cc + ddc
      LOCATE crddrs, ccddcs
      COLOR tdf, tdg
      PRINT CHR$(number(crddrs, ccddcs) + blah);
      tagnumber = tagnumber + 1
      taggedr(tagnumber) = crddrs
      taggedc(tagnumber) = ccddcs
14  NEXT
  NEXT
  IF X = 0 THEN
    IF height >= ht - 1 THEN LOCATE height, 1 ELSE LOCATE height + 1, 1
    COLOR 12, 0
    PRINT "You lose!  Press enter to continue...";
    BEEP
    WHILE INKEY$ <> CHR$(13): WEND
    GOTO nd
  END IF
RETURN

redraw:
COLOR ncf, ncb
CLS
FOR hhh = 1 TO height
  FOR ccc = 1 TO columns
    IF number(hhh, ccc) <> 0 THEN
      LOCATE hhh, ccc
      IF m THEN PRINT "ú";  ELSE PRINT CHR$(number(hhh, ccc) + blah);
    END IF
  NEXT
NEXT
IF highlight THEN GOSUB tag
RETURN

keys:
COLOR 14, 0
CLS
PRINT "The object of this game is to eat up as many numbers as you can before you get"
PRINT "stuck."
PRINT
PRINT "Use the arrow keys or num keys (including diagonal, if you have num lock on)"
PRINT "to move."
PRINT
PRINT "Also:"
PRINT
COLOR 10: PRINT "I"; : COLOR 7: PRINT "nstructions"
COLOR 10: PRINT "I"; : COLOR 7: PRINT " need help!"
COLOR 10: PRINT "H"; : COLOR 7: PRINT "elp, please"
PRINT "what is this"; : COLOR 26: PRINT "?"
LOCATE 9, 15
COLOR 10: PRINT "S"; : COLOR 7: PRINT "ave the game"
LOCATE , 15
COLOR 10: PRINT "L"; : COLOR 7: PRINT "oad the game"
LOCATE , 15
COLOR 10: PRINT "C"; : COLOR 7: PRINT "hange colors"
LOCATE , 15
COLOR 10: PRINT "M"; : COLOR 7: PRINT "ystery mode"
LOCATE 9, 30
COLOR 7: PRINT "highligh"; : COLOR 10: PRINT "T"; : COLOR 7: PRINT "ing"
LOCATE , 30
PRINT "clear screen"; : COLOR 10: PRINT "."
LOCATE , 30
COLOR 7: PRINT "h"; : COLOR 10: PRINT "E"; : COLOR 7: PRINT "ight change"
LOCATE , 30
COLOR 10: PRINT "N"; : COLOR 7: PRINT "ew challenge"
LOCATE 9, 45
COLOR 10: PRINT "R"; : COLOR 7: PRINT "edraw screen"
LOCATE , 45
COLOR 10: PRINT "Q"; : COLOR 7: PRINT "uit program"
LOCATE , 45
PRINT "e"; : COLOR 10: PRINT "X"; : COLOR 7: PRINT "it program"
LOCATE , 45
COLOR 10: PRINT "ESC"; : COLOR 7: PRINT "ape please"
LOCATE 9, 60
PRINT "letts"; : COLOR 10: PRINT "/"; : COLOR 7: PRINT "numbs"
LOCATE , 60
PRINT "show c"; : COLOR 10: PRINT "U"; : COLOR 7: PRINT "rsor"
LOCATE , 60
PRINT "cursor m"; : COLOR 10: PRINT "O"; : COLOR 7: PRINT "de"
LOCATE , 60
COLOR 10: PRINT "Y"; : COLOR 7: PRINT "our points"
IF height <= 20 THEN LOCATE 19, 1 ELSE LOCATE height - 1, 1
PRINT "Press any key except "; : COLOR 10: PRINT "?"; : COLOR 7: PRINT " to continue...";
DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
IF a$ = "?" THEN GOSUB whatisthis
RETURN

savegame:
taken = 0
IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
CLS
PRINT "File to save to: ";
file$ = ""
length = 0
DO
50
  DO: a$ = UCASE$(INKEY$): LOOP UNTIL LEN(a$) = 1
  aa = ASC(a$)
  IF aa < 33 THEN
    IF a$ = "" THEN
      IF length > 0 THEN
        length = length - 1
        LOCATE , 18 + length
        PRINT " ";
        IF taken THEN LOCATE 3, 1: PRINT STRING$(26, 32)
        LOCATE 1, 18 + length
        file$ = LEFT$(file$, length)
      ELSE
        GOTO 50
      END IF
      IF length > 0 THEN GOTO 60 ELSE GOTO 50
    END IF
    IF ((aa = 13 OR aa = 27) AND taken) OR aa = 32 THEN
      IF taken = true THEN
        taken = false
        LOCATE 3, 1
        PRINT STRING$(26, 32);
      END IF
      LOCATE 1, 18
      PRINT STRING$(length, 32);
      LOCATE , 18
      'IF NOT taken THEN CLOSE #1: KILL path$ + file$ + ".msm" ELSE CLOSE #1
      file$ = ""
      length = 0
      GOTO 50
    ELSE
      IF aa = 13 THEN 41
    END IF
    GOTO 50
  ELSE
    FOR ss = 1 TO LEN(bc$)
      IF a$ = MID$(bc$, ss, 1) THEN 50
    NEXT
  END IF
40
  IF length < 8 THEN
    length = length + 1
    file$ = file$ + a$
    PRINT a$;
  ELSE
    file$ = RIGHT$(file$ + a$, 8)
    LOCATE , 18
    PRINT file$;
  END IF
 
60
  OPEN path$ + file$ + ".msm" FOR APPEND AS #1
  IF LOF(1) > 1 THEN
    IF taken = false THEN
      LOCATE 3, 1
      PRINT "That name is already taken";
      taken = true
    END IF
    CLOSE #1
    LOCATE 1, length + 18
  ELSE
    CLOSE #1
    KILL path$ + file$ + ".msm"
    IF taken = true THEN
      taken = false
      LOCATE 3, 1
      PRINT STRING$(26, 32);
      LOCATE 1, length + 18
    END IF
  END IF
LOOP

41
IF file$ = "" THEN GOTO 42

LOCATE 3, 1
PRINT "saving "; file$; "..."
OPEN path$ + file$ + ".msm" FOR OUTPUT AS #1

FOR ssr = 1 TO height
  FOR ssc = 1 TO columns
    PRINT #1, CHR$(number(ssr, ssc) + blah);
  NEXT
  PRINT #1,
NEXT
CLOSE #1
OPEN path$ + file$ + ".msc" FOR OUTPUT AS #1
PRINT #1, height; ","; columns; ","; cr; ","; cc; ","; m; ","; ncf; ","; ncb; ","; tbf; ","; tbb; ","; tdf; ","; tdb; ","; showcursor; ","; lapse
CLOSE #1
42

CLOSE #1
RETURN

loadgame:
file$ = ""
taken = false
IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
CLS
PRINT "File to load from: ";
DO
150
  DO: a$ = UCASE$(INKEY$): LOOP UNTIL LEN(a$) = 1
  aa = ASC(a$)
  IF aa < 33 THEN
    IF a$ = "" THEN
      IF length > 0 THEN
        length = length - 1
        LOCATE , 20 + length
        PRINT " ";
        IF taken THEN
          LOCATE 3, 1
          PRINT STRING$(10, 32);
        END IF
        LOCATE 1, 20 + length
        file$ = LEFT$(file$, length)
      ELSE
        GOTO 150
      END IF
    IF length > 0 THEN GOTO 160 ELSE GOTO 150
    END IF
    IF aa = 13 AND NOT taken OR aa = 32 THEN
      IF file$ = "" THEN GOTO 142
      'IF NOT taken THEN CLOSE #1: KILL path$ + file$ + ".msm" ELSE CLOSE #1
      file$ = ""
      LOCATE , 20
      PRINT STRING$(length, 32);
      LOCATE , 20
      length = 0
      GOTO 150
    ELSE
      IF aa = 13 THEN GOTO 141
    END IF
    GOTO 150
  ELSE
    FOR ss = 1 TO LEN(bc$)
      IF a$ = MID$(bc$, ss, 1) THEN 150
    NEXT
    GOTO 140
  END IF
140

  IF length < 8 THEN
    length = length + 1
    file$ = file$ + a$
    PRINT a$;
  ELSE
    file$ = RIGHT$(file$ + a$, 8)
    LOCATE , 20
    PRINT file$;
  END IF

160
  CLOSE #1
  IF lfile$ <> "" THEN
    KILL path$ + lfile$ + ".msm"
    lfile$ = ""
  END IF
  OPEN path$ + file$ + ".msm" FOR BINARY AS #1
  IF LOF(1) > 1 THEN
    IF taken = false THEN
      LOCATE 3, 1
      PRINT "Found file";
      taken = true
    END IF
    CLOSE #1
    LOCATE 1, length + 20
  ELSE
    lfile$ = file$
    IF taken = true THEN
      taken = false
      LOCATE 3, 1
      PRINT STRING$(10, 32);
      LOCATE 1, length + 20
    END IF
  END IF
LOOP

141
IF file$ = "" THEN GOTO 142
points = -1
REDIM SHARED number(1 TO 50, 1 TO 80), taggedc(16), taggedr(16)
OPEN path$ + file$ + ".msm" FOR INPUT AS #1
sss = 0
LOCATE 3, 1
PRINT "Loading "; file$; "  ";
DO UNTIL EOF(1)
  sss = sss + 1
  INPUT #1, tmp$
  FOR ss = 1 TO columns
    number(sss, ss) = VAL(MID$(tmp$, ss, 1))
    IF number(sss, ss) = 0 THEN points = points + 1
  NEXT
LOOP
CLOSE #1
OPEN path$ + file$ + ".msc" FOR INPUT AS #1
INPUT #1, height, columns, cr, cc, m, ncf, ncb, tbf, tbb, tdf, tdb, showcursor, lapse
IF height <= 25 THEN ht = 25 ELSE IF height <= 43 THEN ht = 43 ELSE ht = 50
WIDTH 80, ht
over = height * columns - 1
CLOSE #1




142

CLOSE #1

RETURN

whatisthis:
IF ncf <> ncb AND ncf - 16 <> ncb THEN COLOR ncf, ncb ELSE COLOR 7, 0
CLS
COLOR 7
PRINT "This is my own version of a game I saw on some BBS some years ago",
PRINT "the name of which I forgot, with the exception of the first letter."
IF height <= 20 THEN LOCATE 19, 1 ELSE LOCATE height - 1, 1
PRINT "Press any normal key to continue, or "; : COLOR 10: PRINT "I"; : COLOR 7: PRINT " for command keys...";
DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
IF UCASE$(a$) = "I" THEN GOSUB keys
RETURN



nd:
s = 0
COLOR , 0
CLS
ss = 0
      LOCATE 4, 34
      COLOR 14
      PRINT "M-something"
      COLOR 11
      LOCATE , 34
      PRINT "Hall of Fame"
      OPEN path$ + "msmthng.t10" FOR APPEND AS #1
      CLOSE #1
      OPEN path$ + "msmthng.t10" FOR INPUT AS #1
      DO UNTIL EOF(1) OR s >= 10
        s = s + 1
        LINE INPUT #1, handle$(s)
        INPUT #1, score(s), over(s)
        IF points / over >= score(s) / over(s) AND NOT I THEN
          IF over <= over(s) OR points > 0 THEN
            I = true
            ss = s
            s = s + 1
            handle$(s) = handle$(ss)
            score(s) = score(ss)
            over(s) = over(ss)
            handle$(ss) = ""
            score(ss) = points
            over(ss) = over
          END IF
        END IF
      LOOP
      ms = s
      IF ms > 10 THEN ms = 10
      IF ss = 0 THEN ss = ms + 1
      FOR s = 1 TO ms
        LOCATE 7 + s, 20
        COLOR 9
        PRINT handle$(s)
        COLOR 2
        LOCATE 7 + s, 51
        PRINT LTRIM$(RTRIM$(STR$(score(s)))); : COLOR 7: PRINT "/"; : COLOR 2: PRINT LTRIM$(RTRIM$(STR$(over(s))))
      NEXT
200
      IF ss < 11 THEN
        LOCATE 7 + ss, 51
        COLOR 26
        PRINT RTRIM$(LTRIM$(STR$(points))); : COLOR 23: PRINT "/"; : COLOR 26: PRINT RTRIM$(LTRIM$(STR$(over)))
        LOCATE 7 + ss, 20
        LOCATE , 20
        COLOR 9
        LINE INPUT handle$
        handle$ = LEFT$(handle$, 30)
        handle$(ss) = handle$
        score(ss) = points
        over(ss) = over
      ELSE
        LOCATE 18, 20
        COLOR 11
        PRINT "Your Score:";
        COLOR 10
        LOCATE , 51
        PRINT LTRIM$(RTRIM$(STR$(points))); : COLOR 7: PRINT "/"; : COLOR 10: PRINT RTRIM$(LTRIM$(STR$(over)))
      END IF
      IF ms + 1 >= 10 THEN tmp = 10 ELSE tmp = ms + 1
      CLOSE #1
      OPEN path$ + "msmthng.t10" FOR OUTPUT AS #1
      FOR s = 1 TO tmp
        IF over(s) <> 0 THEN
          PRINT #1, handle$(s)
          PRINT #1, score(s); ","; over(s)
        END IF
      NEXT
      IF ss < 11 THEN
        LOCATE 7 + ss, 51
        COLOR 2
        PRINT RTRIM$(LTRIM$(STR$(score(ss)))); : COLOR 7: PRINT "/"; : COLOR 2: PRINT RTRIM$(LTRIM$(STR$(over(ss))))
        COLOR 12
      END IF
nd2:
      IF height <= 20 THEN LOCATE 19, 1 ELSE LOCATE height - 1, 1
      COLOR 12
      PRINT "Press any key except enter to continue...";
      WHILE INKEY$ <> CHR$(13): WEND
      IF height <= 20 THEN LOCATE 19, 1 ELSE LOCATE height - 1, 1
      PRINT "Returning to BBS                         ";