0 REM *** KUVADEMO FLOPPIKSEEN ***      0 REM *** DESIGN BY TONI LUODE *** '86(null)
1 IFB=0THENB=1:POKE53281,0:POKE53280,0:PRINT"[147][154]ODOTA HETKI!"
2 IFB=1THENB=2:LOAD"KUVADEMOMERKIT",8,1
4 IFB=2THENB=3:POKE53272,28:GOSUB10
5 A=A+1:IFA>1THEN7
6 REMPRINT"PAINA JOTAIN!"
7 SYS14336:POKE198,0:REMWAIT198,1
8 IFA=10THENPOKE53272,20:PRINT"[147]":END
9 A$=CHR$(A+48):LOAD A$+".*",8,1
10 PRINT"[147]KUVADEMO."
11 PRINT"DESIGNED BY TONI LUODE 1986."
12 PRINT"T[M[ OHJELMA N[YTT[[ MIT[ OHJELMOI-"
13 PRINT"DUILLA MERKEILL[ SAA AIKAAN!!"
14 PRINT"OHJELMA LATAA VALMIITA KUVIA RUUTUUN":PRINT"9 KPL."
15 PRINT"UUDEN KUVAN SAAMISEKSI PAINA V[LI-":PRINT"LY\NTI[."
16 PRINT"UUDEN KUVAN MERKKIEN V[RIARVO":PRINT"ON NYT";PEEK(14337);"."
17 PRINT"HALUATKO VAIHTAA ARVOA?? (K/E)"
18 GET YE$:IFYE$=""ORYE$<>"E"ANDYE$<>"K"THEN18
19 IF YE$="E"THENRETURN
20 PRINT"ANNA UUSI ARVO:";:INPUT AR
21 POKE14337,AR:RETURN