10 IFPEEK(65408)=67THEN1070
20 POKE53280,.:POKE53281,.:PRINT"[147][150][212]HIS PROGRAM CAN ONLY BE RUN ON AN"
30 PRINT"[211][216]-64."
40 PRINT"         [208]RESS [193][206][217] [203][197][217] TO QUIT.":POKE198,.:WAIT 198,1
50 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60 PRINT"[147]":IFER<>63THENEND
70 LOAD"HELLO CONNECT",8
1070 SP$="                                       "
1080 TF$="[158][212]URN OFF[146]"
1090 TN$="[212]URN ON [146]"
1100 EX$=" EXTERNAL DRIVE"
1110 POKE53281,0:POKE53280,0
1120 PRINTCHR$(14)"[147][211][216]-64 [201]NTERNAL AND [197]XTERNAL [196]RIVE":PRINT"[210]ENUMBER.";
1130 PRINT" [213]SE #'S 8-13 ONLY"
1140 POKE198,0
1150 PRINT""TF$EX$
1160 FORI=1TO150:NEXT:REM TIME DELAY
1170 PRINT"      [208]RESS [210][197][212][213][210][206][146]"
1180 GETA$:IFA$=CHR$(13)THEN1200
1190 PRINT"[146]"TF$EX$:FORI=1TO150:NEXT:GOTO1150
1200 PRINT""SP$
1210 INPUT"[197]NTER [201]NTERNAL[146] [196]RIVE # ";IN
1220 IFIN>13ORIN<8THEN1210
1230 OPEN1,8,15,"I"
1240 PRINT#1,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(14+32)CHR$(14+64)
1250 PRINT""TN$EX$
1260 FORI=1TO150:NEXT:REM TIME DELAY
1270 PRINT"      [208]RESS [210][197][212][213][210][206][146]"
1280 GETA$:IFA$=CHR$(13)THEN1300
1290 PRINT"[146]"TN$EX$:FORI=1TO150:NEXT:GOTO1250
1300 INPUT"[197]NTER [154][197]XTERNAL[146] [196]RIVE # ";EN
1310 IFEN>13OREN<8THEN1300
1320 IF(EN=IN)THEN1300
1330 PRINT#1,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(EN+32)CHR$(EN+64)
1340 CLOSE1:OPEN1,14,15
1350 PRINT#1,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(IN+32)CHR$(IN+64)
1360 CLOSE1:OPEN1,IN,15,"I"
1370 PRINT"[193]LL [196]ONE"
1380 GOTO40