Home » Personal collection » Commodore disks » disk42b_unlabelled.d64 » conversation
conversation
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk42b_unlabelled.d64 |
| Filename: | conversation |
| Read OK: | ✔ |
| File size: | 0272 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
10 DIM W$(100)
20 GOSUB 1000
30 FOR W=0 TO R
40 IF W$(W)="IS" AND W<>0 AND W<>R THEN PRINTW$(W-1);"=";W$(W+1)
50 IF W$(W)="WAS" AND W<>0 AND W<>R THEN PRINTW$(W-1);"<";W$(W+1)
60 IF W$(W)="ARE" AND W<>0 AND W<>R THEN PRINTW$(W-1);"=";W$(W+1)
70 IF W$(W)="AM" AND W<>0 AND W<>R THEN PRINT"I=";W$(W+1)
80 NEXT
90 END
990 :
1000 GOSUB 2000
1010 IF LEN(R$)<2 THEN 1000
1020 W$="":R=0:FOR L=1 TO LEN(R$)
1030 IF MID$(R$,L,1)=" " THEN GOSUB1500
1040 IF ASC(MID$(R$,L,1))>48 THEN W$=W$+MID$(R$,L,1)
1050 NEXT
1060 GOSUB 1500
1070 RETURN
1500 W$(R)=W$:R=R+1:W$="":RETURN
1990 :
2000 REM GET STRING
2010 R$=""
2020 GET K$:IF K$="" THEN 2020
2030 IFASC(K$)=20ANDLEN(R$)>0THENR$=LEFT$(R$,LEN(R$)-1):PRINTCHR$(20);:GOTO2020
2040 IF ASC(K$)=13 THEN PRINT:RETURN
2050 IF ASC(K$)<32 THEN 2020
2060 R$=R$+K$:PRINTK$;:GOTO 2020
� W$(100) � 1000 ( � W�0 � R ^( � W$(W)�"IS" � W��0 � W��R � �W$(W�1);"=";W$(W�1) �2 � W$(W)�"WAS" � W��0 � W��R � �W$(W�1);"<";W$(W�1) �< � W$(W)�"ARE" � W��0 � W��R � �W$(W�1);"=";W$(W�1) �F � W$(W)�"AM" � W��0 � W��R � �"I=";W$(W�1) P � Z � �: �� 2000 - �� �(R$)�2 � 1000 I �W$�"":R�0:� L�1 � �(R$) e � �(R$,L,1)�" " � �1500 � � �(�(R$,L,1))�48 � W$�W$��(R$,L,1) � � � $� 1500 � .� � �W$(R)�W$:R�R�1:W$�"":� � �: � �� GET STRING � �R$�"" � �� K$:� K$�"" � 2020 - ���(K$)�20��(R$)�0�R$��(R$,�(R$)�1):��(20);:�2020 B �� �(K$)�13 � �:� X � �(K$)�32 � 2020 q R$�R$�K$:�K$;:� 2020
OHJ@. w$(100)@ZHT@. 1000@(H.@. w.0 . r@.H(@. w$(w)."is" . w..0 . w..r . .w$(w.1);"=";w$(w.1)@.H2@. w$(w)."was" . w..0 . w..r . .w$(w.1);"<";w$(w.1)@.H<@. w$(w)."are" . w..0 . w..r . .w$(w.1);"=";w$(w.1)@.Hf@. w$(w)."am" . w..0 . w..r . ."i=";w$(w.1)@AIp@.@GIz@.@MI.C:@XI.C. 2000@-I.C. .(r$).2 . 1000@iI.Cw$."":r.0:. l.1 . .(r$)@EIFD. .(r$,l,1)." " . .1500@.IPD. .(.(r$,l,1)).48 . w$.w$..(r$,l,1)@.IZD.@.I$D. 1500@.I.D.@.I.Ew$(r).w$:r.r.1:w$."":.@.I.G:@.I.G. get string@.I.Gr$.""@.I.G. k$:. k$."" . 2020@-J.G..(k$).20..(r$).0.r$..(r$,.(r$).1):..(20);:.2020@bJ.G. .(k$).13 . .:.@xJBH. .(k$).32 . 2020@QJLHr$.r$.k$:.k$;:. 2020@@@
00000000 0f 08 0a 00 86 20 57 24 28 31 30 30 29 00 1a 08 |..... W$(100)...| 00000010 14 00 8d 20 31 30 30 30 00 28 08 1e 00 81 20 57 |... 1000.(.... W| 00000020 b2 30 20 a4 20 52 00 5e 08 28 00 8b 20 57 24 28 |.0 . R.^.(.. W$(| 00000030 57 29 b2 22 49 53 22 20 af 20 57 b3 b1 30 20 af |W)."IS" . W..0 .| 00000040 20 57 b3 b1 52 20 a7 20 99 57 24 28 57 ab 31 29 | W..R . .W$(W.1)| 00000050 3b 22 3d 22 3b 57 24 28 57 aa 31 29 00 95 08 32 |;"=";W$(W.1)...2| 00000060 00 8b 20 57 24 28 57 29 b2 22 57 41 53 22 20 af |.. W$(W)."WAS" .| 00000070 20 57 b3 b1 30 20 af 20 57 b3 b1 52 20 a7 20 99 | W..0 . W..R . .| 00000080 57 24 28 57 ab 31 29 3b 22 3c 22 3b 57 24 28 57 |W$(W.1);"<";W$(W| 00000090 aa 31 29 00 cc 08 3c 00 8b 20 57 24 28 57 29 b2 |.1)...<.. W$(W).| 000000a0 22 41 52 45 22 20 af 20 57 b3 b1 30 20 af 20 57 |"ARE" . W..0 . W| 000000b0 b3 b1 52 20 a7 20 99 57 24 28 57 ab 31 29 3b 22 |..R . .W$(W.1);"| 000000c0 3d 22 3b 57 24 28 57 aa 31 29 00 fb 08 46 00 8b |=";W$(W.1)...F..| 000000d0 20 57 24 28 57 29 b2 22 41 4d 22 20 af 20 57 b3 | W$(W)."AM" . W.| 000000e0 b1 30 20 af 20 57 b3 b1 52 20 a7 20 99 22 49 3d |.0 . W..R . ."I=| 000000f0 22 3b 57 24 28 57 aa 31 29 00 01 09 50 00 82 00 |";W$(W.1)...P...| 00000100 07 09 5a 00 80 00 0d 09 de 03 3a 00 18 09 e8 03 |..Z.......:.....| 00000110 8d 20 32 30 30 30 00 2d 09 f2 03 8b 20 c3 28 52 |. 2000.-.... .(R| 00000120 24 29 b3 32 20 a7 20 31 30 30 30 00 49 09 fc 03 |$).2 . 1000.I...| 00000130 57 24 b2 22 22 3a 52 b2 30 3a 81 20 4c b2 31 20 |W$."":R.0:. L.1 | 00000140 a4 20 c3 28 52 24 29 00 65 09 06 04 8b 20 ca 28 |. .(R$).e.... .(| 00000150 52 24 2c 4c 2c 31 29 b2 22 20 22 20 a7 20 8d 31 |R$,L,1)." " . .1| 00000160 35 30 30 00 8d 09 10 04 8b 20 c6 28 ca 28 52 24 |500...... .(.(R$| 00000170 2c 4c 2c 31 29 29 b1 34 38 20 a7 20 57 24 b2 57 |,L,1)).48 . W$.W| 00000180 24 aa ca 28 52 24 2c 4c 2c 31 29 00 93 09 1a 04 |$..(R$,L,1).....| 00000190 82 00 9e 09 24 04 8d 20 31 35 30 30 00 a4 09 2e |....$.. 1500....| 000001a0 04 8e 00 bf 09 dc 05 57 24 28 52 29 b2 57 24 3a |.......W$(R).W$:| 000001b0 52 b2 52 aa 31 3a 57 24 b2 22 22 3a 8e 00 c5 09 |R.R.1:W$."":....| 000001c0 c6 07 3a 00 d6 09 d0 07 8f 20 47 45 54 20 53 54 |..:...... GET ST| 000001d0 52 49 4e 47 00 e0 09 da 07 52 24 b2 22 22 00 f8 |RING.....R$.""..| 000001e0 09 e4 07 a1 20 4b 24 3a 8b 20 4b 24 b2 22 22 20 |.... K$:. K$."" | 000001f0 a7 20 32 30 32 30 00 2d 0a ee 07 8b c6 28 4b 24 |. 2020.-.....(K$| 00000200 29 b2 32 30 af c3 28 52 24 29 b1 30 a7 52 24 b2 |).20..(R$).0.R$.| 00000210 c8 28 52 24 2c c3 28 52 24 29 ab 31 29 3a 99 c7 |.(R$,.(R$).1):..| 00000220 28 32 30 29 3b 3a 89 32 30 32 30 00 42 0a f8 07 |(20);:.2020.B...| 00000230 8b 20 c6 28 4b 24 29 b2 31 33 20 a7 20 99 3a 8e |. .(K$).13 . .:.| 00000240 00 58 0a 02 08 8b 20 c6 28 4b 24 29 b3 33 32 20 |.X.... .(K$).32 | 00000250 a7 20 32 30 32 30 00 71 0a 0c 08 52 24 b2 52 24 |. 2020.q...R$.R$| 00000260 aa 4b 24 3a 99 4b 24 3b 3a 89 20 32 30 32 30 00 |.K$:.K$;:. 2020.| 00000270 00 00 |..| 00000272
.