'Sprache: Power Basic 2.x/3.x
'Funktion: Progr.Start nach Zeit
ptr% = 0
std1% = 0
min1% = 0
zchn$ = ""
kommando$ = ""
 'Hauptprogramm
kommando$ = UCASE$(COMMAND$) '!Param?
ptr% = INSTR (kommando$,"/?") '!Opt/?
IF ptr% <> 0 THEN '! Hilfsbildschirm
  PRINT "G E T (c) Born Version 1.0"
  PRINT
  PRINT "Aufruf: GET  <Option>"
  PRINT
  PRINT "Abfrage v.Parametern"
  PRINT "GET /KEY  <text> Taste?"
  PRINT "GET /DAY   Tag (1-31)"
  PRINT "GET /MONTH Monat (1-12)"
  PRINT "GET /YEAR  Jahr (0-99)"
  PRINT "GET /WEEK  Wochentag (0-6)"
  PRINT "GET /SEC   Sekunden (0-59)"
  PRINT "GET /MIN   Minuten (0-59)"
  PRINT "GET /STD   Stunden (0-23)"
  PRINT "GET /TIME=hh:mm  ist Zeit?"
  PRINT "GET /MEM RAM in 4 KB-Bl”cken"
  PRINT
  PRINT "Auswertung mit ERRORLEVEL"
  PRINT
  SYSTEM
END IF
'! Sprungverteiler fr Kommandos
ptr% = INSTR (kommando$,"/KEY") '!Opt
IF ptr% > 0 THEN
 PRINT MID$(COMMAND$,ptr%+5,255) '!Tx
 zchn$ = INPUT$ (1) '! hole Zeichen
 IF ASC(zchn$) = 0 THEN '! F-Taste
  END (255)
 END IF
  END ASC(zchn$) '! Code zurckgeben
END IF
ptr% = INSTR (kommando$,"/TIME=") '!T
IF ptr% > 0 THEN
std1% =VAL (MID$(kommando$,ptr%+6,2))
min1% =VAL (MID$(kommando$,ptr%+9,2))
IF std1%=VAL(MID$(TIME$,1,2)) THEN
IF min1%=VAL(MID$(TIME$,4,2)) THEN
    END (0) '! Zeit abgelaufen
  END IF
 END IF
 END (255) '! nicht abgelaufen
END IF
ptr% = INSTR (kommando$,"/DAY") '!DAY
IF ptr% > 0 THEN CALL GETDATE (1)
ptr% = INSTR (kommando$,"/MONTH") 'mm
IF ptr% > 0 THEN CALL GETDATE (2)
ptr% = INSTR (kommando$,"/YEAR") '!YY
IF ptr% > 0 THEN CALL GETDATE (3)

ptr% = INSTR (kommando$,"/WEEK") 'tag
IF ptr% > 0 THEN CALL GETDATE (4)
ptr% = INSTR (kommando$,"/SEC") '!SEC
IF ptr% > 0 THEN CALL GETTIME(1)
ptr% = INSTR (kommando$,"/MIN") '!MIN
IF ptr% > 0 THEN CALL GETTIME(2)
ptr% = INSTR (kommando$,"/STD") '!STD
IF ptr% > 0 THEN CALL GETTIME(3)
ptr% = INSTR (kommando$,"/MEM") 'MEM
IF ptr% > 0 THEN
 REG 1, &H5100 '! AX = 5100 -> read
 '! PSP Segm. Adr
 CALL INTERRUPT &H21 '!Dispatcher INT
 IF (REG (0) AND &H01) > 0 THEN 'Fehl
  END (0) '! Fehlercode
 ELSE
  start& = REG(2) '! merke Adresse
 END IF
 CALL INTERRUPT &H12 'BIOS:GETRAMSIZE
 ram& = REG(1) '! RAM GrӇe
 ram& = ram& * &H3FF
 frei& = ram& - (start& * 16) 'frei?
 END (frei& / 4096) 'Korr4Kbyte Block
END IF
END '! Ende
'Hilfsroutinen
SUB GETDATE (Nr%)
'Datum und gibt Fehlercode an DOS
'1=Tag, 2=Monat, 3=Jahr, 4=Wochentag
 LOCAL dat$
 SELECT CASE Nr%
  CASE 1
   dat$=MID$(DATE$,1,2) '! Tag
   END (VAL(dat$))
  CASE 2
   dat$=MID$(DATE$,4,2) '! Monat
   END (VAL(dat$))
  CASE 3
   dat$=MID$(DATE$,9,2) '! Jahr
   END (VAL(dat$))
  CASE 4
   REG 1, &H2A00 'INT 21,2AH GET DATE
   CALL INTERRUPT &H21 'Tag dd in AL
   END (REG(1) AND &HFF)
  END SELECT
END SUB
SUB GETTIME (Nr%)
'Zeit+FehlercodeDOS:1=Sek.2=Min3=Std
 LOCAL tim$
 SELECT CASE Nr%
  CASE 1
   tim$=MID$(TIME$,7,2) '! Sek.
   END (VAL(tim$))
  CASE 2
   tim$=MID$(TIME$,4,2) '! Min.
   END (VAL(tim$))
  CASE 3
   tim$=MID$(TIME$,1,2) '! Std.
   END (VAL(tim$))
  END SELECT
END SUB