| TIP: Click on subject to list as thread! | ANSI |
| echo: | |
|---|---|
| to: | |
| from: | |
| date: | |
| subject: | Re: XP stumped by a file in My Documents |
From: "Frank Haber"
This is a multi-part message in MIME format.
------=_NextPart_000_0054_01C33BE2.E20C2400
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: 7bit
Hey, the OE6 editor sucks 40% CPU, too, on 98.
Speaking of QBASIC -
Attached is a blast from the past to peg your CPU and test your PC speaker
emulation (MBASIC, 1983).
------=_NextPart_000_0054_01C33BE2.E20C2400
Content-Type: application/octet-stream;
name="9TO5.BAS"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="9TO5.BAS"
1230 PLAY "t255l4o1"
1240 PLAY "GGGGGGGGGGGGGEFF+"
1260 IF I=3D1 THEN PLAY "O4GO1GGGGGGGGGGGGEFF+" ELSE PLAY =
"O1GGGGGGGGGGGGGEFF+"
1270 FOR J=3D1 TO 2
1280 PLAY "O2G8G8G8G8BB8B8O3D8D8D8D8EG"
1290 PLAY "CCEEG8E8G8AG8G"
1300 IF J=3D1 THEN PLAY "GEGEGGGGEDO1DDDDDD" ELSE PLAY =
"BAGD8D8AAAGGO1GGGL20O6GDO5BGDO4BGDO3BGL4EG"
1310 NEXT J
1320 FOR J=3D1 TO 2
1330 FOR K=3D1 TO 3
1340 IF K=3D2 THEN PLAY "O1G4O3" ELSE PLAY "O1C4O3"
1350 PLAY "B-2A4G2EGGEGE8G.B-EG"
1360 NEXT K
1370 PLAY "O1AO3AAAA2O1D2O3BABA8B.O4"
1380 IF J=3D1 THEN PLAY "DO3EG" ELSE IF K=3D1 THEN PLAY
"D1" ELSE PLAY =
"D1O1G1"
1390 NEXT J
1400 FOR X=3D1 TO 5000:NEXT X
=1A
------=_NextPart_000_0054_01C33BE2.E20C2400--
--- BBBS/NT v4.01 Flag-4
* Origin: Barktopia BBS Site http://HarborWebs.com:8081 (1:379/45)SEEN-BY: 633/267 270 @PATH: 379/45 1 633/267 |
|
| SOURCE: echomail via fidonet.ozzmosis.com | |
Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.