home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 119 / 119.d81 / 81boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  186 b   |  6 lines
  1. 10 ifathen30
  2. 20 a=a+1:sys2167:d=peek(186):load"tm*",d,1
  3. 30 geta$:ifa$<"1"ora$>"4"then40
  4. 35 b=(asc(a$)-49)*2
  5. 40 sys2221:poke767,b+64:sys679
  6.