TOMORROW LIES IN AMBUSH! word processor combined with a bold font. The name of the word processor comes from a collection of short stories with the same title.
Appears on
Gallery
Source Code
10 REM bold print 20 CLEAR 56575 30 LOAD "BOLD.COD"CODE 56576,768: POKE 23607,220 35 PRINT "Bold print now loaded" 37 PRINT "Please use this program for all listings you send to LIST" 38 PRINT "To return to regular printing, just POKE 23607,60" 39 PRINT "To get these heavy characters, Poke 23607,220" 40 PAUSE 390: CLS 101 REM "tomorrow" by EMMETT JENKINS 04/15/84 merged with "bold" from LIST 3.5 library tape--renamed "BOLDTOMORO" 102 PRINT AT 1,5; FLASH 1;"TOMORROW LIES IN AMBUSH!"; FLASH 0;AT 4,5;"WORD PROCESSOR",AT 6,5;"CREATED FOR:",AT 8,5; FLASH 1;"L.I.S.T!": FLASH 0 103 FLASH 1: PRINT AT 12,5;"BY EMMETT JENKINS": FLASH 0: PRINT AT 15,5;"PRESS ANY KEY TO START!",AT 18,5;"32 CHARACTERS",AT 20,5;"578 LINES DEEP" 104 PAUSE 4000 105 LET X=0: LET B=0: LET G=9000: DIM A (3) 106 DIM T$(600,32) 107 CLS 108 FOR L=0 TO 32 109 BRIGHT 1 110 FOR F=1 TO 3 113 CLS 120 GO SUB G 130 PRINT AT 10,3;"INPUT:",A$;AT 12,7;"COLOR" 140 LET G=G+2 150 INPUT A(F) 155 CLS 160 NEXT F 170 BORDER A(1): PAPER A(2): INK A(3) 180 CLS 199 CLS 200 REM OPTIONS 205 CLS : PRINT AT 1,5; FLASH 1;"PRESS NUMBER OF OPTION": FLASH 0 210 PRINT AT 5,0;"OPTION 1";TAB 10;"ENTER TEXT" 215 PRINT 220 PRINT "OPTION 2";TAB 10;"PRINTOUT TEXT" 225 PRINT 230 PRINT "OPTION 3";TAB 10;"SAVE TEXT" 235 PRINT 240 PRINT "OPTION 4";TAB 10;"LOAD TEXT" 245 PRINT 250 PRINT "OPTION 5";TAB 10;"EDIT TEXT" 255 PRINT 270 PRINT "OPTION 6";TAB 10;"END" 275 PRINT AT 17,0;"OPTION 7";TAB 10;"PRINT TEXT ON SCREEN" 276 PRINT AT 19,0;"OPTION 8";TAB 10;"ADD TEXT" 277 PRINT AT 21,0; FLASH 1;"TO ADD TO TEXT; PRESS '8' TWICE!" 280 IF INKEY$<>"" THEN GO TO 280 290 IF INKEY$="" THEN GO TO 290 300 IF INKEY$="1" THEN GO TO 1000 310 IF INKEY$="2" THEN GO TO 2000 330 IF INKEY$="3" THEN GO TO 3000 340 IF INKEY$="4" THEN GO TO 4000 350 IF INKEY$="5" THEN GO TO 5000 360 IF INKEY$="6" THEN GO TO 6000 365 IF INKEY$="7" THEN GO TO 700 366 CLS : IF INKEY$="8" THEN GO TO 1010 370 GO TO 290 705 CLS 710 GO SUB 8000 720 FOR F=1 TO X 730 PRINT T$(F) 740 NEXT F 745 PRINT AT 21,3; FLASH 1;"PRESS ANY KEY TO CONTINUE"; FLASH 0: PAUSE 0 750 GO TO 200 1000 REM INPUT ROUTINE 1001 CLS 1002 GO SUB 9100 1005 LET C=1 1008 IF T$(C)=CHR$ 32 THEN BEEP .03,6 1009 IF C=578 THEN PRINT AT 10,0; FLASH 1;"THAT WAS YOUR LAST LINE"; FLASH 0; FLASH 1;AT 13,0;"PRESS ANY KEY TO CONTINUE"; FLASH 0: PAUSE 500: GO TO 1051 1010 INPUT T$(C): 1020 IF T$(C)="END " OR T$(C)="end " THEN GO TO 205: 1030 PRINT T$(C): 1040 LET C=C+1 1050 GO TO 1009 1051 PRINT AT 15,3; FLASH 1;"NOW TYPE END"; FLASH 0: GO TO 1010 2000 REM OUTPUT ROUTINE 2050 GO SUB 8000 2100 FOR F=1 TO X 2110 LPRINT T$(F) 2115 NEXT F 2120 GO TO 200 3000 REM SAVE ROUTINE 3010 CLS : PRINT AT 10,0; FLASH 1;"INPUT NAME OF TEXT"; FLASH 0 3020 INPUT S$ 3030 SAVE S$ DATA T$() 3040 GO TO 200 4000 REM LOAD TEXT ROUTINE 4010 CLS : PRINT AT 10,0; FLASH 1;"INPUT NAME OF TEXT"; FLASH 0 4020 INPUT S$ 4025 PRINT FLASH 1;"START TAPE"; FLASH 0 4030 LOAD S$ DATA T$() 4035 PRINT AT 16,10; FLASH 1;"STOP TAPE"; FLASH 0: PAUSE 500 4040 GO TO 200 5000 REM EDIT ROUTINE 5001 CLS 5010 GO SUB 8000 5020 PRINT FLASH 1;"TO EDIT LAST LINE PRESS '0'"; FLASH 0 5025 PRINT 5030 FOR F=1 TO X 5040 IF T$(F)="END " OR T$(F)="end " THEN GO TO 205 5050 PRINT T$(F): POKE 23692,255 5060 PAUSE 300 5070 IF LEN INKEY$=0 THEN NEXT F: PRINT LEN INKEY$: GO TO 205 5080 CLS : PRINT FLASH 1;"PRESS APPROPRIATE KEY"; FLASH 0 5090 PRINT : PRINT "1 TO CONTINUE" 5100 PRINT : PRINT "2 TO EDIT THIS LINE" 5110 PRINT : PRINT "3 UP ONE LINE" 5120 PRINT : PRINT "4 DOWN ONE LINE" 5130 IF INKEY$<>"" THEN GO TO 5130 5140 IF INKEY$="" THEN GO TO 5140 5150 IF INKEY$="1" THEN CLS : NEXT F 5160 IF INKEY$="2" THEN GO TO 5200 5170 IF INKEY$="3" THEN LET F=F-1: GO TO 5125 5180 IF INKEY$="4" THEN LET F=F+1: GO TO 5125 5190 GO TO 5130 5200 CLS : PRINT AT 5,0; FLASH 1;"RE-WRITE THIS LINE CORRECTLY!"; FLASH 0 5210 PRINT AT 16,0;T$(F) 5220 INPUT T$(F) 5225 CLS : PRINT FLASH 1;"TO EDIT LAST LINE PRESS '0'"; FLASH 0: PRINT : PRINT T$(F) 5230 NEXT F 5240 GO TO 200 6000 REM END ROUTINE 6010 STOP 8000 REM SEARCH ROUTINE 8010 FOR N=1 TO 600 8020 IF T$(N)="END " OR T$(N)="end " THEN LET X=N: RETURN 8030 NEXT N 8040 RETURN 8999 GO TO 9998 9000 LET A$="BORDER" 9001 RETURN 9002 LET A$="PAPER" 9003 RETURN 9004 LET A$="INK" 9005 RETURN 9100 PRINT AT 0,5;"THIS WORD PROCESSOR",AT 2,3;"WORKS JUST LIKE A TYPEWRITER",AT 4,5;"AT THE END OF EACH LINE",AT 6,5;"YOU PRESS THE ENTER KEY",AT 8,0;"YOU MAY ONLY ENTER 32 CHARACTERS",AT 12,2; INVERSE 1;"TO END TEXT INPUT,TYPE 'END'"; INVERSE 0 9110 PRINT : PRINT : PRINT : PRINT 9130 PRINT AT 17,3; FLASH 1;"PRESS ANY KEY TO CONTINUE!": FLASH 0 9140 PRINT 9150 PAUSE 0 9155 CLS 9160 RETURN : GO TO 1010 9990 STOP 9997 SAVE "BOLDTOMORO" LINE 1 9998 SAVE "BOLD.COD"CODE 56576,768