home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / oberon / oberon < prev    next >
Text File  |  1977-12-31  |  2KB  |  73 lines
  1. ; $VER: Oberon_System_V4 1.3 (31.05.96)
  2.  
  3. SET Oberon4AmigaPath Meeting_Pearls_IV:Pearls/dev/Oberon/oberonv4
  4.  
  5. ;set assign first
  6. IF EXISTS Loader    ; O4A in current dir
  7.     assign Oberon4Amiga: ""
  8. ELSE                ; try to find O4A in $Oberon4AmigaPath
  9.     assign Oberon4Amiga: $Oberon4AmigaPath ""
  10.     IF WARN    ;is $Oberon4AmigaPath not an O4A path ?
  11.         ECHO "Can not find O4A in current directory or at the MP_IV CD."
  12.         ECHO "Plesae move the icon to a directory where O4A is located."
  13.         WAIT 8
  14.         SKIP Ende
  15.     ENDIF
  16. ENDIF
  17.  
  18. ;Test OS
  19. Oberon4Amiga:loader/TestSystem O
  20. IF WARN
  21.     ECHO "Oberon System V4 requires at least OS 2.04 !"
  22.     WAIT 6
  23.     SKIP Ende
  24. ENDIF
  25.  
  26. ;Test CPU
  27. Oberon4Amiga:loader/TestSystem C
  28. IF WARN
  29.     ECHO "Oberon System V4 requires at least an MC68020 CPU ! Sorry."
  30.     WAIT 6
  31.     SKIP Ende
  32. ENDIF
  33.  
  34. ;Test free memory
  35. Oberon4Amiga:loader/TestSystem M
  36. IF WARN
  37.     ECHO
  38.     ECHO "There is not enough free memory in your system."
  39.     ECHO "Close some applications or buy new memory and try again."
  40.     WAIT 8
  41.     SKIP Ende
  42. ENDIF
  43.  
  44. ;Test FPU
  45. Oberon4Amiga:loader/TestSystem F
  46. IF WARN
  47.     ECHO "There is no Floating Point Unit installed in your system."
  48.     ;NonFPU Version installed
  49.     IF EXISTS Oberon4Amiga:NonFPU
  50.         assign Oberon4Amiga: "Oberon4Amiga:NonFPU" ADD
  51.         ECHO "Oberon starts with the NonFPU Version. You will be able to"
  52.         ECHO "test O4A but REAL types in your programs will not work."
  53.         ECHO "You should buy a FPU if you want to use O4A for real work."
  54.     ELSE
  55.         ECHO "Install Oberon-NonFPU.lha to test O4A without FPU."
  56.         WAIT 8
  57.         SKIP Ende
  58.     ENDIF
  59. ENDIF
  60.  
  61. ;Set additional Assigns
  62. assign Oberon4Amiga: "Oberon4Amiga:System" "Oberon4Amiga:Fonts" "Oberon4Amiga:Tool" "Oberon4Amiga:Text" "Oberon4Amiga:Data" "Oberon4Amiga:Demos" "Oberon4Amiga:System1" "Oberon4Amiga:Configuration" ADD
  63.  
  64. ;start O4A
  65. stack 100000
  66. Oberon4Amiga:Loader/OLoad Oberon4Amiga:
  67.  
  68. LAB Ende
  69.  
  70. assign Oberon4Amiga: REMOVE
  71.  
  72. LAB Ende2
  73.