start tok64 d64-DpNhkV 1 a=49152:FORi=0TO13:READd$:FORj=1TO72STEP3:b=VAL(MID$(d$,j,3)):POKEa,b:a=a+1 2 ch=ch+b:NEXT j,i:PRINT"{clear}starta med: sys49152":IF ch<>39058 THENPRINT"datafel!" 3 DATA 169252160192032030171032228255201095208249032163192169034133252169048141 4 DATA 207192169049141206192169048141204192141203192166252189217192133251032107 5 DATA 192173203192201057208008169047141203192238204192238203192198251208231173 6 DATA 206192201057208008169047141206192238207192238206192198252016194032204255 7 DATA 169002032195255169015032195255096162015032201255160011185203192032210255 8 DATA 136016247032204255162002032198255032228255032228255032228255201001208018 9 DATA 032228255201008208011160005185202192032210255136016247096169015162008160 10 DATA015032186255169000032189255032192255169002162008160002032186255169002162 11 DATA215160192032189255032192255096013048048032049048032048032050058049085035 12 DATA048017017017017017018018018018018018019019019019019019019021021021021021 13 DATA021021021021021021021021021021021021147164164164164164164164164164164164 14 DATA164164164164013018032068073083075032082091068068065082069078032013013083 15 DATA091084084032073032083075073086065078032083079077032083075065076076032075 16 DATA079076076065083046032145164164164017157157157018032095032013013000000000 stop tok64 (bastext 1.0)