Atari 8-bit Source code

2?"":POKE82,1:POKE83,38:SETCOLOR4,9,6:SETCOLOR2,9,2:?"":?
3?"TRANSLATEDFORATARI":?"FROMANARTICLEINCREATIVECOMPUTING"
4?:?:?"KEEPYOURREPLIESTO1-1/2LINES":?"(APPROXIMATELY60CHARACTERS)ORLESS."
6?"TRYTOAVOIDPUNCTUATIONESPECIALLY":?"EXCLAMATIONPOINTS.APOSTROPHESCAN":?"BEUSED.":?:?
80REM
100DIMS(43),R(43),N(43),I$(160),K$(160),P$(80),F$(160),C$(80),R$(20),S$(20),H$(80),J$(80),Z$(80)
105DIML$(40),M$(40),N$(15)
107L$="HI!I'MELIZA.WHAT'SYOURPROBLEM?":M$="PLEASEDON'TREPEATYOURSELF!":N$="SHUTUP..."
110N1=43:N2=22:N3=121
120RESTORE2530
130FORX=1TON1
140READXX,L:S(X)=XX:R(X)=S(X):N(X)=S(X)+L-1
150NEXTX
160FORZZ=1TOLEN(L$):SOUND0,20,10,8:?L$(ZZ,ZZ);:SOUND0,0,0,0:NEXTZZ
170?:DLR=INT(RND(0)*16):SETCOLOR4,DLR,6:SETCOLOR2,DLR,2:CNT=0
180IFPEEK(84)=23THEN?:POKE84,22
200INPUTI$:SW=0:?
201J$="":H$="":J$(LEN(J$)+1)=I$:J$(LEN(J$)+1)=H$:I$=J$
210REM
220L=2
223J$=I$
225IFL>=LEN(I$)THEN240
230IFI$(L,L)="'"ANDLEN(I$)-L=0THENI$=I$(1,L-1):GOTO240
235IFI$(L,L)="'"THENJ$=I$:I$=I$(1,L-1):H$=J$(L+1,LEN(J$)):I$(LEN(I$)+1)=H$
237IFL>=LEN(I$)THEN240
238L=L+1:GOTO225
240L=1
242IFL+6>LEN(I$)THEN255
244IFI$(L,L+6)="SHUTUP"THENFORZZ=1TOLEN(N$):SOUND0,20,10,8:?N$(ZZ,ZZ);:SOUND0,0,0,0:NEXTZZ:RUN"D:MENU"
248IFL+6>LEN(I$)THEN255
250L=L+1:GOTO242
255IFI$=P$THENFORZZ=1TOLEN(M$):SOUND0,20,10,8:?M$(ZZ,ZZ);:SOUND0,0,0,0:NEXTZZ:GOTO170
260REM
290RESTORE1050:CNT=CNT+1
295S=0
300FORK=1TO13:REM
310READK$:LK=LEN(K$)-1
312IFLK>LEN(I$)THEN335
315IFS>0THEN335
320L=1
322IFL+LK>LEN(I$)THEN335
325IFI$(L,L+LK)=K$THENS=K:T=L:F$=K$:GOTO380
330L=L+1:GOTO322
335NEXTK
340RESTORE3000
344FORK=14TO21STEP1
346READKD:K$=""
348FORZ=1TOKD
350READKE:J$=CHR$(KE):IFZ>=1THENK$(LEN(K$)+1)=J$
352NEXTZ
354LK=LEN(K$)-1:IFLK>LEN(I$)THEN360
355IFS>0THEN360
356L=1
357IFL+LK>LEN(I$)THEN360
358IFI$(L,L+LK)=K$THENS=K:T=L:F$=K$:GOTO380
359L=L+1:GOTO357
360NEXTK
362RESTORE1060:CW=0
363FORK=22TO43STEP1
365READK$:LK=LEN(K$)-1
366IFLK>LEN(I$)THEN375
368IFS>0THEN375
370L=1
372IFL+LK>LEN(I$)THEN375
373IFI$(L,L+LK)=K$THENS=K:T=L:F$=K$:GOTO380
374L=L+1:GOTO372
375NEXTK
377K=43:GOTO570
380IFLK+L=LEN(I$)THENSW=1
390REM
420RESTORE1230
430IFSW=0THENC$=I$(L+LK+1,LEN(I$)):J$="":H$="":J$(LEN(J$)+1)=C$:C$(LEN(C$)+1)=H$
440FORX=1TON2/2
450READS$,R$
460L=1
465LGC=LEN(C$):LGS=LEN(S$):LGR=LEN(R$)
470IFL+LGS>LGCTHEN510
480IFC$(L,LGS+L-1)<>S$THEN510
482IFL>2THENJ$=C$(1,L-1)
490C$=C$(LGS+L,LEN(C$)):R$(LEN(R$)+1)=C$:IFL>2THENJ$(LEN(J$)+1)=R$:C$=J$:GOTO556
500C$=R$:GOTO556
510IFL+LGR>LGCTHEN550
520IFC$(L,LGR+L-1)<>R$THEN540
522IFL>2THENJ$=C$(1,L-1)
530C$=C$(LGR+L,LEN(C$)):S$(LEN(S$)+1)=C$:IFL>2THENJ$(LEN(J$)+1)=S$:C$=J$:GOTO556
535C$=S$:GOTO556
540L=L+1:GOTO470
550NEXTX
556FORL=2TOLEN(C$)STEP1
557IFL>LEN(C$)THEN570
558IFC$(L,L)="!"THENJ$=C$(1,L-1):C$=C$(L+1,LEN(C$)):J$(LEN(J$)+1)=C$:C$=J$
560NEXTL
570IFLEN(C$)=0THEN590
571IFC$(1,1)<>""THENJ$="":J$(LEN(J$)+1)=C$:C$=J$
590RESTORE1330
600FORX=1TOR(K)
605READF$:NEXTX
610R(K)=R(K)+1:IFR(K)>N(K)THENR(K)=S(K)
620IFF$(LEN(F$),LEN(F$))<>"*"THENFORZZ=1TOLEN(F$):SOUND0,20,10,8:?F$(ZZ,ZZ);:SOUND0,0,0,0:NEXTZZ
622IFF$(LEN(F$),LEN(F$))<>"*"THENP$=I$:GOTO170
625IF((C$="")OR(C$="")OR(C$=""))AND(CNT<5)THEN290
630IFCNT=5THENF$="IDON'TKNOWWHATTOSAYTOTHAT.."
635FORZZ=1TOLEN(F$)-1
636SOUND0,20,10,8:?F$(ZZ,ZZ);:SOUND0,0,0,0:NEXTZZ
637FORZZ=1TOLEN(C$)
638SOUND0,20,10,8:?C$(ZZ,ZZ);:SOUND0,0,0,0:NEXTZZ
640P$=I$:GOTO170
990REM
1000REM
1050DATACANYOU,CANI,YOUARE,YOURE,IDONT,IFEEL,WHYDONTYOU,WHYCANTI,AREYOU
1055DATAICANT,IAM,IM,IWANT
1060DATAWHAT,HOW,WHO,WHERE,WHEN,WHY,NAME,CAUSE,SORRY,DREAM
1070DATAHELLO,HI,MAYBE,NO,YOUR,ALWAYS,THINK,ALIKE,YES,FRIEND
1090DATACOMPUTER,NOKEYFOUND
1200REM
1230DATAZZZ,ZZZ,ARE,AM,WERE,WAS,YOU,I,YOUR,MY,IVE,YOUVE,IM,YOURE,ZZZ,ZZZ
1240DATAZZZ,ZZZ,ME,!YOU,ZZZ,ZZZ
1300REM
1330DATADON'TYOUBELIEVETHATICAN*
1340DATAPERHAPSYOUWOULDLIKETOBEABLETO*
1350DATAYOUWANTMETOBEABLETO*
1360DATAPERHAPSYOUDON'TWANTTO*
1365DATADOYOUWANTTOBEABLETO*
1370DATAWHATMAKESYOUTHINKIAM*
1380DATADOESITPLEASEYOUTOBELIEVEIAM*
1390DATAPERHAPSYOUWOULDLIKETOBE*
1400DATADOYOUSOMETIMESWISHYOUWERE*
1410DATADON'TYOUREALLY*
1420DATAWHYDON'TYOU*
1430DATADOYOUWISHTOBEABLETO*
1440DATADOESTHATTROUBLEYOU?
1450DATATELLMEMOREABOUTSUCHFEELINGS.
1460DATADOYOUOFTENFEEL*
1470DATADOYOUENJOYFEELING*
1480DATADOYOUREALLYBELIEVEIDON'T*
1490DATAPERHAPSINGOODTIMEIWILL*
1500DATADOYOUWANTMETO*
1510DATADOYOUTHINKYOUSHOULDBEABLETO*
1520DATAWHYCAN'TYOU*
1530DATAWHYAREYOUINTERESTEDINWHETHERORNOTIAM*
1540DATAWOULDYOUPREFERIFIWERENOT*
1550DATAPERHAPSINYOURFANTASIESIAM*
1560DATAHOWDOYOUKNOWYOUCAN'T*
1570DATAHAVEYOUTRIED?
1580DATAPERHAPSYOUCANNOW*
1590DATADIDYOUCOMETOMEBECAUSEYOUARE*
1600DATAHOWLONGHAVEYOUBEEN*
1610DATADOYOUBELIEVEITISNORMALTOBE*
1620DATADOYOUENJOYBEING*
1630DATAWEWEREDISCUSSINGYOU..NOTME.
1640DATAOH..I*
1650DATAYOU'RENOTREALLYTALKINGABOUTME...AREYOU?
1660DATAWHATWOULDITMEANTOYOUIFYOUGOT*
1670DATAWHYDOYOUWANT*
1680DATASUPPOSEYOUSOONGOT*
1690DATAWHATIFYOUNEVERGOT*
1700DATAISOMETIMESALSOWANT*
1710DATAWHYDOYOUASK?
1720DATADOESTHATQUESTIONINTERESTYOU?
1730DATAWHATANSWERWOULDPLEASEYOUTHEMOST?
1740DATAWHATDOYOUTHINK?
1750DATAARESUCHQUESTIONSONYOURMINDOFTEN?
1760DATAWHATISITTHATYOUREALLYWANTTOKNOW?
1770DATAHAVEYOUASKEDANYONEELSE?
1780DATAHAVEYOUASKEDSUCHQUESTIONSBEFORE?
1790DATAWHATELSECOMESTOMINDWHENYOUASKTHAT?
1800DATANAMESDON'TINTERESTME.
1810DATAIDON'TCAREABOUTNAMES...PLEASEGOON.
1820DATAISTHATTHEREALREASON?
1830DATADON'TANYOTHERREASONSCOMETOMIND?
1840DATADOESTHATREASONEXPLAINANYTHINGELSE?
1850DATAWHATOTHERREASONSMIGHTTHEREBE?
1860DATAPLEASEDON'TAPOLOGIZE!
1870DATAAPOLOGIESARENOTNECESSARY.
1880DATAWHATFEELINGSDOYOUHAVEWHENYOUAPOLOGIZE.
1890DATADON'TBESODEFENSIVE!
1900DATAWHATDOESTHATDREAMSUGGESTTOYOU?
1910DATADOYOUDREAMOFTEN?
1920DATAWHATPERSONSAPPEARINYOURDREAMS?
1930DATAAREYOUDISTURBEDBYYOURDREAMS?
1940DATAHOWDOYOUDO...WHATISYOURPROBLEM.
1950DATAYOUDON'TSEEMQUITECERTAIN.
1960DATAWHYTHEUNCERTAINTONE?
1970DATACAN'TYOUBEMOREPOSITIVE?
1980DATAYOUAREN'TSURE?
1990DATADON'TYOUKNOW?
2000DATAAREYOUSAYINGNOJUSTTOBENEGATIVE?
2010DATAYOUAREBEINGABITNEGATIVE?
2020DATAWHYNOT?
2030DATAAREYOUSURE?
2040DATAWHYNO?
2050DATAWHYAREYOUCONCERNEDABOUTMY*
2060DATAWHATABOUTYOUROWN*
2070DATACANYOUTHINKOFASPECIFICEXAMPLE?
2080DATAWHEN?
2090DATAWHATAREYOUTHINKINGOF?
2100DATAREALLY...ALWAYS?
2110DATADOYOUREALLYTHINKSO?
2120DATABUTYOUARENOTSUREYOU*
2130DATADOYOUDOUBTYOU*
2140DATAINWHATWAY?
2150DATAWHATRESEMBLANCEDOYOUSEE?
2160DATAWHATDOESTHESIMILARITYSUGGESTTOYOU?
2170DATAWHATOTHERCONNECTIONSDOYOUSEE?
2180DATACOULDTHEREREALLYBESOMECONNECTION?
2190DATAHOW?
2200DATAYOUSEEMQUITEPOSITIVE.
2210DATAAREYOUSURE?
2220DATAISEE.
2230DATAIUNDERSTAND.
2240DATAWHYDOYOUBRINGUPTHETOPICOFFRIENDS?
2250DATADOYOURFRIENDSWORRYYOU?
2260DATADOYOURFRIENDSPICKONYOU?
2270DATAAREYOUSUREYOUHAVEANYFRIENDS?
2280DATADOYOUIMPOSEONYOURFRIENDS?
2290DATAPERHAPSYOURLOVEFORFRIENDSWORRIESYOU.
2300DATADOCOMPUTERSWORRYYOU?
2310DATAAREYOUTALKINGABOUTMEINPARTICULAR?
2320DATAAREYOUFRIGHTENEDBYMACHINES?
2330DATAWHYDOYOUMENTIONCOMPUTERS?
2340DATAWHATDOYOUTHINKMACHINESHAVETODOWITHYOURPROBLEM?
2350DATADON'TYOUTHINKCOMPUTERSCANHELPPEOPLE?
2360DATAWHATISITABOUTMACHINESTHATWORRIESYOU?
2362DATADOYOUEVERLUSTAFTERANOTHER....INYOURMIND?
2363DATADOYOUTHINKSEXBEFOREMARRIAGEISWRONG?
2364DATADOYOUENJOYGOINGNUDE?
2366DATADOOTHERPEOPLECONSIDERYOU'KINKY'?
2367DATADOYOUGETENJOYMENTOUTOFTALKINGLIKETHAT?
2368DATADOESTALKINGLIKETHATMAKEYOUFEELIMPORTANT?
2369DATAWOULDYOURMOTHERLIKETOHEARYOUSAYTHAT?
2370DATAWOULDYOULIKEITIFISAIDTHATTOYOU?
2371DATASAY....DOYOUHAVEANYPSYCHOLOGICALPROBLEMS?
2380DATAWHATDOESTHATSUGGESTTOYOU?
2390DATAISEE.
2400DATAI'MNOTSUREIUNDERSTANDYOUFULLY.
2410DATACOMECOMEELUCIDATEYOURTHOUGHTS.
2420DATACANYOUELABORATEONTHAT?
2430DATATHATISQUITEINTERESTING.
2530DATA1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3
2540DATA28,4,28,4,35,5,110,4,106,4,106,4,32,3,110,4,110,4,110,4,110,4,40,9,40,9,40,9,40,9,40,9,40,9
2550DATA49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4
2560DATA80,3,83,7,90,3,93,6,99,7,114,7
3000DATA4,70,85,67,75,3,83,69,88,9,77,65,75,69,32,76,79,86,69,4,89,79,85,32
3010DATA4,83,72,73,84,7,66,65,83,84,65,82,68,7,65,83,83,72,79,76,69
3020DATA8,67,79,67,75,83,85,67,75	

• Download link 1

• Download link 1
• Download link 2