home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 107 / 107.d81 / c2c.bt2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 2 goto100
  3. 3 print"[147][158]     [201]nsert [199]ame [196]isk and [208]ress [203]ey
  4. 4 [151]198,0:[146]198,1:[151]198,0
  5. 5 [138]
  6. 100 [129]x[178]1[164]3:m$[178]"c2c.mp"[170][202]([196](x),2,1)
  7. 110 [159]15,dv,15,"r0:"[170]m$[170]"="[170]m$:[132]15,en(x):[160]15
  8. 120 [130]
  9. 130 [139](en(1)[178]62)[175](en(2)[178]62)[175](en(3)[178]62)[167]400
  10. 140 [153]"ononononon                                       "
  11. 141 [153]"                                       "
  12. 142 [153]"                                       "
  13. 143 [153]"                                       "
  14. 144 [153]"                                       "
  15. 200 [153]"ononononon           lenhoose: clr<(NULL)>sysew chr$ame":[153]"      ";
  16. 210 k[178]1:[129]x[178]1[164]3:[139]en(x)[179][177]62[167][153]""k"cmdcmdcmd<> chr$ame"x"cmd";:q(k)[178]x:k[178]k[170]1
  17. 220 [130]
  18. 225 [158]22427:[151]198,0
  19. 226 [161]z$:[139]z$[178]""[167]226
  20. 230 [151]23351,4:z[178][197](z$):[139](z[178]0)[176](z[177](k[171]1))[167][153]"";:[137]400
  21. 235 [153]:[153]"on             (NULL)oading chr$ame"q(z)"cmd           "
  22. 240 [158]57812"c2c.mp"[170][202]([196](q(z)),2,1),dv,0:
  23. 245 [151]780,0:[151]781,0:[151]782,126:[158]65493
  24. 250 [153]"on":[137]402
  25. 399 [128]
  26. 400 [153]:[153]"onononon               (NULL)oading (NULL)ap          "
  27. 401 [158]57812"c2c.map",dv,0:[151]780,0:[151]781,0:[151]782,126:[158]65493
  28. 402 [159]15,dv,15,"r0:c2c.bas=c2c.bas":[132]15,en:[160]15:[139]en[178]63[167]404
  29. 403 [141]500:[137]402
  30. 404 [153]"stopononononload"[199](34)"c2c.bas"[199](34)","dv
  31. 405 [153]"run:onononononononon"
  32. 406 [129]x[178]0[164]1:[151]631[170]x,13:[130]:[151]198,x:[128]
  33. 500 [153]"on    right$nsert (NULL)ea to (NULL)ea str$isk in str$rive"dv
  34. 501 [153]"         (NULL)ress (NULL)ey to lenontinue        "
  35. 502 [151]198,0
  36. 503 [161]z$:[139]z$[178]""[167]503
  37. 504 [153]"onon                                       "
  38. 505 [153]"                                       on"
  39. 506 [142]
  40. 59999 [128]
  41. 60000 [159]15,8,15,"s0:c2c.bt2":[160]15:[148]"c2c.bt2",8
  42.