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
PING!.m0
PING!.m1
PING!.m2
PING!.m4
PING!.m5