home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / bowman (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  67 lines
  1. 2 ifa=.then110
  2. 4 ifa=1thena=2:load"bowml",8,1
  3. 6 ifa=2thena=3:load"b.maze",8,1
  4. 8 print"[129][147]";:poke53272,30:poke53265,11
  5. 10 print"[151]\\\\\\\[152]\\\\\\[155]\\\\\\\\\\\\[155]\\\\\\[152]\\\\\\[151]\\\      [152]  [146]    [155]";
  6. 12 print" [146]  [146]    [146]   [146]  [155] [146]     [152][146]   [146][187]  [151][146]         ";
  7. 14 print"[152][146]  [169]  [146] [155]  [146]  [146]    [146]  [146][223] [155][146][169] [146]  [146]  [152] ";
  8. 16 print"[146]  [146][223] [146][187][151] [146]        [152] [146][183][183] [146]  [155][146]   [146]  ";
  9. 18 print"[146]  [146]  [146]  [146] [155] [146]  [146]  [146][183][152][183] [146]  [146] [223][151]  [146]    ";
  10. 20 print"   [152] [223]  [146][169] [155][223]  [146][169] [223]   [146][169] [223][155]   [169]";
  11. 22 print" [223][152]  [169] [223] [151] [223][169]    \\[152]\\\\\\[155]\\\\\\";
  12. 24 print"\\\\\\[155]\\\\\\[152]\\\\\\[151]\\\\\\\\":printtab(10)"[156]@'89 by jon mattson"
  13. 26 poke53265,27
  14. 28 sysm(3):a=peek(v(1)):p=1603:fori=.to7:p=p+d(a):pokep,241+a:sysm(1):pokep,32
  15. 30 next:onagoto42,48,68
  16. 32 fori=.toj:pokea+i,1:next:fori=1to300:next:return
  17. 34 poke198,0:print" [154][[159]y[154]/[159]n[154]] [159]";
  18. 36 geta$:ifa$="y"thena=1:printa$:return
  19. 38 ifa$="n"thena=.:printa$:return
  20. 40 goto36
  21. 42 a=55884:j=3:gosub32:print"[147][150]quit? are you sure?";:gosub34
  22. 44 if(a)then96
  23. 46 goto8
  24. 48 a=56232:j=6:gosub32:print"[147]"tab(12)"[156]\\\ [159]options [156]\\\"
  25. 50 print" use custom levels?";:gosub34:if(a)thensysm(4)
  26. 52 print" random levels?";:gosub34:if(a)thensysm(2)
  27. 54 print" difficulty level?":print" [159]1[154] = fairly easy; [159]5[154] = very hard: [159]";
  28. 56 geta$:ifa$=""then56
  29. 58 df=val(a$):ifdf<1ordf>5then56
  30. 60 printa$:print" speed?":print" [159]1[154] = slow; [159]5[154] = fast: [159]";
  31. 62 geta$:ifa$=""then62
  32. 64 sp=val(a$):ifsp<1orsp>5then62
  33. 66 printa$:fori=1to500:next:goto8
  34. 68 a=55863:j=3:gosub32
  35. 70 i=3+3*df:i=i-(i>14)-(i>17):pokev(1),i:i=4*(7-sp)+(df>3):pokev(2),i
  36. 72 sysm(.):s=peek(v(3))+256*peek(v(4)):ifpeek(v(.))<1then84
  37. 74 poke54277,136:poke54278,136:poke54276,33:fori=1to18:poke54273,i:next
  38. 76 fori=18to1step-1:poke54273,i+3:poke54273,i:next:poke54276,129:poke1107,191
  39. 78 fori=1to200:next:poke54276,128:fori=1to1000:next
  40. 80 print"[151][147]    co[152]ngratu[155]lations, d[155]ragon-[152]slayer[151]!!":a=12
  41. 82 fori=1to300:a=27-a:poke53280,a:sysm(1):next:poke53280,0
  42. 84 print"[147][156] your score[159]"s;tab(23)"[156]high score[159]"h:ifs<=hthen94
  43. 86 fori=1to500:next:printtab(11)"[150]a new high score!![159]":poke54277,0
  44. 88 poke54278,16:fori=1to5:forj=1to10:poke54276,17:poke54273,j*10:poke54276,16
  45. 90 nextj,i:poke54273,50:fori=htosstep(s-h)/10:poke54276,17
  46. 91 print""tab(33)int(i)
  47. 92 poke54276,16:next:h=s:print""tab(33)h
  48. 94 fori=1to2000:next:goto8
  49. 96 poke52,160:poke56,160:clr:poke53280,14:poke53281,6:print"[147][154]";:poke53272,21
  50. 98 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  51. 100 ifer=63then104
  52. 102 print"[147]":end
  53. 104 print"[147]returning to loadstar...":print"load"chr$(34);
  54. 106 print"hello connect"chr$(34)",8":print"run[145][145][145][145][145][145][145][145]":poke631,13
  55. 108 poke632,28:poke633,13:poke198,3:new
  56. 110 poke52,56:poke56,56:clr:poke53280,.:poke53281,.
  57. 112 dimd(3),m(4),v(4):a=1:b=16560:h=.:s=.:df=3:sp=3
  58. 114 d(1)=1:d(2)=40:d(3)=-1:fori=.to4:m(i)=b+i*3:v(i)=b+i+15:next
  59. 116 printchr$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  60. 118 fori=1to7:print"  [152]                                    ":next
  61. 120 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  62. 122 printtab(17)"[152][194][207][215][205][193][206]":printtab(9)"[194]y [202]on [205]attson ([195])1989"
  63. 124 printtab(8)"[208]ublished on [204][207][193][196][211][212][193][210] #64"
  64. 126 printtab(6)"[211]ubscriptions 1-800-831-2694"
  65. 128 printtab(5)"      [193][204][204][160][210][201][199][200][212][211][160][210][197][211][197][210][214][197][196]      "
  66. 130 printtab(15)"[154][204]oading...":goto4
  67.