home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 236
/
236.d81
/
b.s2f
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
53 lines
5 d=peek(186):ifd<8thend=8
10 gosub60008:ifn$="dot"then13000
11 p$=n$+".dot":n$=n$+".med"
12 open1,d,15,"r0:"+n$+"="+n$:input#1,en:close1
14 ifen<>63then11000
16 open1,d,15,"r0:"+p$+"="+p$:input#1,en:close1
18 ifen<>63then12000
19 gosub41000:n$=n$+".med"
20 print"[144]loadp$,d":print"run"
30 sys57812"mouse2.1 7k 2400",d,0:poke780,0:poke781,0:poke782,036:sys65493
40 sys57812n$,d,0:poke780,0:poke781,0:poke782,224:sys65493
42 sys57812"df.ml",d,0:poke780,0:poke781,0:poke782,18:sys65493
45 sys57812"unpacker 2000 c9",d,0:poke780,0:poke781,0:poke782,201:sys65493
50 q=128:poke44,q:pokeq*256,0
60 poke631,13:poke632,13:poke198,2:end
10999 end
11000 print"the file <"n$"> is not on this disk"
11010 print"use mr.medic to creat <"n$">"
11020 print"before running this program":end
12000 l$="dot.dot":print"[147]loadl$,d"
12005 gosub60008
12010 print"60008 n$="chr$(34)n$chr$(34)
12020 print"goto60000"
12030 print"load"chr$(34)"b."n$chr$(34)","d
12040 print"p[207]646,1:run"
12050 forx=1to5:poke630+x,13:next:poke198,5
12099 end
13000 print"you must use a program name other
13010 [153]"than <dot>.":[128]
41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
41002 [151]214,14:[153]
41004 [153][163]1)"list "
41005 [129]x[178]1[164]6
41006 [153][163]1)"print# "
41007 [130]
41013 [153][163]1)"poke "
41015 [141]60008:[151]214,16:[153]
41016 n1$[178]"":[129]x[178]1[164][195](n$):n1$[178]n1$[170][199](128[170][198]([202](n$,x))):[130]
41019 [153][163]19[171][195](n$)[173]2)"print#"n1$
41020 [129]x[178]2[164]4:[135]a$:[151]214,15[170]x:[153]
41022 [153][163]19[171][195](a$)[173]2)"print#"a$
41024 [130]
41030 t[178]ti[170]60
41031 [139]t[177]ti[167]41031
41032 [153]"":[142]
41051 [131]"by str$ave (NULL)oorman
41052 data"(c) 2004 by [202] & [198] [208]ublishing, [201]nc.
41053 [131]"www.eloadstar.com
60000 d=peek(186):gosub60008
60001 open1,d,15,"i0":print#1,"s0:b."+n$:close1:save"b."+n$,d:end
60008 n$="s2f"
60009 return