home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / B_L_GAUNT / NTSC-PAL.AMOS / NTSC-PAL.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  574 b   |  18 lines
  1. '******************************* 
  2. '* PAL NTSC SWITCHER B.L.GAUNT * 
  3. '**********************************************  
  4. '* WILL ONLY WORK ON AMIGAS WITH THE ECS CHIP *  
  5. '**********************************************  
  6. Screen Open 0,320,200,32,Lowres
  7. Colour 4,$44
  8. Flash Off : Curs Off : Hide : Cls 4
  9. Paper 4
  10. Do 
  11.    Locate 0,0 : Print "PAL MODE "
  12.    Print "Click left mouse button for NTSC."
  13.    Doke $DFF1DC,$20
  14.    Repeat : Until Mouse Click=1
  15.    Locate 0,0 : Print "NTSC MODE" : Doke $DFF1DC,0
  16.    Print "Click left mouse button for Pal. "
  17.    Repeat : Until Mouse Click=1
  18. Loop