0 'BOOT.BA by Tom Wade (C) 1986
1 CLS:PRINT:INPUT"Do you want to BOOT or Un-BOOT B/U/N";A$:IFA$="B"ORA$="b"THEN5
3 IFA$="U"ORA$="u"THEN6
4 IFA$="N"ORA$="n"THENENDELSEGOTO1
5 CLEAR256,MAXRAM:PRINT:IPL"":PRINT"Turn on DVI":PRINT"When DVI is ready push RESET":CALL27862:END
6 SCREEN0:PRINT:PRINT"Turn off DVI":INPUT"Hit ENTER";B$:POKE62966,201:POKE62975,201:CALL32454:CLEAR256,MAXRAM:INPUT"Day";Y$:INPUT"Date";T$:INPUT"Time";M$:DAY$=Y$:DATE$=T$:TIME$=M$:MENU