home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / break-fast (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  51 lines
  1. 0 gosub6000:clr:rem c64 break-fast, c1988 g. de blois
  2. 1 forx=1to40:a$=a$+"[207]":next:poke53280,6:poke53281,14:poke646,0:dx=1:dy=1:px=37
  3. 2 py=10:print"[147]"tab(15);"break-fast":pp=18:pp$="[192][192][192][192][192]":print"[144]";a$;"";a$;
  4. 3 print"[153]";a$;"[158]";a$;"";a$;"[144]"
  5. 4 poke214,22:print:printtab(pp);pp$:zz=px+40*py:ifzz<1000thenpoke1024+zz,81
  6. 5 iflp<>ppthenpoke214,22:print:printtab(lp)"     ";:ifzz<1000thenpoke54296+zz,0
  7. 6 lp=pp:x=(peek(56320)and15):ifx=11thenpp=pp-2:ifpp<0thenpp=0
  8. 7 ifx=7thenpp=pp+2:ifpp>35thenpp=34
  9. 10 poke214,22:print:printtab(pp);pp$:ifzz<1000andzz>1thenpoke1024+zz,32
  10. 11 px=px+dx:ifpx<=0orpx>=38thendx=-dx
  11. 12 py=py+dy:ifpy<=1thendy=-dy
  12. 13 zz=peek(1024+px+40*py):ifpy>23thennm%=nm%+1:ifnm%>3thennm%=0:goto20
  13. 15 ifzz=207thensc=sc+100:print""sc:poke54296,15:poke54296,0:dy=-dy:goto4
  14. 16 ifzz<>81andzz<>32thendy=-dy:goto4
  15. 17 goto4
  16. 20 print"[147]game over ":print"score"sc
  17. 35 :
  18. 40 :
  19. 41 :
  20. 42 :
  21. 43 :
  22. 44 :
  23. 45 :
  24. 50 poke214,10:print:print"do you want to play again? (y/n)":poke2048,0
  25. 56 geta$:ifa$="y"thenrun1
  26. 57 ifa$="n"then 100
  27. 59 goto56
  28. 100 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
  29. 101 if er<>63 then print"[147]":end
  30. 102 load"one-screen winners",8
  31. 200 :
  32. 6000 poke53280, 0:poke53281, 0:print"[147]";
  33. 6001 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  34. 6002 print"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
  35. 6003 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  36. 6004 print"[172]                    [146][187]"
  37. 6005 print"                      "
  38. 6006 print"                      "
  39. 6007 print"[163][163][163][163][163][163][163][163][163][160] B R E A[160]K[160][160]F A[160]S T  [146][163][163][163][163][163][163][163][163][163][160]               ";
  40. 6008 print"     [160]"
  41. 6009 print"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]    By G. De Blo";
  42. 6010 print"is   [160]"
  43. 6011 print"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]                ";
  44. 6012 print"      "
  45. 6013 print"[188]                    [146][190]"
  46. 6014 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  47. 6015 print"[152] PRESS SPACE[160]TO[160]CONTINUE  "
  48. 6016 print"[151][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]"
  49. 6030 geta$:ifa$<>" "then6030
  50. 6035 print"[147]"chr$(142):return
  51.