home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 204 / 204.d81 / b.fire (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  853b  |  23 lines
  1. 5 dv=peek(186):
  2. 10 print"[155][147]":poke53280,0:poke53281,0
  3. 20 gosub60000:ifdv<>8then100
  4. 70 print"[144]load"chr$(34)"firefighter"chr$(34)","dv:print"run"
  5. 80 poke631,13:poke632,13:poke198,2:end
  6. 100 poke214,0:print:printtab(09)"[158][212]his [208]rogram can be
  7. 101 [153][163]03)"(NULL)oaded and (NULL)un from only str$rive 8"
  8. 102 [153]:[153][163]01)"(NULL)ress atnny (NULL)ey to return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  9. 105 [151]198,0:[146]198,1:[151]198,0
  10. 106 [147]"hello connect",dv
  11. 10000 d[178][194](186):n$[178]"b.fire":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  12. 60000 b9$[178]"                                      "
  13. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  14. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  15. 60030 b9$(0)[178]"asc right$ (NULL) val asc right$ chr$ left$ (NULL) val (NULL)"
  16. 60040 b9$(1)[178]"by right$an atndam, (NULL). valng."
  17. 60050 b9$(2)[178]"(NULL)1.0 (len) 1991 by (NULL)oftdisk, right$nc."
  18. 60060 b9$(3)[178]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #87"
  19. 60070 b9$(4)[178]"(NULL)ubscriptions 1-800-831-2694"
  20. 60080 b9$(5)[178]"atnll (NULL)ights (NULL)eserved"
  21. 60090 [151]214,16:[153]:[129]i[178]0[164]5:[153][163]20[171]([195](b9$(i))[173]2))""b9$(i):[130]
  22. 60099 [142]
  23.