8-Bit Software Online Conversion

One Liner Competition Vote - Listing

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