start tok64 d64-TeBq3Z
0 OPEN15,8,15,"i0":INPUT"{clear}{down}{right}program name";n$:OPEN8,8,8,n$+"*,p,r":GOSUB1:GOTO3
1 INPUT#15,z1$,z2$,z3$,z4$:IFVAL(z1$)<2THENRETURN
2 q$=CHR$(34):PRINT"{down}{right}error "z1$" "q$z2$q$:CLOSE8:CLOSE15:END
3 GET#8,x$,y$:GOSUB1:CLOSE8:CLOSE15:x$=x$+CHR$(.):y$=y$+CHR$(.)
4 x=ASC(x$)+256*ASC(y$):h$="0123456789abcdef
5 a$=MID$(h$,ASC(y$)/16+1,1)+MID$(h$,(ASC(y$)AND15)+1,1)
6 a$=a$+MID$(h$,ASC(x$)/16+1,1)+MID$(h$,(ASC(x$)AND15)+1,1)
7 PRINT"{down}{right}it loads from $"a$" ("MID$(STR$(x),2)"){down}
stop tok64
(bastext 1.0)