1 S=49152
2 DEFFNH(C)=C-48+7*(C>64)
3 CH=0:READA$,A:PRINTA$:IFA$="END"THENPRINT"[147]":SYS49152:END
4 FORF=0TO31:Q=FNH(ASC(MID$(A$,F*2+1)))*16+FNH(ASC(MID$(A$,F*2+2)))
5 CH=CH+Q:POKES,Q:S=S+1:NEXT:IFCH=ATHEN3
6 PRINT"CHECKSUM ERROR":END
100 DATA 78A97F8D0DDCA9018D1AD08D15D0A9578D1403A9C08D1503A91B8D11D0A9FA8D, 3773
101 DATA 12D0A9E68D01D0A233A0008D17D0BDAEC048290F9D00CE9934CE9D68CE999CCE, 4159
102 DATA 684A4A4A4A9D00CF9934CF9D68CF999CCFC8CA10D95860EAEAEAEAA037EEFFCF, 4830
103 DATA CEFFCFEABE00CEB900CF8D20D08E20D08D20D08E20D08D20D08E20D08D20D08E, 4502
104 DATA 20D08D20D08E20D08D20D08E20D0EAA9008810D08D20D0A967CE65C010038D65, 3942
105 DATA C038ED65C08D68C0EE19D04C31EA0990099B00992B0890298B089C2089AB089C, 3558
106 DATA 2F80A9FB089C2F87A0F97B180C6F076140096B48EC0F6741E130096B48EC3F77, 3274
107 DATA 1111000000000000000000000000000000000000000000000000000000000000, 34
108 DATA END,0