home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 43
/
043.d81
/
res
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
593b
|
18 lines
1 clr:dima(13),b(19),e$(10)
2 print"[147] [197]nter expedition ([193] or [194])"
4 getks$:ifks$<>"a"andks$<>"b"then4
7 aa$="exp"+ks$:a$=aa$+aa$:gosub760
8 a$=aa$:gosub840
9 printtab(17)"[196]one"
10 load"flint",8
760 open2,8,2,a$+",s,r"
761 forb=1to4:input#2,c$(b):input#2,c(b):input#2,f(b):input#2,e(b):next
762 input#2,f:input#2,g:input#2,h:input#2,i:input#2,j:input#2,k:input#2,l
763 forb=1to13:input#2,a(b):next:input#2,d$:input#2,e$:input#2,f$
764 forb=1to19:input#2,b(b):next:forb=1to10:input#2,e$(b):next:close 2:return
840 open3,8,3,"@:"+a$+",s,w"
841 forb=1to4:print#3," "+c$(b):print#3,c(b):print#3,f(b):print#3,e(b):next
842 print#3,f:print#3,g:print#3,h:print#3,i:print#3,j:print#3,k:print#3,l
843 forb=1to13:print#3,a(b):next:print#3,d$:print#3,e$:print#3,f$
844 forb=1to19:print#3,b(b):next:forb=1to10:print#3,e$(b)+" ":next:close 3:return