home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 138 / 138.d81 / q&d wp db (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  709 b   |  30 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 20 nf=3:c=1
  3. 30 fori=1tonf:readm$(i):next
  4. 40 data"[212]itle"
  5. 50 data"[193]uthor"
  6. 60 data"[196]ate"
  7. 70 s$="                                               "
  8. 80 p$="..............................................."
  9. 90 print"[147][159]"
  10. 100 fori=1tonf:printitab(4)m$(i):print:next
  11. 110 geta$:ifa$<"1"ora$>mid$(str$(nf),2)then110
  12. 120 m=val(a$):poke214,m*2:print:printtab(4)""m$(m)
  13. 130 poke214,2+2*nf:print:printtab(4);
  14. 140 input"[211]tring";h$:print
  15. 150 open2,dv,2,"books 95,r,s":open4,3,7
  16. 160 fori=1tonf:input#2,b$(i)
  17. 170 ifst<>0thenclose2:close4:goto260
  18. 180 next
  19. 190 ifleft$(b$(m),len(h$))<>h$then240
  20. 200 print#4,str$(c)".";
  21. 210 print#4,left$(s$,4-len(str$(c)))b$(1);
  22. 220 print#4,left$(p$,40-len(b$(1)))b$(2);
  23. 230 print#4,left$(p$,26-len(b$(2)))b$(3)
  24. 240 c=c+1
  25. 250 goto160
  26. 260 print"    [196]one!"
  27. 270 geta$:ifa$=""then270
  28. 280 goto90
  29. 10000 d=peek(186):n$="q&d wp db":open15,d,15,"s0:"+n$:close15:saven$,d:end
  30.