home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 December
/
64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64
/
repeat
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
1 datahikjaainbcnaknbbnacjhpinbbnakjibinbknakjcmkcmbinbeadiobfadknaonmcjpoin
2 dataaonmfigakjaainojahkjapinbinekjpainagnekjaainokahkookahmkomojahpacooiln
3 datadmadinoiahoookahkcfbioaenebickckckinabnekjmiinaanecacbmbkjcainaenekjaf
4 datainoiahcacbmbemdlmaknbcnacjadooojahkoojahjndmadinoiahkcfbioaenebickckck
5 datainabnekjmiinaanecacbmbkjcainaenekjafinoiahkjaainokahcaoepppaplojiekook
6 dataahnndmadnaelinoiahoookahkcfbioaenebickckckinabnekjmiinaanecacbmbkjcain
7 dataaenekjafinoiahkookahmkomojahpaaeoiemkgmabikabekcbhcapappkoojahoikjaaca
8 datamnlncacbmbcacbmbemdgmakcfbioaenekjabinabnekjbeinaanecacbmbcacbmbcacbmb
9 datacacbmbkjcainaenegakappkcppmknapniinapkgaknbcnakobjnaiobjnamjaapablmjek
10 datapadgmjenpafimjjepahdmjjhpahpmjnppadgmjocpadnemdbokkjaoincanaincbnaknoi
11 dataahmjaanaaikjagincanaincbnakjekinbcnaemdbokkjaaincanaincbnakjeninbcnaem
12 dataibokkjaaincanaincbnaemohmbkjaoincanaincbnaemopmbkjaoincanaincbnaknoiah
13 datamjabnaaikjacincanaincbnakjjeinbcnaemibokkjaaincanaincbnakjjhinbcnaemib
14 dataokkjaoincanaincbnaknoiahmjacnaaikjanincanaincbnakjnpinbcnaemibokkjocin
15 databcnaemibokknoiahmjadnaaikjahincanaincbnakjaainbcnaemibokfp__:d=49152
16 reada$:fora=0tolen(a$)-1step2:h$=mid$(a$,a+1,1):l$=mid$(a$,a+2,1)
17 poked,(asc(h$)-65)*16+asc(l$)-65:d=d+1:ifmid$(a$,a+3,1)<>"_"thennext:goto16
18 sys49152:print"[159][147]";tab(12)"score : 0 "
19 geta$:ifa$=""then19
20 sys49191:goto18