home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 158 / 158.d81 / b.softwareprint (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  50 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] [193][195][210][197][211] [207]' [211][207][198][212][215][193][210][197]
  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)' (NULL)(NULL)valstr$ (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val. (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]"  valach (NULL)roduct is $10. (NULL)umbers in
  15. 78 print"  parentheses show how many copies
  16. 79 [153]"  we have on hand.
  17. 80 print"      [211][208][193][195][197] - [208]rint the [204]ist
  18. 82 [153]"          (NULL) - (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  19. 84 poke198,0
  20. 86 geta$:ifa$<>" "anda$<>"l"then86
  21. 88 ifa$="l"then40000
  22. 90 dt$="........................................................."
  23. 92 t$="      "
  24. 100 open2,dv,2,"software 2,p,r"
  25. 101 open4,d,7
  26. 102 print#4,t$t$t$t$"[195][210][193][218][217] [198][197][206][196][197][210]'[211] [204][201][211][212] [207]' [213][211][197][196] [211][207][198][212][215][193][210][197]":print#4
  27. 104 print#4,t$"[208][210][207][199][210][193][205]                                     [208][213][194][204][201][211][200][197][210]"
  28. 106 print#4,t$"---------------------------------------------------------"
  29. 109 get#2,a$:get#2,a$:j=0
  30. 110 j=j+1:input#2,a$:e=st:ife=66then200
  31. 120 print#4,t$a$;left$(dt$,42-len(a$));
  32. 130 input#2,a$
  33. 140 print#4,a$
  34. 150 ifj=58thenj=0:fori=1to8:print#4:next
  35. 180 goto110
  36. 200 close4:close2
  37. 210 poke186,dv
  38. 220 run
  39. 10000 d=peek(186):n$="b.softwareprint":open15,d,15,"s0:"+n$:close15:saven$,d:end
  40. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  41. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  42. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  43. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  44. 40040 close2:open2,i,2:close2:ifstthen40060
  45. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  46. 40060 next:return
  47. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  48. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  49. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  50.