Source Code
10 LET F=0
12 PRINT AT 21,0;"CHANGE Y OR N"
14 IF INKEY$="Y" THEN GOTO 20
16 IF INKEY$="N" THEN GOTO 22
18 GOTO 14
20 LET F=1
22 PRINT AT 21,0;" "
24 RETURN
30 LET F=0
32 PRINT AT 21,0;"MORE Y OR N"
34 GOTO 14
40 PRINT AT 21,0;"PRESS C TO CONTINUE"
42 IF INKEY$="C" THEN GOTO 22
44 GOTO 42
60 PRINT AT 21,0;"COPY Y OR N?"
62 IF INKEY$<>"" THEN GOTO 62
64 IF INKEY$="" THEN GOTO 64
66 IF INKEY$="N" THEN RETURN
68 IF INKEY$="Y" THEN COPY
70 GOTO 62
490 RAND 0
500 CLS
510 SLOW
520 PRINT "I=INITIAL, A=ADD, D=DONE"
530 PRINT "P=PICK, L=LIST, S=SAVE"
540 IF INKEY$="I" THEN GOTO 1000
550 IF INKEY$="A" THEN GOTO 2000
560 IF INKEY$="D" THEN GOTO 3000
570 IF INKEY$="P" THEN GOTO 4000
580 IF INKEY$="L" THEN GOTO 5000
590 IF INKEY$="S" THEN GOTO 9550
600 GOTO 540
\n1000 CLS
\n1010 PRINT "INPUT NUMBER OF JOBS"
\n1020 INPUT N1
\n1030 DIM B$(N1,28)
\n1040 LET N=0
\n1050 GOTO 500
\n2000 CLS
\n2002 IF N<>N1 THEN GOTO 2008
\n2004 PRINT "% NO MORE ROOM IN FILE% "
\n2006 PAUSE 100
\n2007 GOTO 500
\n2008 CLS
\n2009 PRINT " NUMBER OF JOBS=";N
\n2010 PRINT AT 1,0;" INPUT DESCRIPTION FOR JOB ";N+1
\n2020 DIM X$(28)
\n2030 INPUT X$(1 TO 24)
\n2035 PRINT AT 2,0;"*";X$(1 TO 24)
\n2040 PRINT AT 3,0;" HOURS FOR JOB ";N+1;"=";
\n2050 INPUT X$(26 TO 28)
\n2060 FOR K=26 TO 28
\n2062 IF K=26 THEN GOTO 2070
\n2064 IF X$(K)=" " THEN GOTO 2100
\n2070 IF X$(K)<"A" AND X$(K)>"." THEN GOTO 2100
\n2080 PRINT "%B%A%D% %E%S%T%I%M%A%T%E"
\n2090 GOTO 2040
\n2100 NEXT K
\n2105 PRINT X$(26 TO 28);" "
\n2110 GOSUB 10
\n2120 IF F=1 THEN GOTO 2008
\n2130 LET N=N+1
\n2140 LET B$(N)=X$
\n2150 GOSUB 30
\n2160 IF F=1 THEN GOTO 2000
\n2170 GOTO 500
\n3000 CLS
\n3010 PRINT "I HAVE COMPLETED NO. ";
\n3020 INPUT I
\n3030 IF I>N THEN GOTO 3000
\n3035 PRINT I
\n3040 PRINT B$(I)
\n3050 GOSUB 10
\n3060 IF F=1 THEN GOTO 3010
\n3070 FOR J=I TO N-1
\n3080 LET B$(J)=B$(J+1)
\n3090 NEXT J
\n3100 LET N=N-1
\n3110 GOSUB 30
\n3120 IF F=0 THEN GOTO 500
\n3130 IF N<>0 THEN GOTO 3000
\n3140 PRINT "%N%O% %M%O%R%E% %J%O%B%S"
\n3150 PAUSE 100
\n3160 GOTO 500
\n4000 CLS
\n4005 DIM X$(3)
\n4010 IF N=0 THEN GOTO 3140
\n4020 PRINT "INPUT AVAILABLE TIME"
\n4030 INPUT X$(1 TO 3)
\n4040 FOR K=1 TO 3
\n4042 IF K=1 THEN GOTO 4050
\n4044 IF X$(K)=" " THEN GOTO 4080
\n4050 IF X$(K)<"A" AND X$(K)>"." THEN GOTO 4080
\n4060 PRINT "%B%A%D% %I%N%P%U%T"
\n4065 PAUSE 100
\n4070 GOTO 4000
\n4080 NEXT K
\n4085 FAST
\n4090 LET X=0
\n4100 FOR K=1 TO N
\n4110 IF B$(K,26 TO 28)=X$(1 TO 3) THEN GOTO 4200
\n4120 NEXT K
\n4130 IF X=1 THEN GOTO 4090
\n4140 LET T=VAL X$(1 TO 3)
\n4145 LET T1=T
\n4150 LET T=T-1
\n4160 IF T=0 THEN LET T1=T1+1
\n4170 LET X$(1 TO 3)=STR$ T
\n4180 GOTO 4090
\n4200 IF INT (RND*3+1)<>1 THEN GOTO 4090
\n4210 CLS
\n4215 SLOW
\n4220 PRINT "%J%O%B% %I%S:"
\n4230 PRINT B$(K)
\n4240 PRINT
\n4250 GOSUB 40
\n4260 GOTO 500
\n5000 CLS
\n5010 FOR K=1 TO N
\n5020 PRINT K;TAB 4;B$(K)
\n5030 NEXT K
\n5040 GOSUB 60
\n5050 GOTO 500
\n9550 CLS
\n9551 SAVE "JO%B"
\n9555 LET A$="JOB"
\n9560 FAST
\n9565 LET NN=0
\n9570 FOR L=5 TO 19 STEP 7
\n9575 LET NN=NN+1
\n9580 LET C=CODE A$(NN)
\n9585 FOR H=0 TO 7
\n9590 LET P=PEEK (7680+C*8+H)
\n9595 LET V=128
\n9600 FOR G=0 TO 7
\n9605 IF P<V THEN GOTO 9625
\n9610 PRINT AT H+3,G+L;"% "
\n9615 LET P=P-V
\n9620 GOTO 9630
\n9625 PRINT AT H+3,G+L;"\@@"
\n9630 LET V=V/2
\n9635 NEXT G
\n9640 NEXT H
\n9645 NEXT L
\n9650 PRINT " JOB JAR COPYRIGHT UAS"
\n9655 PRINT "BOX 612 HADDONFIELD, N.J. 08033"
\n9660 PAUSE 200
\n9670 CLS
\n9680 GOTO 490
