home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 248
/
248.d81
/
b.grafmus
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
88 lines
1 poke56, 128 :clr
5 d=peek(186):ifd<8thenstop
6 poke1023,d
7 ifpeek(44)=100thengosub41000:print"[144]"
10 gosub60008:f$=n$+".dbs"
11 ifn$="dotplus"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
24 ifpeek(44)=100then30
25 poke44,100:poke256*100,0
26 a$="b."+n$:print"[147]l[207]a$,d":print"run"
27 poke198,2:poke631,13:poke632,13:end
30 sys57812"mouse2.1 7 1000",d,0:poke780,0:poke781,0:poke782,16:sys65493
31 sys57812"dba.sidg.ml",d,0:poke780,0:poke781,0:poke782,192:sys65493
32 sys57812"dba.unpg.ml",d,0:poke780,0:poke781,0:poke782,205:sys65493
46 gosub60008:df$=n$+".dml":f$=n$+".dbs"
47 sys57812df$,d,0:poke780,0:poke781,0:poke782,56:sys65493
48 l=peek(781):h=peek(782):open4,d,4,df$:get#4,a$,b$:close4
49 ifasc(b$)<>56thengosub600
50 q=h+1:poke44,q:pokeq*256,0:poke1020,1:poke1021,q
51 print"[147]l[207]f$,d":print"run"
52 poke198,2:poke631,13:poke632,13:end
200 stop: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 stop: open1,d,15,"c0:"+df$+"=dd.ml"
306 close1:return
399 end
500 print"[213]se [194].[196][207][212][194][193][211][201][195] to create your [208]roject.":end
501 print"and press <return> twice"
502 print"goto60000[145][145][145]":list60008
600 poke53280,1:print"":poke198,0:stop
605 open1,d,15,"s0:"+df$:close1
610 sys57812df$,d:poke193,0:poke194,56:poke174,l:poke175,h:sys62954
620 sys57812df$,d,0:poke780,0:poke781,0:poke782,56:sys65493:h=peek(782)
630 return
41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
41002 poke214,13:print
41004 printtab(1)"[155] "
41005 forx=1to8
41006 printtab(1)"[152] "
41007 next
41013 printtab(1)"[151] "
41014 gosub41075
41020 forx=2to6:reada$:poke214,14+x:print
41021 ifx=1theniflen(a$)<19thengosub41050
41022 printtab(19-len(a$)/2)"[152]"a$
41024 next
41030 t=ti+60
41031 ift>tithen41031
41032 print"":return
41050 b$=""
41051 fory=1tolen(a$):b$=b$+mid$(a$,y,1)+" ":next:a$=left$(b$,len(b$)-1):return
41075 gosub60008:aa$="":forx=1tolen(n$)
41076 a=asc(mid$(n$,x)):ifa>64thena=aor128
41078 aa$=aa$+chr$(a):next:n$=aa$
41080 iflen(n$)>18then41088
41082 aa$="":forx=1tolen(n$)-1
41084 aa$=aa$+mid$(n$,x,1)+" ":next
41086 n$=aa$+right$(n$,1)
41090 poke214,15:print:print"[152]" tab(19-len(n$)/2)n$:return
41101 rem author's name
41102 data"by [196]ave [205]oorman"
41103 rem extra line
41104 data""
41105 rem copyright
41106 data"(c)2007 [202] & [198] [208]ublishing, [201]nc.
41107 [143] extra line
41108 [131]""
41109 [143] loadstar tag
41110 [131]"http://c64.eloadstar.com"
59999 [128]
60000 [141]60008:n$[178]"b."[170]n$
60001 d[178][194](186)
60002 [159]1,d,15,"s0:"[170]n$:[160]1:[148]n$,d:[128]
60008 n$[178]"grafmus"
60009 [142]