10 DEFFNS="1Liners"
   20 *K.10O.|MRUN|M
   30 *K.0MO.0|ML.370|MEND|M
   40 *K.1L. 480|MEND|M
   50 MODE7
   60 VDU23;8202;0;0;0;
   70 PRINT"8-Bit Software One Liner Competition."
   80 PRINT"ƒ8-Bit Software One Liner Competition."
   90 PRINT''"      „ƒPress 1 - 9 to choose.  œ"
  100 PRINT'"    „ƒPress BREAK to return here.  œ"
  110 PRINT'"†1. 2J3-1. Game."
  120 PRINT"†2. 2J3-2. Silly line."
  130 PRINT"†3. 2J3-3. Decision Maker."
  140 PRINT"†4. 2J3-4. ADFS Compacter."
  150 PRINT"†5. 15A. Word Processor."
  160 PRINT"†6. 19F. Game."
  170 PRINT"†7. 1K1. Game."
  180 PRINT"†8. L1L-1. Text Presentation."
  190 PRINT"†9. L1L-2. Printer Dump."
  200 PRINT''"‚0. VOTE"
  210 REPEAT
  220 A%=VAL (GET$)
  230 UNTILA%>-1 AND A%<10
  240 IF A%=0 A%=10
  250 ONA% GOTO 310,360,420,470,530,830,880,940,1000,1010
  260 END
  270 REM
  280 REM
  290 REM  2J3 - 1
  300 REM
  310 PRINT"†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,32: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)"‚Score:";S;"ƒLives:"L-1:NEXT:IFx<>X L=L-1:VDU7:UNTILL=0:RUN:ELSES=S+1:UNTILL=0:RUN
  320 REM
  330 REM
  340 REM 2J3 - 2
  350 REM
  360 OSCLI"FX138,0,128":END
  370 RENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBERRENUMBER
  380 REM
  390 REM
  400 REM 2J3 - 3
  410 REM
  420 MODE7:PRINT"Please wait. I am thinking 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"""
  430 END
  440 REM
  450 REM 2J3 - 4
  460 REM
  470 OSCLI"FX138 0 129":END
  480 MODE128:REPEAT:CLS:PRINT"ADFS Compacter By C.J.Richardson.":OSCLI"MAP":IF VPOS<>3:OSCLI"COM. 0F 71":UNTILVPOS=3:PRINT"Done!" ELSE UNTILVPOS=3:PRINT"Done!"
  490 REM
  500 REM
  510 REM 15A
  520 REM
  530 REM >WordPrc
  540 REM by Steven Flintham
  550 REM
  560 REM A single-line wordprocessor!
  570 REM
  580 REM Sunday 4th April 1993
  590 REM Saturday 10th April 1993
  600 :
  610 MODE7
  620 VDU14
  630 PRINT"                                                One Line Word Processor               ƒOne Line Word Processor                                               „†Instructions:  œ  Text by 15A"
  640 PRINT"‚This  is  Steven's  entry  for the one-‚liner  competition.  It is a very basic‚wordprocesor, which allows you to enter‚text and edit it using  the DELETE key.‚Pressing RETURN has  no effect at all -"
  650 PRINT"‚if you want to go  to  a  new line, you‚must use spaces  to  fill  the  current‚one.  Pressing  CTRL-@  terminates  the‚program by printing out your text."
  660 PRINT'"…The  program only allows text to be one…screen  in  length,  and  there  are no…facilities  to  stop you DELETEing back…past the start or  typing over the end."
  670 PRINT'"†Despite  all  this,  it is sufficiently†useable to run off a  quick  letter  or†something -  and  you should be able to†fit it on a function key."
  680 PRINT'"‚You could extend this program by adding‚a  VDU  command  at the start to set up‚your   printer  for  NLQ   printing  or‚something.  This  should  be   possible‚without extending the program  over one‚line."
  690 REM
  700 PRINT''"Press a key":REPEATUNTILGET
  710 A%=0:X%=&FF:F%=USR&FFF4 DIV&100 AND 7
  720 IF F%<3:PRINT"ˆDELETING. PLEASE WAIT":OSCLI"K.0DEL.10,770|MDEL.790,1100|MO.|MRUN|M":OSCLI"FX138,0,128":END
  730 REM
  740 REM
  750 REM
  760 REM
  770 REM
  780 MODE128:DIMT 2559:FORC=0TO2559:T?C=0:NEXT:P=-1:VDU31,0,0:REPEAT:REPEAT:K=GET:UNTIL(K>31ANDK<128)ORK=0:P=P+(1+(K=127)):T?P=K*((K=127)+1):P=P+(K=127):VDU K:UNTIL K=0:VDU2:FORS=0TOP:VDU1,T?S:VDU 1,(S MOD80=0)*13:NEXT:VDU3
  790 REM
  800 REM
  810 REM 19F
  820 REM
  830 H%=0:REPEATMODE7:VDU28;24,39;:P%=&7C64: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";:REPEATUNTILGET=32:UNTIL0
  840 REM
  850 REM
  860 REM 1K1
  870 REM
  880 X=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 UNTILC=X OR C=X+15
  890 REPEATUNTILGET=32:GOTO880
  900 REM
  910 REM
  920 REM L1L - 1
  930 REM
  940 INPUT"Mode "m:MODEm:INPUT"$"A$:INPUT"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
  950 REPEATUNTILGET=32:GOTO940
  960 REM
  970 REM
  980 REM L1L - 2
  990 REM
 1000 MODE0: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
 1010 PRINT"…Press the number of your winner"
 1020 REPEATA%=VALGET$:UNTILA%>0ANDA%<10
 1030 PRINT"…Press the number of your runner up"
 1040 REPEATB%=VALGET$:UNTILB%>0ANDB%<10
 1050 F%=OPENOUT "Vote"
 1060 BPUT#F%,A%
 1070 BPUT#F%,B%
 1080 CLOSE#F%
 1090 PRINT"‚Thankyou. Send this disc to 8BS NOW!"
 1100 END