home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 246 / 246.d81 / b.herbs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  922b  |  41 lines
  1. 1 poke56,56:clr:poke53280,0:poke53281,0:print"[147]"
  2. 2 v$="herbshow
  3. 3 [143]----------
  4. 5 d[178][194](186):[139]d[179]8[167][153]d:[144]
  5. 11 [151]53265,11:[141]40000:
  6. 14 [151]53265,27:[151]828,123
  7. 15 [151]831,[195](v$):[129]x[178]1[164][195](v$):[151]831[170]x,[198]([202](v$,x)):[130]
  8. 20 [147]"clips.pkd",d
  9. 9999 [128]
  10. 10000 [159]1,8,15,"i0":n$[178]"b.herbs
  11. 10001 print#1,"s0:"+n$:close1:saven$,8:end
  12. 40000 open4,d,4,v$:get#4,a$,b$
  13. 40010 input#4,a$(1)
  14. 40020 input#4,a$(2)
  15. 40030 input#4,a$(3)
  16. 40040 close4
  17. 40050 a$(5)="http://c64.eloadstar.com"
  18. 40060 a$(6)="[193] [195][204][201][208][211] [208]resentation"
  19. 41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
  20. 41002 poke214,13:print
  21. 41004 printtab(1)"[155]                                     "
  22. 41005 forx=1to8
  23. 41006 printtab(1)"[152]                                     "
  24. 41007 next
  25. 41013 printtab(1)"[151]                                     "
  26. 41015 poke214,15:print
  27. 41020 forx=1to6
  28. 41021 ifx=1theniflen(a$(1))<19thengosub41050
  29. 41022 printtab(19-len(a$(x))/2)"[152]"a$(x)
  30. 41024 next
  31. 41025 t=ti+60
  32. 41026 open1,d,15,"s0:temp":close1
  33. 41027 open4,d,4,"temp,s,w"
  34. 41028 forx=1to3:print#4,a$(x):next:close4
  35. 41031 ift>tithen41031
  36. 41032 print"":return
  37. 41050 b$="":a$=a$(1)
  38. 41051 fory=1tolen(a$):b$=b$+mid$(a$,y,1)+" ":next
  39. 41052 a$(1)=left$(b$,len(b$)-1):return
  40. 60000 goto10000
  41.