10DEFFNS="1Liners"
20*K.10O.|MRUN|M
30*K.0MO.0|ML.370|MEND|M
40*K.1L. 480|MEND|M
50MODE7
60VDU23;8202;0;0;0;
70PRINT"
80PRINT"
90PRINT''" Press 1 - 9 to cho
ose. "
100PRINT'" Press BREAK to return
here. "
110PRINT'" 1. 2J3-1. Game."
120PRINT" 2. 2J3-2. Silly line."
130PRINT" 3. 2J3-3. Decision Maker."
140PRINT" 4. 2J3-4. ADFS Compacter."
150PRINT" 5. 15A. Word Processor."
160PRINT" 6. 19F. Game."
170PRINT" 7. 1K1. Game."
180PRINT" 8. L1L-1. Text Presentation.
"
190PRINT" 9. L1L-2. Printer Dump."
200PRINT''" 0. VOTE"
210REPEAT
220A%=VAL (GET$)
230UNTILA%>-1 AND A%<10
240IF A%=0 A%=10
250ONA% GOTO 310,360,420,470,530,830,8
80,940,1000,1010
260END
270REM
280REM
290REM 2J3 - 1
300REM
310PRINT" Hit Space ":REPEATUNTILINKEY
-99:MODE7:S=0:L=9:VDU23;8202;0;0;0;:x=9:
REPEAT:X=RND(39):FORY=1TO44:VDU31,x,22,3
2:x=x+(x>0ANDINKEY(-103))-(x<39ANDINKEY(
-104)):VDU31,X,Y/2-1,32,31,X-1,Y/2,RND(6
)+128,255,31,x,22,95:PRINTTAB(0,0)" Scor
e:";S;" Lives:"L-1:NEXT:IFx<>X L=L-1:VDU
7:UNTILL=0:RUN:ELSES=S+1:UNTILL=0:RUN
320REM
330REM
340REM 2J3 - 2
350REM
360OSCLI"FX138,0,128":END
370RENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBERRENUMBERRENUMBERRENUMBERREN
UMBERRENUMBER
380REM
390REM
400REM 2J3 - 3
410REM
420MODE7:PRINT"Please wait. I am think
ing hard":DIMA%(2):REPEATB%=RND(2):A%(B%
)=A%(B%)+1:UNTILA%(1)=10000:PRINT"Out of
";A%(1)+A%(2);" people asked, "'A%(1);"
say. ""Get Married Kevin"" and "'A%(2);
" say. ""Don't get married Kevin"""
430END
440REM
450REM 2J3 - 4
460REM
470OSCLI"FX138 0 129":END
480MODE128:REPEAT:CLS:PRINT"ADFS Compa
cter By C.J.Richardson.":OSCLI"MAP":IF V
POS<>3:OSCLI"COM. 0F 71":UNTILVPOS=3:PRI
NT"Done!" ELSE UNTILVPOS=3:PRINT"Done!"
490REM
500REM
510REM 15A
520REM
530REM >WordPrc
540REM by Steven Flintham
550REM
560REM A single-line wordprocessor!
570REM
580REM Sunday 4th April 1993
590REM Saturday 10th April 1993
600:
610MODE7
620VDU14
630PRINT"
ssor
Instructions: Text by
15A"
640PRINT" This is Steven's entry f
or the one- liner competition. It is a
very basic wordprocesor, which allows y
ou to enter text and edit it using the
DELETE key. Pressing RETURN has no effe
ct at all -"
650PRINT" if you want to go to a ne
w line, you must use spaces to fill t
he current one. Pressing CTRL-@ term
inates the program by printing out your
text."
660PRINT'" The program only allows te
xt to be one screen in length, and t
here are no facilities to stop you DE
LETEing back past the start or typing o
ver the end."
670PRINT'" Despite all this, it is
sufficiently useable to run off a quick
letter or something - and you shoul
d be able to fit it on a function key."
680PRINT'" You could extend this progr
am by adding a VDU command at the sta
rt to set up your printer for NLQ
printing or something. This should b
e possible without extending the progr
am over one line."
690REM
700PRINT''"Press a key":REPEATUNTILGET
710A%=0:X%=&FF:F%=USR&FFF4 DIV&100 AND
7
720IF F%<3:PRINT" DELETING. PLEASE WA
IT":OSCLI"K.0DEL.10,770|MDEL.790,1100|MO
.|MRUN|M":OSCLI"FX138,0,128":END
730REM
740REM
750REM
760REM
770REM
780MODE128:DIMT 2559:FORC=0TO2559:T?C=
0:NEXT:P=-1:VDU31,0,0:REPEAT:REPEAT:K=GE
T:UNTIL(K>31ANDK<128)ORK=0:P=P+(1+(K=127
)):T?P=K*((K=127)+1):P=P+(K=127):VDU K:U
NTIL K=0:VDU2:FORS=0TOP:VDU1,T?S:VDU 1,(
S MOD80=0)*13:NEXT:VDU3
790REM
800REM
810REM 19F
820REM
830H%=0:REPEATMODE7:VDU28;24,39;:P%=&7
C64:S%=0:REPEAT?P%=86:PRINT"|"TAB(RND(38
))"*"TAB(39)"|"CHR$13;:P%=(P%+INKEY(-98)
-INKEY(-67)-19)MOD38+&7C51:S%=S%+1:UNTIL
?P%=42:H%=H%+(S%>H%)*(H%-S%):VDU7:PRINT'
"SCORE:"S%'"HI:"H%'"PRESS SPACE";:REPEAT
UNTILGET=32:UNTIL0
840REM
850REM
860REM 1K1
870REM
880X=13:C=18:REPEATP=P+1:PRINTTAB(C,24
)"*"'TAB(X)" ";TAB(X+15)" ":f=RND(2)
:g=RND(2):X=ABS(X+f-g):G$=INKEY$(1):IFG$
="Z"C=C-1:UNTILC=X OR C=X+15:PRINTP:ELSE
IFG$="X"C=C+1:UNTILC=X OR C=X+15:PRINTP
:ELSE UNTIL C=X OR C=X+15:PRINTP:ELSE UN
TILC=X OR C=X+15
890REPEATUNTILGET=32:GOTO880
900REM
910REM
920REM L1L - 1
930REM
940INPUT"Mode "m:MODEm:INPUT"$"A$:INPU
T"X"X:INPUT"Y"Y:PRINTTAB(X,Y)A$:Y=32-Y-1
:Z=16*(1+m):X=X*Z:Y=Y*32:F=10:G=F/(2-m):
MOVEX-F,Y-G:DRAWX+Z*LEN(A$)+F,Y-G:DRAWX+
Z*LEN(A$)+F,Y+32+G:DRAWX-F,Y+32+G:DRAWX-
F,Y-G
950REPEATUNTILGET=32:GOTO940
960REM
970REM
980REM L1L - 2
990REM
1000MODE0:OSCLI"*LO.L1L`PIC":VDU2,1,27,
1,51,1,24:FORY=1023TO0STEP-32:VDU2,1,27,
1,75,1,64,1,1:FORX=0TO1279STEP4:A=0:FORB
=0TO31STEP4:A=A*2:IFPOINT(X,Y-B)>0 A=A+1
:NEXT:VDU1,A:NEXT:VDU1,10:NEXT:VDU3 ELSE
NEXT:VDU1,A:NEXT:VDU1,10:NEXT:VDU3
1010PRINT" Press the number of your win
ner"
1020REPEATA%=VALGET$:UNTILA%>0ANDA%<10
1030PRINT" Press the number of your run
ner up"
1040REPEATB%=VALGET$:UNTILB%>0ANDB%<10
1050F%=OPENOUT "Vote"
1060BPUT#F%,A%
1070BPUT#F%,B%
1080CLOSE#F%
1090PRINT" Thankyou. Send this disc to
8BS NOW!"
1100END