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