REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0002 Exec: $8b8d * REM *(Start: 09217 Length: 00002 Exec: 35725) * REM ************************************************* REM 58853 FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $06dd Exec: $8b8d * REM *(Start: 09217 Length: 01757 Exec: 35725) * REM ************************************************* REM 10 CLS 20 PRINT @128," MAXI-YATZY" 30 PRINT : PRINT : PRINT " HVOR MANGE SPILLERE?(1-5)" 31 SCREEN 0,1 40 S$= INKEY$ : IF S$="" THEN 40 41 S= VAL (S$) 42 SCREEN 0,1 50 IF S<1 OR S>5 THEN 40 51 PRINT @509," (MAX 8 BOKSTAVER)"; 60 PRINT @288," NAVN PA SPILLER NR 1:"; 70 LINE INPUT S1$ 71 IF LEN (S1$)>8 OR LEN (S1$)<1 THEN 60 80 IF S<2 THEN 1000 90 PRINT @320," NAVN PA SPILLER NR 2:"; 100 LINE INPUT S2$ 110 IF LEN (S2$)>8 OR LEN (S2$)<1 THEN 90 120 IF S<3 THEN 1000 130 PRINT @352," NAVN PA SPILLER NR 3:"; 140 LINE INPUT S3$ 150 IF LEN (S3$)>8 OR LEN (S3$)<1 THEN 130 160 IF S<4 THEN GO TO 1000 170 PRINT @384," NAVN PA SPILLER NR 4:"; 180 LINE INPUT S4$ 190 IF LEN (S4$)>8 OR LEN (S4$)<1 THEN 170 200 IF S<5 THEN GO TO 1000 210 PRINT @416," NAVN PA SPILLER NR 5:"; 220 LINE INPUT S5$ 230 IF LEN (S5$)>8 OR LEN (S5$)<1 THEN 210 240 GO TO 1000 1000 CLS 1010 PRINT @0," MAXI-YATZY" 1020 FOR T=1024 TO 1030: POKE T,32: NEXT T 1030 PRINT @32,"navn" 1040 POKE 1060,32: POKE 1061,32: POKE 1062,32: 1050 PRINT @64,"enere" 1060 POKE 1093,32: POKE 1094,32 1070 PRINT @96,"toere" 1080 POKE 1125,32: POKE 1126,32 1090 PRINT @128,"treere" 1100 POKE 1158,32 1110 PRINT @160,"firere" 1120 POKE 1190,32 1130 PRINT @192,"seksere" 1140 FOR T=1248 TO 1279: POKE T,45: NEXT T 1150 PRINT @256,"sum" 1160 POKE 1283,32: POKE 1284,32: POKE 1285,32: POKE 1286,32 1170 PRINT @288,"bonus" 1180 POKE 1317,32: POKE 1318,32 1190 PRINT @40, LEFT$ (S1$,1) 1200 PRINT @45, LEFT$ (S2$,1) 1210 PRINT @50, LEFT$ (S3$,1) 1220 PRINT @55, LEFT$ (S4$,1) 1230 PRINT @60, LEFT$ (S5$,1) 1240 PRINT @401,""; 1250 FOR T=1344 TO 1375: POKE T,61: NEXT T 1260 T1=1:T2=2:T3=3:T4=4:T5=5:T6=6 1269 G=0 1270 :'spillet 1271 G=G+1: IF G=3 THEN 1600 1280 IF T1=1 THEN T1= RND (6) 1290 IF T2=2 THEN T2= RND (6) 1300 IF T3=3 THEN T3= RND (6) 1310 IF T4=4 THEN T4= RND (6) 1320 IF T5=5 THEN T5= RND (6) 1330 IF T6=6 THEN T6= RND (6) 1340 PRINT @384,T1;T2;T3;T4;T5;T6 1350 PRINT @416,"HVILKE TERN. SKAL KASTES OMIGJEN"; 1360 O$= INKEY$ : IF O$="" THEN 1360 1365 PRINT O$; 1370 O= VAL (O$) 1380 IF O<1 OR O>6 THEN 1350 1390 IF O=1 THEN T1=1 1400 IF O=2 THEN T2=2 1410 IF O=3 THEN T3=3 1420 IF O=4 THEN T4=4 1430 IF O=5 THEN T5=5 1440 IF O=6 THEN T6=6 1500 I=I+1: IF I=6 THEN 1270 1510 GO TO 1360 1600 :' REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0732 Exec: $8b8d * REM *(Start: 09217 Length: 01842 Exec: 35725) * REM ************************************************* REM 10 CLS 20 PRINT @256,"INSTRUKSJON(J/N)" 30 A$= INKEY$ : IF A$="" THEN 30 40 IF A$="J" THEN 70 50 IF A$="N" THEN 170 60 GO TO 30 70 CLS 80 PRINT @11,"MONOPOL" 90 PRINT "********************************"; 100 PRINT "DU STARTER MED DIN BIL FRA STARTOG TRILLER MED TERNINGER(PA DATAMASKINEN)BILEN DIN BLIR FLYTTET SA MANGE GANGER 0YNENE PA TER- NINGEN VISER." 110 PRINT "HVIS DU STOPPER PA EN GATE SOM IKKE ER DIN MA DU BETALE MOT- STANDEREN LEIE,MEN HVIS INGEN EIER DEN KAN DU KJ0PE DEN" 111 A$= INKEY$ : IF A$="" THEN 111 112 CLS 120 PRINT "NAR DU EIER ALLE GATENE I EN FARGE KAN DU BYGGE HUS ELLER HOTELL.HVIS DU STANSER PA ET SP0RSMALSTEGN SKAL DU TREKKE ET SJANSEKORT SOM BADE KAN VAERE NEGATIVT OG POSITIVT." 130 PRINT "NAR DU PASSERER START FAR DU 2000 KRONER.DEN BILLIGSTE GATA ER DEN SOM LIGGER RETT VED SIDENAV START.DEN DYRESTE ER RADHUS- PLASSEN SOM LIGGER RETT UNDER START" 140 PRINT "DEN SOM FAR DEN ANDRE TIL A GA KONK HAR VUNNET!" 150 PRINT "LYKKE TIL!!!" 151 A$= INKEY$ : IF A$="" THEN 151 170 CLS 180 PRINT @128,"1.ST SPILLER HAR SVART BIL" 190 PRINT @150,"2.ND SPILLER HAR HVIT BIL" 200 A$= INKEY$ : IF A$="" THEN 200 1000 PMODE 4,1: PCLS : SCREEN 1,1 1010 LINE (0,0)-(256,192), PSET ,B 1020 LINE (40,40)-(216,152), PSET ,B 1030 LINE (40,0)-(40,192), PSET 1040 LINE (216,0)-(216,192), PSET 1050 LINE (0,40)-(256,40), PSET 1060 LINE (0,152)-(256,152), PSET 1070 LINE (62,0)-(62,192), PSET 1080 LINE (84,0)-(84,192), PSET 1090 LINE (106,0)-(106,192), PSET 1100 LINE (128,0)-(128,192), PSET 1110 LINE (150,0)-(150,192), PSET 1120 LINE (172,0)-(172,192), PSET 1130 LINE (194,0)-(194,192), PSET 1140 :'horisontal 1150 LINE (0,54)-(256,54), PSET 1160 LINE (0,68)-(256,68), PSET 1170 LINE (0,82)-(256,82), PSET 1180 LINE (0,96)-(256,96), PSET 1190 LINE (0,110)-(256,110), PSET 1200 LINE (0,124)-(256,124), PSET 1210 LINE (0,138)-(256,138), PSET 1220 :'preseting vertikal 1230 LINE (62,41)-(62,151), PRESET 1240 LINE (84,41)-(84,151), PRESET 1250 LINE (106,41)-(106,151), PRESET 1260 LINE (128,41)-(128,151), PRESET 1270 LINE (172,41)-(172,151), PRESET 1280 LINE (150,41)-(150,151), PRESET 1290 LINE (194,41)-(194,151), PRESET 1300 PAINT (50,50),5,1 1310 LINE (2,2)-(12,5), PSET ,BF 1320 LINE (2,8)-(12,11), PSET ,B REM REM line numbering breaks here! REM +1($f9) INT TO 63999 FROM ($FFFF)($ef) FOR ($FFFF)($FF0F)($f0)($FFFF) 65519 65535 ( DSKINIT ($ed) MUDPIES BIND MONOPOL BAS ($fc) ; YATZY BAS FREAD  230 REM REM line numbering breaks here! REM MUDPIES BAS PUT  INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0002 Exec: $8b8d * REM *(Start: 09217 Length: 00002 Exec: 35725) * REM ************************************************* REM 10 CLS 20 PRINT @128," MAXI-YATZY" 30 PRINT : PRINT : PRINT " HVOR MANGE SPILLERE?(1-5)" 31 SCREEN 0,1 40 S$= INKEY$ : IF S$="" THEN 40 41 S= VAL (S$) 42 SCREEN 0,1 50 IF S<1 OR S>5 THEN 40 51 PRINT @509," (MAX 8 BOKSTAVER)"; 60 PRINT @288," NAVN PA SPILLER NR 1:"; 70 LINE INPUT S1$ 71 IF LEN (S1$)>8 OR LEN (S1$)<1 THEN 60 80 IF S<2 THEN 1000 90 PRINT @320," NAVN PA SPILLER NR 2:"; 100 LINE INPUT S2$ 110 IF LEN (S2$)>8 OR LEN (S2$)<1 THEN 90 120 IF S<3 THEN 1000 130 PRINT @352," NAVN PA SPILLER NR 3:"; 140 LINE INPUT S3$ 150 IF LEN (S3$)>8 OR LEN (S3$)<1 THEN 130 160 IF S<4 THEN GO TO 1000 170 PRINT @384," NAVN PA SPILLER NR 4:"; 180 LINE INPUT S4$ 190 IF LEN (S4$)>8 OR LEN (S4$)<1 THEN 170 200 IF S<5 THEN GO TO 1000 210 PRINT @416," NAVN PA SPILLER NR 5:"; 220 LINE INPUT S5$ 230 IF LEN (S5$)>8 OR LEN (S5$)<1 THEN 210 240 GO TO 1000 1000 CLS 1010 PRINT @0," MAXI-YATZY" 1020 FOR T=1024 TO 1030: POKE T,32: NEXT T 1030 PRINT @32,"navn" 1040 POKE 1060,32: POKE 1061,32: POKE 1062,32: 1050 PRINT @64,"enere" 1060 POKE 1093,32: POKE 1094,32 1070 PRINT @96,"toere" 1080 POKE 1125,32: POKE 1126,32 1090 PRINT @128,"treere" 1100 POKE 1158,32 1110 PRINT @160,"firere" 1120 POKE 1190,32 1130 PRINT @192,"seksere" 1140 FOR T=1248 TO 1279: POKE T,45: NEXT T 1150 PRINT @256,"sum" 1160 POKE 1283,32: POKE 1284,32: POKE 1285,32: POKE 1286,32 1170 PRINT @288,"bonus" 1180 POKE 1317,32: POKE 1318,32 1190 PRINT @40, LEFT$ (S1$,1) 1200 PRINT @45, LEFT$ (S2$,1) 1210 PRINT @50, LEFT$ (S3$,1) 1220 PRINT @55, LEFT$ (S4$,1) 1230 PRINT @60, LEFT$ (S5$,1) 1240 PRINT @401,""; 1250 FOR T=1344 TO 1375: POKE T,61: NEXT T 1260 PRINT @352,"NAVN ";1;2;3;4;5;6; 1270 PRINT @384,S1$::'player 1 1280 T1= RND (6):T2= RND (6):T3= RND (6):T4= RND (6):T5= RND (6):T6= RND (6) 1290 PRINT @394,T1;T2;T3;T4;T5;T6 1300 PRINT @416,"HVIKE TERN. SKAL OM IGJEN"; 1310 T1$= INKEY$ : IF T1$="" THEN 1310 1311 PRINT @448,T1$; 1320 T2$= INKEY$ : IF T2$="" THEN 1320 1321 PRINT T2$; 1330 T3$= INKEY$ : IF T3$="" THEN 1330 1331 PRINT T3$; 1340 T4$= INKEY$ : IF T4$="" THEN 1340 1341 PRINT T4$; 1350 T5$= INKEY$ : IF T5$="" THEN 1350 1351 PRINT T5$; 1360 T6$= INKEY$ : IF T6$="" THEN 1360 1361 PRINT T6$; 1370 G1=G1+1: IF G1=3 THEN 1390 1380 GO TO 1270 1390 END REM REM line numbering breaks here! REM FROM ($FFFF)($ef) FOR ($FFFF)($FF0F)($f0)($FFFF) 65519 65535 ( DSKINIT ($ed) MUDPIES BIND MONOPOL BAS ($fc) ; YATZY BAS FREAD  230 REM REM line numbering breaks here! REM MUDPIES BAS PUT  INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT