home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1988 #1
/
Floppy_Magazine_88-1_1988_Megasystems_Oy_fi_Side_B.d64
/
snoopy-puzzle
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
103 lines
0 rem snoopy-puzzle
1 rem by tommi tenhula
2 rem 1986 in oulainen
3 :
10 poke808,234:poke53280,2:poke53281,2:printchr$(8):poke53272,21
12 forr=0to77:readd:next:gosub1000:clr
14 v=53248
16 pokev+21,0:gosub800:gosub700:pokev+21,255:poke214,22:print
18 print"[158] press 'return'"
20 gett$:ift$=chr$(13)then24
22 goto20
24 print"[145] "
99 rem *** palasten sekoitus ***
100 forr=1to8
102 a=int(9*rnd(0))+1:ift(a)=1then102
104 t(a)=1:a(r)=a:next:forr=1to9:ift(r)=0thenvp=r
106 next:pokev+21,0:forr=1to8:pokev+px(r),x(a(r)):pokev+py(r),y(a(r)):next
108 pokev+21,255:mo=1
149 rem *** palasten liikutus ***
150 poke214,8:print:print"[158] move:"mo
152 b=1:forr=1to9:ifs1(r)=vpors2(r)=vpors3(r)=vpors4(r)=vpthensi(b)=r:b=b+1
154 next:print" press:";:forr=1tob-1:printsi(r)" ";:next:print
156 forr=2tob-1:print"[145]"tab(11+5*(r-2))"or":next
158 gett$:ift$=""then158
160 t=asc(t$)-48:ift<1ort>9ort=vpthen158
162 ifs1(t)<>vpands2(t)<>vpands3(t)<>vpands4(t)<>vpthen158
164 forr=1to8:ifa(r)=tthenb=r
166 nextr:pokev+px(b),x(vp):pokev+py(b),y(vp):a(b)=vp:vp=t
168 b=0:forr=1to8:ifa(r)=b(r)thenb=b+1
170 next:print"[145] ":ifb=8then200
172 mo=mo+1:goto150
199 rem *** peli onnistui ***
200 poke214,8:print:print"[158] great! you did it":print" you need"mo"[157] moves"
202 poke214,22:print:print"[158] press 'return'"
204 gett$:ift$=chr$(13)then14
206 goto204
699 rem *** muuttujia ***
700 forr=0to7:poke2040+r,248+r:next:forr=39to46:pokev+r,0:next
702 restore:forr=1to8:reada(r):b(r)=a(r):next:forr=1to8:readpx(r),py(r):next
704 forr=1to9:readx(r),y(r):next
706 forr=1to8:pokev+px(r),x(a(r)):pokev+py(r),y(a(r)):next
708 forr=1to9:reads1(r),s2(r),s3(r),s4(r):next
710 forr=1to9:t(r)=0:next
712 return
799 rem *** snoopy-puzzle teksti ***
800 print"[147][158] [213][192][201]"
802 print" [221] "
804 print" [202][192][201][171][201][213][201][213][201][176][201][174][176]"
806 print" [221][221][221][221][221][221][221][221][221][221][221] [192] puzzle"
808 print" [202][192][203][177][173][202][203][202][203][171][203][202][179]"
810 print" [221] [221]"
812 print" ** by tommi tenhula **"
814 poke214,13:print:forr=0to7:print"[155] ":next
816 return
899 rem *** spritejen paikat ***
900 data 1,2,4,5,6,7,8,9
902 data 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
904 data 40,162,64,162,88,162,40,183,64,183,88,183,40,204,64,204,88,204
906 data ,2,4,,,3,5,1,,,6,2,1,5,7,,2,6,8,4,3,,9,5,4,8,,,5,9,,7,6,,,8
999 rem *** musiikki ja spritet ***
1000 print"[147][158]please wait 40s !"
1002 ao=49152:rl=8:gosub1006:sys49152
1004 ao=15872:rl=15:gosub1006:return
1006 forr=0torl:reada$,tl:ta=0
1008 iflen(a$)<>64then1050
1010 fort=1to63step2:a=asc(mid$(a$,t,1))-48:b=asc(mid$(a$,t+1,1))-48
1012 ifa>10thena=a-7
1014 ifb>10thenb=b-7
1016 c=a*16+b:ifc>255then1050
1018 pokeao,c:ao=ao+1:ta=ta+c:nextt:iftl<>tathen1050
1020 nextr:return
1050 print"virhe rivilla";
1052 ifrl=8thenprint1100+r*2
1054 ifrl=15thenprint1200+r*2
1056 end
1099 rem *** musiikki datat ***
1100 data 78a9318d1403a9c08d150358a90f8d18d4a9178d02d48d05d4a90f8d03d48d06,3269
1102 data d4a9008d04d485fda97385fba9c085fc60a000a5fdc900f005c6fd4c31eaa940,4701
1104 data 8d04d4b1fb8d01d4e6fbb1fb8d00d4e6fbb1fb85fde6fba9418d04d4a5fbc900,5385
1106 data d002e6fcc91bd008a97385fba9c085fc4c31ea133f08159a08183f0f1cd60f1c,3569
1108 data d60f205e0f1cd60f183f0f133f0f159a0f183f0f183f0f159a0f133f0f159a2d,1727
1110 data 133f08159a08183f0f1cd60f1cd617205e081cd60f183f0f133f17159a08183f,1765
1112 data 0f183f0f159a0f159a0f133f3c19b11e19b11e204b0f204b1e204b08204b081c,1620
1114 data d60f1cd60f183f0f133f0f159a2d133f08159a08183f0f1cd60f1cd60f204b0f,1916
1116 data 1cd60f183f0f133f0f159a0f183f0f183f0f159a0f159a0f133f640000000000,1412
1199 rem *** sprite datat ***
1200 data 0000000000000000000000000000000000000000000000000000000000180000,24
1202 data 2400002c00001800007e00018100020000020000040000040000080000080000,388
1204 data 0000000000000000000000000000000000000000000000000000000000000000,0
1206 data 0000000000000000000080000040000040000020000020000010000010000000,352
1208 data 0008000008000008000008000008000008000008000008000010000013000010,115
1210 data c000200000200000200000200000100000100000080001fe030201fc02003000,923
1212 data 0800000800000800000803c0080c300410080420040420040540020380020300,610
1214 data 01030001030001031fe10600110600080600080f0008f6ff0804010f0000f000,1111
1216 data 00000001e0000210000430000448000808000818000828000808000408000404,503
1218 data 00040400020400020400f204000c0400000400000400000780f8044007f84000,1060
1220 data 0200300200700200700200700200f00200f007ffff0400f00400f00400f00400,2129
1222 data f00400700400700400600800600800000fffff08000008000008000008000000,1241
1224 data 000000000000000000000000000000000000ffffff0000000000000000000000,765
1226 data 00000000000000000000000000000000ffffff00000000000000000000000000,765
1228 data 000040000040000040000040000040000040ffffe00000200000200000200000,1214
1230 data 20000020000020000020000010000010fffff000001000001000001000001000,974