@ @ 1645/@D$""S@R$""@SP$" "@0,1:4,1::0,1@#X16:Y17:X233:Y216:CN5:AX$"":900@(X17:Y18:X232:Y215:CN8:AX$"":920eA-X18:Y19:X231:Y214:(27)"M";::990:W1$" A BASIC 7.0 TUTORIAL":W2$"(40 COLUMN DISPLAY ONLY)":1015A2(D$,21)" PRESS STOP TO PAUSE PROGRAM,":" THEN PRESS C TO CONTINUE, Q TO QUIT": 10:"": 1B7A$" EXPLORING BASIC 7.0 ":C22:940: 1RB<5,8:" THE NEW COMMODORE 128 IS A": 1BA" PROGRAMMER'S DREAM MACHINE!": 2BF5,7:" LET'S LOOK AT SOME OF THE NEW ": 1BK" COMMANDS AVAILABLE WITH BASIC 7.0": 1CP" ON THE COMMODORE 128": 5TCU"":A$" HI-RES GRAPHIC COMMANDS ":940: 1CZ5,8:" HERE IS A BRIEF EXPLANATION OF ": 1C_" EACH GRAPHIC COMMAND: ": 2Dd5,14:"BOX:";: 1:5,5:" DRAWS FOUR-SIDED PARALLELOGRAMS": 2oDi5,14:"CIRCLE:";: 1:5,5:" DRAWS CIRCLES, ELLIPSES, AND":" OTHER GEOMETRIC SHAPES": 2Dn5,14:"DRAW:";: 1:5,5:" DISPLAYS LINES AND POINTS": 2Ds5,14:"PAINT:";: 1:5,5:" FILLS AREA WITH COLOR": 2OEx5,14:"CHAR:";: 1:5,5:" DISPLAYS CHARACTERS ON THE":" BIT-MAP SCREEN": 2E}5,14:"COLOR:";: 1:5,5:" SELECTS COLORS FOR BORDER,":" SCREEN, AND CHARACTERS": 2F5,14:"GRAPHIC:";: 1:5,5:"SELECTS A TEXT, BIT-MAP, OR":" SPLIT-SCREEN DISPLAY": 8yFW1$" NOW LET'S SEE THESE":W2$" COMMANDS AT WORK!":980:1015:"":1025F"": 1:A$" DESIGN AND ANIMATE SPRITES ":940: 1F5,8:" LET'S LOOK AT THE SPRITE COMMANDS:": 2WG5,14:"SPRDEF:";: 1:5,5:" ENTERS SPRITE DEFINITION MODE TO EDIT SPRITES": 2G5,14:"SPRITE:";: 1:5,5:" ENABLES, COLORS, SETS SCREEN PRIORITY AND EXPANDS SPRITE": 24H5,14:"SPRSAV:";: 1:5,5:" STORES A TEXT-STRING VARIABLE INTO A SPRITE STORAGE AREA": 2H5,14:"SSHAPE:";: 1:5,5:" STORES IMAGE OF PART OF SCREEN INTO TEXT-STRING VARIABLE": 2H5,14:"MOVSPR:";: 1:5,5:" MOVES OR POSITIONS SPRITE": 2JI5,14:"COLLISION:";: 1:5,5:"DEFINES HANDLING FOR SPRITE COLLISION INTERRUPT": 2I5,14:"SPRCOLOR:";: 1:5,5:"SETS MULTICOLOR 1 AND/OR MULTICOLOR 2 FOR SPRITES": 8JW1$" LET'S DESIGN AND":W2$" ANIMATE A SPRITE":980:1015:"":1065RJ"": 1:A$" MUSIC AND SOUND EFFECTS ":940: 1J5,8:" MUSIC IS EASY WITH THESE COMMANDS:": 2J5,14:"VOL:";: 1:5,5:" DEFINES OUTPUT LEVEL OF SOUND": 2/K5,14:"TEMPO:";: 1:5,5:" DEFINES SPEED OF THE SONG":" BEING PLAYED": 2K5,14:"SOUND:";: 1:5,5:" OUTPUTS SOUND EFFECTS AND":" MUSICAL NOTES": 2K5,14:"PLAY:";: 1:5,5:" DEFINES AND PLAYS MUSICAL":" NOTES AND ELEMENTS": 28L5,14:"FILTER:";: 1:5,5:" DEFINES SOUND FILTER PARAMETERS": 2L5,14:"ENVELOPE:";: 1:5,5:"DEFINES A MUSICAL INSTRUMENT ENVELOPE": 8LW1$" LET'S SEE AND HEAR":W2$" THESE COMMANDS AT WORK!":980:1015)M"": 1: A$" INVENTION 13 - JOHANN SABASTION BACH":940: 1\M" W-WHOLE NOTE V-VOICE (1-3)"M" H-HALF NOTE O-OCTAVE (0-6)"M" Q-QUARTER NOTE T-ENVELOPE (0-9)"M" I-EIGHTH NOTE U-VOLUME (0-15)"#N" S-SIXTEENTH NOTE X-FILTER (0/1)"XN :" R-REST M-END OF MEASURE"N" #-SHARP $-FLAT"N" C D E F G A B - NOTES"N5,7:"":K038:"";::N1175O""": 1:A$" BASIC 7.0 PROGRAMMING AIDS ":940: 1O'5,8:" LET'S LOOK AT SOME COMMANDS WHICH MAKE": 1:" PROGRAMMING IN BASIC 7.0 EASY!": 2O,5,14:"APPEND:";: 1:5,5:" ALLOWS DATA TO BE APPENDED":" TO A SPECIFIED FILE": 2@P15,14:"AUTO:";: 1:5,5:" TURNS ON AUTO LINE NUMBERING FEATURE": 2P65,14:"BEGIN/BEND:";: 1:5,5:"PERMITS EXECUTION OF A NUMBER"P;" OF PROGRAM LINES IF AN 'IF' CONDITION IS TRUE": 5Q@(27)"M";:X14:Y18:X236:Y219:990:1300QE9752QJ5,8:" LET'S GO ON...": 2QO5,14:"DELETE:";: 1:5,5:" DELETES A SPECIFIED RANGE OF":" LINES IN A BASIC PROGRAM": 2 RT5,14:"DO/LOOP/WHILE/UNTIL/EXIT:";: 1:5,5:"DEFINES AND CONTROLS A PROGRAM LOOP": 5?RY(27)"M";:X14:Y112:X236:Y220:990:1360:975dR^5,8:" LET'S CONTINUE...": 2Rc5,14:"GETKEY:";: 1:5,5:" WAITS FOR A SINGLE CHARACTER":" TO BE TYPED ON THE KEYBOARD": 2Rh(27)"M";:X14:Y110:X236:Y215:990:1400KSm(D$,18):5,14:"HELP:";: 1:5,5:" HIGHLIGHTS A PROGRAM ERROR": 5{Sr(27)"M";:X14:Y16:X236:Y215:990:1410Sw(D$,20):5,14:"IF/THEN/ELSE:";: 1:5,5:"EVALUATES A CONDITIONAL EXPRESSION": 5T|(27)"M";:X14:Y16:X236:Y215:990:1455?T975:5,8:"LET'S KEEP GOING...": 2T5,14:"PRINT USING:";: 1:5,5:"DEFINES A FORMAT FOR OUTPUT":" TO THE SCREEN OR PRINTER": 5T(27)"M";:X14:Y19:X236:Y217:990:1490TU(D$,20):5,14:"PUDEF:";: 1:5,5:" ALLOWS REDEFINING OF SYMBOLS IN THE PRINT USING STATEMENT": 8U975:5,8:"LET'S MOVE ALONG...": 2U5,14:"RENUMBER:";: 1:5,5:"RENUMBERS LINES OF A BASIC":" PROGRAM": 2V5,14:"SCNCLR:";: 1:5,5:" CLEARS THE SCREEN": 2V5,14:"SLEEP:";: 1:5,5:" DELAYS THE PROGRAM FOR A ":" SPECIFIC NUMBER OF SECONDS": 2V5,14:"TRAP:";: 1:5,5:" DETECTS PROGRAM ERRORS WHILE A":" BASIC PROGRAM IS RUNNING": 2RW5,14:"RESUME:";: 1:5,5:" RESUMES PROGRAM EXECUTION AT A":" SPECIFIC POINT": 5W(27)"M";:X14:Y18:X236:Y218:990:1505W975:5,8:"LET'S CONTINUE...": 2W5,14:"TRON:";: 1:5,5:" TURNS ON ERROR TRACING MODE": 26X5,14:"TROFF:";: 1:5,5:" TURNS OFF ERROR TRACING MODE": 2vX5,14:"WINDOW:";: 1:5,5:" DEFINES A SCREEN WINDOW": 5XW112:(27)"M";XX1((0)20):Y1((0)12):X2(((0)20)18):Y2((0)1012)YX1X2 Y1Y2 X238 Y222 X12 Y12 465EYW1$" WINDOWS ARE EASY ON THE 128!":990:1020: 1:WvY(27)"M";:X14:Y112:X236:Y213:990:1585Y"": 1:A$" DISK DRIVE COMMANDS ":940: 1Z5,8:" DISK DRIVE COMMANDS ARE FASTER ": 1:" AND EASIER WITH THE COMMODORE 128:": 2Z5,14:"BACKUP:";: 1:5,5:" COPIES THE CONTENTS FROM ONE DISK TO ANOTHER ON A DUAL DRIVE SYSTEM": 2[5,14:"BLOAD:";: 1:5,5:" LOADS A BINARY FILE STARTING AT A SPECIFIED MEMORY LOCATION": 2[5,14:"BSAVE:";: 1:5,5:" SAVES A BINARY FILE FROM THE SPECIFIED MEMORY LOCATIONS": 2\5,14:"BOOT:";: 1:5,5:" LOADS AND EXECUTES A PROGRAM WHICH WAS SAVED AS A BINARY FILE": 2D\5,14:"CATALOG:";: 1:5,5:"DISPLAYS THE DISK DIRECTORY": 2\5,14:"COLLECT:";: 1:5,5:"FREES INACCESSIBLE DISK SPACE": 8\ 975:5,8:"LET'S KEEP VIEWING...": 2]5,14:"CONCAT:";: 1:5,5:" CONCATENATES, OR ATTACHES, TWO DATA FILES": 2]5,14:"COPY:";: 1:5,5:" COPIES FILES FROM ONE DRIVE TO ANOTHER, OR WITHIN A SINGLE DRIVE": 2]5,14:"DCLEAR:";: 1:5,5:" CLEARS ALL OPEN CHANNELS ON THE DISK DRIVE": 2`^!5,14:"DOPEN:";: 1:5,5:" OPENS A DISK FILE FOR A READ AND/OR WRITE OPERATION": 2^&5,14:"DCLOSE:";: 1:5,5:" CLOSES A SINGLE FILE OR ALL OPEN FILES ON A DISK DRIVE": 2'_+5,14:"DIRECTORY:";: 1:5,5:"DISPLAYS THE DISK DIRECTORY ON THE SCREEN": 8N_0975:5,8:"A FEW MORE...": 2_55,14:"DSAVE:";: 1:5,5:" SAVES A BASIC PROGRAM FILE TO DISK": 2`:5,14:"DVERIFY:";: 1:5,5:"VERIFIES THE PROGRAM IN MEMORY AGAINST THE ONE ON THE DISK": 2L`?5,14:"HEADER:";: 1:5,5:" FORMATS A DISK": 2`D5,14:"RENAME:";: 1:5,5:" CHANGES THE NAME OF A FILE ON A DISK": 2aI5,14:"SCRATCH:";: 1:5,5:"DELETES A FILE FROM THE DISK DIRECTORY": 86aNA$" C-64 & C-128 DISK COMMANDS":975: 1}aS(D$,4)" FUNCTION":(27)"M";:X12:Y15:X215:Y28:990:""aX(D$,9)""18)"C-64":(27)"M";:X17:Y110:X230:Y215:990:""b](D$,16)""22)"C-128":(27)"M";:X112:Y117:X237:Y222:990:"": 2bbF1$" FORMAT DISK": 1590:L1$" OPEN 15,8,15":L2$" PRINT#15,":L3$"N0:NAME,ID":L4$" CLOSE 15":L5$"":1595bgB1$" HEADER":B2$"NAME":B4$"":1600clF1$" DIRECTORY":1590:L1$"":L2$" LOAD":L3$"$":L4$" ,8":L5$" LIST":1595QcqB1$" DIRECTORYOR CATALOGOR F3":1605cvF1$" LOAD FILE":1590:L1$"":L2$" LOAD":L3$"FILE":L4$" ,8":L5$"":1595c{B1$" DLOAD":B2$"FILE":B3$" OR RUN":B4$" OR F2 + FILE":1610SdF1$" SAVE FILE":1590:L1$"":L2$" SAVE":L3$"FILE":L4$" ,8":L5$"":1595dB1$" DSAVE":B2$"FILE":B3$"":B4$" OR F5 + FILE":1600dF1$" VERIFY FILE":1590:L1$"":L2$" VERIFY":L3$"FILE":L4$" ,8":L5$"":1595#eB1$" DVERIFY":B2$"FILE":B4$"":1600eF1$" SCRATCH FILE": 1590:L1$" OPEN 15,8,15":L2$" PRINT#15,":L3$"S0:FILE":L4$" CLOSE 15":L5$"":1595eB1$" SCRATCH":B2$"FILE":B4$"":1600,fF1$" VALIDATE": 1590:L1$" OPEN 15,8,15":L2$" PRINT#15,":L3$"V":L4$" CLOSE 15":L5$"":1595GfB1$" COLLECT":1605fF1$" RENAME": 1590:L1$" OPEN 15,8,15":L2$" PRINT#15,":L3$"R0:NEWFILE= OLDFILE":L4$" CLOSE 15":L5$"":1595gB1$" RENAME ":B2$"OLDFILE":B3$" TO ":B4$"NEW FILE":1615gF1$" COPY FILE": 1590:L1$" OPEN 15,8,15":L2$" PRINT#15,":L3$"C0:NEWFILE= OLDFILE":L4$" CLOSE 15":L5$"":1595gB1$" COPY ":B2$"OLDFILE":B3$"TO":B4$"NEWFILE":16157hF1$" COPY(DUAL DRIVE)": 1590:L1$" OPEN 15,8,15":L2$" PRINT#15,":L3$"D0=1":L4$" CLOSE 15":L5$"":1595ZhB1$" BACKUP D0 TO D1":1605h"": 1:A$" BASIC FUNCTIONS ":940: 1h5,8:" THE FOLLOWING FUNCTIONS HAVE ": 1:" BEEN ADDED TO BASIC 7.0:": 2Ri5,14:"BUMP:";: 1:5,5:" RETURNS SPRITE COLLISION":" INFORMATION": 2i5,14:"HEX$:";: 1:5,5:" RETURNS HEXADECIMAL NUMBER":" STRING FROM DECIMAL NUMBER": 2i(27)"M";:X14:Y113:X236:Y216:990:1620Xj(D$,18): 5,14:"INSTR:";: 1:5,5:" RETURNS POSITION OF STRING1":" IN STRING2": 2j5,14:"JOY:";: 1:5,5:" RETURNS POSITION OF JOYSTICK":" AND STATUS OF FIREBUTTON": 8j975:5,8:"LET'S CONTINUE...": 2Pk5,14:"PEN:";: 1:5,5:" RETURNS X AND Y COORDINATES":" OF A LIGHT PEN": 2k5,14:"POT:";: 1:5,5:" RETURNS VALUE OF THE GAME-":" PADDLE POTENTIOMETER": 2l5,14:"POINTER:";: 1:5,5:"RETURNS ADDRESS OF A VARIABLE":" NAME": 2Ul5,14:"RCLR:";: 1:5,5:" RETURNS COLOR OF COLOR SOURCE": 2l5,14:"RDOT:";: 1:5,5:" RETURNS CURRENT POSITION OR":" COLOR SOURCE OF PIXEL CURSOR": 2 m5,14:"RGR:";: 1:5,5:" RETURNS CURRENT GRAPHIC MODE": 2cm 5,14:"RSPCOLOR:";: 1:5,5:"RETURNS SPRITE MULTICOLOR VALUES": 8m975:5,8:"LET'S GO ON...": 2m5,14:"RSPPOS:";: 1:5,5:" RETURNS SPEED AND POSITION ":" VALUES OF A SPRITE": 27n5,14:"RSPRITE:";: 1:5,5:"RETURNS SPRITE CHARACTERISTICS": 2n 5,14:"RWINDOW:";: 1:5,5:"RETURNS SIZE OF THE CURRENT":" WINDOW": 2n%5,14:"XOR:";: 1:5,5:" RETURNS EXCLUSIVE OR": 8o*"": 1:A$" MISCELLANEOUS BASIC 7.0 COMMANDS ":940: 1to/5,8:" THE FOLLOWING COMMANDS HELP MAKE THE": 1:" COMMODORE 128 THE POWERFUL AND": 1o4" VERSATILE MACHINE IT IS!": 2p95,14:"FAST:";: 1:5,5:" PUTS COMPUTER IN 2 MHZ MODE":" OF OPERATION": 2bp>5,14:"SLOW:";: 1:5,5:" RETURNS COMPUTER TO 1 MHZ MODE":" OF OPERATION": 2pC5,14:"FETCH/STASH/SWAP:";: 1:5,5:"COMMANDS FOR STORING":" DATA IN EXPANSION RAM": 2qH5,14:"GO64:";: 1:5,5:" SWITCHES TO 64 MODE": 2hqM5,14:"KEY:";: 1:5,5:" DEFINES OR LISTS FUNCTION KEY":" ASSIGNMENTS": 8qR(27)"M";:X14:Y16:X236:Y214:990:1625qW975:5,8:"LET'S CONTINUE...": 2)r\5,14:"LOCATE:";: 1:5,5:" POSITIONS THE BIT MAP PIXEL":" CURSOR ON THE SCREEN": 2ra5,14:"MONITOR:";: 1:5,5:"ENTERS THE MACHINE LANGUAGE":" MONITOR": 2rf5,14:"RECORD:";: 1:5,5:" POSITIONS RELATIVE FILE ":" POINTERS": 2-sk5,14:"SCALE:";: 1:5,5:" ALTERS SCALING IN GRAPHIC":" MODE": 2sp5,14:"WIDTH:";: 1:5,5:" SETS WIDTH OF LINES DRAWN":" IN GRAPHIC MODE": 8su"": 1:A$" EXPLORING BASIC 7.0 ":940: 1Ktz5,8:" THIS HAS BEEN A QUICK LOOK AT": 1:" THE MANY POWERFUL COMMANDS": 1:" OF BASIC 7.0": 2t" TAKE TIME TO EXPLORE THEM": 1:" ON YOUR OWN!": 5:t(27)"M";:X11,Y11,X21,Y21,1:X (0):Y (1)t5,CN:AX$;:I1(Y1):AX$;::AX$uI1 X1 :AX$;Y);AX$:EuAX$;:I1(Y1):AX$;::AX$:"":quX11,Y11,X21,Y21,1:X (0):Y (1)u5,CN:AX$;:I1(Y1):5,(I15)1(I16):AX$;::5,CN:AX$uI1 X1:5,(I15)1(I16):AX$;Y);AX$:+v5,CN:AX$;:I1(Y1):5,(I15)1(I16):AX$;::5,CN:AX$:"":AvX((40(A$))2)XvR(N)(N(0)1)svY2331:5,R(14)2v(D$,Y)(R$,X)A$:DE18::v5,C2:(D$,Y)(R$,X)A$vY2331:(D$,Y)SP$:DE18::v5,15:"";:K038:"";::9w"": 1:5,2:" "A$:5,7:"";:K038:"";:: 1:Hw(27)"M";bwX18:Y17:X232:Y216~wX11,Y11,X21,Y21,1wX (0):Y (1)w"";:I1(Y1):"";::""wI1X1:"";Y);"":x"";:I1(Y1):"";::"":X1,Y1,X2,Y2:&xW1$W2$: 5:(27)"L";:"":Ux5,(W15)1(W16):W1$:(27)"L";:"":}x0,1:1,3:4,1:1,1:,150,130,40,40x1,6:,20,100,80,160,45,1x 1,9:,220,100,280,160,90,0x1,8:1,20,180280,180x1,10,20300,20150,8010,20:y1,15:1,150,175:1,150,97:1,5:1,50,25:1,7:1,225,125:1,11Yy,11,24,"GRAPHICS EXAMPLE"ky$ 8:0,1:1:y)1,1:0,1:1,2:4,1y.1,2,2,45,45:1,268,2,319,50:1,34,1,"DRAW": 1:1,17,1028,1026,3019,3017,10y31,11,1015,1015,1811,1811,10"z81,30,1034,1034,1830,1830,10Gz=1,11,2015,2015,2811,2811,20lzB1,30,2034,2034,2830,2830,20zG1,26,2819,28zL1,20,14,26,18,90,1zQ1,150,35,195,40,90,1zV1,150,135,195,140,90,1z[1,150,215,195,220,90,1z`1,50,180300,180{e1,50,18050,190+{j1,300,180300,190A{o1,50,190300,190W{t1,18,23,"FINISH"{y1,34,2,"SSHAPE": 1:A$,11,10,34,31:1,34,3,"SPRSAV": 1:A$,1:A$,2{~1,1,7,0,0,0,0{2,1,3,0,0,0,0:1,34,4,"SPRITE": 1|1,34,5,"MOVSPR": 1:1,240,70:2,120,70)|1,180 #6:2,180 #7H| 10:1,0:2,0:0,1:1:P|6u|"V1O4T7U8X0": VOICE 1 = ORGAN|"V2O4T7U8X0": VOICE 2 = PIANO|AS$"V2 O1IA V1 O3IE V2 O2QA V1 O3SAO4CO3BE V2 O2I#G V1 O3SBO4D V1 O4IC V2 O2SAEM"I}B$"V1 O4IE V2 O2SAO3C V1 O3I#G V2 O2SBE V1 O4IE V2 O2SBO3D "}C$"V2 O3IC V1 O3SAE V2 O2IA V1 O3SAO4C V2 O2I#G V1 O3SBE V2 O2IE V1 O3SBO4D "}DD$"V1 O4IC V2 O2SAE V1 O3IA V2 O2SAO3C V1 O4QR V2 O2SBEBO3D "R~E$"V2 O3IC V1 O4SRE V2 O2IA V1 O4SCE V2 O3IC V1 O3SAO4C V2 O2IA V1 O2SEG "~F$"V1 O3IF V2 O3SDO2A V1 O3IA V2 O2SFA V1 O4ID V2 O2SDF V1 O4IF V2 O1SAO2C "G$"V2 O1IB V1 O4SFD V2 O2ID V1 O3SBO4D V2 O2IG V1 O3SGB V2 O2IB V1 O3SDF "ZH$"V1 O3IE V2 O2SGE V1 O3IG V2 O2SEG V1 O4IC V2 O2SCE V1 O4IE V2 O1SGB "I$"V2 O1IA V1 O4SEC V2 O2IC V1 O3SAO4C V1 O3IF V2 O2SDF V1 O4ID V2 O1SBO2D " J$"V2 O1IG V1 O3SDB V2 O1IB V1 O3SGB V1 O3IE V2 O2SCE V1 O4IC V2 O1SAO2C "bK$"V2 O1IF V1 O4SCO3A V2 O1ID V1 O3SFA V1 O3ID V2 O1SGO2G V1 O3IB V2 O2SFG "M$"V2 O1IA V1 O4SCO3A V2 O2I#F V1 O4SCE V2 O1IB V1 O4SDO3B V2 O2I#G V1 O4SDF "N$"V2 O2IC V1 O4SEC V2 O2IA V1 O4SEG V2 O2ID V1 O4SFE V2 O2I$B V1 O4SDC "jO$"V2 O2I#G V1 O3SBO4C V2 O2IF V1 O4SDE V2 O2ID V1 O4SFD V2 O1IB V1 O4S#GD "P$"V2 O2I#G V1 O4SBD V2 O2IA V1 O4SCA V2 O2ID V1 O4SFD V2 O2IE V1 O3SBO4D "Q$"V2 O2IF V1 O3S#GB V2 O2I#D V1 O4SCO3A V2 O2IE V1 O3SEA V2 O2IE V1 O3SB#G "sRS$"V2 O1 HA V1 O3 SA E C E O2 QA "CL$""ł""AS$:AS$:CL$B$:B$:CL$C$:C$:CL$DD$:DD$:CL$E$:E$CL$F$:F$:CL$G$:G$:CL$H$:H$:CL$I$:I$:CL$J$:J$E CL$K$:K$:CL$M$:M$:CL$N$:N$:CL$O$:O$:CL$P$:P$lCL$Q$:Q$:CL$RS$:RS$: 8:0:" LET'S TAKE A CLOSER LOOK AT": 1:" BEGIN/BEND. HERE IS A PROGRAM": 1:" FEATURING THIS COMMAND:": 5"10 INPUT";(34);"TYPE A NUMBER";(34);";A"`"20 IF A<6 THEN BEGIN:PRINT";(34);"YOUR NUMBER WAS ";(34);";A"#"30 SLEEP2":"40 FOR X=1 TO A"Ä("50 PRINT";(34);"THIS IS AN EXAMPLE OF BEGIN/BEND";(34)/-"60 NEXT X":"70 SLEEP2:PRINT";(34);"THAT'S ENOUGH!";(34);":BEND:ELSE PRINT";(34);"TOO LARGE";(34)i2"80 END": 15:" NOW LET'S RUN THE PROGRAM:": 57"TYPE A NUMBER";A<A6 :"YOUR NUMBER WAS ";AۅA 2:X1A:"THIS IS AN EXAMPLE OF BEGIN/BEND":XF 2:"THAT'S ENOUGH!"::ՙ"TOO LARGE""K 10:(27)"L";:"":P" LET'S SEE THE DO/LOOP COMMAND": 1:" IN ACTION. HERE IS A PROGRAM": 1:" FEATURING THIS COMMAND:": 5ΆU"10 X=25":"20 DO UNTIL X=0":"30 X=X-1"Z"40 PRINT";(34);"X=";(34);";X":"50 SLEEP1:LOOP"]_"60 PRINT";(34);"END OF LOOP";(34): 15:" NOW LET'S RUN THE PROGRAM:": 5tdX25:""(27)"L";i X0nXX1:"X=";X: 1:s"END OF LOOP": 10:"":(x" EXAMPLE:": 1:"10 GETKEY A$": 3:" PRESS ANY KEY TO CONTINUE":" THE PROGRAM":AA$?}(27)"L";:"":" LET'S SEE THE HELP COMMAND AT": 1:" WORK. HERE IS A PROGRAM WITH AN": 1:" ERROR:": 3切"10 PRINT 3;4:5;6": 5:"NOW LET'S RUN THIS PROGRAM:": 3" 3 4":"?SYNTAX ERROR IN 10":"READY."ZFL110:(D$,16)" ":T1200::(D$,16)" ":T1200::FL"WATCH WHAT HAPPENS WHEN THE HELP KEY IS PRESSED": 5" THE LINE IN WHICH THE ERROR HAS": 1:"OCCURRED IS PRINTED ON THE SCREEN": 1:" WITH THE ERROR HIGHLIGHTED.": 39"10 PRINT 3;4:5;6":"READY."zFL110:(D$,9)" ":T1200::(D$,9)" ":T1200::FL(27)"L";:"":" LET'S LOOK MORE CLOSELY AT ": 1:"IF/THEN/ELSE. HERE IS A PROGRAM": 1:" FEATURING THIS COMMAND:": 5C"10 INPUT ";(34);"PICK A NUMBER";(34);";A""20 IF A<99 THENPRINT ";(34);"OK";(34);":ELSEPRINT ";(34);"PICK A SMALLER NUMBER";(34);":GOTO10""30 PRINT ";(34);"YOU CHOSE";(34);";A": 15:" NOW LET'S RUN THE PROGRAM:": 5,(27)"L";: "PICK A NUMBER";Ab A99 "OK": "PICK A SMALLER NUMBER":1475 "YOU CHOSE";A: 15:"":"LET'S SEE AN EXAMPLE:": 1:"10 X=79.95:Y=42.7561:Z=5":"20 PRINT USING ";(34);"$##.## ";(34);"X,Y,Z": 10N"WHEN THIS IS RUN, X, Y, AND Z ARE": 1:"FORMATTED INTO DOLLAR VALUES:": 5"":X79.95:Y42.7561:Z5: "$##.## ";X,Y,Z: 15:(27)"L";:"":" LET'S SEE HOW TRAP AND RESUME": 1:" CAN RESOLVE A DIVISION BY ZERO": 1:" ERROR IN A PROGRAM:": 5I"10 INPUT ";(34);"PICK A NUMBER";(34);";A"c"15 TRAP 100:B=100/A"40 PRINT";(34);"100 DIVIDED BY";(34);"A";(34);"=";(34);";B""50 INPUT ";(34);"PLAY AGAIN (Y/N)";(34);";Z$:IFZ$=";(34);"Y";(34);"THEN10" "60 END"O"100 INPUT";(34);"ENTER A NUMBER OTHER THAN ZERO";(34);";A"h"110 RESUME15": 15܏ " LET'S RUN THE PROGRAM.": 1:" SEE HOW THE PROGRAM RESPONDS": 1:" TO DIVISION BY ZERO:": 5"PICK A NUMBER";A1575:B100A$"100 DIVIDED BY"A"=";BL"PLAY AGAIN (Y/N)";Z$:Z$"Y"1550m" 5:(27)"L";:"":1645:'"ENTER A NUMBER OTHER THAN ZERO";A,15551" CREATING WINDOWS IS EASY":" ON THE COMMODORE 128": 8:(27)"L";:"":62,5,15,8,1:F1$: 2:"":a;7,10,30,14,1:L1$:L2$;(34);L3$;(34):L4$:L5$: 2:"":@12,17,37,22,1:B1$;(34);B2$;(34):B4$: 8:"":E12,17,37,22,1:B1$: 8:"":J12,17,37,22,1:B1$;(34);B2$;(34):B3$;(34);B2$;(34):B4$: 8:"":XO12,17,37,22,1:B1$;(34);B2$;(34);B3$;(34);B4$;(34): 8:"":T" EXAMPLE:": 1:"PRINT HEX$(53280)": 2:"D020": 5:(27)"L";:"": Y"THE KEY COMMAND ALLOWS FOR EASY": 1:"DEFINITION OF THE FUNCTION KEYS": 1:" HERE ARE THE DEFAULT VALUES:": 2^" F1 - GRAPHIC F5 - DSAVE":" F2 - DLOAD F6 - RUN":" F3 - DIRECTORY F7 - LIST"œc" F4 - SCNCLR F8 - MONITOR": 10ܓh(27)"L";:"":mAA$:AA$"C"ւrAA$"Q"(27)"L";:"":"":0,1:&w1645