start tok64 d64-spzamv
0 a=49152:FORi=0TO4:READd$:FORj=1TO66STEP2:h=ASC(MID$(d$,j,1))-48:IFh>9THENh=h-7
1 l=ASC(MID$(d$,j+1,1))-48:IFl>9THENl=l-7
2 d=l+16*h:POKEa,d:a=a+1:c=c+d:NEXT:NEXT:IFc<>16014THENPRINT"datafel!":STOP
3 PRINT"{clear}starta med: sys49152":NEW
4 DATAa90ca200a0002037c0a902a200a0072037c0a904a202a00f2037c0a906a204a019
5 DATA2037c0a90ca208a0222037c0a908a206a02b2037c06048b96bc0f00620d2ffc8d0
6 DATAf568a8b92b0038f52b85c1b92c00f52ca6c1a00a84d320cdbda01084d3a005b99c
7 DATAc020d2ff8810f7600d42415349430050524f4752414d005641524941424c455200
8 DATA4d41545249534552005354525b4e474152004652495454000d5345545942bb1988
stop tok64
(bastext 1.0)