home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 79 / 079.d81 / calc (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 100 print"[147]":gosub160
  2. 110 poke 53281,0:poke 53280,0
  3. 120 print"[144]":print""
  4. 130 print "load";chr$(34);f$;chr$(34)",8"
  5. 140 print"run"
  6. 150 poke631,13:poke632,13:poke198,2:end
  7. 160 poke53280,0:poke53281,0:iffthenreturn
  8. 170 print"";
  9. 180 fori=1to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
  10. 190 fori=217to242:pokei,peek(i)or128:next
  11. 200 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  12. 210 fori=1to7:printtab(4)"[155]                                [151][223]":next
  13. 220 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
  14. 230 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  15. 240 poke214,14:print"[145][155]";
  16. 250 fori=1to5:reada$:gosub260:next:goto270
  17. 260 printspc(20-len(a$)/2)""a$:a$="":return
  18. 270 gosub400:sys49152
  19. 280 print""tab(13)"[207][160][208][160][212][160][201][160][207][160][206][160][211]"
  20. 290 printtab(10)"1. [210]un [195][193][204][195] [208]rogram"
  21. 300 printtab(10)"2. [208]rint [195][193][204][195] [196]ocs"
  22. 310 printtab(10)"3. [209]uit"
  23. 320 geta$:ifa$<"1"ora$>"3"then320
  24. 330 ifa$="1"thenf$="calc v1.4 ls"
  25. 340 ifa$="2"thenf$="calc.guide.ls"
  26. 350 ifa$="3"thenf$="hello connect"
  27. 360 fori=10to0step-1:poke781,i:sys59903:next:return
  28. 370 data"[195] [193][160][204] [195]","by [196]avid [208]ankhurst"
  29. 380 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #79","[211]ubscriptions 1-800-831-2694"
  30. 390 data"[195]opyright ([195]) [196]avid[160][208]ankhurst"
  31. 400 fori=0to59:readx:poke49152+i,x:next:return
  32. 410 return
  33. 420 data 162,011,160,037,173,017,208
  34. 430 data 016,251,189,048,192,153,080
  35. 440 data 216,153,120,216,153,160,216
  36. 450 data 153,200,216,153,240,216,153
  37. 460 data 024,217,136,192,001,208,233
  38. 470 data 165,162,197,162,240,250,202
  39. 480 data 016,214,096,234,234,234,000
  40. 490 data 011,012,015,001,001,001,001
  41. 500 data 015,015,012,011
  42.