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