Return

199 'subroutine: lowcase characters to uppercase

FOR I = 1 TO LEN(LOWCASE$) 205 CHR=ASC(MID$(LOWCASE$,l,1)): IF CHR=97 THEN CHR = CHR-32 210 UPPERCASE$ = UPPERCASE$ + CHR$(CHR):NEXT:RETURN

299 'subroutine: update stamp - invoked by < BREAK > type GOTO 300

300 C=VARPTR(STAMP$)

315 G$ = "last update: " + DATUM$ + " "+TIME$

IF H32767 THEN H = H-65536!

0 0

Post a comment