()0V2BTC-PS/8 FOCAL, 1971?MB]BEC SUMCOM.RE?MB&BJL C FOCAL.TM?MT;BTG 2.1?MCMDLT "*ASK ..........ACCEPT VALUE OF X FROM INPUT DEVICE"!?MC.DNT "*COMMENT ..........................IGNORE REST OF LINE"!?MDODPT "*DO [LINE OR GROUP NUMBER] ............SUBROU INE CALL"!?MD0DRT "*ERASE .................................ZERO VARIABLES"!?MEQDTT "*ERASE ....DELETE LINE OR GROUP"!?ME2DVT "*ERASE ALL .............DELETE ENTIRE INDIRECT PROGRAM"!?MFSDXT "*FOR X=E1[,E2],E3; COMMAND REPEATED (E3-E )/E2+1 TIMES"!?MF4DZT "*GO [L1] ...........START PROGRAM EXECUTION AT LINE L1"!?MGUD\T "*IF (E1)L1[,L2,L3] ...............BRANCH ON SIGN OF E1"!?MG6D^T "*MODIFY .............................EDIT LINE L1"!?MHWD T "*QUIT ............................... ..STOP EXECUTION"!?MH8D"T "*RETURN ..........TERMINATE DO OR GOSUB SUBROUTINE"!?MUED$T "*SET X= ...............ASSIGN VALUE E1 TO VARIABLE"!?MVFD(T "*WRITE [LINE OR GROUP NUMBER] ............LIST PROGRAM"!!!?MJ\D,T "*LIBRARY CALL [DEVICE:] .....UNSAVE PROGRAM"!?MK^D0T "*LIBRARY GOSUB [DEVICE:] [G1] SUBROUTINE CALL"!?MK?D2T "*LIBRARY LIST [DEVICE:][FIRST LISTED FILE] ....CATALOG"!?ML D4T "*LIBRARY RUN [DEVICE:] [L1] ............CHAIN"!?MMAD6T "*LIBRARY SAVE [DEVICE:] .........SAVE PROGRAM"!?MM"D8T "*LIBRARY EXIT ..................RETURN TO PS/8 MONITOR"!!?MNCD:T "*OPEN INPUT [DEVICE:][FILE][,ECHO] ....PREPARE TO READ"!?MN$DT "*OPEN RESTORE OUTPUT[,ECHO] .....RESUME OUTPUT TO FILE"!?MPGD?T "*OUTPUT CLOSE ......OUTPUTS BUFFER; CLOSES OUTPUT FILE"!!?MP(ET "---INPUT---,ECHO . ......ECHO INPUT ONTO OUTPUT DEVICE"!?MQIEAT "---OUTPUT---,ECHO ...........ECHO OUTPUT ONTO TERMINAL"!?MV^EBT ".FC & .FD ARE THE PROGRAM & DATA FILE NAME EXTENSIONS."!!?MRKEET "<> ENCLOSE REQUIRED TERMS. [] ENCLOSE OPTIONAL TERMS."!?MR,EFT "ONE LETTER AB REVIATIONS MAY BE USED AS COMMAND WORDS."!?MSMEHT "X REPRESENTS A VARIABLE. E1, E2 AND E3 ARE ARITHMETIC"!?MS.EJT "EXPRESSIONS. L1, L2 AND L3 ARE LINE NUMBERS. G1 IS A"!?MTOELT "LINE OR GROUP NUMBER. L1-L3 AND G1 CAN BE REPLACED BY"!?MT2ENT "ARITHMETI EXPRESSIONS WHICH DO NOT BEGIN WITH AN A ."!!!!!?MFJL R HELP 4.7?MU0B^S D=FOUT(162)?MIYD&T "*TYPE [NUMBERS, E1, ";D 1.3;T "TEXT";D 1.3;T ", !, , :, $ OR %] ...OUTPUT"!?MB,DJT " ELEMENTARY COMMANDS"!!?MI;D*T " LIBRARY AND FILE COMMAN S"!!?MQ*EDT " - - - - -"!!?M L D SUMCOM.RE;L S SUMCOM.RE;L E?M?T ", !, , :, $ OR %] ...OUTPUT"!?T "NOTE: TYPE = , TYPE ) , TYPE ] , OR TYPE > OUTPUTS A STRING"!?MC:E A?M?L L?M? Note: Lines longer than 256 characters were wrapped