home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / b.cliff (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  72 lines
  1. 0 :
  2. 99 dimss$(15)
  3. 102 ss$(1)="[144]@<@@\@@t@@d@@*@@*@@x@@(@@<@@l@@l@@l@@<@"
  4. 104 ss$(2)="@@@@<@@\@@t@@d@@*@@*@@x@@(@@<@@l@@l@@<@"
  5. 106 ss$(3)="@@@@@@@<@@\@@t@@d@@*@@*@@x@@(@@<@@l@@<@"
  6. 108 ss$(4)="@<@@\@@t@@d@@(@@(@@[168]@@(@@<@@l@@l@@l@@<@"
  7. 110 ss$(5)="@@@@@@<@@\@@t@@d@@*@@[202]@[146]@b[192][146]@@0@@l@@0@@@@
  8. 112 ss$(6)[178]"@@@@@@@@@@@@<@@\@@t@@d@@+?wait@a3wait@@@@@@@@@@@@@@"
  9. 114 ss$(7)[178]"@@@@@@@@@@l@<3@^tanwait@v@wait@j@@(@@tan@@@@@@@@@@@@@@@@@@"
  10. 116 ss$(8)[178]"@<@@0@@0@@0@@<@@(@@*@@)@@)@@p@@t@@4@@<@@@@@@@@@"
  11. 118 ss$(9)[178]"@@@@l@@0@@l@@c@wait@b!wait@@(wait@@p@@t@@4@@<@@@@@@@@@@@"
  12. 120 ss$(10)[178]"@@@@@@(NULL)@wait@cos)wait@@p@@t@@4@@<@@@@@@@@@@@@@@@@@@@@"
  13. 122 ss$(11)[178]"@@@@@@@a@@(@@ wait@@twait@b4wait@c<@(NULL)wait@@0@@@@@@@@@@@@"
  14. 124 ss$(12)[178]"@<@@\@@t@@d@@(@@(@@not@@(@@<@@l@@l@@l@@<@"
  15. 126 ss$(13)[178]"stop@0@@lenwait@@(NULL)wait@@0@@"
  16. 205 s0$[178]"stop@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  17. 210 [151]2040,16
  18. 255 v[178]53248
  19. 900 [151]v[170]21,0
  20. 905 [151]53280,0:[151]53281,0
  21. 909 [151]53272,20
  22. 910 [153]"load       cliff diving by shroom/psw"
  23. 915 [153]:[153]"         visit us at www.psw.ca"
  24. 916 [153]:[153]"open            <fire> to play
  25. 917 print:print"          <q>uit to loadstar
  26. 920 [129] x[178]1 [164] 200:[130]x
  27. 940 [161]z$:[139]z$[178]"q"[167]40000
  28. 950 [139][194](56320)[179][177]111[167]940
  29. 990 [153]"load"s0$
  30. 1000 :
  31. 1005 [151]v[170]21,0:[151]v[170]28,1:[153]""ss$(1):h0[178]100:p0[178]4:a0[178]0:sx[178]190:sy[178]101:f1[178]1
  32. 1010 f2[178]0:[153]"load":[129]zz[178]1[164]3:[153][163]15)"cont          ":[130]:[129]zz[178]1[164]13
  33. 1015 [153][163]14)"left$cont       verify   waitchr$":[130]:[151]v,sx:[151]v[170]1,sy
  34. 1020 [153][163]15)"          ":d0[178]1
  35. 1025 [153][163]15)"frefrefrefrefrefrefrefrefrefre":[153]""s0$:[151]v[170]21,1
  36. 1026 [153][163]14)"cliff diving":[153]:[153]"stop"
  37. 1027 [151]v[170]21,1:[139][194](56320)[179][177]111[167][137]1027
  38. 1030 [129]z[178]1[164]3:[153]""ss$(z):[129]zz[178]1[164]99:[130]:[130]:[129]z[178]1[164]200:[130]
  39. 1035 [129]z[178]3[164]1[169][171]1:[153]""ss$(z):[129]zz[178]1[164]50:[130]:[130]:[153]""ss$(4)
  40. 1040 [129]z[178]1[164]50:[130]:[153]""ss$(5):[129]sx[178]190[164]176[169][171]1:[151]v,sx
  41. 1045 [151]v[170]1,sy:[130]
  42. 1050 [151]v,sx:[151]v[170]1,sy:p0[178]p0[170]1:[153]""ss$(p0):sy[178]sy[170]f0[170]f2:[139]p0[178]12[167][137]1060
  43. 1055 p1[178]p0:f2[178]f2[170].02:f0[178]([187](2)[172]2):[139][194](56320)[179][177]111[167][137]1065
  44. 1060 p0[178]4:sx[178]sx[171]2[171]f0:d0[178]d0[170]1:[137]1065
  45. 1065 [139][194](56320)[178]111[167][137]1080
  46. 1070 [139]sy[178][177]213[167][137]1090
  47. 1075 [137]1050
  48. 1080 [139]sy[178][177]213[167][137]1090
  49. 1085 sy[178]sy[170]f1:f1[178]f1[170].01:[151]v[170]1,sy:[137]1080
  50. 1090 [139]p1[178]8[167][137]1095
  51. 1091 s0[178]1:[139]p1[178]7[176]p1[178]9[167]s0[178]5
  52. 1093 c1[178]s0[172]d0:[153]"":[153][163]12)"your score is"c1
  53. 1094 [137]1096
  54. 1095 [153]"":[153][163]12)"perfect landing!":s0[178]10:[137]1093
  55. 1096 [139]p1[178]8[167][137]1099
  56. 1097 [139][194](56320)[178]111[167][137]900
  57. 1098 [137]1096
  58. 1099 z[178][181]([187](30)[172]30)[170]1:[139]z[178]1[167][137]1101
  59. 1100 [137]1097
  60. 1101 [153]""ss$(13):[129]z[178]1[164]100:[130]:[153]""ss$(8):[137]1097
  61. 10000 d[178][194](186):n$[178]"b.cliff":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  62. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  63. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  64. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  65. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  66. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  67. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  68. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  69. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  70. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  71. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  72.