 20 CLS:PRINT"MOMENT"
 30 FOR X=1 TO 1500: NEXT 'STOPPEN DISKDRIVE
 40 DEFUSR=&H41:A=USR(0)
 50 POKE &HFD9F,&HC9
 60 POKE &HFDA0,&H8F
 70 POKE &HFDA1,&HCF
 80 POKE &HFDA2,&H78
 90 POKE &HFD9F,&HF7
100 DEFUSR=&H44:A=USR(0)
110 CALL MEMINI(&H4000)
120 DEFUSR=&H8068
130 BLOAD"DSPD1.BIN",-&H1000:A=USR(0)
