Nu vil jeg ikke sprede nogle grimme rygter om Windows, men dette stykke kode har bekræftet det man inderst inde altid har vidst: Windows er skrevet i BASIC!
Bemærk at denne kode er sikkert omfattet af ophavsret, og må ikke importeres, eksporteres eller porteres under andre former.
5 REM Now Y2K ready 6 IF YEAR>=2000 THEN PRINT "This program is not Y2K ready!": GOSUB CRASH 7 IF YEAR<2000 THEN PRINT "This program is Y2K ready!": GOSUB CRASH 9 REM --- Main program 10 REM PRINT "CP/M" 15 Rem PRINT "Starting MS-DOS..." 17 rem PRINT "Starter Windows 95..." 18 REM PRINT "Starter Windows 98..." 19 REM PRINT "Starter Windows 2000..." 20 GOSUB MAKEHUGESWAPFILE 30 GOSUB SWAPTOFLOPPY 31 REM PRINT "Requires 16 KiB RAM" 32 REM PRINT "Requires 600 KiB RAM" 33 REM PRINT "Requires at least 4 MiB RAM": REM Yer right, but it'll sell! 34 REM PRINT "Requires at least 64 MiB more RAM" 35 PRINT "Requires at LEAST 1 GiB more RAM": REM Because of alliance with memory producents 36 REM For future ease 37 REM PRINT "Requires more RAM. MORE. A LOT MORE!" 38 REM PRINT "RAM. I need RAM. GIMMEGIMMEGIMME." 39 REM PRINT "Not enough RAM. You can't afford all the RAM I'll NEED. Face it." 40 IF CRASHED <> 1 THEN CRASHED = 1 45 REM Aug 13, 1983 - Better put the crash into a sub 50 IF CRASHED = 1 THEN GOSUB CRASH 60 GOTO 60 65 FOR A=1 TO 20 70 PRINT "Bill rules.": PRINT "Do not copy this program or Bill will be really pissed." 75 NEXT A 80 PRINT "If this program crashes it's your own fault! If you blame us, we'll sue you." 90 GOSUB CRASH 100 B=0 109 REM Jan 1, 00 - Test for Pentium FDIV bug - if the CPU ik ok the computer crashes here 110 PRINT 100/B 120 GOSUB CRASH 129 REM Dec 24, 1988 - Wouldn't it be cool if we actually put something in this sub? 130 GOSUB DETECTHARDWARE 140 PRINT "This prgram have no foults. It is been testd verry touroughzxglty." 141 PRNIT "Thangs to our alfa-tster (We dont now him, but we thing hi is owt there)" 142 REM PRINT "Thangs to ovr betaa-tehsters" 143 REM PRINT "Thanchs to both of our beta-tesders" 144 REM PRINT "Thanks too our beta-tster" 145 PRINT "Wee has spent the money that should have been spent on betaa-testing to pay our lawyers." 150 GOSUB CRASH 160 GOSUB DISPLAYSOMENICEBLUEGRAPHICSWITHWHITETEXTONIT 168 REM Apr 1, 1978 - The debugging code has been disabled to speed up development 169 GOTO 190 170 GOSUB DOSOMETHINGREALLYCOOL 180 GOSUB DOWHATTHEUSERDESIRES 190 GOSUB CRASH 200 GOSUB ENDWITHNOWARNINGANDFORCETHEUSERTOSAYOKTOMISSEVERYTHING
