home *** CD-ROM | disk | FTP | other *** search
- 10 REM COMPLETED 4/8/86
- 20 POKE53280,254
- 30 POKE53281,246
- 40 PRINTCHR$(142)CHR$(8)
- 50 PRINT"ô MULTICOLOR GRAPHICS CONVERTER"
- 60 PRINT" COPYRIGHT 1986 BY ROBERT ONDA"
- 70 PRINT" THIS PROGRAM MAY BE"
- 80 PRINT" COPIED BUT NOT SOLD"
- 90 PRINT" PRESS A KEY"
- 100 WAIT198,1:POKE198,0
- 110 PRINT"ô"
- 120 PRINT
- 130 PRINT" ORIGINAL FILE:"
- 140 PRINT" 1 - KOALA"
- 150 PRINT
- 160 PRINT" 2 - BLAZING PADDLES"
- 170 PRINT" ANIMATION STATION"
- 180 WAIT198,1
- 190 GETA$
- 200 F=VAL(A$)
- 210 IFF<1ORF>2THEN180
- 220 PRINT" CONVERT TO:"
- 230 IFF=1THEN270
- 240 PRINT" KOALA"
- 250 IFF=2THEN290
- 260 PRINT
- 270 PRINT" BLAZING PADDLES"
- 280 PRINT" ANIMATION STATION"
- 290 PRINT" PRESS A KEY"
- 300 WAIT198,1
- 310 GETA$
- 320 POKE198,0
- 330 IFF=1THENGOSUB350:GOSUB580:GOTO880
- 340 IFF=2THENGOSUB420:GOSUB480:GOTO650
- 350 REM INPUT KOALA
- 360 PRINT"ô ORIGINAL FILE - KOALA"
- 370 PRINT" ENTER FULL ORIGINAL NAME"
- 380 PRINT" USE [^] FOR REVERSE SPADE IF NEEDED"
- 390 PRINT" ";:INPUTFF$
- 400 IFLEFT$(FF$,1)="^"THENFF$=CHR$(129)+RIGHT$(FF$,LEN(FF$)-1)+"*"
- 410 RETURN
- 420 REM INPUT BLAZING PADDLES
- 430 PRINT"ô ORIGINAL FILE - BLAZING PADDLES"
- 440 PRINT" ANIMATION STATION"
- 450 PRINT" ENTER FULL ORIGINAL NAME"
- 460 PRINT" ";:INPUTFF$
- 470 RETURN
-