home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 247
/
247.d81
/
b.pilot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
923b
|
41 lines
1 poke56,56:clr:poke53280,0:poke53281,0:print"[147]"
2 v$="piloshow
3 [143]----------
5 d[178][194](186):[139]d[179]8[167][153]d:[144]
11 [151]53265,11:[141]40000:
14 [151]53265,27:[151]828,123
15 [151]831,[195](v$):[129]x[178]1[164][195](v$):[151]831[170]x,[198]([202](v$,x)):[130]
20 [147]"clipsp.pkd",d
9999 [128]
10000 [159]1,8,15,"i0":n$[178]"b.pilot
10001 print#1,"s0:"+n$:close1:saven$,8:end
40000 open4,d,4,v$:get#4,a$,b$
40010 input#4,a$(1)
40020 input#4,a$(2)
40030 input#4,a$(3)
40040 close4
40050 a$(5)="http://c64.eloadstar.com"
40060 a$(6)="[193] [195][204][201][208][211] [208]resentation"
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] "
41015 poke214,15:print
41020 forx=1to6
41021 ifx=1theniflen(a$(1))<19thengosub41050
41022 printtab(19-len(a$(x))/2)"[152]"a$(x)
41024 next
41025 t=ti+60
41026 open1,d,15,"s0:temp":close1
41027 open4,d,4,"temp,s,w"
41028 forx=1to3:print#4,a$(x):next:close4
41031 ift>tithen41031
41032 print"":return
41050 b$="":a$=a$(1)
41051 fory=1tolen(a$):b$=b$+mid$(a$,y,1)+" ":next
41052 a$(1)=left$(b$,len(b$)-1):return
60000 goto10000