home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 128 / 128.d81 / b.presto (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  38 lines
  1. 10 poke53265,11:gosub61000:poke53265,27
  2. 15 dv=peek(186):ifdv<8thendv=8
  3. 17 poke646,peek(53281):poke831,0
  4. 18 forx=0to64:poke832+x,0:next:poke53271,0:poke53277,0:poke53276,0:poke53269,0
  5. 19 poke53271,0:poke53275,0
  6. 20 print"load"chr$(34)"prest"chr$(34)","dv
  7. 25 print"run"
  8. 30 q=26:poke44,q:poke43,1:pokeq*256,0
  9. 40 poke631,13:poke632,13:poke198,2:end
  10. 5000 printspc(19)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  11. 5001 [153][166]19)"(NULL)       sys(NULL)right$(NULL)left$       (NULL)
  12. 5002 printspc(19)"[221]    [159][202]eff [202]ones'   [221]
  13. 5003 [153][166]18)":(NULL)   (NULL)right$(NULL)right$-(NULL)(NULL)(NULL)(NULL)peek(NULL)(NULL)   (NULL)
  14. 5004 printspc(19)"[221][159][195][197]'[211]pock' [208]rince's[221]
  15. 5005 [153][166]19)"(NULL)   right$(NULL)atnchr$val (NULL)(NULL)right$(NULL)val(NULL)   (NULL)
  16. 5006 printspc(19)"[221]   [159][196]ave [205]arquis'  [221]
  17. 5007 [153][166]18)":(NULL) (NULL)right$str$ right$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)  (NULL)
  18. 5008 printspc(18)":[221][154]     (c) 1993     [221]
  19. 5009 [153][166]19)"(NULL)  cont(NULL)oftdisk, right$nc.  (NULL)
  20. 5010 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  21. 5090 [142]
  22. 59999 [128]
  23. 60000 [159]15,8,15,"s0:presto boot":[160]15:[148]"0:presto boot",8
  24. 60001 [153]:[159]15,8,15:[132]15,en,en$:[160]15:[153]:[153]en,en$:[128]
  25. 61000 [151]53280,6:[151]53281,6:[151]53272,22
  26. 61001 [153]"load";:z$[178]" print#                                      ":[141]5000
  27. 61009 [151]214,10:[153]
  28. 61010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  29. 61020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  30. 61030 z$(0)[178]"(NULL) (NULL) val (NULL) (NULL) (NULL)":z$(1)[178]"by str$avid (NULL). (NULL)oorman"
  31. 61040 z$(2)[178]"(NULL)3.2 (len) 1994 by (NULL)oftdisk, right$nc."[170][199](13)
  32. 61050 z$(3)[178]"(NULL)his program is the copyrighted work
  33. 61060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]t is not"
  34. 61070 z$(5)="shareware or in the public domain."
  35. 61080 z$(6)="[210]eport illegal distribution of":z$(7)="this program by calling"
  36. 61090 z$(8)="1-800-831-2694 or 1-318-221-8718.":poke214,12:print
  37. 61100 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  38.