start tok64 d64-4qao7v
0 PRINT"{clear}{down*2}{space*2}{reverse on}machine code to data statements":PRINT"{down*2} machine code locations in decimal:":INPUT" {down} start of machine code";a:INPUT" {down}{space*3}end of machine code";b:PRINT"{down*2} data statement line numbers:"
1 INPUT"{space*5}{down} initial line number";l:INPUT"{space*5}{down}{space*8}line-nr step";s:GOTO6:DATAstart
2 DATA0,0,0,0:RESTORE
3 READa$:IFa$="start"THENa$="":GOTO5
4 GOTO3
5 READa:READb:READl:READs:IFs=0THENPRINT"{clear}{down*2}the data statements are formed":END
6 c=a+7:IFc=>bTHENc=b:s=0
7 FORj=aTOc:a$=a$+MID$(STR$(PEEK(j))+",",2):NEXT:PRINT"{clear}goto3":POKE198,4:POKE631,13:POKE632,13:POKE633,19:POKE634,13:PRINT"{down*2}2data"a+8","b","l+s","s:a$=STR$(l)+"data "+a$:PRINTLEFT$(a$,LEN(a$)-1):PRINT"{home}":END
stop tok64
(bastext 1.0)