home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / bytes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  55 lines
  1. 5 poke53280,0:poke53281,0:print"[147]"
  2. 7 gosub60000
  3. 10 sys57812"hardcopy.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 20 a$="[156][221][152][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][156][221]"
  5. 30 print"[147][156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  6. 40 fori=1to22:printa$;:next
  7. 50 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  8. 60 fori=217to242:pokei,peek(i)or128:next
  9. 70 poke214,6:print:printtab(5)"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  10. 80 printtab(5)"[221]                            [221]
  11. 90 [153][163]5)"(NULL) 1cont] (NULL)rint (NULL)creen ((NULL)ext (NULL)ode)sys(NULL)
  12. 95 printtab(5)"[221] 2[154]] [208]rint [211]creen ([199]rfx [205]ode)[158][221]
  13. 100 [153][163]5)"(NULL) 3cont] (NULL)rint lenenter ((NULL)ext (NULL)ode)sys(NULL)
  14. 105 printtab(5)"[221] 4[154]] [208]rint [195]enter ([199]rfx [205]ode)[158][221]
  15. 110 [153][163]5)"(NULL) 5cont] (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)                sys(NULL)
  16. 120 printtab(5)"[221]                            [221]
  17. 130 [153][163]5)"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  18. 140 [161]k$:[139]k$[178]""[167]140
  19. 142 [159]4,4,7:[160]4:[139]st[179][177]0[167]fl[178]1:[141]200:[137]140
  20. 145 [141]200
  21. 150 [139]k$[178]"1"[167][153][163]8)"sys49152,0,0,39,24,7,0,0":[158]49152,0,0,39,24,7,0,0
  22. 155 [139]k$[178]"2"[167][153][163]8)"sys49152,0,0,39,24,7,8,15":[158]49152,0,0,39,24,7,8,15
  23. 160 [139]k$[178]"3"[167][153][163]8)"sys49152,6,8,33,14,7,0,0":[158]49152,6,8,33,14,7,0,0
  24. 165 [139]k$[178]"4"[167][153][163]8)"sys49152,6,8,33,14,7,8,15":[158]49152,6,8,33,14,7,8,15
  25. 170 [139]k$[178]"5"[167]1000
  26. 180 [137]140
  27. 190 :
  28. 200 [151]214,17:[153]
  29. 210 [153][163]5)"openortantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  30. 220 [153][163]5)"(NULL)                            (NULL)"
  31. 230 [153][163]5)"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexponon"
  32. 235 [139]fl[167]fl[178]0:[153][163]8)"(NULL)urn your printer on!!!"
  33. 240 [142]
  34. 1000 [159]15,8,15,"r0:hello connect=hello connect"
  35. 1010 [132]15,er%:[160]15
  36. 1020 [139]er%[179][177]63[167][153]"load":[128]
  37. 1030 [151]646,[194](53281)
  38. 1040 [153]"loadload"[199](34)"hello connect"[199](34)",8"
  39. 1050 [153]"run"
  40. 1060 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  41. 1070 :
  42. 9999 :
  43. 10000 [159]15,8,15,"s0:bytes":[160]15:[148]"0:bytes",8:[128]
  44. 60000 b9$[178]"                                      "
  45. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  46. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  47. 60030 b9$(0)[178]"peek(NULL)(NULL)val(NULL): (NULL)ext and chr$raphic left$ardcopy"
  48. 60040 b9$(1)[178]"by peekarbara (NULL)chulak"
  49. 60050 b9$(2)[178]"(len) 1991 by (NULL)oftdisk, right$nc."
  50. 60060 b9$(3)[178]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #83"
  51. 60070 b9$(4)[178]"(NULL)ubscriptions 1-800-831-2694"
  52. 60080 b9$(5)[178]"atnll (NULL)ights (NULL)eserved"
  53. 60090 [151]214,16:[153]:[129]i[178]0[164]5:[153][163]20[171]([195](b9$(i))[173]2))""b9$(i):[130]
  54. 60099 [142]
  55.