home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 107 / 107.d81 / c2c.end (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  44 lines
  1. 5 poke56,34:clr
  2. 10 dv=peek(186)
  3. 15 print"[147]":poke53280,0:poke53281,0:poke646,1
  4. 20 sys57812"unp99.c00",dv:poke780,0:poke781,0:poke782,192:sys65493
  5. 21 un=192*256
  6. 30 sysun+6,"s.c2c.shp",dv,224,204
  7. 32 sys57812"c2c.ms2",dv:poke780,0:poke781,204:poke782,34:sys65493
  8. 40 sysun+3:sys9063
  9. 41 poke198,0
  10. 42 geta$:if(a$="")and(peek(789)<>234)then42
  11. 47 sysun+3:rem: poke53272,22
  12. 48 poke214,3:print:printtab(11)"[150][195]ongratulations!
  13. 49 [153]"       clr(NULL)ou built a railroad from":[153]"            sys (NULL)ea to (NULL)ea!
  14. 50 poke214,10:print:printtab(5)"[208]lay [154][211]ea to [211]ea again? ([217]/[206])
  15. 60 [151]198,0:[146]198,1:[161]a$
  16. 70 [139]a$[178]"y"[167]100
  17. 80 [139]a$[179][177]"n"[167]60
  18. 85 [141]1000
  19. 90 [137]40000
  20. 100 [141]1000
  21. 102 [151]646,0:[151]56,160
  22. 104 [153]"loadl(NULL)"[199](34)"b.sea to sea"[199](34)","dv
  23. 106 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  24. 999 [128]
  25. 1000 [151]9987,4:[151]54276,0:[151]54285,0:[151]54292,0:[142]
  26. 40000 [151]53280,0:[151]53265,27:[151]53281,0:[153]"load":[151]53265,27
  27. 40010 [151]56,160:[151]55,0:[156]:dv[178][194](186)
  28. 40020 c$[178]"loadload"[170][199](34)
  29. 40022 d$[178][199](34)[170]","
  30. 40024 a$[178]"hello connect"
  31. 40030 i[178]dv:[129]x[178]1[164]4:[160]4:[159]4,i,4,a$:[161]#4,b$:s[178]st:[139]s[178]0[167]x[178]10:[137]40035
  32. 40031 i[178]i[170]1:[139]i[177]11[167]i[178]8
  33. 40035 [130]:[160]4
  34. 40040 [139]x[178]5[167]40070
  35. 40045 [129]x[178]8[164]11:[159]2,x,2:[160]2:[139]st[179]0[167]40047
  36. 40046 [159]15,x,15,"uj":[160]15
  37. 40047 [130]
  38. 40050 [151]646,[194](53280)
  39. 40052 [153]c$a$d$i:[153]"p(NULL)646,1:run":[151]631,13:[151]632,13:[151]198,2
  40. 40060 [151]53272,22:[151]44,8:[151]8[172]256,0:[162]
  41. 40070 [129]x[178]8[164]11:[159]15,x,15,"uj":[160]15:[130]:[151]186,dv:[137]40060
  42. 59999 [128]
  43. 60000 dv[178][194](186):[159]15,dv,15,"s0:c2c.end":[160]15:[148]"c2c.end",dv
  44.