1 REM A$="643IN1":OPEN15,8,15,"S0:"+A$:     CLOSE15:SAVEA$,8:VERIFYA$,8
2 POKE788,52:REMBYPASS CLOCK-STOP CHECK
10 XM=319:XC=XM/2:OP=0:O=OP:SA=24576
20 YM=199:YC=YM/2:C=-100:PT=1:EA=SA+7999:DN=PEEK(186):CP=0:SN=1:FP=0
22 ED$=".....END OF LINE."
24 ED$=ED$+""
30 GOSUB6000:GOSUB9000
100 REM *** MAIN ***
110 GOSUB8000
120 REM *** MAINLOOP ***
130 E$="":PRINT"";:GETE$:IFE$=""THEN130
140 GOSUB7000
150 GOTO120
200 REM *** REVERSE SCREEN ***
250 FORI=SATOEA
255 E$="":GETE$:IFE$="^"THEN299
260 POKEI,255-PEEK(I)
280 NEXTI
290 GETC$:IFC$=""THEN290
299 RETURN
999 END
1000 REM *** 64 3IN1 3.14 NEXUS ***
1001 POKE53280,5
1100 FOR V= 1 TO YC
1110 FOR N=-V TO V
1120 C=C+.05
1124 IF FP=0 THEN PT=1
1126 IF FP=1 THEN PT=PT+1:IF PT>1 THEN PT=0
1128 IF  B=1 THEN E=E+1:IF INT(E/2)*2=E THEN V=-V
1130 X=INT(XC+C*SIN(N/(V/180)*3.14))
1140 Y=INT(YC-C*COS(N/(V/180)*3.14))
1150 IF X>XM OR X<0 OR Y>YM OR Y<0 THEN 1180
1170 GOSUB4000
1172 E$="":GETE$:IFE$="^"THEN1199
1180 V=ABS(V)
1190 NEXT N:NEXT V
1191 POKE53280,2
1192 C$="":GETC$:IFC$=""THEN1192
1199 E=0:RETURN
2000 REM *** 64 3IN1 THREE NEXUS ***
2001 POKE53280,5
2100 FOR V= 1 TO YC
2110 FOR N=-V TO V
2120 C=C+.05
2124 IF FP=0 THEN PT=1
2126 IF FP=1 THEN PT=PT+1:IF PT>1 THEN PT=0
2128 IF  B=1 THEN E=E+1:IF INT(E/2)*2=E THEN V=-V
2130 X=INT(XC+C*SIN(N/(V/180)*3))
2140 Y=INT(YC-C*COS(N/(V/180)*3))
2150 IF X>XM OR X<0 OR Y>YM OR Y<0 THEN 1180
2160 IFFP=1THENPT=PT+1:IFPT>1THENPT=0
2162 IFFP=0THENPT=1
2170 GOSUB4000
2172 E$="":GETE$:IFE$="^"THEN2199
2180 V=ABS(V)
2190 NEXT N:NEXT V
2191 POKE53280,2
2192 C$="":GETC$:IFC$=""THEN2192
2199 E=0:RETURN
3000 REM *** 64 3IN1 ROSE NEXUS ***
3001 POKE53280,5
3100 FOR V= 1 TO YC
3110 FOR N=-V TO V
3120 C=C+.05
3124 IF FP=0 THEN PT=1
3126 IF FP=1 THEN PT=PT+1:IF PT>1 THEN PT=0
3128 IF  B=1 THEN E=E+1:IF INT(E/2)*2=E THEN V=-V
3130 X=INT(XC+C*SIN(N/(V/180)*(null)))
3140 Y=INT(YC-C*COS(N/(V/180)*(null)))
3150 IF X>XM OR X<0 OR Y>YM OR Y<0 THEN 1180
3160 IFFP=1THENPT=PT+1:IFPT>1THENPT=0
3162 IFFP=0THENPT=1
3170 GOSUB4000
3172 E$="":GETE$:IFE$="^"THEN3199
3180 V=ABS(V)
3190 NEXT N:NEXT V
3191 POKE53280,2
3192 C$="":GETC$:IFC$=""THEN3192
3199 E=0:RETURN
4000 REM *** PLOT ***
4010 IFX>XMORX<0ORY>YMORY<0THEN4999
4020 CH=INT(X/8):RO=INT(Y/8):LN=YAND7
4030 BY=SA+RO*320+8*CH+LN:BI=7-(XAND7)
4040 IFPT=1THENPOKEBY,PEEK(BY)OR(2^BI)
4050 IFPT=0ANDPEEK(BY)=(PEEK(BY)OR(2^BI))THENPOKEBY,PEEK(BY)-(2^BI)
4999 RETURN
5000 REM *** SETUP HIRES ***
5010 POKE53265,PEEK(53265)OR32
5012 POKE56576,150
5014 POKE648,92
5016 POKE53272,121
5020 IFCP=0THENFORI=23552TO24551:POKEI,1:NEXTI:CP=1
5030 IF OP=0THENFORI=SATOEA:POKEI,0:NEXTI
5040 RETURN
6000 REM *** TEXT MODE ***
6010 POKE53265,PEEK(53265)AND223
6012 POKE56576,151
6013 POKE648,4
6014 POKE53272,21
6020 POKE53281,0:POKE53280,11:POKE646,1
6030 RETURN
7000 REM *** READ KEYS *****
7010 IFE$="1"THENGOSUB5000:GOSUB1000
7020 IFE$="2"THENGOSUB5000:GOSUB3000
7030 IFE$="3"THENGOSUB5000:GOSUB2000
7040 IFE$="4"THENOP=1:GOSUB5000:OP=O:GOSUB200
7050 IFE$="5"THENOP=OP+1:O=OP:IFOP>1THENOP=0:O=OP
7060 IFE$="6"THENOP=0:GOSUB5000:OP=O
7070 IFE$="7"THENFP=FP+1:IFFP>1THENFP=0
7080 IFE$="8"THENPRINT"ENTER C VALUE ";:F=1:GOSUB20000:C=VAL(F$):F=0
7090 IFE$="9"THENB=B+1:IFB>1THENB=0
7091 REMIFE$="9"THENPRINT"SET STEP VALUE ";:F=1:GOSUB20000:SN=ABS(VAL(F$)):F=0
7092 IFSN>319THENSN=1
7100 IFE$="0"THENOP=1:GOSUB5000:E$="":OP=O:GOTO7120
7104 IFE$="/"THENGOSUB30000
7106 IFE$="Q"THENPRINTED$:POKE788,49:GOTO40000
7108 IFE$="S"THENGOSUB10000
7109 IFE$="?"THENGOSUB50000
7110 GOSUB6000:GOSUB8000
7120 RETURN
8000 REM *** MENU ***
8008 POKE53281,0:POKE53280,11:POKE646,1
8010 PRINT"[147][144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
8012 PRINT"[155] 3 IN 1 [206]EXUS, [204]OTUS [206]EXUS, [146]"
8013 PRINT"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
8018 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
8020 PRINT"[155] AND [202][198][212][200][207][201] [206]EXUS [146]"
8022 PRINT"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
8030 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
8032 PRINT"[155] BY [194]RIAN [195]ROSTHWAITE [146]"
8034 PRINT"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
8040 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
8042 PRINT"[155]PRESS....                 ? TO WHAT "
8050 PRINT"  1 3 IN 1 [206]EXUS 3.14     / DRIVE # "
8060 PRINT"  2 [204]OTUS [206]EXUS [208][201]                  "
8062 PRINT"[146] [196][206] ="DN"[157] "
8070 PRINT"  3 [202][198][212][200][207][201] (3)                      "
8080 PRINT"  4 REVERSE PLOT SCREEN             "
8090 PRINT"  5 TOGGLE OVER PLOT      [146] [207][208] ="OP"  "
8100 PRINT"  6 CLEAR PLOT SCREEN               "
8110 PRINT"  7 FALSE/TRUE PLOT                 "
8112 PRINT"[146] [198][208] ="FP"[157] "
8120 PRINT"  8 SET C                           "
8122 PRINT"[146] [195] ="C"[157] "
8130 PRINT"  9 MIRROR                [211] TO SAVE "
8132 PRINT"[146] [205] ="B"[157] "
8140 PRINT"  0 VIEW        ^ MENU    [209] TO QUIT "
8142 PRINT"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
8150 RETURN
8888 ____ZZZZZPZ]ZZ::A+++++++++++++AAA+QQQQQQQQQQ/:::::PRINT
9000 REM *** OPENING SCREENS ***
9010 PRINT"[147][159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9020 PRINT"[154] [202] & [198] [208]UBLISHING [146]"
9030 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9040 PRINT"[159][164][164][164]"
9050 PRINT"[154] & [146]"
9060 PRINT"[163][163][163]"
9070 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9080 PRINT"[154] NOESISCREATION.ORG [146]"
9090 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9100 PRINT"[159][164][164][164][164][164][164][164][164][164]"
9110 PRINT"[154] PRESENT [146]"
9120 PRINT"[163][163][163][163][163][163][163][163][163]"
9130 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9140 PRINT"[154] 3 IN 1 [206]EXUS, [204]OTUS [206]EXUS, [146]"
9150 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9160 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9170 PRINT"[154] AND [202][198][212][200][207][201] (3)  [146]"
9180 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9190 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9200 PRINT"[154] BY [194]RIAN [195]ROSTHWAITE [146]"
9210 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9212 POKE53370,0
9214 FORTD=0TO4000
9215 C$="":GETC$:IFC$<>""THEN9218
9216 NEXTTD
9218 POKE53371,0
9220 PRINT"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9230 PRINT"[153] [195]OPYRIGHT 2004 [146]"
9240 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9250 PRINT"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9260 PRINT"[153] BY [194]RIAN [195]ROSTHWAITE [146]"
9270 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9272 PRINT"[158][164][164][164]"
9274 PRINT"[153] & [146]"
9276 PRINT"[163][163][163]"
9280 PRINT"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9290 PRINT"[153] [202] & [198] [208]UBLISHING [146]"
9300 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9310 PRINT"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
9320 PRINT"[153] [193]LL [210]IGHTS [210]ESERVED. [146]"
9330 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
9332 POKE53370,0
9334 FORTD=0TO4000
9335 C$="":GETC$:IFC$<>""THEN9338
9336 NEXTTD
9338 POKE53371,0
9400 RETURN
10000 REM *** SAVE DOODLE ***
10010 A1=INT(SA/256):A2=SA-256*A1
10012 S2=23552:CE=1023
10014 A3=INT(S2/256):A4=S2-256*A3
10020 PRINT"ENTER FILE NAME ";:GOSUB20000
10021 PRINT"[147][158]SAVING",F$
10022 IFF$=""THEN10110
10030 OPEN15,DN,15,"S0:"+F$
10040 OPEN1,DN,1,"0:"+F$+",P,W"
10050 PRINT#1,CHR$(A4);CHR$(A3);
10055 FORJ=00TOCE:PRINT#1,CHR$(1);:NEXTJ
10060 FORJ=SATOEA:PRINT#1,CHR$(PEEK(J));
10070 NEXTJ
10090 CLOSE1:
10100 INPUT#15,A$,B$:PRINT"[147]"A$,B$:CLOSE15
10101 PRINT"[208]RESS <<[210][197][212][213][210][206]>> TO CONTINUE."
10106 C$="":GETC$:IFC$=""THEN10106
10110 RETURN
20000 REM *** KB INPUT ***
20010 REM A$="INKEY64.0000":SAVEA$,8:VERIFYA$,8
20020 A$="":K=0:F$="":REM PRINT"[147]ENTER FILE NAME TO SAVE:[159]";
20030 K$="":GETK$:IFK$=""THEN20030
20040 IFK$=CHR$(20)ANDF$<>""THENF$=LEFT$(F$,LEN(F$)-1):K=K-1:GOTO20130
20050 IFF$=""ANDK$=CHR$(13)THEN20190
20060 IFK$=CHR$(13)THEN20170
20070 IFK$="/"ORK$="*"ORK$="?"ORK$=CHR$(34)ORK$="$"THEN20030
20080 IFK$="@"ORK$="="THEN20030
20090 IFK$="[145]"ORK$=""ORK$="[157]"ORK$=":"ORK$=""THEN20030
20100 IFK$=","ORK$=":"ORK$=";"ORK$=CHR$(147)ORK$=""THEN20030
20110 IFK$=CHR$(148)THEN20030
20120 IFK$=CHR$(20)ANDF$=""THEN20030
20130 IFK>14THENK=14:GOTO20030
20140 IFK<14THENK=K+1:GOTO20150
20142 GOTO20030
20150 IFK<=14THENPRINTK$;:IFK$<>CHR$(20)THENF$=F$+K$
20160 GOTO20030
20170 IFF$=""THENGOTO20200
20180 IFF=0THENF$="DD"+F$
20190 IFF=1THENIFF$>="A"THEN20030
20200 RETURN
30000 REM *** LOGGED DRIVE ***
30010 REM DN=PEEK(186)
30020 PRINT"[147][158][208]RESS <</>> TO CHANGE DN ([153]"DN"[158]),":PRINT"<<[210][197][212][213][210][206]>> TO CONTINUE."
30030 E$="":GETE$:IFE$=""THEN30030
30040 IFE$<>"/"ANDE$<>CHR$(13)THEN30030
30050 IFE$=CHR$(13)THEN30120
30060 DN=DN+1
30070 IFDN>30THENDN=8
30080 OPEN15,DN,15,""
30090 CLOSE15
30100 IFST<>0THENPRINT"[147][158]                       ([153]"DN"[158])":GOTO30060
30110 GOTO30020
30120 PRINT"[147]":RETURN
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
50000 REM MORE MATHEMATICAL MADNESS!
50010 PRINT"[147]WHAT?!?!??";CHR$(142)
50011 PRINT" MORE MATHEMATICAL MADNESS!":FORTD=0TO999:NEXT
50014 PRINT""
51001 PRINT" KNUNEXUS UNO:"
51100 PRINT" FOR V = 1 TO 75 STEP 1
51110 [153]" FOR N = 0 TO  V STEP SN
51120 PRINT" C=C+.05
51130 [153]" X=V*SIN(N/(  C/.5)*(null))
51140 PRINT" Y=V*COS(N/(1000/C)*[255])
51180 [153]" NEXT N
51190 PRINT" NEXT V
52001 [153]"PRINT KNUNEXUS II:"
52100 [153]" FOR V = 75 TO 1 STEP -1
52110 PRINT" FOR N =  V TO 0 STEP -1
52120 [153]" C=C+.05
52130 PRINT" X=V*SIN(N/(  C/.5)*[255])
52140 [153]" Y=V*COS(N/(1000/C)*(null))
52180 PRINT" NEXT N
52190 [153]" NEXT V
53001 PRINT"[154] KNUNEXUS III:"
53100 PRINT" FOR V= 1 TO 75 STEP 1
53110 [153]" FOR N=-V TO  V STEP SN
53120 PRINT" C=C+.05
53130 [153]" X=V*SIN(N/(  C/.5)*(null))
53140 PRINT" Y=V*COS(N/(1000/C)*[255])
53180 [153]" NEXT N
53190 PRINT" NEXT V
59800 E$[178]"":[161]E$:[139]E$[178]""[167]59800
59999 [142]