home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / MR.WU (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  83 lines
  1. 0 :FORK=1TO100*D:NEXT:IFD>0THENRETURN:    +::C-64 TODAY,TOMORROW AND ALWAYS::+
  2. 1 :
  3. 2 REM- IDEA FROM A CARTOON IN USA TODAY.       THIS MESS CONCOCTED BY JIM GREEN.
  4. 3 REM  IF ANY ORIENTAL PERSON IS               OFFENDED BY THE CARTOON OF
  5. 4 REM  MR. WU, I'M SORRY.
  6. 5 REM  THE PICTURE IS JUST THE BEST            I COULD DO WITH...
  7. 6 REM  COMMODORE KEYBOARD GRAPHICS.
  8. 7 :
  9. 30 Z=700:FORT=ZTO726:READA:POKET,A:NEXT
  10. 40 DATA 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32
  11. 50 DATA 240,255,32,253,174,76,164,170,0
  12. 60 PRINT"[147][142]";:POKE53280,11:POKE53281,12:POKE53265,11:DIMA$(20)
  13. 70 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  14. 80 PRINT"[165]                                      [167]";
  15. 90 PRINT"[165]        [172][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][187]        [167]";
  16. 100 PRINT"[165]        [182][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][181]        [167]";
  17. 110 PRINT"[165]        [182][146][161]                  [161][181]        [167][146]";
  18. 120 PRINT"[165]        [182][146][161]     [144]  [168][168][166][166][166][168]     [161][181]        [167]";
  19. 130 PRINT"[165]        [182][146][161]     [144][168][166][166][166][166][166][166][166][220]    [161][181]        [167]";
  20. 140 PRINT"[165]        [182][146][161]    [151][167][158][213][196][196][201][213][196][196][201][146][151][220]    [161][181]        [167]";
  21. 150 PRINT"[165]        [182][146][161]    [158][172][199][210][210][171][179][210][210][200][146][187]    [161][181]        [167]";
  22. 160 PRINT"[165]        [182][146][161]    [158][167][202][198][198][203][202][198][198][203][146][165]    [161][181]        [167]";
  23. 170 PRINT"[165]        [182][146][161]     [158]   [202][203]   [146]     [161][181]        [167]";
  24. 180 PRINT"[165]        [182][146][161]     [158] [206]    [205] [146]     [161][181]        [167]";
  25. 190 PRINT"[165]        [182][146][161]    [158]  [213][198][210][210][198][201] [146]     [161][181]        [167]";
  26. 200 PRINT"[165]        [182][146][161]     [158][223]      [146][169]     [161][181]        [167]";
  27. 210 PRINT"[165]        [182][146][161]     [164][175][158][163][197][197][163][146][175][164]     [161][181]        [167]";
  28. 220 PRINT"[165]        [182][146][161]   [169] [205][160][205]::[206] [206] [223][146]   [161][181]        [167]";
  29. 230 PRINT"[165]        [182][146][161]  [169]   [205][186]::[204][206]   [223][146]  [161][181]        [167]";
  30. 240 PRINT"[165]        [182][146][161] [169] [146][169]   [167]::[165]   [146][223] [223][146] [161][181]        [167]";
  31. 250 PRINT"[165]        [182][146][161][169] [146][169]    [167]::[165]WU [146] [223] [223][161][181]        [167]";
  32. 260 PRINT"[165]        [182][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][181]        [167]";:IFR=1THEN340
  33. 270 PRINT"[165]        [182][146][161][159][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][161][181]        [167]";
  34. 280 PRINT"[165]        [182][188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190][181]        [167]";
  35. 290 PRINT"[165]        [188][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][190]        [167]";
  36. 300 PRINT"[165]                                      [167]";
  37. 310 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][157][148][175]";
  38. 320 D=.001:GOSUB560:POKE53265,27:R=1:D=20:GOSUB:GOSUB610:GOSUB550:GOSUB630
  39. 330 GOTO70
  40. 340 D=20:GOSUB:GOTO390
  41. 350 SYSZ,17,8,"[158][198][198][198][198]":D=1:GOSUB
  42. 360 SYSZ,19,12,"[158][198][198]":D=.4:GOSUB
  43. 370 SYSZ,17,8,"[158][210][210][210][210]":D=1:GOSUB
  44. 380 SYSZ,19,12,"[158][210][210][159]":RETURN
  45. 390 B$="[215]                [215]":T1=4:SYSZ,11,20,"[146][159]"B$
  46. 400 A$(1)="THE CHINESE":A$(2)="AUTHORITIES":A$(3)="DETAINED"
  47. 410 A$(4)="ME.":GOSUB510
  48. 420 A$(1)="THEY":A$(2)="INTERROGATED":A$(3)="ME.":T1=3:GOSUB510
  49. 430 A$(1)="THEY":A$(2)="VIOLATED":A$(3)="MY HUMAN"
  50. 440 A$(4)="RIGHTS.":T1=4:GOSUB510:D=12:GOSUB
  51. 450 A$(1)="BUT HEY!":A$(2)="IT COULD":A$(3)="HAVE BEEN"
  52. 460 A$(4)="WORSE!":GOSUB510:D=20:GOSUB
  53. 470 A$(1)="I COULD":A$(2)="HAVE BEEN":A$(3)="ARRESTED"
  54. 480 A$(4)="BY THE":A$(5)="L.A.P.D.":T1=5:GOSUB510:D=5:GOSUB
  55. 490 SYSZ,16,20,"L.A.P.D!":FORT=1TO6:GOSUB350:NEXT:D=20:GOSUB:GOSUB550
  56. 500 D=.06:GOSUB560:GOTO580
  57. 510 GOSUB350:FORT=1TOT1:L=LEN(A$(T)):LL=18-L:LL=INT(LL/2):PRINT"[151]"
  58. 520 SYSZ,11+LL,20,;:FORJ=1TOL:G$=MID$(A$(T),J,1):PRINTG$;
  59. 530 POKE54296,1:POKE54296,0:D=.25 :GOSUB:NEXT:LL=0
  60. 540 GOSUB350:SYSZ,11,20,B$:NEXT:RETURN
  61. 550 SYSZ,11,20,"[146][159][215] -= [158]CBM NEWS =- [159][215]":GOSUB:RETURN
  62. 560 J=18:FORT=4TO18:SYSZ,11,T,"[151][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":GOSUB
  63. 570 SYSZ,11,J,"[155][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":J=J-1:GOSUB:NEXT:RETURN
  64. 580 SYSZ,16,9,"[207][183][183][183][183][183][183][208]":SYSZ,16,10,"[165] THE  [167]":SYSZ,16,11,"[165]      [167]
  65. 590 [158]Z,16,12,"FN      THEN":[158]Z,16,13,"FN  END THEN":[158]Z,16,14,"(null)ANDANDANDANDANDANDSQR":D[178]50:[141]
  66. 600 [137]890
  67. 610 D[178].03:J[178]18:[129]T[178]4[164]18:[158]Z,11,T,"                  ":[141]
  68. 620 [158]Z,11,J,"                  ":J[178]J[171]1:[141]:[130]:[142]
  69. 630 [158]Z,11,5,"OPENNEWS BULLETIN...":[158]Z,11,7,"POKEMR. HARRY WU,"
  70. 640 [158]Z,11,9,"WHO'S AN AMERICAN":[158]Z,11,11,"CITIZEN, HAS BEEN
  71. 650 SYSZ,12,13,"JAILED IN CHINA,":SYSZ,12,15,"ACCUSED OF BEING"
  72. 655 SYSZ,16,17,"A SPY..."
  73. 660 D=60:GOSUB:RETURN
  74. 890 POKE53280,14:POKE53281,6:PRINT"[147][159]   [208]RESS....
  75. 900 [153]"       <SYSATNOPEN> TO SEE ATNCHR$ATNRIGHT$(null)
  76. 920 PRINT"       <[158][204][159]> TO [204][207][193][196] [208][210][207][199][210][193][205]                         OF YOUR CHOICE
  77. 945 [153]"       <SYS(null)OPEN> TO (null)(null)RIGHT$(null)
  78. 950 GETG$:IFG$<>"A"ANDG$<>"L"ANDG$<>"Q"THEN950
  79. 970 IFG$="A"THENRUN
  80. 980 IFG$="Q"THENPRINT"[154]":END
  81. 1000 IFG$="L"THENINPUT"    [208][210][207][199][210][193][205] NAME";F$
  82. 1050 PRINT"[147][142]LOADF$,8[154]":POKE631,19:POKE632,131:POKE198,2:END
  83.