home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 163 / 163.d81 / b.scaler (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  717b  |  27 lines
  1. 10 gosub60000:dv=peek(186):ifdv<8thendv=8
  2. 20 poke4096,0:poke44,16:poke43,1
  3. 30 print"[144]load"chr$(34)"scaler"chr$(34)","dv
  4. 40 print"run"
  5. 50 poke631,13:poke632,13:poke198,2:end
  6. 60 :
  7. 10000 dv=peek(186):n$="b.scaler"
  8. 10010 open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  9. 60000 poke53281,.:poke53280,.:print"[147]":
  10. 60010 poke214,8:print
  11. 60020 print"[162][162]"tab(37)"[162][162]"
  12. 60030 print"[152]  "tab(37)"  "
  13. 60040 fori=.to11:print"[152]  [155][165]                                [167][152]  ":next
  14. 60050 print"[152]  "tab(37)"  "
  15. 60060 print"[162][162]"tab(37)"[162][162]";
  16. 60070 poke214,11:print
  17. 60080 fori=.to7:reada$:printtab(20-len(a$)/2)"[155]"a$:next:return
  18. 60090 :
  19. 60100 data "[211] [195] [193] [204] [197] [210]"
  20. 60110 data "by [194]ob [205]arkland"
  21. 60120 data "(c) 1997 by [202] & [198] [208]ublishing"
  22. 60130 data "[212]his is the copyrighted work"
  23. 60140 data "of [202] & [198] [208]ublishing."
  24. 60150 data "[201]t is not shareware or in"
  25. 60160 data "the public domain."
  26. 60170 data "[212]o subscribe call 1-800-594-3370"
  27.