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