home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / ROAD-PIZZA (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  28 lines
  1. 0 GOTO10
  2. 1 GOTO4000
  3. 10 POKE53281,0:POKE53280,0:PRINT"[147]";:GOSUB3000:FORZ=1TO1000:NEXT:PRINTCHR$(142);:PRINT"[147]":FORZ=1TO1000:NEXT:PRINT"                  [205] [206]":PRINT"                   [215]":PRINT"                   [219]":PRINT"                  [169][146][192][223][146]":FORZ=1TO500:NEXT:PRINT"[154]                   [221][157]V[145][145][145][145]"
  4. 80 PRINT"     STARING THIS CUTE LITTLE WHITE                 BUNNY    RABBIT":FORZ=1TO3500:NEXT:PRINT"[147]":PRINT"[147]      [146][157][157][157]    [157][157][157][157][157]      [157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157][157]";:PRINT"          [157][157][157][157][157][157][149]  [157][157]  [157][157]  ":PRINT"[153]            [146]                          "
  5. 130 PRINT"                                      ":XX=1000:GOSUB10000:PRINT"[205] [206]";:XX=250:GOSUB10000:PRINT"[157][157][157] [215] [145][157][157][157][205] [206]";:XX=100:GOSUB10000:PRINT"[154][145][157]/[145][157][157][157]SNIFF, SNIFF";:XX=1500:GOSUB10000:PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157]            [157][157][157][157][157][157][157][157][157][157] [157][157][157][157]   [157][157] [145]";
  6. 175 PRINT"[145][157][157][157][205] [206][157][157][215][157][219]";:XX=750:GOSUB10000:PRINT"[157] [145][157] [145][157][157]   ";:GOSUB2000:PRINTA$(1);:XX=499:GOSUB10000:GOSUB1998:FORZ=1TO4:GOSUB2031:NEXTZ:FORL=1TO3:PRINT"[147]";:IFL<>1THENFORLS=1TOL-1:PRINT"             ";:NEXTLS
  7. 195 PRINT"   .      .       .[153] .      .     .  .   ";:PRINT" .    .     [158]+      .    .     [156] .      ' ";:PRINT"   .            .           .      .    ";:PRINT"        .   .        .        . .       ";:PRINT"  .                .                .   ";
  8. 200 PRINT"";:FORZ=1TO2:PRINT"                                        ";:NEXTZ:PRINT"[145][145][145]";A$(1);:XX=250:GOSUB10000:FORZ=1TO7:GOSUB2031:NEXTZ:NEXTL:PRINT"[147][151] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:PRINT"";SPC(31);"[129][164][164][164][164][164][164][157][157][157][157][157][157]CARROT[157][157][157][157][157][157] FARM [146][157][157][157][157][157][221]->[221]";
  9. 260 PRINT"[157][157][157][157][173][174][176][189][157][157][157][221][221][157][157][221][221][157][157][221][221][157][157][221][221]":PRINT"[153]         [152]                     ";:PRINT"[153]         ":PRINT"[145][145]";:GOSUB2031:GOSUB2031:PRINTB$(1)+"";A$(1);:PRINT"";SPC(17);"..":XX=500:GOSUB10000:PRINT"";SPC(15);"[154]/[145][157][157][157][157][157]SNIFF SNIFF":PRINT"";SPC(17);" [160][157][157][157]";"[209] [209]";:XX=500:GOSUB10000
  10. 330 PRINT"[157][157][157]   [157][157][157][157][157][209]   [209][157][157][157][157][157][157][157][157]           ";:XX=250:GOSUB10000:PRINT"[157][157][157][157][157][157][157] [157][157][145][145][145]     [157][157][157][157][157][157][157][157]";:PRINT"[209]      [209]";:XX=100:GOSUB10000:PRINT"[157][157][157][157][157][157][157][157][157][157][152][205][145][157][157][157][157][157][157][157][157][157][157]SCREECH![146]";:XX=1200:GOSUB10000:PRINT"[157][157][157][157][157][157][157][157][157][157][157]                   [157][157][157][157][157][157][157][157][157][157] [209][158][209][209][209]";
  11. 360 XX=1500:GOSUB10000:PRINT"[145][157][157][157]/[145][157]BEEP!!!!![146]";:XX=1000:GOSUB10000:PRINT"[157][157][157][157][157][157][157][157][157] [145][157]         [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:PO=1:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]";:GOSUB2030:PRINT"[145][145][158][209][209][157][157]";:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]";:GOSUB2030:PRINT"[157][157][157][157][157][157][145][145][158][209][209]";
  12. 415 PRINTB$(1);"[169][146][192][223][146][145][157][157][219][145][157][215][145][157][157][205] [206][157][157][157][157]";:XX=2000:GOSUB10000:PRINT"[145]BANG[145][157][157][157][215][157][192][157][157][157]";:XX=1500:GOSUB10000:PRINTB$(1);:PRINT"[164][185][175][164] [164]     [145][145][221][157][145][145][157][173][174][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][209][150][209]";:XX=1000:GOSUB10000:PRINT"  [192][157][163][163][145][157][192]";:XX=1500:GOSUB10000:PRINT"[157] [157] [157][157][157][157][157][157][157] [145][157] [145][145][145][157][157][192]    [192]";:XX=2000:GOSUB10000
  13. 450 PRINT"[157][157][157][157][157][157]      [145][145][145][145][157][157][157][157][157][157][157]- -";:GOSUB10000:PRINT"[157][157][157]   [145][145][145][157][157][157]..";:GOSUB10000:GOSUB10000:PRINT"[157][157]  ":XX=8000:GOSUB10000:PRINT"[147]":XX=2000:GOSUB10000:GOTO3500
  14. 1995 STOP
  15. 1998 B$(1)="    [145][157][157][157][157]     [145][157][157][157][157][157]     [145][157][157][157][157][157]     [157][157][157][157][157]":B$(2)=B$(1):B$(3)=B$(1):RETURN
  16. 2000 A$(1)="[146][145][145][145][205][206][157] [223][146][157][157][157][157][157][209][169] [146][157][157][157][182][185] [205][157][157][157][157]":A$(2)="[145][145][145][205][206][157] [223][146][157][157][157][157][157][209][169] [146][157][157][157] [205] [163][157][157][157][157]":A$(3)="[145][145][145][205][206][157] [223][146][157][157][157][157][157][209][169] [146][157][157][157][206]  [163][157][157][157][157]":A$(4)="[145][145][145][205][206][157] [223][146][157][157][157][157][157][209][169] [146][157][157][157][183]  -[157][157][157][157]":RETURN
  17. 2030 PRINT""+A$(1);:XX=250:GOSUB10000
  18. 2031 PRINT""+A$(2);:XX=150:GOSUB10000:PRINTB$(1)+"[145]"+A$(3);:XX=100:GOSUB10000:PRINTB$(2)+C$(2)+""+A$(4);:XX=50:GOSUB10000:PRINTB$(3)+C$(3)+""+A$(1);:XX=290:GOSUB10000:RETURN
  19. 3000 M$="[155]WEIRD TECH PRESENTS...":GOSUB1:M$="":XX=750:GOSUB10000:GOSUB1:GOSUB1:GOSUB1:GOSUB1:M$="[159]            [158]*  [150]ROA[129]D [150]PI[150]ZZ[150]A  [158]*             ":GOSUB1:M$="":GOSUB1:GOSUB1:GOSUB1:M$="[155].......................................":GOSUB1:GOSUB10000:RETURN
  20. 3500 PO=0:M$="":GOSUB1:M$="      [158]NOW WASN'T THAT SPECIAL.":GOSUB1:M$="":GOSUB1:GOSUB1:M$=" [159]DIRECTOR: WEIRD AL JR.":GOSUB1:M$="           JAWS OF DEATH":GOSUB1:M$="           JAWS JR":GOSUB1:M$="           HENRY LISS JR.":GOSUB1:M$="           [155]  (ALL THE SAME)":GOSUB1
  21. 3560 M$="":GOSUB1:M$=" [159]THE RABBIT: A$(1 TO 4)":GOSUB1:M$="":GOSUB1:M$=" [159]STUNT DOUBLE: ROGER RABBIT":GOSUB1:M$="":GOSUB1:M$=" [159]DRIVER #1: DON":GOSUB1:M$="":GOSUB1:M$=" [159]DRIVER #2: DAN":GOSUB1:M$="":GOSUB1:GOSUB1:M$="[129]BRING MEANING TO SOMEONE ELSE'S BORING":GOSUB1
  22. 3620 M$="MISERABLE LIFE: GIVE THEM THIS PROGRAM![154]":GOSUB1:PRINTCHR$(20);"[145][145]";:END
  23. 4000 M$=M$+CHR$(13):PR=LEN(M$):IFPS<>1THENPRINT"[164]";:PS=1
  24. 4020 FORPT=1TOPR:PRINTCHR$(20);MID$(M$,PT,1);"[164]";:PO=0:XX=25:GOSUB10000:NEXTPT:RETURN
  25. 10000 IFPO=1THENXL=INT(XX/4):GOTO10010
  26. 10005 XL=XX
  27. 10010 FORDL=1TOXL:NEXTDL:RETURN:STOP
  28.