10 REM*BOOT PROGRAM FOR EASY DOES IT & PROMOS V2.0*BY HUGH ROUNTREE*12/31/92*
20 D$="8":D=PEEK(186):IFD>7THEND$=RIGHT$(STR$(D),LEN(STR$(D))-1)
30 PRINTCHR$(147):PRINT:PRINT"LOAD";CHR$(34);"PB";CHR$(34);","D$",1"
40 FORI=1TO9:PRINTCHR$(13);:NEXT:PRINT"POKE56,32:NEW":PRINT:PRINT
50 PRINT"LOAD";CHR$(34);"EASY DOES IT";CHR$(34);","D$;CHR$(19);
60 FORI=631TO633:READDA:POKEI,DA:NEXTI:POKE198,3:NEW:DATA13,13,131