home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / letter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  26 lines
  1. 1 d$="":v=53248:s=32:sc=0:l=0:pokev+17,91:pokev+33,14:print"[147]"
  2. 3 forx=3to30step12:print""d$:fort=0to2:printspc(x)" [160] [160] [160] [160]"
  3. 4 printspc(x)"[160] [160] [160] [160] ":next:next:fort=1944tot+39:poket,96:next
  4. 6 p=rnd(1)*38+1064:z=int(rnd(1)*26)+1:l=l+.1:print"[158]level",int(l),"score"sc
  5. 8 k=0:geta$:ifa$>"@"anda$<"["thenk=asc(a$)-64
  6. 9 ifk=zthensc=sc+z:pokep,s:poke1063,s:goto6
  7. 10 ifkthenpoke1063,k
  8. 11 p=p+40:ifp>1983then16
  9. 12 ifpeek(p)>sthenpokep,z:pokep-40,s:goto6
  10. 13 pokep,z:pokep-40,s:fort=0to50-l:next:ifl<99goto8
  11. 15 print""d$"[145]you saved the universe"
  12. 16 ifsc>hithenhi=sc:print"new highscore":input"name";n$
  13. 17 print"play again? (y/n)":poke198,0:wait198,1:getz$:ifz$="y"then1
  14. 18 print"[147]":poke53280,0:poke53281,0:pokev+33,246:pokev+17,155:goto40000
  15. 10000 d=peek(186):n$="b.letter":open15,d,15,"s0:"+n$:close15:saven$,d:end
  16. 40000 fori=0to21:poke828+i,8+i:next
  17. 40010 ifdv<8ordv>29ordv=8then40030
  18. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  19. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  20. 40040 close2:open2,i,2:close2:ifstthen40060
  21. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  22. 40060 next:print"[147]":poke53272,23:poke186,8:end
  23. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  24. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  25. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  26.