22 lines
1.4 KiB
Text
22 lines
1.4 KiB
Text
0 REM GOTO
|
|
100 GOTO 110 : REM JUMP TO A SPECIFIC LINE
|
|
110 RUN 120 : REM START THE PROGRAM RUNNING FROM A SPECIFIC LINE
|
|
120 IF 1 GOTO 130 : REM CONDITIONAL JUMP
|
|
130 IF 1 THEN 140 : REM THEN ALSO WORKS IN PLACE OF GOTO
|
|
140 IF 1 THEN GOTO 150 : REM BE VERBOSE BY USING THEN GOTO
|
|
150 ON A GOTO 170, 180, 190 : REM JUMP A SPECIFIC LINE NUMBER IN THE LIST INDEXED BY THE VALUE OF A STARTING AT 1, IF A IS OUT OF RANGE DO NOT JUMP
|
|
160 ON ERR GOTO 270 : REM WHEN AN ERROR OCCURS JUMP TO A SPECIFIC LINE
|
|
170 GOSUB 180 : REM JUMP TO LINE 180, PUSHING THE CURRENT PLACE ON THE STACK
|
|
180 POP : REM POP THE CURRENT PLACE FROM THE STACK, EFFECTIVELY MAKING THE PREVIOUS LINE A JUMP
|
|
190 CALL -151 : REM CALL ANY MACHINE LANGUAGE SUBROUTINE, IT MIGHT RETURN, IT MIGHT NOT
|
|
200 & : REM CALL THE USER-DEFINED AMPERSAND ROUTINE, IT MIGHT RETURN, IT MIGHT NOT
|
|
210 ? USR(0) : REM CALL THE USER-DEFINED FUNCTION, IT MIGHT RETURN, IT MIGHT NOT
|
|
220 S = 6 : ?CHR$(4)"PR#"S : REM CALL THE ROM ROUTINE IN SLOT S
|
|
230 S = 6 : ?CHR$(4)"IN#"S : REM CALL THE ROM ROUTINE IN SLOT S
|
|
240 ?CHR$(4)"RUN PROGRAM" : REM RUN A BASIC PROGRAM FROM DISK
|
|
250 ?CHR$(4)"BRUN BINARY PROGRAM": REM RUN A MACHINE LANGUAGE BINARY PROGRAM FROM DISK
|
|
260 ?CHR$(4)"EXEC PROGRAM.EX" : REM EXECUTE THE TEXT THAT IS CONTAINED IN THE FILE PROGRAM.EX
|
|
270 RESUME : REM JUMP BACK TO THE STATEMENT THAT CAUSED THE ERROR
|
|
280 STOP : REM BREAK THE PROGRAM
|
|
290 END : REM END THE PROGRAM
|
|
300 GOTO : REM NO LINE NUMBER, JUMPS TO LINE 0
|