home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / review1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  392 b   |  10 lines
  1. 1 poke46,19:poke48,18:poke50,18:poke52,160:clr
  2. 5 poke53281,0:poke53280,0:x$=chr$(13)+""
  3. 6 a$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 10 print"[147][155]"x$"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  5. 30 print"  [192][155][192][192][152][192][192][152]  loading snapshot review   [146][192][192][155][192][192][192]"x$;
  6. 40 print"[145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  7. 50 fori=1to10:a$=mid$(a$,3):poke214,24-i:print:printspc(20-len(a$)/2)""a$""
  8. 60 poke214,-1+i:print:printspc(20-len(a$)/2)"[159]"a$:next
  9. 70 clr:load"reader",8
  10.