home *** CD-ROM | disk | FTP | other *** search
- CASE "CLS"
- BOZOCLS
-
- CASE "COLOR"
- BOZOCOLOR VAL(POPARG$), VAL(POPARG$)
-
- CASE "LOCATE"
- BOZOLOCATE VAL(POPARG$), VAL(POPARG$)
-
- CASE "TAB"
- PUSHARG CHR$(9)
-
- CASE "CR"
- PUSHARG CHR$(13)
-
- CASE "PROMPT"
- DO:BOZOPRINT POPARG$:LOOP WHILE ArgPtr%>0
-
- CASE "PRINT"
- DO:BOZOPRINT POPARG$:LOOP WHILE ArgPtr%>0
- BOZOPRINT CrLf$
-
- CASE "INPUT"
- A%=ArgPtr%
- IF ArgPtr%>1 THEN FOR y%=A% TO 2 STEP -1:BOZOPRINT POPARG$:NEXT y%
- VALUE$=BOZOINPUT$
- VAR$=LITERAL$(1)
- IF LEN(VAR$) THEN
- ARRAY SCAN VAR$(1),COLLATE UCASE, =LITERAL$(1), TO i%
- IF i% THEN
- VALUE$(i%)=VALUE$
- ELSE
- INCR NextVar%
- VALUE$(NextVar%)=VALUE$
- VAR$(NextVar%)=LITERAL$(1)
- END IF
- END IF
-