home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 115 / 115.d81 / fontedit (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  45 lines
  1. 10 poke 56,64:clr:dv=peek(186):ifdv<8thendv=8
  2. 20 print"[147]"chr$(142)chr$(14):poke 53280,0:poke 53281,0:gosub 60000
  3. 30 sys 57812"fontedit.o",dv,0:poke 780,0:poke 781,0:poke 782,128:sys 65493
  4. 40 sys 32768
  5. 1000 poke 53265,11:b$="[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  6. 1010 print"[147]":t$="[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  7. 1020 m$(1)="[194][159][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146][154][194]"
  8. 1030 m$(2)="[154][194][159][194][146][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][159][194][146][154][194]"
  9. 1040 m$(3)="[154][194][159][194][146][194][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146][194][159][194][146][154][194]"
  10. 1050 m$(4)="[154][194][159][194][146][194][156][194][153]                            [156][194][146][194][159][194][146][154][194]"
  11. 1060 m$(5)="[154][194][159][194][146][194][156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146][194][159][194][146][154][194]"
  12. 1070 m$(6)="[154][194][159][194][146][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][159][194][146][154][194]"
  13. 1080 m$(7)="[194][159][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146][154][194]"
  14. 1090 printtab(3)t$
  15. 1100 fori=1to3:printtab(3)m$(i):next
  16. 1110 fori=1to11:printtab(3)m$(4):next
  17. 1120 fori=5to7:printtab(3)m$(i):next
  18. 1130 printtab(3)b$
  19. 1140 print""tab(11)"[158]   [153] [150]                "
  20. 1150 printtab(11)"[158] l [153] [150] go to loadstar "
  21. 1160 printtab(11)"[158]   [153] [150]                "
  22. 1170 printtab(9)"   [153] [154]                    "
  23. 1180 printtab(9)" f [153] [154] return to fontedit "
  24. 1190 printtab(9)"   [153] [154]                    ":poke53265,27
  25. 2000 get a$:if a$<>"l" and a$<>"f" then 2000
  26. 2100 if a$="f" then 40
  27. 2110 goto40000
  28. 10000 open15,8,15,"s0:fontedit boot":close15:save"fontedit boot",8:end
  29. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  30. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  31. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke56,160:poke186,8:end
  32. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  33. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  34. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  35. 60010 print" [155][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][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  36. 60020 print" [151][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][185][185][185][185][185][185][185][185][185][185][152]"
  37. 60030 z$(0)="[198] [207] [206] [212] [197] [196] [201] [212]":z$(1)="by [210]ick [203]ephart"
  38. 60040 z$(2)="([195]) 1993 by [211]oftdisk [208]ublishing"+chr$(13)
  39. 60050 z$(3)="[212]his program is the copyrighted work
  40. 60060 z$(4)[178]"of (NULL)oftdisk (NULL)ublishing.  right$t is not"
  41. 60070 z$(5)[178]"shareware or in the public domain."
  42. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  43. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  44. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  45.