3 FORI=1TO25:READX,Y:GOSUB26:NEXTI:PRINTCHR$(27)"p";:PRINT@186,"A version for";:PRINT@226,"the MODEL 100";CHR$(27)"q";:PRINT@306,"Bob Delbourgo";:FORI=0TO9:FORJ=0TO9:P(I,J)=0:NEXTJ,I:FORT=1TO3000:NEXTT:FORI=25TO305STEP40:PRINT@I,SPACE$(14);:NEXTI
4 N=0:P=0:I=4:J=4:PRINT@25,"Use arrow keys";:PRINT@65,"and '<' or '>' ";:PRINT@105,"to move cursor ";:PRINT@145,"Then press 'I'";:PRINT@185,"to insert piece";:PRINT@225,"or 'E' to end.";