Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
20000 GRAPHICS 0:POKE 752,1
20001 ? "BACK TO THE FUTURE...":SOUND 1,255,10,4:SOUND 2,254,10,3
20002 I=1536: RESTORE 31200
20003 READ V:IF V>=0 THEN POKE I,V:I=I+1:GOTO 20003
20004 FOR I=4 TO 0 STEP -0.1
20005 POKE 710,144+I:POKE 709,I*2
20006 NEXT I
30000 ? CHR$(125):POKE 623,64:FDA=256*PEEK(756)+16*8:?
30005 FOR N=9 TO 0 STEP -1:Y=8
30010 FOR B=1 TO 6:FDB=PEEK(FDA+N*8+B):X=16:POSITION X,Y
30015 FOR BIT=0 TO 7:? CHR$(32+64*(FDB>=128));:FDB=(FDB-128*(FDB>=128))*2:NEXT BIT
30020 Y=Y+1:NEXT B:GOSUB 32760:NEXT N
30032 REM -- THE WARP --
30033 GRAPHICS 10:POKE 559,0:FOR I=0 TO 7:POKE 705+I,2+I*2:NEXT I
30034 C=0:FOR Q=0 TO 31:SOUND 1,255-Q*2,10,4:SOUND 2,254-Q*2,10,3
30035 COLOR C:C=C+0.5:IF C>7 THEN C=1
30036 PLOT 32-Q,64-Q:DRAWTO 48+Q,64-Q:DRAWTO 48+Q,128+Q:DRAWTO 32-Q,128+Q:DRAWTO 32-Q,64-Q
30037 NEXT Q:C=0:POKE 559,34
30038 Q=PEEK(705):FOR I=0 TO 5:POKE 705+I,PEEK(706+I):SOUND 0,I+Q,8,15:NEXT I
30039 Q=Q+16:IF Q>255 THEN Q=Q-256:C=C+1
30040 POKE 711,Q:IF C<4 THEN 30038
30041 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:PUT #6,125:GOSUB 32760
30042 REM -- THE LOGO --
30043 RESTORE 31000:GRAPHICS 24:COLOR 1:POKE 765,1:POKE 712,15:POKE 710,15:POKE 709,0
30044 DIM S$(100):TRAP 30075
30045 READ S$:IF LEN(S$)<4 THEN 30060
30049 Q=USR(1536,ADR(S$),LEN(S$))
30050 FOR I=1 TO LEN(S$) STEP 4
30051 C=USR(1536,0):X=USR(1536,1):Y=USR(1536,2)
30054 IF C=0 THEN PLOT X,Y
30055 IF C=1 THEN DRAWTO X,Y
30056 IF C=2 THEN XIO 18,#6,12,0,"S:"
30057 SOUND 0,X,10,4:SOUND 1,Y,12,4
30058 NEXT I:GOTO 30045
30060 SOUND 0,0,0,0:SOUND 1,0,0,0:GOSUB 32760:GOSUB 32760
30075 REM -- BCA FLASHER ---
30076 FOR II=0 TO 1500:SETCOLOR II/500,II,II:NEXT II
30999 REM -- THE VECTOR DATA (BASE32 ENCODED) --
31000 DATA 04J404LD7ULD7UJ504J504M404N51EN51EN922N922ND2GND2GNH2SNH2SNL34NL34NP3ANP3ANT3INT3IO1
31001 DATA 3OO13OO53SO53SO942O942OD46OD46OH4AOH4AOL4EOL4EOP4IOP4IOT4MOT4MP14OP14OP54SP54SP950P9
31002 DATA 50PD52PD52PH54PH54PL58PL58PP5APP5APT5CPT5CQ15EQ15EQ55GQ55GQ95IQ95IQD5KQD5KQH5MQH5MQL
31003 DATA 5OQL5OQP5QQP5QQT5SQT5SR15UR15UR960R960RD62RD62RH64RH64RP66RP66RT68RT68S56AS56ASD6CSD
31004 DATA 6CSL6ESL6EST6GST6GT56IT56ITH6KTH6KTT6MTT6MU96OU96OUD80UD80U17UU17UTD7STD7SST7QST7QSD
31005 DATA 7OSD7OS57MS57MRP7KRP7KRH7IRH7IR97GR97GR17ER17EQP7CQP7CQH7AQH7AQD78QD78Q576Q576Q174Q1
31006 DATA 74PP72PP72PL70PL70PH6UPH6UPD6SPD6SP96QP96QP16OP16OOT6MOT6MOP6KOP6KOL6GOL6GOH6EOH6EOD
31007 DATA 6COD6CO96AO96AO566O566O164O164NT60NT60NP5UNP5UNL5QNL5QNH5MNH5MND5IND5IN95EN95EN558N5
31008 DATA 58N154N154MT4UMT4UMP4MMP4MML4EML4EMH44MH44MD3OMD3OM934M934M504M504HC04ID1GID1GIH24IH
31009 DATA 24ID3CID3CI93QI93QI546I546I14GI14GHT4OHT4OHP50HP50HL54HL54HH5AHH5AHD5GHD5GH95KH95KH5
31010 DATA 5OH55OH15QH15QGT5UGT5UGP62GP62GL64GL64GH68GH68GD6AGD6AG96CG96CG56GG56GG16IG16IFT6KFT
31011 DATA 6KFP6MFP6MFL6OFL6OFH6QFH6QFD6SFD6SF96UF96UF170F170ET72ET72EP74EP74EH76EH76ED78ED78E9
31012 DATA 7AE97AE17CE17CDP7EDP7EDL7GDL7GDD7IDD7ID57KD57KCP7MCP7MCH7OCH7OC57QC57QBP7SBP7SB97UB9
31013 DATA 7UAH80AH80A96MA96MAL6KAL6KB16IB16IBD6GBD6GBL6EBL6EBT6CBT6CC56AC56ACD68CD68CL66CL66CP
31014 DATA 64CP64D162D162D560D560DD5UDD5UDH5SDH5SDL5QDL5QDP5ODP5ODT5MDT5ME15KE15KE95IE95IED5EED
31015 DATA 5EEH5CEH5CEL5AEL5AEP58EP58ET56ET56F152F152F550F550F94SF94SFD4QFD4QFH4MFH4MFL4IFL4IFP
31016 DATA 4GFP4GFT4CFT4CG146G146G542G542G93UG93UGD3OGD3OGH3IGH3IGL3CGL3CGP36GP36GT2UGT2UH12KH1
31017 DATA 2KH528H528H91IH91IHD04HD8GC08GD58ID58ID98KD98KDD8QDD8QDH90DH90DL96DL96DP9CDP9CDT9IDT
31018 DATA 9IE19OE19OE59UE59UE9A6E9A6EDACEDACEHAIEHAIELAOELAOEPAUEPAUETB4ETB4F1BAF1BAF5BGF5BGF9
31019 DATA BMF9BME5BIE5BIE1BCE1BCDTB4DTB4DPB0DPB0BDB6BDB6B9BCB9BCB5BIB5BIB1BMB1BM9TBI9TBIA1BCA1
31020 DATA BCA5B6A5B6A9B0A9B0ADAQADAQAHAKAHAKALAEALAEAPA6APA6ATA0ATA0B19QB19QB59KB59KB99EB99EBD
31021 DATA 98BD98BH92BH92BL8SBL8SBP8KBP8KBT8IBT8IC18GC18GK08GL18IL18IL58KL58KL98OL98OLD8ULD8ULH
31022 DATA 94LH94LL9ALL9ALP9GLP9GLT9OLT9OM19UM19UM5A4M5A4M9AAM9AAMDAGMDAGMHAMMHAMMLASMLASMPB2MP
31023 DATA B2MTB8MTB8N1BEN1BEN5BMN5BMM1BGM1BGLTBALTBALPB2LPB2LLB0LLB0JDB2JDB2J9B8J9B8J5BEJ5BEJ1
31024 DATA BKJ1BKITBMITBMHPBKHPBKHTBEHTBEI1B8I1B8I5B2I5B2I9ASI9ASIDAMIDAMIHAGIHAGILAAILAAIPA4IP
31025 DATA A4IT9SIT9SJ19MJ19MJ59GJ59GJ99AJ99AJD94JD94JH8UJH8UJL8OJL8OJP8IJP8IK18GK18GOO8GQD8IQD
31026 DATA 8IQP8KQP8KR18MR18MR98OR98ORD8QRD8QRL8URL8URP90RP90RT94RT94S19CS19CS59IS59IS19QS19QRT
31027 DATA 9URT9URPA2RPA2RLA4RLA4RHA6RHA6RDA8RDA8R9AAR9AAR1ACR1ACQPAEQPAEQHAGQHAGQLAIQLAIQPAMQP
31028 DATA AMQTAOQTAOR1AQR1AQR5ASR5ASR9B0R9B0RDB2RDB2RHB4RHB4RLB8RLB8RPBARPBARTBCRTBCS1BES1BES5
31029 DATA BIS5BIS9BKS9BKSDBMSDBMR1BKR1BKQTBIQTBIQPBEQPBEQLBCQLBCQHBAQHBAQDB6QDB6Q9B4Q9B4Q5B2Q5
31030 DATA B2Q1AUQ1AUPTASPTASPPAQPPAQPLAMPLAMPHAKPHAKPDAIPDAIP9A4P9A4PDA2PDA2PTA0PTA0QD9UQD9UQH
31031 DATA 9SQH9SQL9QQL9QQP9OQP9OQT9IQT9IR19CR19CQT98QT98QP96QP96QL94QL94QH92QH92Q590Q590P192P1
31032 DATA 92OTBMOTBMNP8MNP8MNT8KNT8KO98IO98IOP8GOP8GEG8GIH90IH90H5BMH5BMG190G190EH8GEH8GT48GU9
31033 DATA BMU9BMT58GT598CK98CH9CCH9CCD9ICD9IC99OC99OC5A0C5A0C1A6C1A6BTACBTACBPAEBPAEBTAGBTAGDD
31034 DATA AADDAAD9A4D9A4D59UD59UD19OD19OCT9GCT9GCP9ACP9ACL98CL98KG98KD9EKD9EK99KK99KK59QK59QK1
31035 DATA A2K1A2JTA8JTA8JPAGJPAGL9A8L9A8L5A2L5A2L19SL19SKT9MKT9MKP9GKP9GKL9AKL9AKH98KH04HO04HU
31036 DATA 06HO06HU08HO08HU0AHO0AHU0CHO0CHU0EHO0EHU0GHO0GHU0IHO0IHU0KHO0KHU0MHO0MHU0OHO0OHU0QHO
31037 DATA 0QHU0SHO0SHU0UHO0UHU10HO10HU12HO12HU14HO14HU16HO16HU18HO18HU1AHO1AHU1CHO1CHU1EHO1EHU
31038 DATA 1GHO1GHU1IHK1IHQ1KHK1KHQ1MHK1MHQ1OHK1OHQ1QHK1QHQ1SHK1SHQ1UHK1UHQ20HK20HQ22HK22HQ24HK
31039 DATA 24HQ26HK26HQ28HG28HM2AHG2AHM2CHG2CHM2EHG2EHM2GHG2GHM2IHG2IHM2KHC2KHI2MHC2MHI2OHC2OHI
31040 DATA 2QHC2QHI2SHC2SHI2UH82UHE30H830HE32H832HE34H834HE36H436HA38H438HA3AH43AHA3CH03CH63EH0
31041 DATA 3EH63GH03GH63IGS3IH23KGS3KH23MGS3MH23OGO3OGU3QGO3QGU3SGO3SGU3UGK3UGQ40GK40GQ42GG42GM
31042 DATA 44GG44GM46GC46GI48GC48GI4AGC4AGI4CG84CGE4EG84EGE4GG44GGA4IG04IG64KG04KG64MFS4MG24MGS
31043 DATA 4MH24OFS4OG24QFO4QFU4QGO4QGU4SFK4SFQ4SGK4SGQ4UFK4UFQ4UGK4UGQ50FG50FM50GG50GM52FC52FI
31044 DATA 52GG52GM54FC54FI54GC54GI56F856FE56GC56GI58F458FA58G858GE5AF05AF65AG45AGA5CES5CF25CG4
31045 DATA 5CGA5EEO5EEU5EG05EG65GEO5GEU5GG05GG65IEK5IEQ5IFS5IG25KEC5KEI5KFO5KFU5ME85MEE5MFK5MFQ
31046 DATA 5OE45OEA5OFG5OFM5QE05QE65QFC5QFI5SDS5SE25SFC5SFI5UDO5UDU5UF85UFE60DG60DM60F460FA62DC
31047 DATA 62DI62F062F664D464DA64EO64EU66D066D666EO66EU68CO68CU68EG68EM6ACG6ACM6AEC6AEI6CC86CCE
31048 DATA 6CE46CEA6EC06EC66EE06EE66GBO6GBU6GDS6GE26IBC6IBI6IDK6IDQ6KB06KB66KDC6KDI6MAK6MAQ6MD4
31049 DATA 6MDA6OAK6OAQ6OD06OD66QAK6QAQ6QD06QD66SAK6SAQ6SCS6SD26UAK6UAQ6UCO6UCU70AK70AQ70CO70CU
31050 DATA 72AK72AQ72CK72CQ74AK74AQ74CG74CM76AK76AQ76CG76CM78AK78AQ78CC78CI7AAK7AAQ7AC87ACE7CAK
31051 DATA 7CAQ7CC47CCA7EAK7EAQ7EC47ECA7GAK7GAQ7GC07GC67IAK7IAQ7IBS7IC27KAK7KAQ7KBK7KBQ7MAK7MAQ
31052 DATA 7OAK7OAQ7QAK7QAQ7SAK7SAQ04JG04JM06JG06JM08JG08JM0AJG0AJM0CJG0CJM0EJG0EJM0GJG0GJM0IJG
31053 DATA 0IJM0KJG0KJM0MJG0MJM0OJG0OJM0QJG0QJM0SJG0SJM0UJG0UJM10JG10JM12JG12JM14JG14JM16JG16JM
31054 DATA 18JG18JM1AJG1AJM1CJG1CJM1EJG1EJM1GJG1GJM1IJG1IJM1KJG1KJM1MJG1MJM1OJG1OJM1QJG1QJM1SJG
31055 DATA 1SJM1UJG1UJM20JG20JM22JG22JM24JG24JM26JG26JM28JG28JM2AJG2AJM2CJG2CJM2EJG2EJM2GJG2GJM
31056 DATA 2IJG2IJM2KJG2KJM2MJG2MJM2OJG2OJM2QJG2QJM2SJG2SJM2UJG2UJM30JG30JM32JG32JM34JG34JM36JG
31057 DATA 36JM38JG38JM3AJG3AJM3CJG3CJM3EJG3EJM3GJG3GJM3IJG3IJM3KJG3KJM3MJG3MJM3OJG3OJM3QJG3QJM
31058 DATA 3SJG3SJM3UJG3UJM40JG40JM42JG42JM44JG44JM46JG46JM48JG48JM4AJG4AJM4CJG4CJM4EJG4EJM4GJG
31059 DATA 4GJM4IJG4IJM4KJG4KJM4MJG4MJM4OJG4OJM4QJG4QJM4SJG4SJM4UJG4UJM50JG50JM52JG52JM54JG54JM
31060 DATA 56JG56JM58JG58JM5AJG5AJM5CJG5CJM5EJG5EJM5GJG5GJM5IJG5IJM5KJG5KJM5MJG5MJM5OJG5OJM5QJG
31061 DATA 5QJM5SJG5SJM5UJG5UJM60JG60JM62JG62JM64JG64JM66JG66JM68JG68JM6AJG6AJM6CJG6CJM6EJG6EJM
31062 DATA 6GJG6GJM6IJG6IJM6KJG6KJM6MJG6MJM6OJG6OJM6QJG6QJM6SJG6SJM6UJG6UJM70JG70JM72JG72JM74JG
31063 DATA 74JM76JG76JM78JG78JM7AJG7AJM7CJG7CJM7EJG7EJM7GJG7GJM7IJG7IJM7KJG7KJM7MJG7MJM7OJG7OJM
31064 DATA 7QJG7QJM7SJG7SJM04MG04MM06MG06MM08MG08MM0AMG0AMM0CMG0CMM0EMG0EMM0GMG0GMM0IMG0IMM0KMG
31065 DATA 0KMM0MMG0MMM0OMG0OMM0QMG0QMM0SMG0SMM0UMG0UMM10MG10MM12MG12MM14MG14MM16MG16MM18MG18MM
31066 DATA 1AMG1AMM1CMG1CMM1EMG1EMM1GMG1GMM1IMG1IMM1KMG1KMM1MMG1MMM1OMG1OMM1QMG1QMM1SMG1SMM1UMG
31067 DATA 1UMM20MG20MM22MG22MM24MG24MM26MG26MM28MG28MM2AMG2AMM2CMG2CMM2EMG2EMM2GMG2GMM2IMG2IMM
31068 DATA 2KMG2KMM2MMG2MMM2OMG2OMM2QMG2QMM2SMG2SMM2UMG2UMM30MG30MM32MG32MM34MK34MQ36MK36MQ38MK
31069 DATA 38MQ3AMK3AMQ3CMK3CMQ3EMK3EMQ3GMK3GMQ3IMK3IMQ3KMK3KMQ3MMK3MMQ3OMO3OMU3QMO3QMU3SMO3SMU
31070 DATA 3UMO3UMU40MO40MU42MO42MU44MS44N246MS46N248MS48N24AMS4AN24CMS4CN24EN04EN64GN04GN64IN0
31071 DATA 4IN64KN04KN64MN44MNA4ON44ONA4OO44OOA4QN44QNA4QO44QOA4SN44SNA4SO44SOA4UN84UNE4UO84UOE
31072 DATA 50N850NE50O850OE52N852NE52OC52OI54NC54NI54OG54OM56NC56NI56OG56OM58NG58NM58OK58OQ5ANG
31073 DATA 5ANM5AOK5AOQ5CNG5CNM5COO5COU5ENK5ENQ5EOS5EP25GNK5GNQ5GOS5GP25INO5INU5IP05IP65KNO5KNU
31074 DATA 5KP45KPA5MNS5MO25MP85MPE5ONS5OO25OP85OPE5QO05QO65QPC5QPI5SO05SO65SPG5SPM5UO45UOA5UPK
31075 DATA 5UPQ60O860OE60PO60PU62O862OE62PS62Q264OC64OI64Q064Q666OG66OM66Q466QA68OG68OM68Q868QE
31076 DATA 6AOK6AOQ6AQG6AQM6COO6COU6CQK6CQQ6EOS6EP26EQS6ER26GP06GP66GR06GR66IP06IP66IR86IRE6KP4
31077 DATA 6KPA6KRG6KRM6MP86MPE6MRO6MRU6OPC6OPI6ORS6OS26QPK6QPQ6QS06QS66SPO6SPU6SS06SS66UPS6UQ2
31078 DATA 6US46USA70Q070Q670S470SA72Q472QA72S872SE74QC74QI74SC74SI76QG76QM76SC76SI78QO78QU78SG
31079 DATA 78SM7AQS7AR27ASK7ASQ7CR47CRA7CSO7CSU7ERC7ERI7ESS7ET27GRK7GRQ7GT07GT67IRS7IS27IT47ITA
31080 DATA 7KS47KSA7KT87KTE7MSG7MSM7OSO7OSU7QT87QTE7STO7STU8GCC8GCI8IC88ICE8KC48KCA8MC48MCA8OC4
31081 DATA 8OCA8QC48QCA8SC08SC68UC08UC690C090C692BS92C294BS94C296BS96C298BO98BU98D098D69ABO9ABU
31082 DATA 9AD49ADA9CBO9CBU9CD49CDA9EBK9EBQ9ED49EDA9GBK9GBQ9GD89GDE9IBK9IBQ9ID89IDE9KBG9KBM9KD8
31083 DATA 9KDE9MBG9MBM9MD89MDE9OBG9OBM9ODC9ODI9QBC9QBI9QDC9QDI9SBC9SBI9SDC9SDI9UBC9UBI9UDG9UDM
31084 DATA A0B8A0BEA0DGA0DMA2B8A2BEA2DGA2DMA4B8A4BEA4DKA4DQA6B4A6BAA6DKA6DQA8B4A8BAA8DKA8DQAAB4
31085 DATA AABAAADOAADUACB4ACBAACDOACDUAEB0AEB6AEDOAEDUAGB0AGB6AGCOAGCUAIB0AIB6AICOAICUAKASAKB2
31086 DATA AKCOAKCUAMASAMB2AMCOAMCUAOASAOB2AOCOAOCUAQAOAQAUAQCOAQCUASAOASAUASCOASCUAUAOAUAUAUCO
31087 DATA AUCUB0AKB0AQB0E4B0EAB2AKB2AQB2E4B2EAB4AKB4AQB4E8B4EEB6AGB6AMB6E8B6EEB8AGB8AMB8E8B8EE
31088 DATA BAAGBAAMBAE8BAEEBCACBCAIBCECBCEIBEACBEAIBEECBEEIBGACBGAIBGECBGEIBIA8BIAEBIEGBIEMBKA8
31089 DATA BKAEBKEGBKEM8GES8GF28GGK8GGQ8IES8IF28IGK8IGQ8KES8KF28KGK8KGQ8MES8MF28MGK8MGQ8OES8OF2
31090 DATA 8OGK8OGQ8QES8QF28QGK8QGQ8SES8SF28SGK8SGQ8UES8UF28UGK8UGQ90GC90GI92GC92GI94GC94GI96GC
31091 DATA 96GI98GC98GI9AGC9AGI9CGC9CGI9EGC9EGI9GGC9GGI9IGC9IGI9KGC9KGI9MGC9MGI9OGC9OGI9QGC9QGI
31092 DATA 9SGC9SGI9UGC9UGIA0GCA0GIA2GCA2GIA4GCA4GIA6GCA6GIA8GCA8GIAAGCAAGIACGCACGIAEGCAEGIAGGC
31093 DATA AGGIAIGCAIGIAKGCAKGIAMGCAMGIAOGCAOGIAQGCAQGIASGCASGIAUGCAUGIB0GCB0GIB2GCB2GIB4GCB4GI
31094 DATA B6GCB6GIB8GCB8GIBAGCBAGIBCGCBCGIBEGCBEGIBGGCBGGIBIGCBIGIBKGCBKGI8GKC8GKI8IK48IKA8KK4
31095 DATA 8KKA8MK48MKA8OK08OK68QK08QK68SK08SK68UJS8UK290JS90K292JS92K294JO94JU96JO96JU98JO98JU
31096 DATA 98KS98L29AJK9AJQ9AL09AL69CJK9CJQ9CL09CL69EJK9EJQ9EL09EL69GJG9GJM9GL49GLA9IJG9IJM9IL4
31097 DATA 9ILA9KJG9KJM9KL49KLA9MJC9MJI9ML89MLE9OJC9OJI9OL89OLE9QJC9QJI9QL89QLE9SJ89SJE9SLC9SLI
31098 DATA 9UJ89UJE9ULC9ULIA0J8A0JEA0LCA0LIA2J8A2JEA2LGA2LMA4J4A4JAA4LGA4LMA6J4A6JAA6LGA6LMA8J4
31099 DATA A8JAA8LKA8LQAAJ0AAJ6AALKAALQACJ0ACJ6ACLKACLQAEJ0AEJ6AELKAELQAGISAGJ2AGKKAGKQAIISAIJ2
31100 DATA AIKKAIKQAKISAKJ2AKKKAKKQAMIOAMIUAMKKAMKQAOIOAOIUAOKKAOKQAQIOAQIUAQKKAQKQASIKASIQASKK
31101 DATA ASKQAUIKAUIQAUKKAUKQB0IKB0IQB0M0B0M6B2IGB2IMB2M4B2MAB4IGB4IMB4M4B4MAB6IGB6IMB6M4B6MA
31102 DATA B8ICB8IIB8M4B8MABAICBAIIBAM8BAMEBCICBCIIBCM8BCMEBEI8BEIEBEM8BEMEBGI8BGIEBGMCBGMIBII8
31103 DATA BIIEBIMCBIMIBKI4BKIABKMCBKMI8GP48GPA8IOK8IOQ8IPK8IPQ8KO88KOE8KPK8KPQ8MO48MOA8MPK8MPQ
31104 DATA 8OO48OOA8OPO8OPU8QO48QOA8QPS8QQ28SO48SOA8SPS8SQ28UO48UOA8UPS8UQ290O490OA90QG90QM92O4
31105 DATA 92OA92QS92R294O494OA94R094R696O496OA96R496RA98O498OA98R898RE9AO49AOA9AR89ARE9CO49COA
31106 DATA 9CRC9CRI9EO49EOA9ERC9ERI9GO49GOA9GRC9GRI9IO49IOA9IR89IRE9KO49KOA9KR89KRE9MO49MOA9MR8
31107 DATA 9MRE9OO49OOA9OR49ORA9QO49QOA9QR09QR69SO49SOA9SQS9SR29UO49UOA9UQO9UQUA0O4A0OAA0Q8A0QE
31108 DATA A2O4A2OAA2POA2PUA4O4A4OAA4PKA4PQA6O4A6OAA6PKA6PQA8O4A8OAA8PKA8PQAAO4AAOAAAPKAAPQACO4
31109 DATA ACOAACPKACPQAEO4AEOAAEPKAEPQAGO4AGOAAGPKAGPQAIO4AIOAAIPOAIPUAKO4AKOAAKPSAKQ2AMO4AMOA
31110 DATA AMQ0AMQ6AOO4AOOAAOQ0AOQ6AQO4AQOAAQQ4AQQAASO4ASOAASQ8ASQEAUO4AUOAAUQCAUQIB0O4B0OAB0QC
31111 DATA B0QIB2O4B2OAB2QGB2QMB4O4B4OAB4QKB4QQB6O4B6OAB6QOB6QUB8O4B8OAB8QOB8QUBAO4BAOABAQSBAR2
31112 DATA BCO4BCOABCR0BCR6BEO4BEOABER4BERABGO4BGOABGR4BGRABIO4BIOABIR8BIREBKO4BKOABKRCBKRI8GTG
31113 DATA 8GTM8ITG8ITM8KTG8KTM8MTG8MTM8OTG8OTM8QTG8QTM8STG8STM8UTG8UTM90TG90TM92TG92TM94TG94TM
31114 DATA 96TG96TM98TG98TM9ATG9ATM9CTG9CTM9ETG9ETM9GTG9GTM9ITG9ITM9KTG9KTM9MTG9MTM9OTG9OTM9QTG
31115 DATA 9QTM9STG9STM9UTG9UTMA0TGA0TMA2TGA2TMA4TGA4TMA6TGA6TMA8TGA8TMAATGAATMACTGACTMAETGAETM
31116 DATA AGTGAGTMAITGAITMAKTGAKTMAMTGAMTMAOTGAOTMAQTGAQTMASTGASTMAUTGAUTMB0TGB0TMB2TGB2TMB4TG
31117 DATA B4TMB6TGB6TMB8TGB8TMBATGBATMBCTGBCTMBETGBETMBGTGBGTMBITGBITMBKTGBKTM
31118 REM -- END OF VECTOR DATA --
31200 REM -- ML BASE32 DECODER --
31201 DATA 104,201,2,144,87,104,133,204,104,133,203,104,104,141,83,6
31202 DATA 160,0,140,58,6,162,4,138,72,162,5,6,205,38,206,38
31203 DATA 207,202,208,247,104,170,177,203,56,233,48,201,10,144,2,233
31204 DATA 7,5,205,133,205,200,202,208,222,162,51,165,205,157,0,4
31205 DATA 232,165,206,157,0,4,232,165,207,41,7,157,0,4,232,142
31206 DATA 58,6,192,68,144,191,169,0,141,96,6,96,104,104,168,162
31207 DATA 51,192,0,208,12,189,0,4,41,3,133,212,169,0,133,213
31208 DATA 96,192,1,208,15,189,0,4,133,212,189,1,4,41,7,133
31209 DATA 213,76,161,6,192,2,208,33,189,1,4,133,212,189,2,4
31210 DATA 41,7,133,213,24,169,3,109,96,6,141,96,6,70,213,102
31211 DATA 212,70,213,102,212,70,213,102,212,96,-1
32758 POKE 752,0:GRAPHICS 0
32759 END
32760 POKE 20,0
32761 IF PEEK(20)<64 THEN 32761
32762 RETURN
32763 REM Prima Aprilis Compo 2026
32764 REM by Lizard, Mono, tbxx, dely, Seban, BCA
Od 1 do 2 z 2
