home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #5 / utv2n5s1.d64 / wally (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  3KB  |  90 lines
  1. 50 if dz=0 then poke 45,peek(174):poke 46,peek(175):clr
  2. 100 if peek(12289)=0 then dz=1:poke12289,1:load"wally.font",8,1
  3. 101 if dz=1 then dz=0:poke53272,19
  4. 105 poke 53265,peek(53265) and 239
  5. 110 f=20:no=1:nt=10:dimpd(10,4):nn=1
  6. 120 v=53248:i=249:rem video & image #
  7. 125 poke v+21,0
  8. 130 poke 53280,0
  9. 140 poke53281,14
  10. 150 s=54272:forsd=stos+24:pokesd,0:next
  11. 160 pokes+24,15:pokes+2,0:pokes+5,129:pokes+6,65
  12. 170 pokes+7,85:pokes+8,36:pokes+12,136:pokes+13,129
  13. 180 gosub 1260:rem print screen
  14. 240 poke v,100:poke v+1,120:rem posit
  15. 250 poke v+39,11:rem color
  16. 260 poke v+29,0 :rem place vert
  17. 270 poke v+23,0 :rem expan hori
  18. 280 poke v+21,1:xl=0:rem turn on
  19. 285 poke 53265,peek(53265) or 16
  20. 290 j=peek(56320):vv=peek(v+1):vh=peek(v):vo=peek(v+16)
  21. 300 hp=sgn(jand4)-sgn(jand8)
  22. 310 ifhd<>hpthenifhp=1theni=249
  23. 320 ifhd<>hpthenifhp=-1theni=253
  24. 330 ifi=252theni=249:no=2:nt=10
  25. 340 ifi=256theni=253:no=2:nt=10
  26. 350 ifvo=1andvh=>59andhp=1then290
  27. 360 ifvo=0andvh<=20andhp=-1then290
  28. 370 vp=sgn(jand1)-sgn(jand2):ifwk=1andzz<65thenvp=.5
  29. 380 ok=(f>51)
  30. 390 ifvp=1andvv=>156then290
  31. 400 ifvp=-1andvv<=94then290
  32. 410 pokev+1,vv+vp*2
  33. 420 pokev+16,ok*(-1)
  34. 430 pokev,f*5+(ok*256)
  35. 440 poke2040,i:ifhp=0andvp=0then480
  36. 450 nt=nt+26
  37. 460 ifnt>88thennt=10
  38. 470 pokes+4,129:pokes+1,no:pokes,nt:i=i+1:forgg=1to1:next:pokes+4,128
  39. 480 ifj=111andxl>10thengosub1510
  40. 490 hd=hp:f=f+hd:xl=xl+1:ifwk=1 then return
  41. 500 hd=hp:f=f+hd:xl=xl+1:goto290
  42. 1260 a$(0)="":a$(1)="":a$(2)="[158]":a$(3)="[156]":a$(4)="":a$(5)="[144]"
  43. 1270 poke53280,0:poke53281,14
  44. 1280 print"[147]";
  45. 1290 forgg=0to3
  46. 1300 printa$(gg);"   [169][223][146]   ";:print"[157][157][157][157][157][157][157][157]";
  47. 1310 print"  [169]  [223][146]  ";:print"[157][157][157][157][157][157][157][157]";
  48. 1320 print"      [223][146] ";:print"[157][157][157][157][157][157][157][157]";
  49. 1330 print"[169]      [223][146]";:print"[157][157][157][157][157][157][157][157]";
  50. 1340 printa$(gg+1);"       [146] ";:print"[157][157][157][157][157][157][157][157]";
  51. 1350 print"   ";a$(5);"  ";a$(gg+1);"  [146] ";:print"[157][157][157][157][157][157][157][157]";
  52. 1360 print"   ";a$(5);"  ";a$(gg+1);"  [146] ";:print"[157][157][157][157][157][157][157][157]";
  53. 1370 print"   ";a$(5);"  ";a$(gg+1);"  [146] ";:print"[145][145][145][145][145][145][145]";
  54. 1380 next
  55. 1381 print"[151][209][145][157]gridlocked[146]"
  56. 1382 print"[209][145][157]one more[157][157][157][157]time[146]"
  57. 1384 print"[209][145][157]stroop"
  58. 1386 print"[209][145][157]quit"
  59. 1400 print"";
  60. 1410 forgg=1to8:print"[153]                                        [146]";:next
  61. 1420 print"[144][176]";:for x=1to 36:print"[192]";:next:print"[174]";
  62. 1430 forx=1to8:print"[157][221]";:next:print"[157][189]";:for x=1to 36:print"[157][157][192]";:next
  63. 1440 print"[157][157][173]";:for x=1to7:print"[145][157][221]";:next:print:print"[145]";
  64. 1445 print"           joel epstein"
  65. 1446 print"      and wally the elephant"
  66. 1447 print"             present"
  67. 1448 print"       wally's neighborhood[144]"
  68. 1450 print"use stick #2 & press button at door."
  69. 1455 printtab(14)"published by"
  70. 1460 printtab(7)"softdisk publishing, inc."
  71. 1505 poke 12288,1:sys 886:return
  72. 1510 xl=0:ifvo=0andvv=94andvh>=35andvh<=50thenmm=1:a$="grid locked":goto2190
  73. 1520 ifvo=0andvv=94andvh>=115andvh<=130thenmm=2:a$="one more time":goto2190
  74. 1530 ifvo=0andvv=94andvh>=195andvh<=210thenmm=3:a$="stroop":goto2190
  75. 1540 ifvo=1andvv=94andvh>=19andvh<=34thenmm=4:gosub3000:if z=2 thenreturn
  76. 1550 return
  77. 2190 poke53280,0:poke53281,0:pokev+21,0
  78. 2200 print"[147][156]    one moment, while file loads..."
  79. 2220 poke 43,1:poke44,16:poke4096,0
  80. 2222 load a$,8
  81. 3000 print"[158]   are you sure you want to quit?  "
  82. 3333 get a$:if a$="" then 3333
  83. 3335 ifa$="n"thenz=2
  84. 3336 ifz=2thenprint"[144]     softdisk publishing, inc.";
  85. 3337 if z=2 thenprint"   ";:z=0:return
  86. 3338 if a$="y" then 3355
  87. 3339 goto 3333
  88. 3355 clr:load"upt.reboot",8
  89. 6666 rem **** return to uptime ****
  90.