aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/User-input-Text/OPL/user-input-text.opl
View file

@ -1,30 +1,29 @@
PROC usrinpt:
LOCAL string$(15),number&
WHILE string$=""
PROC main:
LOCAL s$(15),l&
WHILE s$=""
PRINT "Please enter a string."
INPUT string$
IF string$=""
INPUT s$
IF s$=""
PRINT "Nothing was entered. Please try again."
PAUSE 60
CLS
ENDIF
ENDWH
PRINT "Thank you! You entered: ";string$
WHILE number&<>75000
PRINT "Thank you! Yoe entered: ";s$
WHILE l&<>75000
PRINT "Please enter the number 75000."
TRAP INPUT number&
TRAP INPUT l&
IF ERR=-1
PRINT
PRINT "That's not a valid number. Please try again."
PAUSE 60
CLS
ELSEIF number&<>75000
ELSEIF l&<>75000
PRINT "Wrong number. Please try again."
PAUSE 60
CLS
ENDIF
ENDWH
PRINT "Good job! You successfully entered 75000!"
PRINT "Press any key to continue."
PRINT "Good job! You succesfully entered 75000!"
GET
ENDP