home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / nibbler.s (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  19 lines
  1. 0 poke 808,225:if s=1 then 99
  2. 1 c$="(c) copyright 1985 by christakis"+  " nikou  constantinou. all rights re"
  3. 2 y$="[157][157][157][157][157]":nn$(1)="[215][215][215][215][215]"+y$: nn$(2)=  "[215][215][215][215] "+y$:nn$(3)="[215][160][160][160][215]"+y$
  4. 3 x$="[145][145][145]":nn$(4) ="[215][215]  [215]"+y$:nn$(  5)="[215][160][215][160][215]"+y$:nn$(6)="[215][160][160][215][215]"+y$
  5. 4 nn$(7)="[215] [215]  "+y$: nn$(8) ="[160][160][215][160][160]"+y$:  nn$(9)="[215]    "+y$: nn$(10)=" [215][215][215] "+y$
  6. 5 ni$(1)=nn$(3)+nn$(4)+nn$(5)+nn$(6)+nn$  (3)+"[145][145][145]":c$=c$+"served."
  7. 6 ni$(2)="[129]"+nn$(10)+nn$(8)+nn$(8)+nn$(8  )+nn$(10)+x$+"[157]"+"[158]"
  8. 7 ni$(3)=nn$(2)+nn$(3)+nn$(2)+nn$(3)+nn$  (2)+x$+"[153]":ni$(4)=ni$(3)
  9. 8 ni$(5)="[156]"+nn$(9)+nn$(9)+nn$(9)+nn$(9)  +nn$(1)+x$:ni$(6)="[150]"+nn$(1)+nn$(9)
  10. 9 ni$(6)=ni$(6)+nn$(2)+nn$(9)+nn$(1)+x$:  ni$(7)="[154]"+nn$(2)+nn$(3)+nn$(2)
  11. 10 ni$(7)=ni$(7)+nn$(7)+nn$(6)+x$
  12. 11 sid=54272:print"[147]";:for i=0 to 24   :poke sid+i,0:next
  13. 12 poke sid+24,15:restore:poke sid+5,82:   poke sid+6,36:poke sid+4,33
  14. 13 for i=1 to 7:print ni$(i);:read fl,fh   ,dr:poke sid,fl:poke sid+1,fh
  15. 14 for j=1 to dr*2:next:next:poke sid+4,   0:print:print "[155]";c$;:data 31
  16. 15 data  21,160,239,19,200,31,21,160,96,   22,160,96,21,275,96,22,160,239,19,99
  17. 16 if s=0 then s=1:load "nibbler.o",8,1
  18. 99 sys 50688:goto 11
  19.