10 IFF=1THENGOTO110
20 PRINTCHR$(147)CHR$(17)CHR$(17)CHR$(17)CHR$(17)
30 POKE53280,1:POKE53281,1
40 PRINTCHR$(154);:PRINTTAB(17)"BASIC+"
50 PRINTCHR$(17);:PRINTTAB(19)"BY"
60 PRINTCHR$(17);:PRINTTAB(15)"G.D.GAYLER"
70 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(28);:PRINTTAB(14)"PLEASE  WAIT"
80 POKE52,207:POKE56,207:F=1
90 LOAD"BASIC+.MC",8,1
100 REM LOAD"BASIC+.MC",1,1
110 PRINTCHR$(147)CHR$(17)CHR$(17)"ENTER BASIC+  WITH :-"
120 PRINTCHR$(17)CHR$(17)"SYS(51200)"
130 POKE52,160:POKE56,160
140 END