1 REM"[141][147] KALENTERI 1988 2 [143]"GOSUB (C) FLOPPIS & JUKKA SAKKI 3 REM" TAMA ON TEHTY 8.3.1988 (TJ 56) 4 [143]" (THE INCREDIBLE PROGRAMMER STRIKES AGAIN) 5 REM" 10 [143]"GOSUB JOS HALUAT PAREMMAN KUVAN 11 REM" VAIHDA RIVI 175 SEURAAVANLAISEKSI 12 [143]" IFX$="A"THENP$=P$+"" WAIT" 13 [143]"GOSUB MUTTA!! KAIKKI PRITTERIT EI 14 REM" EHKA YMMARRA EM. MERKKEJA !!!! 15 [143]" JA MPS802KIN TEKEE VALILLA JOTAIN IHME TILTTEJA??GOSUBGOSUB 16 REM"[141][141][141]LIST 17-[141][145][145][145][145]"(null) 40 OPEN15,4,15:CLOSE15:IFSTTHENPRINT"[147]LAITA[146] PRITTERI[146] PAALLE[146] !!":GOTO40 42 PRINT"(VAIKUTTAA KUVAN KORKEUTEEN)[145][145][145] 44 [133]"ONKO PRINTTERISI MPS802 ECMDCMDCMD";R$ 46 [139]R$[179][177]"E"[175]R$[179][177]"K"[167]44 48 [159]3,4:[139]R$[178]"E"[167]90 50 [159]6,4,6:[152]6,[199](23) 90 [153]"LOADEVERY BODY TELLS A STORY... 100 T$=" " 130 P$="":READA:IFA=-1THEN250 170 P$=P$+LEFT$(T$,A):READA$:FORX=1TOLEN(A$):X$=MID$(A$,X,1) 175 IFX$="A"THENP$=P$+"[166]" 176 REM 177 REM ALLA TOINEN VERSIO RIVISTA 175 178 REM 175 IFX$="A"THENP$=P$+" [146]" 179 REM 180 IFX$="B"THENP$=P$+"[191]" 185 IFX$="D"THENP$=P$+"." 190 IFX$="E"THENP$=P$+" " 200 NEXT:PRINT#3,P$:GOTO130 250 PRINT#3:PRINT#3:PRINT#3 251 IFR$="K"THENPRINT#6,CHR$(36) 252 A$=" M T K T P L S M T K T P L S M T K T P L S" 253 IFR$="K"THENPRINT#3,CHR$(14)" * 1 9 8 8 * 254 [139]R$[179][177]"K"[167][152]3," * 1 9 8 8 *" 255 [152]3:[152]3 257 [152]3," TAMMIKUU HELMIKUU MAALISKUU" 259 [152]3,A$ 260 B$[178]" 1 2 3 1 2 3 4 5 6 7 1 2 3 4 5 6 261 PRINT#3,B$ 262 B$=" 4 5 6 7 8 9 10 8 9 10 11 12 13 14 7 8 9 10 11 12 13 263 [152]3,B$ 264 B$[178]" 11 12 13 14 15 16 17 15 16 17 18 19 20 21 14 15 16 17 18 19 20 265 PRINT#3,B$ 266 B$=" 18 19 20 21 22 23 24 22 23 24 25 26 27 28 21 22 23 24 25 26 27 267 [152]3,B$ 268 B$[178]" 25 26 27 28 29 30 31 29 28 29 30 31 269 PRINT#3,B$ 271 PRINT#3:PRINT#3 273 PRINT#3," HUHTIKUU TOUKOKUU KESAKUU" 274 PRINT#3,A$ 275 B$=" 1 2 3 1 1 2 3 4 5 276 [152]3,B$ 277 B$[178]" 4 5 6 7 8 9 10 2 3 4 5 6 7 8 6 7 8 9 10 11 12 278 PRINT#3,B$ 279 B$=" 11 12 13 14 15 16 17 9 10 11 12 13 14 15 13 14 15 16 17 18 19 280 [152]3,B$ 281 B$[178]" 18 19 20 21 22 23 24 16 17 18 19 20 21 22 20 21 22 23 24 25 26 282 PRINT#3,B$ 283 B$=" 25 26 27 28 29 30 23 24 25 26 27 28 29 27 28 29 30 284 [152]3,B$:[152]3," 30 31":[152]3 285 [152]3," HEINAKUU ELOKUU SYYSKUU" 286 [152]3,A$ 287 B$[178]" 1 2 3 1 2 3 4 5 6 7 1 2 3 4 288 PRINT#3,B$ 289 B$=" 4 5 6 7 8 9 10 8 9 10 11 12 13 14 5 6 7 8 9 10 11 290 [152]3,B$ 291 B$[178]" 11 12 13 14 15 16 17 15 16 17 18 19 20 21 12 13 14 15 16 17 18 292 PRINT#3,B$ 293 B$=" 18 19 20 21 22 23 24 22 23 24 25 26 27 28 19 20 21 22 23 24 25 294 [152]3,B$ 295 B$[178]" 25 26 27 28 29 30 31 29 30 31 26 27 28 29 30 296 PRINT#3,B$:PRINT#3 298 PRINT#3," LOKAKUU MARRASKUU JOULUKUU" 299 GOTO420 300 DATA33,DEDDD 301 DATA29,DBBDBEDEEEEBD 302 DATA24,DEBBEDDBDBABDBDDEEEBD 303 DATA22,DBDBDBDDDDBAABBDBDBDDEBD 305 DATA20,DBBDBBBDBBBDBAABBDBDBDBDDEB 306 DATA18,DBDBDBDBBBDBDBDBABBDBDBDBDEDEED 307 DATA17,DDBDBDBDBDBABBDBAABDBDDBDBDDEEEED 308 DATA16,DDBDBBBDBDBBDBDBBAABBADBDBDBDBDDEEED 309 DATA15,DDBDBDBDBDBBDEDBBBAABDDBDBDBDBDBDEEED 310 DATA14,DBBDBBDBBBDBDBDBDBABBDBDBDBDBDDEBDDEEDD 311 DATA14,BBDEBDBDBDEDDBDBBDBBDBDBDDBEEBBDBDBDDEDD 312 DATA13,DBDBDBBBDEEEBDBBBABDBDDEDBDBDEEBBEDBDDEDEDD 313 DATA13,BDDBDBBDEEEDBDAABDBDDEEEDEDBDBDEBDDEBDEDEEDD 314 DATA12,DDEBDBDBDEEDBDBABDBDEDEEDEDDBDDBDEBDDBBDEDEEBD 315 DATA11,DBDEBDBDEEEDBDBABDBDEDEEEEDEDDBABBDEBBEBBEEDDEDD 316 DATA11,DDEBBDBDBDEDBDBABBDEEEEEEEEDDBDBABDEBBEBBDEEEDEBD 317 DATA11,BDDBDEDBDDEDBAABBEEEEEEEEEDDBAAAADEEBBDEBBDEEEEEED 318 DATA10,DBDBBBDBBBDDBDAAABDEEEEEEDBBDDDEEBAEDBBDEBBDEEEEEEED 319 DATA10,BDDBBDBAABDBABEEDDBBEEEBEDBBAAADABBEDDBDDEBBDEEEEDED 320 DATA9,DDEBBBAAABDEBDBADAAABDEEDEDADAABBDBBEBABDDBBBDEDEEEEDD 321 DATA9,DEDBDBAABEADBDBBDAABDEDEEDEDDBDDBEDBEBDBBDEBBDDDEEDEDD 322 DATA9,DEDBEDBAAAABDEEEBEBDBEDEEDDDEDEEEEDBDEBDBDDEBDDDEEEEDB 323 DATA9,DEDADBBABAAADEEEEEEEEDDEEEDDDEEEEDDBBDBDBDBDBEDDEEDED 324 DATA10,DBAADBDBDAABDEEEEEEDDEEEEDDBDEEDEDBDBEDBBDBEEDDEEDED 325 DATA9,DDBBABDBDBBBABDEEDEDBBBDEDBDBDDEEDBDBBAADDEDDBDBEDDED 326 DATA10,BBAABABDEEBBABDEDDBBEEEBBDDEDEDEDDBBBAAABEDDBDDBDBD 327 DATA9,DBBAAADBBDEEEBAABDBDDDBBBBBBBBDDEDBBBAAABBEDBBBBEDD 328 DATA9,DDDBAAAABBDEDEEDABDDDBBDDDDBBDDEDEDBAAABBEBDBBEEDED 329 DATA9,DEDEAAAAABDDBDBDBABBDEDBBBBDEEEDDDBAAAABBDBDBEEDDED 330 DATA10,DEDEBAAAABDEDBDBDABDEEEBEBEDEDDDBAABBEDBBEBDEDEEDD 331 DATA10,DEDEEBBAAAABBEBBDAADDEEEEEEDDEDAEDDDBBBBEDBDEEEED 332 DATA10,BDEEDDDBABABDBEDDAAAADEDEDBDDAAAABBBEDEDEEBEEEEEDD 333 DATA10,BDEBDBBBBAABDABDAAAAAAAAAAAAAAAABBDDDDEDADBBDEDDEEBD 334 DATA7,DEDEDDEBBBBBAABBDBBAAAAAAAAAAAAAAAADEBDBDBAAADDEEBEEBEEBD 335 DATA8,BBDDDEDEEBBDEDBBBDAAAABAAAAAAAAAAADEBAAAAAABDEDEDEDEEEED 336 DATA9,BDBDDEDEDDBBDBEDAADDBABAAAAAAAAADEDBAAABBBDBDEBDDEEDEED 337 DATA7,DEDBDBBEDDEBBBDBDBDDBBDBBABABAAAAAADBDAADBDDDBBEDBEDDDEDEBDD 338 DATA6,BDDBBBBBEDDDBBBDAAAAABBEDBDBDDBDDBAAABDBBBBEDBEEEEDEEEEDDEEDED 339 DATA6,BBBDBBEDBBEEEEEDDEBAAAABDBDDEDDBEDEDBABDBEDDDBDBDEEDDEEEEDDEDD 340 DATA9,DBDDBBBBDEEDEDEDEDAAAABDBBEEEDDEDDDDBBDDAABDBDEDEEDDDEEEDEDD 341 DATA6,DDEDEDBBDBDDDDDDBBBAABDBBEEEEDEDDDDDDEDEDDEDBAABDBBEEDDDEEDDEDD 342 DATA7,DDBDBBDAEDEEEEDEDEDDEDBDEDDDDEDDDBDDEDEDEDDBDBBDEEEBDDEEEDEDD 343 DATA8,DBDBBABDEEEEEEDEDDEDDBDDDDEDEDDDDDEDDEDEDDBBDEDDEDABDEDDBED 348 DATA6,DBBBDBEADEEEEEEEDEDDEDDBDDEDEEDEDDEDDDDDEDBDEDBDDEDBADBDBBDD 349 DATA6,DEDBBBABDEEEEEEEDEDEDDEDBDEDEEEEDDEDDEEDEDDDEDBDBDBABEEDEEDDD 350 DATA6,DEBBDBABDDEEEEEDEDEDEDDDDBDEDEDEEEDDDDEDDEEEDBDDDBDBDBDEBBDBB 351 DATA7,BDBBBBABDEEEEEEEDEDDEDDDDBDEDEEEEEDDEDEDDEEDDBEEDBDBDDBDDEEEEB 352 DATA13,BDEDEEEEEDEDDEDDEDBDDDDEDEEDEEDDDDEDDDEEEDEEDBDBDBDDEEEEBD 353 DATA13,BDEEEEEEDEEDEDEDDEDBDDDDEDEDEDDDDDDDDEEEEEEEDBDBDBBDEDEEEED 354 DATA13,BDEDEEEEEDEDEDEDEDDEDBBDDBEEDEDDBDDEDEEEEEEEEBBDBDBDDEDEEEED 355 DATA13,BDDEDEEEEDEDEDEEDEDDEDDBDBEEDDEDDEDBDEDDEEEEEBBBBDBBDBDEDEEED 356 DATA13,BBDDEDEEDEDEDEDDEDDEDDDBBBEDDEDDEEDEDBDEDEEEEEABABBBBBDDEDEEEBD 357 DATA13,BBBDEDEEDEDDEDDEDDDEDBDBBEEDDEDEEDEDDEDDEDEEEEEAABABBBBBDDEEEBBA 359 DATA15,BDDEDEEEDEDDEDDBDDEDDABDDDEDEDEEDEDDEDDDEDEEEEAAABABABBBDEDBBB 360 DATA15,BBDDEDEDEDEDDEDDBDDBDBABDBDEDEEDEDDEDEDBDEDEEEEAAAAABABBDBDDBB 361 DATA16,BBDDEEEDEDEDDEDDBDDBDAABDEDEEEEEEDEDEDDDDEDEEEBAAAAAAABABBDDB 362 DATA16,BBDEDEEDEDDEDDEDDBDBDBAABDEEEEDEDEDDEDDDDDEDEEEAAAAAAAABABBDB 363 DATA17,BDDEDEEDEDEDDEDBDBDBDAABDEEEEEEDEDEDDEDDDEDEEEAAAAAAAAAAABB 364 DATA18,BDDEEDEEDEDEDDEDDBDDAABDEEEEEDEDEDDEDDEDDDEDEBAAAAAAAAABB 365 DATA18,BDDEEEDEDEDDEDDBDBDBAADDEEEDEEDEDDEDEBBBBBDEEAAABBBBB 366 DATA19,BDEDEDEEDEDDEDDBBDBDAABDEEEEEDEDEDDEDBBBBBBDEAAA 367 DATA20,BDDEEDEEDEDDEDBDBDBDABDEEEEDEDEDEDDDBBADABDEAAA 368 DATA21,BDEDEEDEEDEDDEDDBDBDABDEEEEEDEDEDDDDBBABBBDAAB 369 DATA22,BDEDEEDEDEDEDDEDBDDAABDEEDEDEDEDDDDBBBBBEAADB 370 DATA23,BDDEDEDEDDEDDDEDBDDAABDEDEDEDDEDBDEDDBDAABD 371 DATA23,BBDDEDEDEEDDEDDBDBDBAAABDBDDDBDBDBDBDAAABD 372 DATA24,ABDEDEEDDEDDDEDBDBDAAAAABDDBDBDDBABBDBDD 373 DATA24,AADDEEDEDEDDEDDBDBDBAAAAAAAAAAAAABBDBBD 374 DATA24,BAABDEEDEDEDDEDDBDBDBAAAAAAAAAAAABDDBD 375 DATA25,AAABEDEEDEDEDDEDDDBDAAAAAAAAAABBDBDDD 376 DATA25,AAAABDEDEEDDEDDDEDBBDAAAAAAAAAABBBDD 377 DATA25,AAABDBDEEDEEDDEDDDEDBBAAAAAABABBDBDD 378 DATA25,AABDDBDDEEDEEDEDDEDDBDAAAAABABBDBDED 379 DATA24,AABDEDDBDDEEDEEDEDDEDDBEAAAAABABDDDED 380 DATA23,AABDEDEEDBDDEDEEDEEDEDDDEEAAAAABBDDDED 381 DATA21,DABDEDEEEEEEBDDEDEEDEDDEDBDDEAAAAABBDDEED 382 DATA20,ABDEDEDEEEEEEEBBDEDDEDDEDEDBDDEDAAABBEDDED 383 DATA18,DBDDEDEEDEEEEEEEEBDDEDBDDDDDEDBBDDEAAABDD 384 DATA17,DDDEDEDEEDEEEEEDEDEBDBDEDDBDEDEDBBDDEAABDDEED 385 DATA16,DDEDDEDEEDEEEEDEDEDDDBDDDEDEDDEDEDBBBDDEABDDEED 386 DATA15,BDDEDDEEDEEDEEDDEDDBBBDDDDEDBDEDEDDBBADDEADDEED 387 DATA13,DEDEDDEDEDEEEDEDEDDEDDBBBADEDDBDEDEDEDBBDDEBDD 388 DATA12,DEDDEDDEDDEDEDEEDEDDDEDDBBAADDEDDEDEDEEDDBBDEBDDEED 389 DATA11,DDEDDEDDDEDEDEEDDEDDDDEDBDBBAADEDEDDEDEDDBDBBDEBDEED 390 DATA10,DEDEDEDDEDEEEDEDEDDEDDBDDBDBBAAADEDEDEEDDEDBDBBDEBDED 391 DATA9,DDEDEDEEDEEEDEDEDDEDDDEDDBDBBABAAADEDEEDEDEDDBDBBDEDED 392 DATA8,DBEDDEEDEEDEEEDEDEDDDEDBDDEDBABAAAAADEDEEDEDDEDBBABDED 393 DATA7,DBBDEEDEEEEEDEDEDDEDDBDEDBBDBAAAAAAAAADEEDEEDDEDDBABDEDED 394 DATA7,ABBDDEEEEEDEEDEEDDDBDDBDBBABAAAAAAAAAADEEDEEDEDDBBABDED 395 DATA6,BAABDDEDEEEEEEEDEDDEDBDBDBBABAAAAAAAAAAAADEDEEEDDEDBBABDEDD 396 DATA6,AABDDEDDEDEEEEDEDDEDBDBDBBAABAAAAAAAAAAAAADEEDEEDEDDBBABDEDD 397 DATA5,BAABDDEDEDEEEDEEDEDDEDBBDBABAAAAAAAAAAAAAAAADDEEDEDDEDBBABDEDD 398 DATA5,AABDBDDEDEEDEEDEEDDDEDBBDBBABAAAAAAAAAAAAAAAAADEDEDEDDBBABDED 399 DATA5,AABDEDDEDEDEEDEEDEDDEDBDDBBAAAAAAAAAAAAAAAAAAAADEEDEDEDBBBABDEDED 400 DATA5,AABDDEDEDEEDEEEDEDDEDDBDBBABAAAAAAAAAAAAAAAAADEEBDDEDEDDBBBAABEDED 401 DATA5,AABBDDEDEDEEEDEEDDEDBDDBBBBAAAAAAAAAAAAAAAADEDEEEEDDEDEDDBBAAABEDEED 402 DATA5,AABBDDDEDEDEDEEDEDDDEDDBDBBBAAAAAAAAAAAAAADEDEEDEEEDEDDEDBDBAAADEDEEED 403 DATA5,AABBDBDDEDEDEEDEEDDEDDDDDDBDDAAAAAAAAAAADDDEDEDEDEDEBDDDEDBDBAAABDD 404 DATA5,AABABBDDEDEEDEEEDEEDEDDDDDBBDBAAAAAAAAABDDEDEEDEEDEDEEDBDDBBBAAAAADDAB 405 DATA5,AABDBDBDDEEDEEDEEEDEDDDDDDBDBDBAAAAAAABDBDDEDEEDEEDEEDEBDDDBDBAAAABDD 406 DATA6,AABBDBDEDEDEDEEDEEDEDDDBDBBDBBDAAAAABBDBDBDDEDEEDEDDEDEBDDEDDBAAAABBDBD 407 DATA6,AAABBDBDDEDEEDEEDEDDEDBDDBDBDEEBAAAABBDBBDBDDEDEDEEDEDDEBBDDDBBAABAAAABB 408 DATA6,AAABBDBDDDEDEEDEEDEDDDBDBDDDEDEEEAAABABBDBDDEDEEDEEDDEDEDEBDBBBDDDBBDBB 409 DATA7,AAABBDBDDEDEDEDEDDEDDDBDDDDEEEEEEAAABABBDBDDEDEEDEDDDEDDEDBBDBDDBDBDDB 410 DATA8,AAABBDBDDEDEDEEEEDDBDBBDDEDEEEEEBAAAABABBDBDDEDEDEDDEDDEEDBBBBBDDDDDD 411 DATA8,AAABABBDDEDDEDEDEDDEDBDBDDEDEEEEBAAAAABABBDBDDDEDEDEDDEDDEDBBDEDDEDAA 412 DATA7,AAAAABABBDDEDEDEDEEDDEDDBDDEDEDEEBBAAAAAABABBDBDDDEDDEDDEDDDEDBDBBAAAA 414 DATA-1 420 PRINT#3,A$ 421 B$=" 1 2 1 2 3 4 5 6 1 2 3 4 422 [152]3,B$ 423 B$[178]" 3 4 5 6 7 8 9 7 8 9 10 11 12 13 5 6 7 8 9 10 11 424 PRINT#3,B$ 425 B$=" 10 11 12 13 14 15 16 14 15 16 17 18 19 20 12 13 14 15 16 17 18 426 [152]3,B$ 427 B$[178]" 17 18 19 20 21 22 23 21 22 23 24 25 26 27 19 20 21 22 23 24 25 428 PRINT#3,B$ 429 B$=" 24 25 26 27 28 29 30 28 29 30 26 27 28 29 30 31 430 [152]3,B$ 431 B$[178]" 31":[152]3,B$:[152]3:[152]3:[160]3:[160]6