Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_11.ADF » PING!
PING!
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 » Acorn ADFS disks » Electron_User_Group » EUG_11.ADF |
Filename: | PING! |
Read OK: | ✔ |
File size: | 0781 bytes |
Load address: | FFFF1D00 |
Exec address: | FFFF8023 |
File contents
10 REM Ping! Virus Simulator 20 REM Original PC Version 30 REM By R.Chinn 1990 40 REM Converted & Improved 50 REM By C.Weber 1993 60 REM 70 MODE1 80 VDU23,1,0;0;0;0; 90 VDU23,224,24,126,102,223,223,126,126,24 100 X%=1:Y%=1:A%=1:B%=1:C%=15:D%=10:A1%=1:B1%=1 110 PRINTTAB(9,1)"EUG" 120 PRINTTAB(9,2)"134 Grt Knightleys" 130 PRINTTAB(9,3)"Basildon" 140 PRINTTAB(9,4)"Essex" 150 PRINTTAB(9,5)"SS15 5HQ" 160 PRINTTAB(1,8)"Dear Will," 170 PRINTTAB(5,10)"Blah blah blah blah" 180 PRINTTAB(1,11)"blah rhubarb blah blah." 190 PRINTTAB(1,12)"Blah, harrumph blah blah!" 200 PRINTTAB(5,14)"Blah rhubarb blah elk" 210 PRINTTAB(1,15)"blah blah blert bop bip." 220 PRINTTAB(1,16)"Flibble libble lobble" 230 PRINTTAB(1,17)"lob!" 240 PRINTTAB(5,19)"Anyway, thanks for all" 250 PRINTTAB(1,20)"your help." 260 PRINTTAB(7,22)"Yours sincerely" 270 PRINTTAB(7,28)"Christian Weber" 280 FOR RI%=1 TO 10 290 PRINTTAB(28+RI%,3)"";CHR$224 300 PRINTTAB(28+RI%,6)"";CHR$224 310 NEXT RI% 320 PRINTTAB(29,4)"";CHR$224 330 PRINTTAB(38,4)"";CHR$224 340 PRINTTAB(29,5)"";CHR$224 350 PRINTTAB(38,5)"";CHR$224 360 PRINTTAB(30,4)"Space to" 370 PRINTTAB(32,5)"Ping" 380 REPEATUNTILGET=32 390 PRINTTAB(28,3)" " 400 PRINTTAB(28,4)"Ping Virus" 410 PRINTTAB(29,5)"Simulator " 420 PRINTTAB(29,6)" By " 430 PRINTTAB(29,7)" C.Weber" 440 PRINTTAB(29,8)" R.Chinn" 450 PRINTTAB(29,9)" '90-'93" 460 PRINTTAB(28,12)"To the left" 470 PRINTTAB(28,13)"you can see" 480 PRINTTAB(28,14)"the effect" 490 PRINTTAB(28,15)"of a 'Ping'" 500 PRINTTAB(28,16)"Virus that" 510 PRINTTAB(28,17)"is happily" 520 PRINTTAB(28,18)"destroying" 530 PRINTTAB(28,19)"what could" 540 PRINTTAB(28,20)"be some-" 550 PRINTTAB(28,21)"thing very" 560 PRINTTAB(28,22)"important." 570PRINTTAB(28,24)"PRESS ANY" 580PRINTTAB(28,26)"KEY FOR" 590PRINTTAB(28,28)"MAIN MENU." 600 PRINTTAB(X%,Y%)"";CHR$224:PRINTTAB(C%,D%)"";CHR$224:M$=INKEY$0:IF M$<>"" THEN CHAIN"$.MENU" 610 PRINTTAB(X%,Y%)" ":PRINTTAB(C%,D%)" " 620 IF A%=1 THEN X%=X%+1 630 IF A1%=1 THEN C%=C%+1 640 IF B%=1 THEN Y%=Y%+1 650 IF B1%=1 THEN D%=D%+1 660 IF A%=0 THEN X%=X%-1 670 IF A1%=0 THEN C%=C%-1 680 IF B%=0 THEN Y%=Y%-1 690 IF B1%=0 THEN D%=D%-1 700 IF C%=25 THEN A1%=0 710 IF X%=25 THEN A%=0 720 IF C%=1 THEN A1%=1 730 IF X%=1 THEN A%=1 740 IF D%=30 THEN B1%=0 750 IF Y%=30 THEN B%=0 760 IF Y%=1 THEN B%=1 770 IF D%=1 THEN B1%=1 780 GOTO 600
� Ping! Virus Simulator � Original PC Version � By R.Chinn 1990 ( � Converted & Improved 2 � By C.Weber 1993 < � F �1 P �23,1,0;0;0;0; Z* �23,224,24,126,102,223,223,126,126,24 d0 X%=1:Y%=1:A%=1:B%=1:C%=15:D%=10:A1%=1:B1%=1 n �9,1)"EUG" x �9,2)"134 Grt Knightleys" � �9,3)"Basildon" � �9,4)"Essex" � �9,5)"SS15 5HQ" � �1,8)"Dear Will," �! �5,10)"Blah blah blah blah" �% �1,11)"blah rhubarb blah blah." �' �1,12)"Blah, harrumph blah blah!" �$ �5,14)"Blah rhubarb blah elk" �' �1,15)"blah blah blert bop bip." �# �1,16)"Flibble libble lobble" � �1,17)"lob!" �$ �5,19)"Anyway, thanks for all" � �1,20)"your help." �7,22)"Yours sincerely" �7,28)"Christian Weber" � RI%=1 � 10 " �28+RI%,3)"";�224 , �28+RI%,6)"";�224 6 � RI% @ �29,4)"";�224 J �38,4)"";�224 T �29,5)"";�224 ^ �38,5)"";�224 h �30,4)"Space to" r �32,5)"Ping" | ���=32 � �28,3)" " � �28,4)"Ping Virus" � �29,5)"Simulator " � �29,6)" By " � �29,7)" C.Weber" � �29,8)" R.Chinn" � �29,9)" '90-'93" � �28,12)"To the left" � �28,13)"you can see" � �28,14)"the effect" � �28,15)"of a 'Ping'" � �28,16)"Virus that" � �28,17)"is happily" �28,18)"destroying" �28,19)"what could" �28,20)"be some-" & �28,21)"thing very" 0 �28,22)"important." :�28,24)"PRESS ANY" D�28,26)"KEY FOR" N�28,28)"MAIN MENU." X? �X%,Y%)"";�224:�C%,D%)"";�224:M$=�0:� M$<>"" � �"$.MENU" b �X%,Y%)" ":�C%,D%)" " l � A%=1 � X%=X%+1 v � A1%=1 � C%=C%+1 � � B%=1 � Y%=Y%+1 � � B1%=1 � D%=D%+1 � � A%=0 � X%=X%-1 � � A1%=0 � C%=C%-1 � � B%=0 � Y%=Y%-1 � � B1%=0 � D%=D%-1 � � C%=25 � A1%=0 � � X%=25 � A%=0 � � C%=1 � A1%=1 � � X%=1 � A%=1 � � D%=30 � B1%=0 � � Y%=30 � B%=0 � � Y%=1 � B%=1 � D%=1 � B1%=1 � �DXB �
00000000 0d 00 0a 1c 20 f4 20 50 69 6e 67 21 20 56 69 72 |.... . Ping! Vir| 00000010 75 73 20 53 69 6d 75 6c 61 74 6f 72 0d 00 14 1b |us Simulator....| 00000020 20 f4 20 4f 72 69 67 69 6e 61 6c 20 50 43 20 56 | . Original PC V| 00000030 65 72 73 69 6f 6e 20 0d 00 1e 16 20 f4 20 42 79 |ersion .... . By| 00000040 20 52 2e 43 68 69 6e 6e 20 31 39 39 30 0d 00 28 | R.Chinn 1990..(| 00000050 1b 20 f4 20 43 6f 6e 76 65 72 74 65 64 20 26 20 |. . Converted & | 00000060 49 6d 70 72 6f 76 65 64 0d 00 32 16 20 f4 20 42 |Improved..2. . B| 00000070 79 20 43 2e 57 65 62 65 72 20 31 39 39 33 0d 00 |y C.Weber 1993..| 00000080 3c 06 20 f4 0d 00 46 07 20 eb 31 0d 00 50 13 20 |<. ...F. .1..P. | 00000090 ef 32 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d 00 |.23,1,0;0;0;0;..| 000000a0 5a 2a 20 ef 32 33 2c 32 32 34 2c 32 34 2c 31 32 |Z* .23,224,24,12| 000000b0 36 2c 31 30 32 2c 32 32 33 2c 32 32 33 2c 31 32 |6,102,223,223,12| 000000c0 36 2c 31 32 36 2c 32 34 0d 00 64 30 20 58 25 3d |6,126,24..d0 X%=| 000000d0 31 3a 59 25 3d 31 3a 41 25 3d 31 3a 42 25 3d 31 |1:Y%=1:A%=1:B%=1| 000000e0 3a 43 25 3d 31 35 3a 44 25 3d 31 30 3a 41 31 25 |:C%=15:D%=10:A1%| 000000f0 3d 31 3a 42 31 25 3d 31 0d 00 6e 11 20 f1 8a 39 |=1:B1%=1..n. ..9| 00000100 2c 31 29 22 45 55 47 22 20 0d 00 78 1f 20 f1 8a |,1)"EUG" ..x. ..| 00000110 39 2c 32 29 22 31 33 34 20 47 72 74 20 4b 6e 69 |9,2)"134 Grt Kni| 00000120 67 68 74 6c 65 79 73 22 0d 00 82 15 20 f1 8a 39 |ghtleys".... ..9| 00000130 2c 33 29 22 42 61 73 69 6c 64 6f 6e 22 0d 00 8c |,3)"Basildon"...| 00000140 14 20 f1 8a 39 2c 34 29 22 45 73 73 65 78 22 20 |. ..9,4)"Essex" | 00000150 20 0d 00 96 16 20 f1 8a 39 2c 35 29 22 53 53 31 | .... ..9,5)"SS1| 00000160 35 20 35 48 51 22 20 0d 00 a0 17 20 f1 8a 31 2c |5 5HQ" .... ..1,| 00000170 38 29 22 44 65 61 72 20 57 69 6c 6c 2c 22 0d 00 |8)"Dear Will,"..| 00000180 aa 21 20 f1 8a 35 2c 31 30 29 22 42 6c 61 68 20 |.! ..5,10)"Blah | 00000190 62 6c 61 68 20 62 6c 61 68 20 62 6c 61 68 22 0d |blah blah blah".| 000001a0 00 b4 25 20 f1 8a 31 2c 31 31 29 22 62 6c 61 68 |..% ..1,11)"blah| 000001b0 20 72 68 75 62 61 72 62 20 62 6c 61 68 20 62 6c | rhubarb blah bl| 000001c0 61 68 2e 22 0d 00 be 27 20 f1 8a 31 2c 31 32 29 |ah."...' ..1,12)| 000001d0 22 42 6c 61 68 2c 20 68 61 72 72 75 6d 70 68 20 |"Blah, harrumph | 000001e0 62 6c 61 68 20 62 6c 61 68 21 22 0d 00 c8 24 20 |blah blah!"...$ | 000001f0 f1 8a 35 2c 31 34 29 22 42 6c 61 68 20 72 68 75 |..5,14)"Blah rhu| 00000200 62 61 72 62 20 62 6c 61 68 20 65 6c 6b 22 20 0d |barb blah elk" .| 00000210 00 d2 27 20 f1 8a 31 2c 31 35 29 22 62 6c 61 68 |..' ..1,15)"blah| 00000220 20 62 6c 61 68 20 62 6c 65 72 74 20 62 6f 70 20 | blah blert bop | 00000230 62 69 70 2e 22 20 0d 00 dc 23 20 f1 8a 31 2c 31 |bip." ...# ..1,1| 00000240 36 29 22 46 6c 69 62 62 6c 65 20 6c 69 62 62 6c |6)"Flibble libbl| 00000250 65 20 6c 6f 62 62 6c 65 22 0d 00 e6 12 20 f1 8a |e lobble".... ..| 00000260 31 2c 31 37 29 22 6c 6f 62 21 22 0d 00 f0 24 20 |1,17)"lob!"...$ | 00000270 f1 8a 35 2c 31 39 29 22 41 6e 79 77 61 79 2c 20 |..5,19)"Anyway, | 00000280 74 68 61 6e 6b 73 20 66 6f 72 20 61 6c 6c 22 0d |thanks for all".| 00000290 00 fa 18 20 f1 8a 31 2c 32 30 29 22 79 6f 75 72 |... ..1,20)"your| 000002a0 20 68 65 6c 70 2e 22 0d 01 04 1e 20 f1 8a 37 2c | help.".... ..7,| 000002b0 32 32 29 22 59 6f 75 72 73 20 73 69 6e 63 65 72 |22)"Yours sincer| 000002c0 65 6c 79 22 20 0d 01 0e 1e 20 f1 8a 37 2c 32 38 |ely" .... ..7,28| 000002d0 29 22 43 68 72 69 73 74 69 61 6e 20 57 65 62 65 |)"Christian Webe| 000002e0 72 22 20 0d 01 18 11 20 e3 20 52 49 25 3d 31 20 |r" .... . RI%=1 | 000002f0 b8 20 31 30 0d 01 22 1a 20 20 20 f1 8a 32 38 2b |. 10..". ..28+| 00000300 52 49 25 2c 33 29 22 22 3b bd 32 32 34 20 0d 01 |RI%,3)"";.224 ..| 00000310 2c 1b 20 20 20 f1 8a 32 38 2b 52 49 25 2c 36 29 |,. ..28+RI%,6)| 00000320 22 22 3b bd 32 32 34 20 20 0d 01 36 0a 20 ed 20 |"";.224 ..6. . | 00000330 52 49 25 0d 01 40 13 20 f1 8a 32 39 2c 34 29 22 |RI%..@. ..29,4)"| 00000340 22 3b bd 32 32 34 0d 01 4a 13 20 f1 8a 33 38 2c |";.224..J. ..38,| 00000350 34 29 22 22 3b bd 32 32 34 0d 01 54 13 20 f1 8a |4)"";.224..T. ..| 00000360 32 39 2c 35 29 22 22 3b bd 32 32 34 0d 01 5e 13 |29,5)"";.224..^.| 00000370 20 f1 8a 33 38 2c 35 29 22 22 3b bd 32 32 34 0d | ..38,5)"";.224.| 00000380 01 68 17 20 f1 8a 33 30 2c 34 29 22 53 70 61 63 |.h. ..30,4)"Spac| 00000390 65 20 74 6f 22 20 0d 01 72 13 20 f1 8a 33 32 2c |e to" ..r. ..32,| 000003a0 35 29 22 50 69 6e 67 22 20 0d 01 7c 0b 20 f5 fd |5)"Ping" ..|. ..| 000003b0 a5 3d 33 32 0d 01 86 19 20 f1 8a 32 38 2c 33 29 |.=32.... ..28,3)| 000003c0 22 20 20 20 20 20 20 20 20 20 20 20 22 0d 01 90 |" "...| 000003d0 19 20 f1 8a 32 38 2c 34 29 22 50 69 6e 67 20 20 |. ..28,4)"Ping | 000003e0 56 69 72 75 73 22 0d 01 9a 18 20 f1 8a 32 39 2c |Virus".... ..29,| 000003f0 35 29 22 53 69 6d 75 6c 61 74 6f 72 20 22 0d 01 |5)"Simulator "..| 00000400 a4 18 20 f1 8a 32 39 2c 36 29 22 20 20 20 42 79 |.. ..29,6)" By| 00000410 20 20 20 20 20 22 0d 01 ae 17 20 f1 8a 32 39 2c | ".... ..29,| 00000420 37 29 22 20 43 2e 57 65 62 65 72 22 20 0d 01 b8 |7)" C.Weber" ...| 00000430 17 20 f1 8a 32 39 2c 38 29 22 20 52 2e 43 68 69 |. ..29,8)" R.Chi| 00000440 6e 6e 22 20 0d 01 c2 17 20 f1 8a 32 39 2c 39 29 |nn" .... ..29,9)| 00000450 22 20 27 39 30 2d 27 39 33 22 20 0d 01 cc 1c 20 |" '90-'93" .... | 00000460 f1 8a 32 38 2c 31 32 29 22 54 6f 20 74 68 65 20 |..28,12)"To the | 00000470 6c 65 66 74 22 20 20 0d 01 d6 1a 20 f1 8a 32 38 |left" .... ..28| 00000480 2c 31 33 29 22 79 6f 75 20 63 61 6e 20 73 65 65 |,13)"you can see| 00000490 22 0d 01 e0 1b 20 f1 8a 32 38 2c 31 34 29 22 74 |".... ..28,14)"t| 000004a0 68 65 20 20 65 66 66 65 63 74 22 20 0d 01 ea 1a |he effect" ....| 000004b0 20 f1 8a 32 38 2c 31 35 29 22 6f 66 20 61 20 27 | ..28,15)"of a '| 000004c0 50 69 6e 67 27 22 0d 01 f4 1b 20 f1 8a 32 38 2c |Ping'".... ..28,| 000004d0 31 36 29 22 56 69 72 75 73 20 20 74 68 61 74 22 |16)"Virus that"| 000004e0 20 0d 01 fe 1a 20 f1 8a 32 38 2c 31 37 29 22 69 | .... ..28,17)"i| 000004f0 73 20 20 68 61 70 70 69 6c 79 22 0d 02 08 1a 20 |s happily".... | 00000500 f1 8a 32 38 2c 31 38 29 22 64 65 73 74 72 6f 79 |..28,18)"destroy| 00000510 69 6e 67 22 20 0d 02 12 1a 20 f1 8a 32 38 2c 31 |ing" .... ..28,1| 00000520 39 29 22 77 68 61 74 20 63 6f 75 6c 64 22 20 0d |9)"what could" .| 00000530 02 1c 19 20 f1 8a 32 38 2c 32 30 29 22 62 65 20 |... ..28,20)"be | 00000540 20 73 6f 6d 65 2d 22 20 0d 02 26 1b 20 f1 8a 32 | some-" ..&. ..2| 00000550 38 2c 32 31 29 22 74 68 69 6e 67 20 20 76 65 72 |8,21)"thing ver| 00000560 79 22 20 0d 02 30 19 20 f1 8a 32 38 2c 32 32 29 |y" ..0. ..28,22)| 00000570 22 69 6d 70 6f 72 74 61 6e 74 2e 22 0d 02 3a 17 |"important."..:.| 00000580 f1 8a 32 38 2c 32 34 29 22 50 52 45 53 53 20 41 |..28,24)"PRESS A| 00000590 4e 59 22 0d 02 44 15 f1 8a 32 38 2c 32 36 29 22 |NY"..D...28,26)"| 000005a0 4b 45 59 20 46 4f 52 22 0d 02 4e 18 f1 8a 32 38 |KEY FOR"..N...28| 000005b0 2c 32 38 29 22 4d 41 49 4e 20 4d 45 4e 55 2e 22 |,28)"MAIN MENU."| 000005c0 0d 02 58 3f 20 f1 8a 58 25 2c 59 25 29 22 22 3b |..X? ..X%,Y%)"";| 000005d0 bd 32 32 34 3a f1 8a 43 25 2c 44 25 29 22 22 3b |.224:..C%,D%)"";| 000005e0 bd 32 32 34 3a 4d 24 3d bf 30 3a e7 20 4d 24 3c |.224:M$=.0:. M$<| 000005f0 3e 22 22 20 8c 20 d7 22 24 2e 4d 45 4e 55 22 0d |>"" . ."$.MENU".| 00000600 02 62 1d 20 f1 8a 58 25 2c 59 25 29 22 20 22 3a |.b. ..X%,Y%)" ":| 00000610 f1 8a 43 25 2c 44 25 29 22 20 22 20 0d 02 6c 17 |..C%,D%)" " ..l.| 00000620 20 e7 20 41 25 3d 31 20 20 8c 20 58 25 3d 58 25 | . A%=1 . X%=X%| 00000630 2b 31 20 0d 02 76 16 20 e7 20 41 31 25 3d 31 20 |+1 ..v. . A1%=1 | 00000640 8c 20 43 25 3d 43 25 2b 31 0d 02 80 17 20 e7 20 |. C%=C%+1.... . | 00000650 42 25 3d 31 20 20 8c 20 59 25 3d 59 25 2b 31 20 |B%=1 . Y%=Y%+1 | 00000660 0d 02 8a 16 20 e7 20 42 31 25 3d 31 20 8c 20 44 |.... . B1%=1 . D| 00000670 25 3d 44 25 2b 31 0d 02 94 16 20 e7 20 41 25 3d |%=D%+1.... . A%=| 00000680 30 20 20 8c 20 58 25 3d 58 25 2d 31 0d 02 9e 16 |0 . X%=X%-1....| 00000690 20 e7 20 41 31 25 3d 30 20 8c 20 43 25 3d 43 25 | . A1%=0 . C%=C%| 000006a0 2d 31 0d 02 a8 17 20 e7 20 42 25 3d 30 20 20 8c |-1.... . B%=0 .| 000006b0 20 59 25 3d 59 25 2d 31 20 0d 02 b2 16 20 e7 20 | Y%=Y%-1 .... . | 000006c0 42 31 25 3d 30 20 8c 20 44 25 3d 44 25 2d 31 0d |B1%=0 . D%=D%-1.| 000006d0 02 bc 15 20 e7 20 43 25 3d 32 35 20 8c 20 41 31 |... . C%=25 . A1| 000006e0 25 3d 30 20 0d 02 c6 14 20 e7 20 58 25 3d 32 35 |%=0 .... . X%=25| 000006f0 20 8c 20 41 25 3d 30 20 0d 02 d0 15 20 e7 20 43 | . A%=0 .... . C| 00000700 25 3d 31 20 20 8c 20 41 31 25 3d 31 20 0d 02 da |%=1 . A1%=1 ...| 00000710 14 20 e7 20 58 25 3d 31 20 20 8c 20 41 25 3d 31 |. . X%=1 . A%=1| 00000720 20 0d 02 e4 15 20 e7 20 44 25 3d 33 30 20 8c 20 | .... . D%=30 . | 00000730 42 31 25 3d 30 20 0d 02 ee 14 20 e7 20 59 25 3d |B1%=0 .... . Y%=| 00000740 33 30 20 8c 20 42 25 3d 30 20 0d 02 f8 14 20 e7 |30 . B%=0 .... .| 00000750 20 59 25 3d 31 20 20 8c 20 42 25 3d 31 20 0d 03 | Y%=1 . B%=1 ..| 00000760 02 16 20 e7 20 44 25 3d 31 20 20 8c 20 42 31 25 |.. . D%=1 . B1%| 00000770 3d 31 20 20 0d 03 0c 0b 20 e5 20 8d 44 58 42 0d |=1 .... . .DXB.| 00000780 ff |.| 00000781