home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 248
/
248.d81
/
b.dotbasic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
809b
|
36 lines
5 d=peek(186):ifd<8thenstop
6 poke1023,d
10 gosub60008:f$=n$+".dbs"
11 ifn$="dot+"then500
12 open1,d,15,"r0:"+f$+"="+f$
13 input#1,en:close1
14 ifen<>63then200
20 df$=n$+".dml"
21 open1,d,15,"r0:"+df$+"="+df$
22 input#1,en:close1
23 ifen<>63thengosub300
30 sys57812"mouse2.1 7k 1000",d,0:poke780,0:poke781,0:poke782,16:sys65493
31 sys57812df$,d,0:poke780,0:poke781,0:poke782,56:sys65493
32 q=peek(782)+1:poke44,q:pokeq*256,0
33 print"[147]l[207]f$,d":print"run"
34 poke198,2:poke631,13:poke632,13:end
200 q$=chr$(34):a$="dot+.dbs"
202 print"[147]l[207]a$,d"
204 print"60008n$="q$n$q$
206 print"goto60000"
208 print"l[207]"q$"b."n$q$","d
210 print"run"
212 poke198,5:forx=1to5:poke630+x,13:next:end
299 end
300 open1,d,15,"c0:"+df$+"=dd.ml"
306 close1:return
399 end
500 print"change n$ to your program name"
501 print"and press <return> twice"
502 print"goto60000[145][145][145]":list60008
59999 end
60000 gosub60008:n$="b."+n$
60001 open1,8,15,"s0:"+n$:close1:saven$,8:end
60008 n$="dotbasic
60009 [142]