start tok64 d64-m91hJJ
0 REM ------------------
1 REM the fabulous coder
2 REM brought to you by:
3 REM one! in may 1989!!
4 REM ------------------
5 PRINT"{clear}";:GOTO100
10 REM -------------------
11 REM start routine $07e8
12 REM -------------------
13 DATA 2024,2031
14 DATA ghjicdhe@adlgkon
15 REM ------------------
16 REM coder, $fc00-$fd29
17 REM ------------------
18 DATA 64512,64809
19 DATA b@b@dcdodddeebb@@baib@dodndeb@@i@nb@dm@aaib@cacichciei@oaeabb@ac@e@cab
20 DATA @eadb@dcdodddecjb@bmbmbmbmbmbmbmbmjb@@hjhmb@m@hmbam@im@@mhim@@miim@@mj
21 DATA im@@mknhm@oajbaikm@@olim@@@dji@aim@@mhkmajolimeb@dji@aimebmhlja@ngjb@@
22 DATA kmgjolim@@@enhm@ogjiaghmahm@dl@@@ejicghe@aehji@ahmhf@bjiacb@afngjiaab@
23 DATA afngb@afngjbacjiamb@afnglja@ojji@@heeaj@@@hhm@omb@cnoaliadm@agjeeao@o@
24 DATA jiimdhb@afngjibmb@afngfhb@afnglfeac@mmlib@i@milih@i@@hlij@i@malin@k@lm
25 DATA b@fi@enfeajeeali@hm@lbghjicehe@af@b@afngji@@hemdf@ji@khm@@omji@hhm@com
26 DATA j@@@ihbi@gjjkmfd@dei@@aaii@@aalhm@o@nn@comnn@@omjm@@omchnebnli@am@n@je
27 DATA bnchni@chebnf@jb@dkmfd@diedklja@ohf@
28 REM ------------------
29 REM coder, $fd50-$fef1
30 REM ------------------
31 DATA 64848,65265
32 DATA ji@hheokj@@@hdojjedlbi@ghedljednbi@ghednkaojahfedkhee@jfdln@@@o@@hjee@
33 DATA @jbfe@ljm@ohjee@dedmhee@jfdnn@@@o@@hjee@djffe@ljm@ohjee@chnedoiaojlhm@
34 DATA lmnfokjeokchnebnli@am@lbf@jb@dj@@@kifd@diedklhlja@ogf@jicehe@ab@cnonji
35 DATA @khmaam@hmb@m@jicdhe@af@j@@@hdojji@hheokhd@bkaojde@bhe@blhm@@bnfokldbm
36 DATA m@oajeoklebnm@nkf@jmoo@jdhb@kaomb@nkolb@aoomb@e@omb@leomfhdhle@bo@afb@
37 DATA jcomjijehmalomb@e@omji@hhmnlolb@nkoldlniomjb@@kmbbonim@@@enhm@ogdl@@@e
38 DATA jicghe@aehb@j@neb@fcjfjiicjbijhmgg@bhngh@bji@bhelffl@b@cjiakhmaam@dlcd
39 DATA ol@@@j@hle@gincbc@cfca@@@@@@lfjolfjolfjojb@@kmce@him@@olkmce@iim@@omnh
40 DATA m@oakmfe@iime@omnhm@ogjiceghhe@adlneomb@leomb@kaomb@jcomb@e@omji@hb@nm
41 DATA olnfbnnfbnnfbnj@@@jebnheokahfi@chebnheomhdojhdolhhkaojiaolhhl@oom@oglf
42 DATA oklfomjeokli@gm@nmjbookmdfonim@@@hkm@@olimce@hkm@@omimce@ikme@omimfe@i
43 DATA ljn@oom@ncjiddjbdehmce@hhncf@hjbekji@@im@@@jnhm@ojje@bhmoo@jdladon
44 DATA ,
97 REM -----------------
98 REM data reading part
99 REM -----------------
100 READs,e:IFs=.THEN105
101 READa$:FORc=1TOLEN(a$)STEP2:w=16*(ASC(MID$(a$,c))-64)+ASC(MID$(a$,c+1))-64
102 POKEs+(c-1)/2,w:cs(n)=cs(n)+w*c:NEXT:s=s+(c-1)/2
103 IFs<=eTHEN101
104 n=n+1:GOTO100
105 IFcs(.)<>8072THENPRINT"*error line 13-14"
106 IFcs(1)<>1121569THENPRINT"*error line 18-27"
107 IFcs(2)<>1858147THENPRINT"*error line 31-43"
63999 REM "Invalid BASIC input d64-m91hJJ
stop tok64
(bastext 1.0)