home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 158 / 158.d81 / b.bookprint (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  55 lines
  1. 10 poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]"
  4. 50 d=4
  5. 60 print"    [129][195][210][193][218][217] [198][197][206][196][197][210]'[211] [194][207][216] [207]' [195]= [194][207][207][203][211]
  6. 62 [153]"  chr$et your printer ready and press
  7. 64 print" [211][208][193][195][197] to print out [195]razy [198]ender's
  8. 66 [153]" (NULL)right$(NULL)(NULL) (NULL)' len-64/128 peek(NULL)(NULL)(NULL)(NULL). (NULL)o order, send
  9. 68 print" a letter to:
  10. 70 [153]"cont     lenrazy ascender
  11. 72 print"     606 [195]ommon [211]treet
  12. 74 [153]"     (NULL)hreveport (NULL)atn 71101
  13. 75 print"  [208]lease do not call!
  14. 76 [153]"  (NULL)he books have been priced according
  15. 78 print"  to [195]razy [198]ender's dubious judgment.
  16. 80 [153]"      (NULL)(NULL)atnlenval - (NULL)rint the (NULL)ist
  17. 82 print"          [204] - [209]uit to [204][207][193][196][211][212][193][210]
  18. 86 [161]a$:[139]a$[179][177]" "[175]a$[179][177]"l"[167]86
  19. 88 [139]a$[178]"l"[167]40000
  20. 90 dt$[178]"......................................."
  21. 92 t$[178]"     "
  22. 100 [159]2,dv,2,"booklist 1,p,r"
  23. 101 [159]4,d,7:[152]4:[152]4
  24. 102 [152]4,,,"len(NULL)atn(NULL)(NULL) ascval(NULL)str$val(NULL)'(NULL) (NULL)right$(NULL)(NULL) (NULL)' len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val peek(NULL)(NULL)(NULL)(NULL)":[152]4
  25. 103 [152]4,t$"(NULL)hipping in the (NULL).(NULL). is $1.00 per book.":[152]4
  26. 104 [152]4,t$"len(NULL)(NULL)right$val(NULL)     peek(NULL)(NULL)(NULL)                        (NULL)(NULL)peek(NULL)right$(NULL)left$val(NULL)";
  27. 105 [152]4,"      # (NULL)asc (NULL)atnchr$val(NULL)    (NULL)(NULL)right$lenval"
  28. 106 [152]4,t$"-------------------------------------------------";
  29. 107 [152]4,"------------------------"
  30. 109 [161]#2,a$:[161]#2,a$
  31. 110 [132]2,a$:[139]a$[178]""[167]190
  32. 120 a$[178][200](a$,38):[152]4,t$a$;[200](dt$,39[171][195](a$));
  33. 130 [132]2,a$
  34. 140 a$[178][200](a$,19):[152]4,a$;[200](dt$,20[171][195](a$));
  35. 150 [132]2,a$
  36. 152 [152]4,a$;[200](dt$,10[171][195](a$));
  37. 154 [132]2,a$
  38. 160 [152]4,a$
  39. 180 [137]110
  40. 190 [129]i[178]0[164]5:[152]4:[130]
  41. 200 [160]4:[160]2
  42. 210 [151]186,dv
  43. 220 [138]
  44. 10000 d[178][194](186):n$[178]"b.bookprint":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  45. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  46. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  47. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  48. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  49. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  50. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  51. 40060 [130]:[142]
  52. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  53. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  54. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  55.