Table of Contents
Advertisement
Kaypro, Osborne 6 Other CPlM Computers
247
2390 PRINT ES@ "=11 CHR$(20+32) CHR$(18+32);
2400 PRINT "Enter selection or press P for print
sample."
2410 C$ = INKEY$ : IF C$ = 'I" THEN 2410
2420
IF C$ = "P" OR C$ = "p" THEN GOSUB 2530 : GOT0 2370
2430 IF C$ ( "0" OR C$ ) "9" THEN PRINT CHR$(7) : GOT0
2390
2440 S = VAL(C$)
2450 RETURN
2460 '
.
2470 'Subroutine to output command string.
2480 LPRINT S$ ;
2490 RETURN
2500 '
2510 'Subroutine to clear screen & position cursor.
2520 PRINT CHR$(26) ESC$ "=" CHR$(10+32) CHR$(TB+32); :
RETURN
2530 '
2540 t Subroutine to print sample
2550
FOR I = 1 TO 4 : FOR J = 33 TO 127
2560 LPRINT CHR$(J) ;
2570 NEXT : LPRINT : NEXT
2580 RETURN
Advertisement
Table of Contents
