12 ZTEMP$=INKEY$:ZRANDOM=(ZRANDOM MOD 2000)+1:IF LEN(ZTEMP$)=0 THEN 12'Wait for Char
13 IF ASC(ZTEMP$)=127 OR ASC(ZTEMP$)=8 THEN 18 ELSE IF ASC(ZTEMP$)=21 THEN PRINT ZREST$+ZBACKER$;:ZLENGTH=ZORGL:GOTO 11 ELSE PRINT ZTEMP$;'RUBOUT
14 IF ASC(ZTEMP$)=3 THEN GOTO 9999 ELSE IF ZTEMP$ >= "a" THEN ZTEMP$=CHR$(ASC(ZTEMP$)-32)'Uppercase Modify GOTO xx to Control-C intercept <=====================
15 IF ASC(ZTEMP$)=13 THEN PRINT:GOTO 17'RETURN finishes
16 ZSTRING$=ZSTRING$+ZTEMP$:ZLENGTH=ZLENGTH-1:IF ZLENGTH >0 THEN 12
18 IF LEN(ZSTRING$)>0 THEN ZLENGTH=ZLENGTH+1:ZSTRING$=LEFT$(ZSTRING$,(LEN(ZSTRING$)-1)):PRINT ZRUBOUT$;:GOTO 12 ELSE PRINT ZBELL$;: GOTO 12'Cleanup after RUBOUT
19 'End of VT100 definitions *****
20 'Use this BASIC program on the CP/M side of the DECmate (with MicroSoft
21 'MBasic) to translate the MSVDM2.BOO file on your CP/M-80 disk to
22 'binary .EXE format, then from the MS-DOS side use CONVERT to transfer
23 'the result to the MS-DOS file system. This program takes about 30
24 'minutes to run on a DECmate II with floppy disks.
25 'Bill Catchings, CU; modified for Rainbow by Bernie Eiben, DEC;
26 'modified for DECmate CP/M-80 by Charles Lasner CLA.